allora ho creato un programma che fa dei click sx ma mi funge solo 1 click se impartisco un altro click dopo il primo nn parte piu xk?
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long 'tutto su una stessa riga
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 As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
Private Const MOUSEEVENTF_RIGHTDOWN = &H8 ' right button down
Private Const MOUSEEVENTF_RIGHTUP = &H10 ' right button up
Private Sub Command1_Click()
Dim ascissa As Long
Dim ordinata As Long
ascissa = 0
ordinata = 0
mouse_event MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, ascissa, ordinata, 0, 0
SetCursorPos ascissa, ordinata
end sub
se inserisco un altro mouse event nel command1 nn mi funziona come posso inserirlo mi si incastra letteralmente
|