AutoIt Français

Code : Tout sélectionner

HotKeySet("{ESCAPE}", "Leave")
$Largeur = @DesktopWidth
$Hauteur = @DesktopHeight

$Pixel = ReverseSearch($Largeur, $Hauteur, 0,0,  255)
If $Pixel = 0 Then
    Msgbox(96,"Infos","Non trouvé")
Else
    MouseMove($Pixel[0], $Pixel[1], 12)
EndIf
Exit


Func Leave()
    Exit
EndFunc




Func ReverseSearch($X1, $Y1, $X2, $Y2, $Couleure)

    $Abscisse = 0
    $Ordonne = 0
    $Resultat = 0

    Do

        $Left = PixelGetColor($X1 - $Abscisse, $Y1 - $Ordonne)
        $Abscisse = $Abscisse + 1
        If $Abscisse > $X1 - $X2 Then
            $Abscisse = 0
            $Ordonne = $ordonne + 1
        EndIf

        If $Ordonne > $Y1 - $Y2 Then
            $Resultat = 1
        EndIf


    Until $Left = $Couleure or $Resultat = 1


        If $Left = $Couleure Then
            Dim $aArray[2] = [$X1 - $Abscisse, $Y1 - $Ordonne]
            Return $aArray
        Else
            Return $Resultat
        EndIf

EndFunc