怎么用VBS實(shí)現(xiàn)音樂(lè)播放-創(chuàng)新互聯(lián)

這篇文章主要介紹怎么用VBS實(shí)現(xiàn)音樂(lè)播放，文中介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們一定要看完！

我們提供的服務(wù)有：成都做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)、成都外貿(mào)網(wǎng)站建設(shè)、微信公眾號(hào)開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、舟山ssl等。為上千家企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的舟山網(wǎng)站制作公司

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


代碼如下:

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

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


代碼如下:


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



VBS隱藏播放音樂(lè)


代碼如下:


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



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


代碼如下:


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



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


代碼如下:


MsgBox "這只是個(gè)樣品，不能播放歌曲。需要您自己修改！ 作者：後知後覺",60,"狂人自制播放器"
Set Player = CreateObject("wmplayer.ocx")
do
i=inputbox ("請(qǐng)輸入你要選擇的歌曲編號(hào)，退出請(qǐng)按0："&vbCrlf&"1 >> 鳳凰傳奇"&vbCrlf&"2 >> 大笑江湖"&vbCrlf&"3 >> 韓晶-不要用我的愛來(lái)傷害我"&vbCrlf&"4 >> 許慧欣-幸福的味道"&vbCrlf&"5 >> 陳慧琳-不如跳舞"&vbCrlf&"6 >> FIR-我們的愛"&vbCrlf&"7 >> 東來(lái)東往-連哭都是我的錯(cuò)"&vbCrlf&"8 >> 吳佩慈-閃著淚光的決定","音樂(lè)播放器-後知後覺","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\韓晶-不要用我的愛來(lái)傷害我.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\飛兒樂(lè)團(tuán)-我們的愛.wma"
elseif i=7 then
Player.url = "E:\music\東來(lái)東往-連哭都是我的錯(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 "/tupian/20230522/420123641"
End if



更簡(jiǎn)單的上面版本的精簡(jiǎn)版


代碼如下:


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


以上是“怎么用VBS實(shí)現(xiàn)音樂(lè)播放”這篇文章的所有內(nèi)容，感謝各位的閱讀！希望分享的內(nèi)容對(duì)大家有幫助，更多相關(guān)知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

網(wǎng)站欄目：怎么用VBS實(shí)現(xiàn)音樂(lè)播放-創(chuàng)新互聯(lián)
當(dāng)前鏈接：http://muchs.cn/article42/diedhc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供App開發(fā)、Google、企業(yè)網(wǎng)站制作、品牌網(wǎng)站設(shè)計(jì)、移動(dòng)網(wǎng)站建設(shè)、企業(yè)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)

成都做網(wǎng)站