Click automatique

cs_firehc Messages postés 5 Date d'inscription vendredi 17 janvier 2003 Statut Membre Dernière intervention 28 janvier 2003 - 17 janv. 2003 à 16:18
cs_niak Messages postés 7 Date d'inscription lundi 6 janvier 2003 Statut Membre Dernière intervention 21 juillet 2004 - 17 avril 2003 à 10:25
Bonjour,
J'aimerais faire un click automatique, j'ai essayé :
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 Declare Function GetAsyncKeyState Lib "user32" (ByVal uAction As Long) As Long
Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long

Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

mais ca ne marche pas, je veux un clic bien réel et non pas une simulation de click.
Toute aide sera la bienvenue.
Merci

3 réponses

cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
17 janv. 2003 à 16:29
Qu'entends-tu par "clic bien réel" ? Que le bouton de la souris s'enfonce ?

Sur quoi veux-tu cliquer ?
0
sonoboss Messages postés 178 Date d'inscription lundi 17 juin 2002 Statut Membre Dernière intervention 2 octobre 2007
17 janv. 2003 à 17:28
si tu veux cliquer sur une form tu peux faire :

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cequetuvequecafasse
End Sub

et puis tu l'appelle kom ca après :

Call Form_MouseDown(1, 0, 0, 0)

Voila @ plus!

Le jour où la merde vaudra de l'or, les pauvres naîtons sans trou du cul!
0
cs_niak Messages postés 7 Date d'inscription lundi 6 janvier 2003 Statut Membre Dernière intervention 21 juillet 2004
17 avril 2003 à 10:25
salut les gens moi ossi j'ai besoin de faire comme si l'utilisateur faisait un clic de souris sur un bouton ms ce bouton ne se situe pas sur une form vb...ms c pas ca le + important
dc si qq un sait comment provoquer un clic de souris ca serait cool
@ +
0
Rejoignez-nous