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
