¿Cómo mover automáticamente el mouse a una ubicación específica y hacer clic en VB?
Al hacer clic en Comando1, el mouse llegará al punto (500, 500) y el código de acción del clic izquierdo será el siguiente:
Función de declaración privada SetCursorPos Lib "user32" ( ByVal x As Long, ByVal y As Long) As Long
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 Siempre)
Const privada MOUSEEVENTF_LEFTDOWN = amp;H2
Const privada MOUSEEVENTF_LEFTUP = amp;H4
Subcomando privado1_Click()
SetCursorPos 500, 500 'Esto se puede cambiar según su posición
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 'Presione el mouse
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 ' Rebote del mouse Inicio
Fin Sub