vbs腳本播放音樂並彈出對話框按確定停止音樂

請看代碼:

Dim?WS,C,Player,File

Set?WS=WScript.CreateObject("WScript.Shell")

C=Chr(34)

File="C:\xxx.mp3"

'請在雙引號中輸入音樂文件的路徑.

Player=WS.ExpandEnvironmentStrings("%ProgramFiles%")?&?"\Windows?Media?Player\wmplayer.exe"

WS.Run?C+Player+C+"?"+C+File+C,0

MsgBox?"音樂正在播放...",64,"註意"

WS.Run?"taskkill?/f?/im?wmplayer.exe",0