魔兽世界挂机脚本

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是你技能栏的技能。