插件依赖

Rematch 

HPetBattle

Set objShell = CreateObject("Wscript.Shell")
do
Randomize
a = rnd * 200+200
b = int(rnd*3)
WScript.Sleep a
if b=0 then
objShell.SendKeys "{F7}"
end if
if b=1 then
objShell.SendKeys "{F8}"
end if
loop

taskkill /f /im wscript.exe
pause