魔獸世界掛機腳本

Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
'WshShell.Run "notepad"
msgbox "點擊肯定後將執行按鍵腳本，保證程序不會長時間無動做被註銷。",vbOKOnly,"魔獸世界按鍵腳本"
while true
    WScript.Sleep 5000
    WshShell.AppActivate "魔獸世界"
    WScript.Sleep 5000
    WshShell.SendKeys 7
    WScript.Sleep 5000
    WshShell.SendKeys 9
wend

以上腳本保存爲文件名 wowRun.vbs ，執行就OK了。7和9是你技能欄的技能。