set ws=createobject("wscript.shell") ws.run "wmplayer.exe E:/mp3/08.mp3",0
比较不错的一款vbs播放器 推荐
复制代码 代码如下:
MsgBox "这只是个样品，不能播放歌曲。需要您自己修改！ 作者：後知後覺",60,"狂人自制播放器" Set Player = CreateObject("wmplayer.ocx") do i=inputbox ("请输入你要选择的歌曲编号，退出请按0："&vbCrlf&"1 >> 凤凰传奇"&vbCrlf&"2 >> 大笑江湖"&vbCrlf&"3 >> 韩晶-不要用我的爱来伤害我"&vbCrlf&"4 >> 许慧欣-幸福的味道"&vbCrlf&"5 >> 陈慧琳-不如跳舞"&vbCrlf&"6 >> FIR-我们的爱"&vbCrlf&"7 >> 东来东往-连哭都是我的错"&vbCrlf&"8 >> 吴佩慈-闪着泪光的决定","音乐播放器-後知後覺","1") if i=1 then Player.url = "E:/music/凤凰传奇.mp3" elseif i=2 then Player.url = "E:/music/大笑江湖.mp3" elseif i=3 then Player.url = "E:/music/韩晶-不要用我的爱来伤害我.mp3" elseif i=4 then Player.url = "E:/music/许慧欣-幸福的味道.wma" elseif i=5 then Player.url = "E:/music/不如跳舞-陈慧琳.mp3" elseif i=6 then Player.url = "E:/music/飞儿乐团-我们的爱.wma" elseif i=7 then Player.url = "E:/music/东来东往-连哭都是我的错.mp3" elseif i=8 then Player.url = "E:/music/闪着泪光的决定.mp3" elseif i=0 then exit do end if loop Set Player=nothing rem URL可以是网络的也可以是本地的！如果是网络的这个脚本就可以在任何地方用。 Set Wshell=WScript.CreateObject("WScript.Shell") If MsgBox("到我空间转转？顺便挖金！", vbYesNo + vbQuestion, "後知後覺") = vbYes Then Wshell.Run "http://user.qzone.qq.com/420123641" End if
更简单的上面版本的精简版
复制代码 代码如下:
Set Player = CreateObject("wmplayer.ocx") strsong=inputbox ("请输入歌曲,如F:/mp3/1.mp3；退出按取消：" & vbCrlf & "递归遍历也简单，懒得整合了" ,"vbs播放器","F:/!music/classic/钢琴曲/施特劳斯－“蓝色多瑙河”圆舞曲.mp3") if strsong <>"" then do Player.url = strsong strsong=inputbox ( "正在播放●●●" & vbCrlf &"请●不要关闭窗口" & vbCrlf & vbCrlf & "也可选择播放其他 "& vbCrlf & " 退出按取消" & vbCrlf & "" ,"vbs正在播放",strsong) if strsong="" then exit do loop end if Set Player=nothing
