PixelSearchAdvanced

#include <MsgBoxConstants.au3>
#include <Misc.au3>
Local $hDLL = DllOpen("user32.dll")

Local $colorHex = ""

Local $reg1 = []
Local $reg2 = []

Local $posBuscada = []

;obtener region rectangular
;seleccionar color a buscar

While 1
    if _IsPressed("1", $hDLL) Then
    ;CLICK PRESIONADO
    While _IsPressed("1", $hDLL)

    WEnd
    ;CLICK LIBERADO
    obtenercolor()

    ElseIf _IsPressed("1B", $hDLL) Then
        ConsoleWrite("Cerrando applicacion")
        ExitLoop
    EndIf

WEnd


    Func obtenerColor()
        letToolTipFollowMouse("Tienes 5 segundos para elegir un color")
        sleep(5000)
        ;obtenemos posicion del color deseado
        Local $pos = MouseGetPos()

        ;Obtener color con coordenadas
        Local $color = PixelGetColor($pos[0], $pos[1])

        $colorHex =  Hex($color, 6)
        ConsoleWrite($colorHex & @CRLF)
        primerRegion()
    EndFunc


    Func primerRegion()
        ToolTip("la primer region")
        sleep(5000)
        ;obtenemos region rectangular
        $reg1 = MouseGetPos()
        consoleWrite($reg1[0] & "," & $reg1[1] & @CRLF)
        segundaRegion()
    EndFunc

    Func segundaRegion()
        letToolTipFollowMouse("la segunda region")
        sleep(5000)
        ;obtenemos region rectangular
        $reg2 = MouseGetPos()
        consoleWrite($reg2[0] & "," & $reg2[1] & @CRLF)

        buscarColorEnRegion()
    EndFunc


    Func buscarColorEnRegion()
            letToolTipFollowMouse(" el color")
            sleep(5000)
            $posBuscada = pixelSearch($reg1[0], $reg1[1], $reg2[0], $reg2[1], $colorHex)
            ConsoleWrite("X: " & $posBuscada[0] & ", Y:" & $posBuscada[1])

            MouseMove($posBuscada[0], $posBuscada[1], 100)
    EndFunc


    Func letToolTipFollowMouse($msg)
            Local $repetir = 0

            while $repetir < 5
            sleep(1000)
                Local $posMouseTemp = MouseGetPos()
                ToolTip("Tienes" & $repetir & " segundos para elegir " & $msg, $posMouseTemp[0], $posMouseTemp[1],"Advertencia")
                $repetir +=1
            WEnd


    EndFunc

DllClose($hDLL)