Поиск пикселей в определённой области при неактивном окне

#include <Array.au3>
#include <WinAPIEx.au3>
#include <WindowsConstants.au3>

$hWin = WinGetHandle('[Class:CalcFrame]');0xE5EEF8
;~ $hWin = WinGetHandle('[Class:Notepad]');0xFFFFFF
;~ $hWin = 0;;0xFFFFFF
$iT = TimerInit()
$aPixels = _PixelGetArray(100, 100, 10, 10, 0x693977, $hWin)
ConsoleWrite(TimerDiff($iT) & @LF)
_ArrayDisplay($aPixels)

Func _PixelGetArray($i_X, $i_Y, $i_Width, $i_Height, $i_Color, $h_Wnd = 0, $f_FirstOnly = False)
	Local $i_Size = $i_Width * $i_Height, $a_Pixels[$i_Size + 1][2] = [[0]], $h_DC, $h_MemDC, $h_Bitmap, $t_Bits, $i_Index

	;If Not $h_Wnd Then $h_Wnd = _WinAPI_GetShellWindow()
	$h_DC = _WinAPI_GetDC($h_Wnd)
	$h_MemDC = _WinAPI_CreateCompatibleDC($h_DC)
	$h_Bitmap = _WinAPI_CreateCompatibleBitmap($h_DC, $i_Width, $i_Height)
	_WinAPI_SelectObject($h_MemDC, $h_Bitmap)
	_WinAPI_BitBlt($h_MemDC, 0, 0, $i_Width, $i_Height, $h_DC, $i_X, $i_Y, $SRCCOPY)
	_WinAPI_DeleteDC($h_MemDC)
	_WinAPI_ReleaseDC($h_Wnd, $h_DC)
	$t_Bits = DllStructCreate('dword[' & $i_Size & ']')
	$p_Bits = DllStructGetPtr($t_Bits)
	_WinAPI_GetBitmapBits($h_Bitmap, 4 * $i_Size, $p_Bits)
	_WinAPI_DeleteObject($h_Bitmap)
	For $i = 0 To $i_Height - 1
		For $j = 0 To $i_Width - 1
			$i_Index += 1
			If BitAND(DllStructGetData($t_Bits, 1, $i_Index), 0x00FFFFFF) = $i_Color Then
				$a_Pixels[0][0] += 1
				$a_Pixels[$a_Pixels[0][0]][0] = $j + $i_X
				$a_Pixels[$a_Pixels[0][0]][1] = $i + $i_Y
				If $f_FirstOnly Then ExitLoop 2
			EndIf
		Next
	Next
	ReDim $a_Pixels[$a_Pixels[0][0] + 1][2]
	Return $a_Pixels
EndFunc   ;==>_PixelGetArray

#include <WinAPIGdi.au3>

$aPixels = _PixelGetArray2(0, 0, 100, 100, 0x000000, 10)

#include <Array.au3>
_ArrayDisplay($aPixels)

; -----------------------------------------------------------------------------------------------------

Func _PixelGetArray2($iX, $iY, $iWidth, $iHeight, $iColor, $iShade = 0, $hWnd = 0, $fFirstOnly = False)
  Local $iTime = TimerInit()
  Local $iSize = $iWidth * $iHeight, $aPixels[$iSize + 1][2] = [[0]]
  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, 0x00CC0020) ; $SRCCOPY
  _WinAPI_DeleteDC($hMemDC)
  _WinAPI_ReleaseDC($hWnd, $hDC)
  Local $tBits = DllStructCreate('byte[' & $iSize * 4 & ']')
  _WinAPI_GetBitmapBits($hBitmap, $iSize * 4, DllStructGetPtr($tBits))
  _WinAPI_DeleteObject($hBitmap)
  Local $sText = StringTrimLeft(DllStructGetData($tBits, 1), 2)
  Local $iStep = $iWidth * 8
  Local $aLines[$iHeight], $c = 0
  For $i = 1 To StringLen($sText) Step $iStep
    $aLines[$c] = StringMid($sText, $i, $iStep)
    $c += 1
  Next
  Local $iPos, $iStart, $iLen = StringLen($aLines[0])
  $iColor = StringRegExpReplace(Hex($iColor, 6), "(.{2})(.{2})(.{2})", "$3$2$1")
  If $iShade Then
    Local $iB = Dec(StringMid($iColor, 1, 2))
    Local $iG = Dec(StringMid($iColor, 3, 2))
    Local $iR = Dec(StringMid($iColor, 5, 2))
    For $i = 0 To $iHeight - 1
      For $j = 1 To $iLen Step 8
        Switch Dec(StringMid($aLines[$i], $j, 2))
          Case $iB - $iShade To $iB + $iShade
            Switch Dec(StringMid($aLines[$i], $j + 2, 2))
              Case $iG - $iShade To $iG + $iShade
                Switch Dec(StringMid($aLines[$i], $j + 4, 2))
                  Case $iR - $iShade To $iR + $iShade
                    $aPixels[0][0] += 1
                    $aPixels[$aPixels[0][0]][0] = ($j - 1) / 8 + $iX
                    $aPixels[$aPixels[0][0]][1] = $i + $iY
                    If $fFirstOnly Then ExitLoop 2
                EndSwitch
            EndSwitch
        EndSwitch
      Next
    Next
  Else
    For $i = 0 To $iHeight - 1
      $iStart = 1
      While $iStart <= $iLen
        $iPos = StringInStr($aLines[$i], $iColor, 1, 1, $iStart)
        If $iPos Then
          If Mod($iPos - 1, 8) Then
            $iStart = $iPos + 2
            ContinueLoop
          EndIf
          $aPixels[0][0] += 1
          $aPixels[$aPixels[0][0]][0] = ($iPos - 1) / 8 + $iX
          $aPixels[$aPixels[0][0]][1] = $i + $iY
          If $fFirstOnly Then ExitLoop 2
          $iStart = $iPos + 8
        Else
          ExitLoop
        EndIf
      WEnd
    Next
  EndIf
  ReDim $aPixels[$aPixels[0][0] + 1][2]
  $aPixels[0][1] = Round(TimerDiff($iTime))
  Return $aPixels
EndFunc  ;==>_PixelGetArray2