快捷導(dǎo)航

用VBS實(shí)現(xiàn)音樂播放的多個(gè)代碼小結(jié)

更新時(shí)間：2011年02月26日 21:55:38 作者：

用VBS實(shí)現(xiàn)音樂播放的多個(gè)代碼，下面根據(jù)網(wǎng)上的一些文章進(jìn)行了整理說明，需要的朋友可以參考下。

第一個(gè)代碼，會(huì)使用默認(rèn)mp3文件關(guān)聯(lián)的程序，會(huì)出現(xiàn)音樂播放框

wscript.sleep 12000 
set ws=createobject("wscript.shell") 
ws.run "兄弟你累了嗎.mp3"

第二段代碼調(diào)用了WMPlayer.OCX插件，不會(huì)出現(xiàn)音樂播放框，如果想關(guān)閉播放音樂需要在進(jìn)程中關(guān)閉wscript.exe進(jìn)程。

復(fù)制代碼代碼如下:

Dim wmp 
Set wmp = CreateObject("WMPlayer.OCX") 
wmp.URL = "兄弟 張萌萌.mp3" 
Do Until wmp.playState = 1 
WScript.Sleep 1000 
Loop

VBS隱藏播放音樂

復(fù)制代碼代碼如下:

 
set ws=createobject("wscript.shell") 
ws.run "wmplayer.exe "&ws.currentdirectory&"\08.wma",0 

ws.currentdirectory為vbs中獲取本地的目錄，這個(gè)程序需要用到wmplayer.exe播放器。
或者

復(fù)制代碼代碼如下:

 
set ws=createobject("wscript.shell") 
ws.run "wmplayer.exe E:\mp3\08.mp3",0 

比較不錯(cuò)的一款vbs播放器推薦

復(fù)制代碼代碼如下:

MsgBox "這只是個(gè)樣品，不能播放歌曲。需要您自己修改！ 作者：後知後覺",60,"狂人自制播放器" 
Set Player = CreateObject("wmplayer.ocx") 
do 
i=inputbox ("請輸入你要選擇的歌曲編號(hào)，退出請按0："&vbCrlf&"1 >> 鳳凰傳奇"&vbCrlf&"2 >> 大笑江湖"&vbCrlf&"3 >> 韓晶-不要用我的愛來傷害我"&vbCrlf&"4 >> 許慧欣-幸福的味道"&vbCrlf&"5 >> 陳慧琳-不如跳舞"&vbCrlf&"6 >> FIR-我們的愛"&vbCrlf&"7 >> 東來東往-連哭都是我的錯(cuò)"&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\飛兒樂團(tuán)-我們的愛.wma" 
elseif i=7 then 
Player.url = "E:\music\東來東往-連哭都是我的錯(cuò).mp3" 
elseif i=8 then 
Player.url = "E:\music\閃著淚光的決定.mp3" 
elseif i=0 then 
exit do 
end if 
loop 
Set Player=nothing 
rem URL可以是網(wǎng)絡(luò)的也可以是本地的！如果是網(wǎng)絡(luò)的這個(gè)腳本就可以在任何地方用。 
Set Wshell=WScript.CreateObject("WScript.Shell") 
If MsgBox("到我空間轉(zhuǎn)轉(zhuǎn)？順便挖金！", vbYesNo + vbQuestion, "後知後覺") = vbYes Then 
Wshell.Run "http://user.qzone.qq.com/420123641" 
End if 

更簡單的上面版本的精簡版

復(fù)制代碼代碼如下:

Set Player = CreateObject("wmplayer.ocx") 
strsong=inputbox ("請輸入歌曲,如F:\mp3\1.mp3；退出按取消：" & vbCrlf & "遞歸遍歷也簡單，懶得整合了" ,"vbs播放器","F:\!music\classic\鋼琴曲\施特勞斯－“藍(lán)色多瑙河”圓舞曲.mp3") 
if strsong <>"" then 
do 
Player.url = strsong 
strsong=inputbox ( "正在播放●●●" & vbCrlf &"請●不要關(guān)閉窗口" & vbCrlf & vbCrlf & "也可選擇播放其他 "& vbCrlf & " 退出按取消" & vbCrlf & "" ,"vbs正在播放",strsong) 
if strsong="" then exit do 
loop 
end if 
Set Player=nothing 