#include <Array.au3>
#include <WinAPIEx.au3>
#include <WindowsConstants.au3>
While 1
$aTest = _PixelGetArray(0, 0, 50, 200, 0xFF0000)
If $aTest[0][0] <> 0 Then ConsoleWrite($aTest[1][0] & '_' & $aTest[1][1] & @LF) ; пишем в консоль координаты первого пикселя
Sleep(10)
WEnd
Func _PixelGetArray($iX, $iY, $iWidth, $iHeight, $iColor, $hWnd = 0)
Local $aPixels[$iWidth * $iHeight + 1][2]
Local $hDC = _WinAPI_GetDC($hWnd)
Local $hMemDC = _WinAPI_CreateCompatibleDC($hDC)
Local $hBitmap = _WinAPI_CreateCompatibleBitmap($hDC, $iWidth, $iHeight)
_WinAPI_SelectObject($hMemDC, $hBitmap)
_WinAPI_BitBlt($hMemDC, 0, 0, $iWidth, $iHeight, $hDC, $iX, $iY, $SRCCOPY)
_WinAPI_DeleteDC($hMemDC)
_WinAPI_ReleaseDC($hWnd, $hDC)
Local $iSize = $iWidth * $iHeight
Local $tBits = DllStructCreate("dword[" & $iSize & "]")
_WinAPI_GetBitmapBits($hBitmap, 4 * $iSize, DllStructGetPtr($tBits))
Local $iCount = 0
For $i = 1 To $iSize
If BitAND(DllStructGetData($tBits, 1, $i), 0x00FFFFFF) = $iColor Then
$iCount += 1
$aPixels[$iCount][0] = Mod($i, $iWidth) - 1
If $aPixels[$iCount][0] = -1 Then $aPixels[$iCount][0] = $iWidth - 1
$aPixels[$iCount][1] = Ceiling($i / $iWidth) - 1
ExitLoop ; выход из цикла при нахождении первого пикселя нужного цвета
EndIf
Next
ReDim $aPixels[$iCount + 1][2]
$aPixels[0][0] = $iCount
Return $aPixels
EndFunc ;==>_PixelGetArray