BeginThread 按Tab
BeginThread 按QG()
Sub 按Tab()
按鍵 = split("9,49,90", ",")
Do
For i = 0 To 2
Call Plugin.Window.SendKeyPress(Hwnd, 按鍵(i))
Delay 100
Next
Loop
End Sub
Sub 按QG()
s1 = now
Do
If DateDiff("s", s1, now) >= 15 Then
Call Plugin.Window.SendKeyDown(Hwnd, 81)
Delay 1800
Call Plugin.Window.SendKeyUp(Hwnd, 81)
s1 = now
End If
If DateDiff("s", s1, now) >= 30 * 60 Then
Call Plugin.Window.SendKeyDown(Hwnd, 71)
Delay 100
s1 = now
End If
Loop
End Sub