第一個代碼，會使用默認mp3文件關(guān)聯(lián)的程序，會出現(xiàn)音樂播放框
復制代碼 代碼如下:
wscript.sleep 12000
set ws=createobject("wscript.shell")
ws.run "兄弟你累了嗎.mp3"
第二段代碼 調(diào)用了WMPlayer.OCX插件，不會出現(xiàn)音樂播放框，如果想關(guān)閉播放音樂需要在進程中關(guān)閉wscript.exe進程。
復制代碼 代碼如下:
Dim wmp
Set wmp = CreateObject("WMPlayer.OCX")
wmp.URL = "兄弟 張萌萌.mp3"
Do Until wmp.playState = 1
WScript.Sleep 1000
Loop
VBS隱藏播放音樂
復制代碼 代碼如下:
set ws=createobject("wscript.shell")
ws.run "wmplayer.exe "ws.currentdirectory"\08.wma",0
ws.currentdirectory為vbs中獲取本地的目錄，這個程序需要用到wmplayer.exe播放器。
或者
復制代碼 代碼如下:
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可以是網(wǎng)絡(luò)的也可以是本地的！如果是網(wǎng)絡(luò)的這個腳本就可以在任何地方用。
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
更簡單的上面版本的精簡版
復制代碼 代碼如下:
Set Player = CreateObject("wmplayer.ocx")
strsong=inputbox ("請輸入歌曲,如F:\mp3\1.mp3；退出按取消：" vbCrlf "遞歸遍歷也簡單，懶得整合了" ,"vbs播放器","F:\!\classic\鋼琴曲\施特勞斯－“藍色多瑙河”圓舞曲.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
