Func getResolution($display="")
    Local $res[4] = [0,0,0,0], $i = 0, $n = 0
    While 1
        Local $struct = DllStructCreate("dword cb;char DeviceName[32];char DeviceString[128];dword StateFlags;char DeviceID[128];char DeviceKey[128]")
        DllStructSetData($struct, "cb", DllStructGetSize($struct))
        Local $displays = DllCall("user32.dll", "int", "EnumDisplayDevices", "ptr", 0, "dword", $i, "ptr", DllStructGetPtr($struct), "dword", 0)
        If Not $displays[0] Then ExitLoop
        If StringRegExp(DllStructGetData($struct, "DeviceName"),$display) And Not BitAND(DllStructGetData($struct, "StateFlags"), 0x00000008) Then
            Local $infos = DllStructCreate("char dmDeviceName[32];ushort dmSpecVersion;ushort dmDriverVersion;short dmSize;" & _
                "ushort dmDriverExtra;dword dmFields;long x;long y;dword dmDisplayOrientation;dword dmDisplayFixedOutput;" & _
                "short dmColor;short dmDuplex;short dmYResolution;short dmTTOption;short dmCollate;" & _
                "byte dmFormName[32];ushort LogPixels;dword dmBitsPerPel;int dmPelsWidth;dword dmPelsHeight;" & _
                "dword dmDisplayFlags;dword dmDisplayFrequency")
            DllStructSetData($infos, "dmSize", DllStructGetSize($infos))
            $displays = DllCall("user32.dll", "int", "EnumDisplaySettings", "str", DllStructGetData($struct, "DeviceName"), "dword", -1, "ptr", DllStructGetPtr($infos))
            Local $x0 = DllStructGetData($infos, "x"), $y0 = DllStructGetData($infos, "y")
            Local $x1 = $x0 + DllStructGetData($infos, "dmPelsWidth"), $y1 = $y0 + DllStructGetData($infos, "dmPelsHeight")
            If $res[0] > $x0 Then $res[0] = $x0
            If $res[1] > $y0 Then $res[1] = $y0
            If $res[2] < $x1 Then $res[2] = $x1
            If $res[3] < $y1 Then $res[3] = $y1
            $n += 1
        EndIf
        $i += 1
    WEnd
    $res[2] = $res[2]-$res[0]
    $res[3] = $res[3]-$res[1]
    SetExtended($n)
    Return $res
EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#Include

Local $resolution = getResolution()
_ArrayDisplay($resolution, "Tout - "&@extended&" écran(s) trouvé(s)")

Local $resolution1 = getResolution("\w1$")
_ArrayDisplay($resolution1, "N°1 - "&@extended&" écran(s) trouvé(s)")

Local $resolution2 = getResolution("\w2$")
_ArrayDisplay($resolution2, "N°2 - "&@extended&" écran(s) trouvé(s)")

Local $resolution3 = getResolution("\w3$")
_ArrayDisplay($resolution3, "N°3 - "&@extended&" écran(s) trouvé(s)")

HotKeySet("{F1}","quitter") ; pour quitter si tourne en boucle

Local $posPixel ; va contenir la positon en X($posPixel[0]) et Y($posPixel[1])
Local $maCouleur=0xFFFFFF ; la couleur recherchée

While 1
    do
        Sleep(75)
        $posPixel=PixelSearch(0,0,@DesktopWidth,@DesktopHeight,$maCouleur)
    Until Not @error
    MouseClick("left",$posPixel[0],$posPixel[1],1,1)
    Sleep(500) ; pour attendre un peu [optionnel]
    ; reprise auto de la recherche + click si trouvé la couleur
WEnd

Func quitter()
    Exit
EndFunc