【实验】VBS播放控制WMP播放音乐

发表于2010-05-03由Burgess Lee

有点意思。看代码吧！

'播放音乐
Sub Play(url)
	Set oWMP = CreateObject("WMPlayer.OCX")
	oWMP.URL = url
	Do while oWMP.playState = 9 Or oWMP.playState = 3
		WScript.Sleep(1000)
	Loop
End Sub
 
Play("汤潮-那滋味.mp3")

还可以控制光驱

'弹出所有光驱
Sub EjectAllCDROM()
	Set oWMP = CreateObject("WMPlayer.OCX")
	Set colCDROMs = oWMP.cdromCollection
	If colCDROMs.Count >= 1 then
		For i = 0 to colCDROMs.Count - 1
			colCDROMs.Item(i).Eject
		Next
	End If
End Sub
EjectAllCDROM
发表在 技术相关 | 标签为 , , | 【实验】VBS播放控制WMP播放音乐已关闭评论

用计算器测试CPU速度

发表于2010-05-03由Burgess Lee

无聊在网上看到一个方法来测试CPU的速度，呵呵，试试吧。
准备：
打开“任务管理器”，选择“进程”页，菜单“查看”=》“选择列”，勾上“CPU时间”，确定。

测试：
打开“计算器”，菜单“查看”=》“科学型”，输入30000，点击“n!”，即阶乘运算，等待完成。

结果：
运算完成后查看“任务管理器”中“calc.exe”的”CPU时间”。

对比测试：
P4 2.53GHz
30000 阶乘 用时8秒
50000 阶乘 用时24秒

我2005年的老机器
Celeron 2.66GHz
30000 阶乘 用时11秒
50000 阶乘 用时31秒

公司工作的机器
E8200 2.66GHz
30000 阶乘 用时7秒
50000 阶乘 用时23秒

发表在 工具收集 | 标签为 , , | 用计算器测试CPU速度已关闭评论

AS3遍历对象方法和属性

发表于2010-04-15由Burgess Lee 
import flash.utils.describeType;
trace(describeType(object));
发表在 技术相关 | 标签为 | AS3遍历对象方法和属性已关闭评论

HashCalc

发表于2010-03-03由Burgess Lee

计算各种Hash的小软件，也可以计算文件的Hash。

附件：HashCalc

发表在 工具收集 | 标签为 , | HashCalc已关闭评论

Process Monitor

发表于2010-03-03由Burgess Lee

微软收购的小软件，监视注册表，文件读写，网络，进程等操作。

附件：ProcessMonitor

发表在 工具收集 | 标签为 , | Process Monitor已关闭评论