SetSimMode 1
Dim tim1
Dim hwnd
hwnd=Plugin.Window.MousePoint()
rem 开始
Call Plugin.Bkgnd.KeyPress(Hwnd, 49)
delay 1000
Call Plugin.Bkgnd.KeyPress(Hwnd, 50)
delay 1000
If DateDiff("s",tim1,now) >= 3600 Then
tim1=now
Call Plugin.Bkgnd.KeyPress(Hwnd, 51)
Delay 200
End if
goto 开始
追问试了下,好像不对,没反应
参考资料:百度一下
本回答被网友采纳