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

2010年5月3日 | 分类: 技术相关 | 标签: , ,

有点意思。看代码吧!

'播放音乐
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
目前还没有任何评论.

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。