VB busca un color en la pantalla y ejecuta el código si aparece en la pantalla
Je, quieres hacer pulsaciones de teclas ah
Función de declaración privada GetDC Lib "user32" (ByVal hwnd As Long) Mientras
Función de declaración privada GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal (ByVal hwnd As Long, ByVal hdc As Long) As Long
Función privada FetchColor(ByVal X As Integer, ByVal Y As Integer) As Long 'Función FetchColor
hScreen = GetDC( 0)
FetchColor = GetPixel(hScreen, X, Y)
ReleaseDC 0. hScreen
Función final
Luego en el evento relevante Escribe una sentencia IF en
'XY es la coordenada del color a obtener
Si FetchColor(X, Y) = el color a encontrarEntonces
Finalizar si