HotKeySet("^{F1}", "doit")
HotKeySet("^!{F1}", "stopit")
$run = 0
While 1
Sleep(200)
If $run Then
Send("F")
; Find a pure red pixel in the range 0,0-20,300
Local $aCoord = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0xFF0000)
If Not @error Then
Mouseclick("left", $aCoord[0], $aCoord[1])
;MsgBox($MB_SYSTEMMODAL, "", "X and Y are: " & $aCoord[0] & "," & $aCoord[1])
EndIf
EndIf
WEnd
Func doit()
$run = 1
EndFunc
Func stopit()
$run = 0
EndFunc