Visual Basic 6 - Simulare click sx del mouse attraverso ytastiera

Intanto un saluto a tutti

avrei bisogno di poter simulare attraverso un tasto predeterminato, un click del mouse con delle coordinate prestabilite, indipendentemente dal programma in uso. non ne capisco molto di programmazione, ma penso che sia possibile farlo con VB.

se mi indirizzate sono sufficientemente tesdtardo per provarci.

grazie per l'aiuto.

ciao

In un modulo:

Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4

Public 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)

nel form:

Private Sub LeftDown() 'quando il tasto del mouse viene premuto
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
End Sub
Public Sub LeftUp() 'quando il tasto del mouse viene rilasciato
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

'Poi in una qualunque sub basta richiamare le 2 sub scrivendo:
LeftDown
LeftUp

l'unica cosa è che il click lo fa dove sta il cursore del mouse, ma potresti spostare il cursore da vb per pochi secondi avviare il codice di simulazione click e rimettere il cursore dove si trovava per dare l'effetto che desideri

p.s. se metti il codice in un commandbutton stai attento perchè se clicchi sul command poi si risimula il click sul command all'infinito impallando tuto...

grazie, e come faccio a far si che il cursore sia spostato alla posizione prestabilita e poi ritorni al punto di partenza?

così:

Private Declare Function SetCursorPos _
Lib "user32" _
(ByVal X As Long, ByVal Y As Long) As Long

poi in una sub mettici
SetCursorPos coordinataX, coordinataY

Public 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)

Prova questa!