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

Résolu

jihednond Messages postés 143 Date d'inscription jeudi 27 mars 2008 Statut Membre Dernière intervention 3 septembre 2011 - 7 nov. 2008 à 20:57
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 8 nov. 2008 à 13:54

@§§IloveVB§§@

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="ProgId" content="Word.Document" />
<meta name="Generator" content="Microsoft Word 11" />
<meta name="Originator" content="Microsoft Word 11" />
<link rel="File-List" href="file:///C:%5CDOCUME%7E1%5CADMINI%7E1%5CLOCALS%7E1%5CTemp%5Cmsohtml1%5C01%5Cclip_filelist.xml" />


<style>

</style>

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

5 réponses

Réponse 1 / 5

debutant VB Messages postés 93 Date d'inscription lundi 3 juillet 2006 Statut Membre Dernière intervention 25 juin 2010
7 nov. 2008 à 21:31

Tu n'as qu'à remplacer

If result = -32767 Then

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

End If

par

If result = -32767 Then

    Text1.Text = Text1.Text + Cstr(i) + ";"

End If

pour savoir le code des touches appuyées.

Il ne te reste plus qu'à régler toi-même les cas spéciaux :

If result = -32767 Then

    Select Case i

        Case 46:

            Text1.Text = Text1.Text + "[Suppr]"

        Case Else:

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

    End Select

End If

etc ...

(Attention, certaines autres touches comme alt ... renvoyent plusieurs codes)

J'espère que cette réponse te conviendra.

Réponse 2 / 5

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
8 nov. 2008 à 07:43

non, tu as anregistré un Keystate... (y'a moyen de demander l'etat de toutes les touches d'un coup...)

a toi de restituer un keystate, et non de jouer avec chr(i), qu'i n'est pas la même chose...

http://www.vbfrance.com/code.aspx?ID=33577

et voir APIs GetKeyboardState et SetKeyboardState

Réponse 3 / 5

jihednond Messages postés 143 Date d'inscription jeudi 27 mars 2008 Statut Membre Dernière intervention 3 septembre 2011 1
7 nov. 2008 à 22:13

@§§§merci§§§@

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="ProgId" content="Word.Document" />
<meta name="Generator" content="Microsoft Word 11" />
<meta name="Originator" content="Microsoft Word 11" />
<link rel="File-List" href="file:///C:%5CDOCUME%7E1%5CADMINI%7E1%5CLOCALS%7E1%5CTemp%5Cmsohtml1%5C01%5Cclip_filelist.xml" />


<style>

</style>

Merci [auteur/DEBUTANTVB/813366.aspx 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éponse 4 / 5

jihednond Messages postés 143 Date d'inscription jeudi 27 mars 2008 Statut Membre Dernière intervention 3 septembre 2011 1
8 nov. 2008 à 10:07

@§§§résolu§§§@

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="ProgId" content="Word.Document" />
<meta name="Generator" content="Microsoft Word 11" />
<meta name="Originator" content="Microsoft Word 11" />
<link rel="File-List" href="file:///C:%5CDOCUME%7E1%5CADMINI%7E1%5CLOCALS%7E1%5CTemp%5Cmsohtml1%5C01%5Cclip_filelist.xml" />


<style>

</style>

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
8 nov. 2008 à 13:54

si question je peux répondre.
la doc des Apis est dispo comme premiere etape de reflexion.

bonne continuation.

Votre réponse