EXEMPLE DE L'UTILISATION DE MOUSE_EVENT

Signaler
Messages postés
222
Date d'inscription
samedi 24 mars 2001
Statut
Modérateur
Dernière intervention
24 juin 2007
-
Messages postés
127
Date d'inscription
lundi 11 octobre 2004
Statut
Membre
Dernière intervention
18 mai 2016
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/5630-exemple-de-l-utilisation-de-mouse-event

Messages postés
127
Date d'inscription
lundi 11 octobre 2004
Statut
Membre
Dernière intervention
18 mai 2016

Je sais, ca date... mais bon, comme je suis tombé dessus pour l'API, j'en profite pour poster des commentaires.

Pour que cela puisse fonctionner sur toutes les résolutions, tu auras besoin d'utiliser :
screen.PrimaryScreen.WorkingArea

Au lieu de :
If IsNumeric(Me.Text1) = False
Tu peux mettre :
If Not IsNumeric(Me.Text1)

Pour que cela puisse fonctionner au delà de la minute :
Else
nb_secondes_écoulées = 0
nb_secondes_à_attendre=Text1.Text
Timer1.Interval = 1000 'On force le timer sur 1 seconde
Timer1.Enabled = True 'on active le timer
Text1.Text = "" 'on nettoit la textbox
End If
Private Sub Timer1_Timer()
Select Case Selection
Case 0
'ici on compte les secondes écoulées
nb_secondes_écoulées += 1if nb_secondes_écoulées >nb_secondes_à_attendre Then selection 1

Case 1
'ici on déclare la position du curseur sur le bouton démmarer

Au lieu de cliquer puis de relacher :
'on clique
Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) '
'on relache
Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0)

Tu peux faire les 2 en même temps et si tu n'utilises pas la constante de déplacement de la souris, inutile de renseigner les dx et dy par des valeurs qui ne veulent plus rien dire sachant que même MOUSEEVENTF_ABSOLUTE devient inutile :
'on clique et on relache
Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, 0, 0, 0, 0)

Et +1 Mémère !

Et @Lavabo : A part l'API non déclaré ou les constantes non renseignées, je ne vois pas de pb.
Messages postés
3
Date d'inscription
mercredi 2 février 2005
Statut
Membre
Dernière intervention
15 mars 2007

Merci pour ce code Je cherche à simuler le clic gauche par la touche F10
voici le code en tuilisant l'API mouse event

If e.KeyCode = Keys.F10 Then
SetCursorPos(Label1.Location.X, Label1.Location.Y)

'Le bouton gauche de la souris s'enfonce
Beep()
mouse_event(MOUSEEVENTF_LEFTDOWN, Label1.Location.X, Label1.Location.Y, 0, 0)

'le bouton gauche de la souris se relache
mouse_event(MOUSEEVENTF_LEFTUP, Label1.Location.X, Label1.Location.Y, 0, 0)
End If
If e.KeyCode = Keys.Escape Then
Me.Close()
End If
End Sub

Le programme s'execute bien , je déplace le curseur mais rien à faire pour le faire cliquer.
Quelqu'un aurait une idée???
Messages postés
90
Date d'inscription
samedi 11 octobre 2003
Statut
Membre
Dernière intervention
27 juillet 2009

je crois keu tu peu po depasser les 1 minutes komme tu dit kar le timer ne peu po dépasser les 2^16 ;65536 plus exactement donc on peu po fair plus de 65.536Secondes.Donc fait des variables ;)
Messages postés
22
Date d'inscription
mercredi 20 novembre 2002
Statut
Membre
Dernière intervention
26 février 2003

hummmmm, ben je l'attend avec impatience! Je n'espere pas etre dessus ?!
Afficher les 14 commentaires