Buenas a todos, estoy realizando una aplicacion la cual en un bucle for recorre, moviende el mouse, una determinada área y al encontrar un píxel con determinado color, se frene. EL PROBLEMA es que, al recorrer el área moviendo el cursor con el bucle previamente mencionado anda todo perfecto, con una rapidez considerable, en cambio cuando "coloco" el código para verificar si encuentra el píxel lo hace un 90% más lento. Este es mi código:

Dim iX As Integer
Dim iY As Integer
Dim hdc As Long, pxColor As Double
 
    Call GetCursorPos(Mouse)
    For iX = Mouse.x To Mouse.x + 100
        For iY = Mouse.y To Mouse.y + 75
            Call SetCursorPos(iX, iY)
            'Hasta acá todo bien, lo que viene ahora es lo que lenta muchísimo mi aplicación...
 
            hdc = GetDC(0)
            pxColor = GetPixel(hdc, Mouse.x, Mouse.y)
            ReleaseDC 0, hdc
            Me.Caption = Hex(pxColor)
            If Me.Caption = "AA431B" Then
                Exit For
            End If
            '//
        Next iY
    Next iX

No se cual es el problema, por qué lo hace muchísimo mas lento. Ya que sin verificar el color lo hace en unas milésimas de segundo, y luego con el código para verificar tarda unos 20 o 30 en recorrer el mouse todo el área. Pues ni me imagino cuando haga áreas mas grandes.

Saludos.

Exacto, toma un screenshot de la pantalla y de ahi analizalo

Perdon que me meta pero:

Llevo tiempo buscando y no encuentro nada al respecto
¿Hay alguna forma de volcar el contenido de un bitmap(de un contenedor) a un array?

Esa (creo) sería la forma mas rápida de encontrar determinado pixel...

Saludos!

Aver si me pueden ayudar con mi planteo...

@calk9

¡Tu no te metas!... Hahaha es broma 

Esto te consumirá tiempo valioso siempre:

No entiendo el porqué lo ideal sería colocar el cursor luego de encontrar el pixel que se busca, pero pues sabes lo que haces.

Y todo esto:

           hdc = GetDC(0)
            pxColor = GetPixel(hdc, Mouse.x, Mouse.y)
            ReleaseDC 0, hdc
            Me.Caption = Hex(pxColor)
            If Me.Caption = "AA431B" Then
                Exit For
            End If

 yo lo reduciría a esto:

      Me.Caption = Hex$(point(ix,iy)
      If Me.Caption = "AA431B" Then
          Exit For
      End If

@Raul338, @Tenient101
Pues ambos son buenos tutoriales, pero no me referia a eso precisamente: 

Más bien a cuando la imagen se almacena en un contenedor, por ejemplo hacer unos trazados en un picturebox(lineas, círculos y pintados), todo esto queda almacenado en el campo "image" del contenedor(picturebox o form), ahora volvar el contenido de "image" a un array, creo que la clave está en localizar el punto en memoria donde se almacena "image"... Saludos!