麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区
首頁
|
新聞
|
娛樂
|
游戲
|
科普
|
文學
|
編程
|
系統(tǒng)
|
數(shù)據(jù)庫
|
建站
|
學院
|
產品
|
網管
|
維修
|
辦公
|
熱點
首頁
>
編程
>
VBScript
> 正文
用VBS實現(xiàn)音樂播放的多個代碼小結
2020-07-26 11:50:51
字體:
大
中
小
來源:
轉載
供稿:網友
第一個代碼,會使用默認mp3文件關聯(lián)的程序,會出現(xiàn)音樂播放框
復制代碼
代碼如下:
wscript.sleep 12000
set ws=createobject("wscript.shell")
ws.run "兄弟你累了嗎.mp3"
第二段代碼 調用了WMPlayer.OCX插件,不會出現(xià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 "這只是個樣品,不能播放歌曲。需要您自己修改! 作者:後知後 主站蜘蛛池模板:
18被视频免费观看视频
|
欧美视屏一区二区
|
久久精品欧美一区二区三区不卡
|
精品亚洲福利一区二区
|
免费欧美
|
久久久久久久久久综合
|
一级免费特黄视频
|
中文黄色一级片
|
久久久久久久久久久高潮一区二区
|
黄色网址免费入口
|
欧美性成人
|
在线视频观看一区二区
|
国产成人在线视频
|
国产精品久久久久久久久久久久久久久
|
黄色小视频在线免费看
|
久久久久久久久浪潮精品
|
吾色视频
|
伊人一二三四区
|
三级国产三级在线
|
免费视频www在线观看
|
91精品观看91久久久久久国产
|
露脸各种姿势啪啪的清纯美女
|
一区二区三区欧美在线观看
|
91九色电影
|
国内精品久久久久久久星辰影视
|
日本网站在线播放
|
一区二区精品视频在线观看
|
中国老女人一级毛片视频
|
欧美3p激情一区二区三区猛视频
|
a免费视频
|
日韩在线播放一区二区
|
亚洲小视频在线
|
色av成人天堂桃色av
|
男女羞羞在线观看
|
国产人妖一区二区
|
国内精品一级毛片免费看
|
av在线免费观看中文字幕
|
亚洲第一综合
|
国产精品欧美久久久久一区二区
|
干少妇av
|
亚洲第一视频在线
|