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