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.