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 |
