как получить цвета пикселей в двухмерный массив какие функции использовать ?

Func _IEImageGetBinary($oImg)
    Local $canvas = $oImg.document.createElement("canvas")
    If Not IsObj($canvas) Then Return SetError(1, 0, 0)
    $canvas.width = $oImg.clientWidth
    $canvas.height = $oImg.clientHeight
    Local $ctx = $canvas.getContext('2d')
    $ctx.drawImage($oIMG, 0, 0)
    Local $rawData = $canvas.toDataURL()
    Local $a64Code = StringRegExp($rawData, '(?<=base64,).*$', 1)
    If Not IsArray($a64Code) Then Return SetError(2, 0, 0)
    Local $bData = _Base64Decode($a64Code[0])
    Return SetError(@error, 0, $bData)
EndFunc   ;==>_IEImageGetBinary
Func _Base64Decode($input_string)
    Local $struct = DllStructCreate("int")
    Local $a_Call = DllCall("Crypt32.dll", "int", "CryptStringToBinary", _
            "str", $input_string, _
            "int", 0, _
            "int", 1, _
            "ptr", 0, _
            "ptr", DllStructGetPtr($struct, 1), _
            "ptr", 0, _
            "ptr", 0)
    If @error Or Not $a_Call[0] Then Return SetError(3, 0, "")
    Local $a = DllStructCreate("byte[" & DllStructGetData($struct, 1) & "]")
    $a_Call = DllCall("Crypt32.dll", "int", "CryptStringToBinary", _
            "str", $input_string, _
            "int", 0, _
            "int", 1, _
            "ptr", DllStructGetPtr($a), _
            "ptr", DllStructGetPtr($struct, 1), _
            "ptr", 0, _
            "ptr", 0)
    If @error Or Not $a_Call[0] Then Return SetError(4, 0, "")
    Return DllStructGetData($a, 1)
EndFunc   ;==>_Base64Decode
Func _GetPixel( ByRef $tData, $X, $Y )
    Local $tBuf
    ; ---
    $tBuf = DllStructCreate( "dword Pixel", $tData.Scan0 + ($Y * $tData.Stride) + ($X * 0x04) )
    Return $tBuf.Pixel
EndFunc

Func _Example1($oImg)
    # Сохранение в файл
    Local $bData = _IEImageGetBinary($oImg)
    Local $FileList,$FileNomer = "0001",$n_1,$n_2 = 1,$n_3,$FileName,$extension = ".png"
    $FileName = $FileNomer&$extension
    If FileExists($Dir) Then
        $FileList = _FileListToArray($Dir,"*.png",1)
	If IsArray ($FileList) = 1 Then
        For $f_1 = 1  To $FileList[0]
            If StringLen($FileList[$f_1]) = 8 Then
                $n_1 = Int(StringLeft($FileList[$f_1],4))
                $n_2 +=1
                $n_3 = $n_2-1

				If StringLen ($n_2) = 1 Then
					$FileName = "000"&$n_2&$extension
				EndIf

				If StringLen ($n_2) = 2 Then
					$FileName = "00"&$n_2&$extension
				EndIf

				If StringLen ($n_2) = 3 Then
					$FileName = "0"&$n_2&$extension
				EndIf

				If StringLen ($n_2) = 4 Then
					$FileName = $n_2&$extension
				EndIf

				If $n_1 >= $n_2 Then

					If StringLen ($n_3) = 1 Then
						$FileName = "000"&$n_3&$extension
					EndIf

					If StringLen ($n_3) = 2 Then
						$FileName = "00"&$n_3&$extension
					EndIf

					If StringLen ($n_3) = 3 Then
						$FileName = "0"&$n_3&$extension
					EndIf

					If StringLen ($n_3) = 4 Then
						$FileName = $n_3&$extension
					EndIf				
					ExitLoop
				EndIf
                        EndIf
		Next
        EndIf
	
	Else
		DirCreate($Dir)
	EndIf
	    Local $hFile = FileOpen($FileName, 2 + 16)
	    FileWrite($hFile,$bData)
            FileClose($hFile)
	    FileMove(@WorkingDir & "\"&$FileName,@WorkingDir & "\Imade Script\"&$FileName,1+8)
EndFunc

Func _IEImadeFormatText()
If FileExists($Dir) Then
Local $FileList,$extension_1 = ".png",$extension_2 = ".txt",$f_1,$FileText,$FileText_1,$oDir_2,$FilePng
	$FileList = _FileListToArray($Dir,"*.png",1)
	If IsArray ($FileList) = 1 Then
		For $f_1 = 1  To $FileList[0]
			$FileText = ''
			$oDir_2 = ''
			$FilePng = ''
			$FileText_1 = ''
			If StringLen($FileList[$f_1]) = 8 Then
				$FileText = StringLeft($FileList[$f_1],4)&$extension_2
				$oDir_2 = $Dir&"\"&$FileText
				If FileExists($oDir_2) = 0 Then
					$FilePng = $Dir&"\"&$FileList[$f_1]
					_GDIPlus_Startup()
					Local $hImg, $iW, $iH, $tRes,$str,$str_2,$str_3
                                        $hImg = _GDIPlus_ImageLoadFromFile($FilePng) ;Или скриншот
					$iW = _GDIPlus_ImageGetWidth($hImg)
                                        $iH = _GDIPlus_ImageGetHeight($hImg)
                                        $tRes = _GDIPlus_BitmapLockBits($hImg, 0, 0, $iW, $iH, $GDIP_ILMREAD, $GDIP_PXF32ARGB)
                                        If Not IsDllStruct($tRes) Then _
						Exit 1
						Dim $aCaptha[$iW][1]
							For $iX = 0  To $iW -1
                                                              $str = ""
                                                              $str_2 = ""
							      $str_3 = ""
							      For $iY = 0   To $iH -1
								    If Hex(  _GetPixel($tRes,$iX ,$iY),8) ==  "FFFFFFFF"  Then
									 $str = "-"
								    Else
									 $str = "x"
		                                                    EndIf
	                                                            $str_2 = $str_2&$str
							     Next
                                                             $str_3 = String($str_2)
							     $aCaptha[$iX][0] = $str_3
                                                      Next
				       _GDIPlus_BitmapUnlockBits($hImg, $tRes)
                                       _GDIPlus_ImageDispose($hImg)
                                       _GDIPlus_Shutdown()
					$FileText_1 = StringReplace($FilePng,$extension_1,$extension_2)
                                        If _FileCreate($FileText_1) = 1 Then
                                             _FileWriteFromArray($FileText_1,$aCaptha)
                                        EndIf
			    EndIf
		     EndIf
	      Next
       EndIf
EndIf
EndFunc

$oIE = _IECreate('http://, 1, 1, 1, 0)
For $s = 1 To 1000   ; количество  
Sleep(100)
Local $oForm = 0,$oIMGs = 0 ,$oImg = 0

If @error Then Exit 99
$oForm = _IEFormGetCollection($oIE, 0)
Sleep(500)
If  _IEImgClick($oForm,'Обновить',"alt" )= -1 Then
$oIMGs = _IEImgGetCollection($oIE)
For $oImg In $oIMGs
    If StringInStr($oImg.src,'captcha_1.php') Then
		Sleep(300)
		ExitLoop

    EndIf
Next
Sleep(1000)
_IEImageGetBinary($oImg)
Sleep(100)
_Example1($oImg)
Sleep(100)
_IEImadeFormatText()
EndIf

Next