中国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