VBS自动输入按键

自动输入：

Dim wshshell
Set wshshell = WSCRIPT.createobject("wscript.shell")
wshshell.appactivate "魔兽世界"
while true
wscript.sleep 1000
WshShell.SendKeys "{1}"
WshShell.SendKeys "{2}"
wend

结束：
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "taskkill /im wscript.exe /f ",0 ,true