Cómo utilizar el código VB para lograr el efecto de hacer clic con el mouse

Escribí un ejemplo para usted, puede entenderlo usted mismo:

Private?Declare?Sub?mouse_event?Lib?"user32"?(ByVal?dwFlags?As?Long,? ByVal?dx?As?Long, ?ByVal?dy?As?Long, ?ByVal?cButtons?As?Long, ?ByVal?dwExtraInfo?As?Long)

Privado?Const?MOUSEEVENTF_ABSOLUTE? amp;H8000?'Especifica que el mouse usa un sistema de coordenadas absoluto. En este momento, la pantalla se divide uniformemente en 65535×65535 unidades en las direcciones horizontal y vertical

Private?Const?MOUSEEVENTF_MOVE?=? amp;H1 ?'Mover el ratón

Private?Const?MOUSEEVENTF_LEFTDOWN?=?amp;H2?'Simular la pulsación del botón izquierdo del ratón

Private?Const?MOUSEEVENTF_LEFTUP?=?amp ;H4?' Simular elevación del botón izquierdo del ratón

Privado?Const?SW?=?1024

Privado?Const?SH?=?768

Privado? Sub?Screen_Click (ByVal?x?As?Long,?ByVal?y?As?Long)

mw?=?x?/?SW?*?65535

mh? =?y ?/?SH?*?65535

mouse_event?MOUSEEVENTF_ABSOLUTE? ?MOUSEEVENTF_MOVE,?mw,?mh,?0,?0

mouse_event?MOUSEEVENTF_LEFTDOWN?O?MOUSEEVENTF_LEFTUP ,?0 ,?0,?0,?0

Fin?Sub

Privado?Sub?Command1_Click()

Screen_Click?512,?384? 'Haga clic en Comando1 Después de eso, simule hacer clic en el centro de la pantalla

End?Sub

Private?Sub?Command2_Click()

Imprimir?Rnd

Fin?Sub

Privado?Sub?Form_Load()

Me.Height?=?Me.Width

Comando2.Mover?(Me .ScaleWidth?-?Command2.Ancho)?/?2,?(Me.ScaleHeight?-?Command2.Height)?/?2

End?Sub