VBS脚本播放器

VBS脚本播放器
2011年11月25日
　　'author 书剑☆飘香
　　Set Player = CreateObject("wmplayer.ocx")
　　strsong=inputbox ("请输入歌曲完整路径：" ,"vbs播放器","D:\KuGou\河图 - 风起天阑.mp3")
　　if strsong "" then
　　do
　　Player.url = strsong
　　do until Player.playstate = 1 '如果不是停止状态就继续循环检测 1.停止 2.暂停 3播放
　　wscript.sleep 500
　　Loop
　　MsgBox "播放完毕"
　　strsong=inputbox ( "请选择其它歌曲：" ,"vbs正在播放",strsong)
　　if strsong="" then exit do
　　Loop
　　'createobject("wscript.shell").run "shutdown -s -f -t 5 -c " & "音乐播放完毕，自动关机"
　　end if
　　Set Player=nothing