Cómo usar VB para buscar imágenes y colores dentro de un rango específico...Código fuente

' A continuación se muestra un ejemplo de cómo encontrar el color de la pantalla; verifique según corresponda.

Opciones explícitas

'Definir POINTAPI

Tipo privado POINTAPI

x As Long

y As Long

Tipo final

'Definir un área de búsqueda de color

' p>Tipo privado RECT

Dejado como largo 'Coordenadas regionales x< / p>

Arriba tan largo 'Coordenadas regionales y

Derecha tan largo 'Ancho regional

Siguiente

Función final

Privado Sub Command1_Click() 'Encuentra el color en toda la pantalla, lleva más tiempo

Dim t Como POINTAPI, m Como RECT

Con m

.Top = 0

.Left = 0

.Bottom = Screen.Height / Screen.TwipsPerPixelY

.Right = Screen.Width / Screen.TwipsPerPixelX

Finalizar con

t = ifColor(m, 1447073)

Debug.Print t.x, t.

End Sub

Private Sub Command2_Click() 'Se necesita menos tiempo para encontrar el color de un área determinada

Atenuar t como POINTAPI, m como RECT

Con m

. Arriba = 300

.Izquierda = 300

.Abajo = 100

.Derecha = 100

Terminar con

t = ifColor(m, RGB(0, 125, 125))

Debug.Print t.x, t.y

End Sub