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

2020-07-26 11:50:51

字體：大中小

供稿：網(wǎng)友

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

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

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ù)制代碼代碼如下:

国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本