DimEnv A,B
A = BeginThread(线程1)
B = BeginThread(线程2)
Sub 线程1
Hwnd = Plugin.Window.MousePoint()
Do
Call Plugin.Bkgnd.KeyPress(Hwnd, 49)
Delay 1000
Loop
End Sub
Sub 线程2
Hwnd = Plugin.Window.MousePoint()
Do
Delay 1000*60*4+1000
PauseThread A
Call Plugin.Bkgnd.KeyPress(Hwnd, 50)
Delay 1300
ContinueThread A
Loop
End Sub
A = BeginThread(线程1)
B = BeginThread(线程2)
Sub 线程1
Hwnd = Plugin.Window.MousePoint()
Do
Call Plugin.Bkgnd.KeyPress(Hwnd, 49)
Delay 1000
Loop
End Sub
Sub 线程2
Hwnd = Plugin.Window.MousePoint()
Do
Delay 1000*60*4+1000
PauseThread A
Call Plugin.Bkgnd.KeyPress(Hwnd, 50)
Delay 1300
ContinueThread A
Loop
End Sub