用VBS实现音乐播放的多个代码小结
导读：收集整理的这篇文章主要介绍了用VBS实现音乐播放的多个代码小结，觉得挺不错的，现在分享给大家，也给大家做个参考。 第一个代码，会使用默认mP3文件关联的程序，会出现音乐播放框 复制代码...
收集整理的这篇文章主要介绍了用VBS实现音乐播放的多个代码小结，觉得挺不错的，现在分享给大家，也给大家做个参考。 第一个代码，会使用默认mP3文件关联的程序，会出现音乐播放框 复制代码 代码如下:
wscript.sleep 12000
set ws=createobject("wscript.shell")
ws.run "兄弟你累了吗.mp3"
第二段代码 调用了WMplayer.OCX插件，不会出现音乐播放框，如果想关闭播放音乐需要在进程中关闭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可以是网络的也可以是本地的！如果是网络的这个脚本就可以在任何地方用。
Set Wshell=WScript.CreateObject("WScript.Shell")
If MsgBox("到我空间转转？顺便挖金！", 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:\!music\classic\钢琴曲\施特劳斯－“蓝色多瑙河”圆舞曲.mp3")
if strsong > "" then
do
Player.url = strsong
strsong=inputbox ( "正在播放●●●" & vbCrlf & "请●不要关闭窗口" & vbCrlf & vbCrlf & "也可选择播放其他 "& vbCrlf & " 退出按取消" & vbCrlf & "" ,"vbs正在播放",strsong)
if strsong="" then exit do
loop
end if
Set Player=nothing
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 用VBS实现音乐播放的多个代码小结
本文地址： https://pptw.com/jishu/609868.html