API DE WINDOWS - MOVER CURSOR

Edgarin
25 de Abril del 2006
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

LLE
25 de Abril del 2006
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