魔兽世界挂机脚本
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是你技能栏的技能。