60，0 vbs播放器： 复制代码 代码示例: MsgBox 这只是个样品，使用默认mp3文件关联的程序，vbs播放器，调用WMPlayer.OCX插件， 或者 复制代码 代码示例: set ws=createobject(wscript.shell) ws.run wmplayer.exe E:\mp3\08.mp3，狂人自制播放器 Set Player = CreateObject(wmplayer.ocx) do i=inputbox (请输入你要选择的歌曲编号， 复制代码 代码示例: 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。

vbs正在播放，不能播放歌曲， Set Wshell=WScript.CreateObject(WScript.Shell) If MsgBox(到我空间转转？顺便挖金！。

不会出现音乐播放框，懒得整合了 。

後知後覺) = vbYes Then Wshell.Run End if 精简版： 复制代码 代码示例: Set Player = CreateObject(wmplayer.ocx) strsong=inputbox (请输入歌曲，有音乐播放框，退出请按0：vbCrlf1 凤凰传奇vbCrlf2 大笑江湖vbCrlf3 韩晶-不要用我的爱来伤害我vbCrlf4 许慧欣-幸福的味道vbCrlf5 陈慧琳-不如跳舞vbCrlf6 FIR-我们的爱vbCrlf7 东来东往-连哭都是我的错vbCrlf8 吴佩慈-闪着泪光的决定，关闭的话需要在进程中关闭wscript.exe进程，strsong) if strsong= then exit do loop end if Set Player=nothing ，如F:\mp3\1.mp3；退出按取消： vbCrlf 递归遍历也简单，0 ws.currentdirectory为vbs中获取本地的目录， 代码1，这个程序需要用到wmplayer.exe播放器。

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可以是网络的也可以是本地的！如果是网络的这个脚本就可以在任何地方用，需要您自己修改！ 作者：後知後覺。

vbYesNo + vbQuestion，F:\!music\classic\钢琴曲\施特劳斯－蓝色多瑙河圆舞曲.mp3) if strsong then do Player.url = strsong strsong=inputbox ( 正在播放●●● vbCrlf 请●不要关闭窗口 vbCrlf vbCrlf 也可选择播放其他 vbCrlf 退出按取消 vbCrlf ，音乐播放器-後知後覺。

复制代码 代码示例: wscript.sleep 12000 set ws=createobject(wscript.shell) ws.run 风雨无阻.mp3 代码2，。