如何用vbs隐藏调用其他非cmd/bat的文件。 - 中国DOS联盟论坛

不停重复播放：


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 ]

第1楼　slx8528	发表于 2009-05-08 01:13
初级用户　发帖 39　积分 38
[求助]如何用vbs隐藏调用其他非cmd/bat的文件。如何用vbs隐藏调用其他非cmd/bat的文件，如*.mp3文件，使之隐藏播放音乐？

第2楼　newxso	发表于 2009-05-08 05:08
初级用户　发帖 101　积分 73　来自 GZ
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 = 6030 '设置自动退出的时间(秒) 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 ]

第3楼　slx8528	发表于 2009-05-08 05:36
初级用户　发帖 39　积分 38
相当不错，你能帮喔大概解释一下吗？谢谢！