Problème avec hook souris
Bonjour,
Dans le cadre d'un projet personnel, j'utilise deux hooks pour compter le nombre de clics et de touches et aussi de scrolls que l'utilisateur fait sur son ordinateur. Le truc, c'est que pour ça j'utilise deux hooks : un pour le clavier, et un pour la souris, les voilà :
http://pastebin.com/yeqtX5pi (clavier)
http://pastebin.com/FHn18WFs (souris)
(Je ne les mets pas en <code> parce que c'est un peu long). Après, j'utilise
Code:
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
| Dim WithEvents mHook As New MouseHook
Dim WithEvents kbHook As New KeyboardHook
Private Sub kbHook_KeyUp(ByVal Key As System.Windows.Forms.Keys) Handles kbHook.KeyUp
'If Key = Keys.A Then
' MessageBox.Show("A")
'End If
NbrTouches = NbrTouches + 1
NbrTouchesAE = NbrTouchesAE + 1
Afficher(ModeActuel)
End Sub
Private Sub mHook_Mouse_Left() Handles mHook.Mouse_Left
NbrClicsGauches = NbrClicsGauches + 1
NbrClicsGauchesAE = NbrClicsGauchesAE + 1
RecalculerTotalClics()
Afficher(ModeActuel)
End Sub
Private Sub mHook_Mouse_Right() Handles mHook.Mouse_Right
NbrClicsDroits = NbrClicsDroits + 1
NbrClicsDroitsAE = NbrClicsDroitsAE + 1
RecalculerTotalClics()
Afficher(ModeActuel)
End Sub
Private Sub mHook_Mouse_Middle() Handles mHook.Mouse_Middle
NbrClicsMilieu = NbrClicsMilieu + 1
NbrClicsMilieuAE = NbrClicsMilieuAE + 1
RecalculerTotalClics()
Afficher(ModeActuel)
End Sub
Private Sub mHook_Mouse_Wheel(ByVal Direction As MouseHook.Wheel_Direction) Handles mHook.Mouse_Wheel
If Direction.ToString = "WheelUp" Then
Else
End If
NbrScrolls = NbrScrolls + 1
NbrScrollsAE = NbrScrollsAE + 1
Afficher(ModeActuel)
End Sub |
Pour compter chacune des données, et les afficher. Le truc c'est que le clavier fonctionne tout le temps, alors que le compteur en lien avec le souris bug pour une raison inconnue une fois sur deux (il ne lève pas d'exception mais ne compte ni clics ni scrolls).
Si quelqu'un avait une idée ça me sauverait la vie parce que là depuis hier, je sèche.
Merci d'avance
