Comment Simuler des mouvements de souris ?
The Master
-
22 févr. 2001 à 00:20
jullouyot_46 Messages postés 43 Date d'inscription jeudi 9 décembre 2004 Statut Membre Dernière intervention 11 octobre 2013 - 13 avril 2006 à 17:07
jullouyot_46 Messages postés 43 Date d'inscription jeudi 9 décembre 2004 Statut Membre Dernière intervention 11 octobre 2013 - 13 avril 2006 à 17:07
A voir également:
- Comment Simuler des mouvements de souris ?
- Simulateur de click - Forum Visual Basic
- Simuler un click gauche de souris (souris droitier) - Forum Visual Basic
- Comment dessiner une souris - Forum VB.NET
- Simuler un click gauche... ✓ - Forum VB.NET
- Simulateur de combat ogame - Forum C++ & C++ .NET
6 réponses
Je pensais pas qu c'était si compliqué !
j'aurais jamais trouvé tout seul, mrci beaucoup !
Et tu m'as l'air assez fort, tu sais pas comment faire pour positionner le curseur de la souris et générer un click ?
P.S. J'veux même pas tricher sur spedia, mediabarre, paidforsurf .... !
j'aurais jamais trouvé tout seul, mrci beaucoup !
Et tu m'as l'air assez fort, tu sais pas comment faire pour positionner le curseur de la souris et générer un click ?
P.S. J'veux même pas tricher sur spedia, mediabarre, paidforsurf .... !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Si tu cherche encore le programme je te l'offre!
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 Declare Function SetCursorPos& Lib "user32" (ByVal X As Long, ByVal Y As Long)
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H80
Const MOUSEEVENTF_XDOWN = &H100
Const MOUSEEVENTF_XUP = &H200
Const WHEEL_DELTA = 120
Const XBUTTON1 = &H1
Const XBUTTON2 = &H2
Private Sub Command1_Click()
X = 30
Y = 755
'position de la souris au coordonnée X et Y
'(ici si vous êtes en 1024 x 768,cela va cliquer sur le bouton 'Démarrer' de la barre des taches)
SetCursorPos X, Y
'Le bouton gauche de la souris s'enfonce
Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) '
'le bouton gauche de la souris se relache
Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0)
End Sub
Bonne chance
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 Declare Function SetCursorPos& Lib "user32" (ByVal X As Long, ByVal Y As Long)
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H80
Const MOUSEEVENTF_XDOWN = &H100
Const MOUSEEVENTF_XUP = &H200
Const WHEEL_DELTA = 120
Const XBUTTON1 = &H1
Const XBUTTON2 = &H2
Private Sub Command1_Click()
X = 30
Y = 755
'position de la souris au coordonnée X et Y
'(ici si vous êtes en 1024 x 768,cela va cliquer sur le bouton 'Démarrer' de la barre des taches)
SetCursorPos X, Y
'Le bouton gauche de la souris s'enfonce
Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) '
'le bouton gauche de la souris se relache
Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0)
End Sub
Bonne chance
jullouyot_46
Messages postés
43
Date d'inscription
jeudi 9 décembre 2004
Statut
Membre
Dernière intervention
11 octobre 2013
13 avril 2006 à 17:07
13 avril 2006 à 17:07
Quand j'exécute ce programme, le pointeur de ma souris se met systématiquement tout en haut de mon écran. On dirait que la position X est bien prise en compte, mais la position Y est systématiquement à 0
Je suis bien en 1024 x 768, et sous VB.Net
quelqu'un aurait il une explication ?
Je suis bien en 1024 x 768, et sous VB.Net
quelqu'un aurait il une explication ?
