#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
HotKeySet("{ESC}", "_Exit")
#Region Variables
$iTop = 0
$iLeft = 0
$iRight = $iLeft + 623
$iBottom = $iTop + 449
$iIndex = 0
$iTrigger = 1
$sColors = "0xFF0000|0x0000FF|0x008000"
$aColors = StringSplit($sColors, "|", 2)
#EndRegion Variables
AdlibRegister('_RandomSetColor', 500)
#Region Form
$Form1 = GUICreate("Search -->", 623, 449, -1, -1)
GUISetBkColor(0xFFFFFF)
$Label1 = GUICtrlCreateLabel("", 80, 64, 4, 4)
$Label2 = GUICtrlCreateLabel("", 200, 264, 4, 4)
$Label3 = GUICtrlCreateLabel("", 456, 160, 4, 4)
GUISetState(@SW_SHOW)
#EndRegion Form
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
If $iTrigger Then
$iIndex = Mod($iIndex, 3)
$xColor = $aColors[$iIndex]
$sTitle = WinGetTitle("[active]")
WinSetTitle($sTitle, "", StringFormat("Search --> %s", $xColor))
$iTrigger = 0
EndIf
$aCord = PixelSearch($iLeft, $iTop, $iRight, $iBottom, $xColor)
If IsArray($aCord) Then
MouseClick("left", $aCord[0], $aCord[1])
WinSetTitle("[active]", "", StringFormat("Search --> %s", "Click!"))
Sleep(250)
$iIndex +=1
$iTrigger = 1
EndIf
WEnd
Func _RandomSetColor()
$i = Random(1, 4, 1)
$x = Random(0, 621, 1)
$y = Random(0, 447, 1)
If $i < 4 Then GUICtrlSetPos(Eval("Label"&$i), $x, $y, 4, 4)
Switch $i
Case 1
GUICtrlSetBkColor($Label1, 0xFF0000)
GUICtrlSetBkColor($Label2, 0xFFFFFF)
GUICtrlSetBkColor($Label3, 0xFFFFFF)
Case 2
GUICtrlSetBkColor($Label1, 0xFFFFFF)
GUICtrlSetBkColor($Label2, 0x0000FF)
GUICtrlSetBkColor($Label3, 0xFFFFFF)
Case 3
GUICtrlSetBkColor($Label1, 0xFFFFFF)
GUICtrlSetBkColor($Label2, 0xFFFFFF)
GUICtrlSetBkColor($Label3, 0x008000)
Case Else
GUICtrlSetBkColor($Label1, 0xFFFFFF)
GUICtrlSetBkColor($Label2, 0xFFFFFF)
GUICtrlSetBkColor($Label3, 0xFFFFFF)
EndSwitch
EndFunc ;==>_RandomSetColor
Func _Exit()
Exit
EndFunc ;==>_Exit