1 直接上代码
set ws=createobject("wscript.shell")
do
'为了减少音乐怕直接放音乐吓一跳
Set ws = CreateObject("WScript.Shell")
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AE) '减小音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
ws.SendKeys Chr(&H88AF) '增大音量
'启动播放器
ws.run "mswindowsmusic:", 0
wscript.sleep 300
wscript.sleep 1000
wscript.sleep 1000
wscript.sleep 1000
wscript.sleep 1000
For i = 1 To 1
ws.sendkeys("^s")
ws.sendkeys("{ }")
wscript.sleep 1000
ws.sendkeys("%(m)")
Next
wscript.quit
loop