Cómo encontrar píxeles y leer colores en vb

Dado que el lado de la caja pequeña es negro puro, es más fácil encontrar la ubicación de la caja pequeña. Supongamos que el tamaño del cuadro pequeño es constante (no sé si cambiará, el largo es a, el ancho es b, la unidad es pt) 1. Obtenga el color del punto a través de la API. 2. Debido a que solo se encuentran los lados izquierdo y derecho, se realiza una búsqueda saltando de arriba a abajo (tamaño de paso lt; = ancho del cuadro pequeño b) 3. Cada vez que se realiza un salto, se realiza una búsqueda píxel por píxel se realiza de izquierda a derecha, si se encuentra un punto negro, busque una cierta cantidad de puntos hacia arriba y hacia abajo continuamente. Si todos son negros, resulta ser una línea negra, lo que indica que se encuentra el lado izquierdo. El lado izquierdo, más el ancho, es el lado derecho. El lado derecho también se puede utilizar para verificar si los resultados de la búsqueda son correctos. 4. Después de encontrar las posiciones de los lados izquierdo y derecho, el resto es establecer la posición de su línea vertical. El código general se proporciona a continuación: La función GetPixel obtiene el valor de color del punto especificado del dispositivo. para y = 0 a yMax paso b-1para x=0 a xMax si GetPixel(hdc, x, y) =vbBlack entonces 'Busca un cierto número de puntos hacia arriba para determinar si son todos negros'... 'Busca hacia abajo un cierto número de puntos para determinar si son todos negros'... end ifnextnext