用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