API DE WINDOWS - MOVER CURSOR
Hola, quisiera hacer un programa que haga click en una parte de la pantalla (sin que yo ni siquiera toque el mouse), ya pude hacer que el cursor se mueva donde deseo con una llamada al API, pero no se con que llamada simulo un click, eso es lo que quisiera saber.
Tambien quisiera saber como puedo simular la presion de teclas con llamada al API (no con SendKeys).
Estare muy agradecido. Porque lo necesiiito..
Saludos
Edgarin
Tambien quisiera saber como puedo simular la presion de teclas con llamada al API (no con SendKeys).
Estare muy agradecido. Porque lo necesiiito..
Saludos
Edgarin
Con el Api SetCursorPos y un timer podés hacerlo. un ejemplo:
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim pos As POINTAPI
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Sub Form_Load()
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
GetCursorPos pos
If pos.X >= 0 Then pos.X = pos.X - 5
If pos.Y >= 0 Then pos.Y = pos.Y - 5
SetCursorPos pos.X, pos.Y
End Sub
Para lo de las teclas hay un par de apis, una llamada Keyevent, fijate en el api guide
Saludos
www.recursosvisualbasic.com.ar
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim pos As POINTAPI
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Sub Form_Load()
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
GetCursorPos pos
If pos.X >= 0 Then pos.X = pos.X - 5
If pos.Y >= 0 Then pos.Y = pos.Y - 5
SetCursorPos pos.X, pos.Y
End Sub
Para lo de las teclas hay un par de apis, una llamada Keyevent, fijate en el api guide
Saludos
www.recursosvisualbasic.com.ar