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
猜你喜欢
转载自ipwj74ipwj.iteye.com/blog/1359038
今日推荐
周排行