你这个不是在原来的基础上,而是几乎全部重新写,一般的人是不会帮你写的.
代码我已经写好了,如果还不能达到你想要的效果请M我.hi号随时在线
Dim t1
Plugin hwnd = Window.GetKeyFocusWnd()
While 1=1
t1=now
While 1=1
Delay 1500
Plugin Window.SendKeyPress(hwnd,49)
Plugin Window.SendKeyPress(hwnd,50)
If DateDiff("s",t1,now)>=180
Goto 跳出循环
EndIf
EndWhile
Rem 跳出循环
Plugin Window.SendKeyPress(hwnd,51)
EndWhile