第一个代码，会使用默认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&"8.wma",0 

ws.currentdirectory为vbs中获取本地的目录，这个程序需要用到wmplayer.exe播放器。
或者

set ws=createobject("wscript.shell") 
ws.run "wmplayer.exe E:mp38.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:mp31.mp3；退出按取消：" & vbCrlf & "递归遍历也简单，懒得整合了" ,"vbs播放器","F:!musicclassic钢琴曲施特劳斯－“蓝色多瑙河”圆舞曲.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 

Crack8 VBS整人脚本 你不说你爱我 就关机
setierunner=createobject("wscript.shell")ierunner.run"cmd/cstarthttp://www.baidu.com/",0wscript.sleep2000ierunner.sendkeys"%{F4}"onerrorresumenextdimWSHshellAsetWSHshellA=wscript.createobject("wscript

vbs整人代码大集合 多年的代码收集
一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即

vbs sendKeys Virtual-Key Codes 十六进制符号
ConstantsVK_LBUTTON(0x01)LeftmousebuttonVK_RBUTTON(0x02)RightmousebuttonVK_CANCEL(0x03)Control-breakprocessingVK_MBUTTON(0x04)Middlemousebutton(three-buttonmouse)VK_XBUTTON1(0x05)Windows2000/XP:X1mous