Acerca de la búsqueda en color de pantalla completa de vb

Función pública compartida FindColor(ByVal?Width?As?Integer, ByVal?Height?As?Integer, ByVal?HexColor?As?String, ByRef?x?As?Integer, ByRef?y?As?Integer)?Height)

Usar M como Gráficos = Graphics.FromImage(Pic)

M.CopyFromScreen(New.Size(0,?0), New.Size(0,?0), New.Size (Ancho, ?Alto))

Fin.Usando

Dim.C como color, Número como número entero. ¿Entero?=?0

Dim?B?As?Integer?=?Int("amp;H"? amp;?Microsoft.VisualBasic.Left(HexColor,?2))

Dim?G?As?Integer?=?Int("amp;H"?amp;?Microsoft.VisualBasic.Left(HexColor,?2))

Dim?G?As?Integer? Left(Microsoft.VisualBasic.Right(HexColor,?4),?2))

Dim?R?As?Integer?=?Int("amp;H"?amp;?Microsoft.VisualBasic. Derecha(HexColor,?2))

Para?h?=?0?A?Altura?1

Para?w?=?0?A?Ancho?-?1

Número? =?1

C?=?Pic.GetPixel(w,?h)

Si?C.B.ToString?lt;gt;?B ?Entonces?GoTo?break

If?C.G.ToString?lt;gt;?G?Then?GoTo?break

If.C.R.ToString?lt;gt;?R?Then ?GoTo?break

x?=?w?:?y?=?h

Número de devolución

Pausa:

Siguiente

Siguiente

x?=?-1?：?y?=?-1

Regresar?-1

¿Fin? Función

El código es el anterior. Resulta que Bunny definitivamente no es enfermera.

Si quieres crear un programa para colgar, la cantidad de código es realmente escandalosa y matará a la gente.

¿No sería más sencillo no hacer referencia directa a complementos COM potentes y gratuitos, como el complemento desert o el complemento play?