Simular posicion del mouse y posteriormente clickearse

[renga73]

Lo q quiero hacer es simular q en un determinado momento el puntero del mouse se ubique en una cierta posicion la cual conozco y luego se clickee.
Suponer q la posicion es 400x250. Bueno quiero q cuando clickee un boton el puntero se ubique ahi y se clickee.
No hace falta ver q el puntero se mueva, me interesa q se ubique en esa posicion y se clickee.

[dekland]

Para posicionar el mouse tenes que:

Código [Seleccionar] Expandir


Private Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long

Private Sub Command1_Click()
SetCursorPos 500, 233
End Sub

Te recomiendo que fijes la posicion del formulario, porque como esta puede variar al menos un poco, se puede ir es misma resposicion a otro lado.

[NYlOn]

Con SetCursorPos no podes simular los clicks del mouse. Para eso necesitas la API mouse_event. Un ejemplo seria asi:

Código [Seleccionar] Expandir


Private Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN As Long = &H2
Private Const MOUSEEVENTF_LEFTUP As Long = &H4

Private Sub Command1_Click()
    SetCursorPos 25, 750
    mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub


Si queres simular otros botones del mouse busca otras constantes que empiecen con MOUSEEVENTF...

Saludos.-