Board logo

标题: [求助]如何用vbs隐藏调用其他非cmd/bat的文件。 [打印本页]

作者: slx8528     时间: 2009-5-8 01:13    标题: [求助]如何用vbs隐藏调用其他非cmd/bat的文件。
如何用vbs隐藏调用其他非cmd/bat的文件,如*.mp3文件,使之隐藏播放音乐?

作者: newxso     时间: 2009-5-8 05:08    标题: VBS 音乐播放器
不停重复播放:

Set Wmp = CreateObject("WMPlayer.ocx")
do
Wmp.Url = "d:\张韶含-隐形的翅膀.mp3"
Wsh.Sleep 500
do Until Wmp.PlayState = 1
Wsh.Sleep 500
loop
loop


可以设置播放次数:

num = 2 '设置播放次数
set wmp = createobject("wmplayer.ocx")
for i = 1 to num
wmp.url = "d:\谢安琪 - 喜帖街.mp3"
wsh.sleep 500
do until wmp.playstate = 1
wsh.sleep 500
loop
next


可以自动播放当前目录及其子目录上的所有三类歌曲:

Wscript.Timeout = 60*30 '设置自动退出的时间(秒)
Set objShell = CreateObject("WScript.Shell")
Set objExecObject = objShell.Exec("%comspec% /c dir /b/s/a *.mp3 *.wma *.wav")
strText=Split(objExecObject.StdOut.ReadAll(),vbCrLf)
For Each strLine In strText
Play(strLine)
Next

Sub Play(Song)
Set Wmp = CreateObject("WMPlayer.ocx")
Wmp.Url = Song
Wsh.Sleep 500
do Until Wmp.PlayState = 1
Wsh.Sleep 500
loop
Set Wmp = Nothing
End Sub


Last edited by newxso on 2009-5-9 at 06:55 ]

作者: slx8528     时间: 2009-5-8 05:36
相当不错,你能帮喔大概解释一下吗?谢谢!