Hwnd = Plugin.Window.MousePoint()u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integeru:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Dim key, nu:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
key = 32u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
WaitKeyu:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Event Form1.CheckBox2.Clicku:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
n = GetAsyncKeyState(key)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
If n < 0 Then u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
i=i+1u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.KeyDown(Hwnd, 70)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.KeyPress(Hwnd, 71)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.KeyUp(Hwnd, 70)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Elseu:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
End Ifu:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
End Eventu:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´