Discussion :

[imparator_42]

J'ai ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Public Type Farenin_Oldugu_Yer
        X As Long
        Y As Long
End Type
 
'pour lire le deplacement du curseur
Public Declare Function GetCursorPos Lib "User32" _
(Noktalar As Farenin_Oldugu_Yer) As Long
 
 
Public Noktalar As Farenin_Oldugu_Yer 'variable de récuperation de la procedure GetCursorPos
Public Retval& 'variable d'appel de la procedure GetCursorPos
 
 
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)
 
Public Const MOUSEEVENTF_MOVE = &H1 
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN = &H8
Public Const MOUSEEVENTF_RIGHTUP = &H10
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
Public Const MOUSEEVENTF_MIDDLEUP = &H40
Public Const MOUSEEVENTF_ABSOLUTE = &H8000
 
Public Sub Fare_Tiklama(Bt As Integer)
Retval& = GetCursorPos(Noktalar)
DoEvents
Select Case Bt
 Case 0 'Simuler le Click droit
  mouse_event MOUSEEVENTF_RIGHTDOWN + MOUSEEVENTF_RIGHTUP, Noktalar.X, Noktalar.Y, 0, 0
 Case 1 'Simuler le Click gauche
  mouse_event MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, Noktalar.X, Noktalar.Y, 0, 0
 Case 2 'Simuler le Click Millieux
  mouse_event MOUSEEVENTF_MIDDLEDOWN + MOUSEEVENTF_MIDDLEUP, Noktalar.X, Noktalar.Y, 0, 0
End Select
DoEvents
End Sub

Quelqu'un pourrait m'expliquer : à quoi sers le" 0,0" qui se trouve a la fin des cases :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mouse_event MOUSEEVENTF_MIDDLEDOWN + MOUSEEVENTF_MIDDLEUP, Noktalar.X, Noktalar.Y, 0, 0

Merci

[OhMonBato]

Les 2 derniers arguments concernent la molette souris, tu peux trouver une explication en anglais ici :

http://www.answers.com/topic/mouse-e...cat=technology

[imparator_42]

Explication en anglais
Sympa
Merci je vais essayer de comprendre à maximum