[Мышь, клавиатура] Долгое выполнение PixelSearch

Dim $aResult[1001][2] = [[1000]], $X = 604, $Y = 162, $Right = 976, $Bottom = 715, $iColor = 0x000000
$iCount = 0

For $j = $Y To $Bottom
   For $i = $X To $Right
	  PixelSearch($i, $j, $i, $j, $iColor, 5, 1, $hWin)
if Not @error Then
		 $iCount += 1
		 MouseClick("Left", $i, $j, 1, 0)
		 If $iCount = $aResult[0][0] Then
			$aResult[0][0] += 1000
			ReDim $aResult[$aResult[0][0] + 1][2]
		 EndIf
		 $aResult[$iCount][0] = $i
        $aResult[$iCount][1] = $j
	  EndIf
   Next
Next

PixelSearch($i, $j, $i, $j, $iColor, 5, 1, $hWin)

$Poz = PixelSearch( $X, $Y, $Right, $Bottom, $iColor, 5, 1, $hWin)
if IsArray($Poz) Then
   MouseClick("Left", $Poz[0], $Poz[1], 1, 0)
EndIf

Local $_x = 100 ; точка отсчёт по x
Local $_y = 100 ; точка отсчёт по y
Local $_w = 100	; ширина квадрата width
Local $_h = 100 ; высота квадрата height
Local $_color = 0xFFFFFF

Local $_result

$_result = PixelSearch($_x, $_y, $_x +$_w, $_y +$_h, $_color)
If @error Then
	MsgBox ("nothing found"&@CR)
Else
	MsgBox ("founded at "& $_coord[0] &""& $_coord[1] &""&@CR)
	MouseMove ($_coord[0], $_coord[1] , 5)
Next

HotKeySet('`', 'fu')
$top= 367
$left = 263
$right = 286
$max = 382
While 1
	Sleep(100)
WEnd
Func fu()
	While 1
		$pi = PixelSearch($left, $top, $right, $top, 0x000000)
		If Not @error Then
			ConsoleWrite($pi[0]&','&$pi[1]&@CRLF)
			MouseMove($pi[0], $pi[1])
			$left = $pi[0] + 1
		Else
			$top = $top + 1
			If $top = $max Then Exit
			$left = 263
		EndIf
		Sleep(200)
	WEnd
EndFunc