Discussion :

[Chyokyka]

Salut !
Je voudrais faire un Keylogger simple
Et beh je coudrais savoire :
Si la touche A est presser , on laffiche dans un Tmemo .
Si la touche B est presser , on laffiche dans un TMemo .
Ainsi de suite
Pouvez vous maider ?
Je veut juste un code pour une touche , apret je me debrouille !
Merci !!!

[shell13010]

Salut ,

regarde du coter des 'Hook' je crois qu'il y a un 'composants hookKeyboard' sur phidel

en esperant avoir pu t'aider.

[Chyokyka]

Salut oui j'ai dejas regarder ...
Sa me plai pas trop

[Coussati]

Salut oui j'ai dejas regarder ...
Sa me plai pas trop

qu'est ce qui ne te plait pas ? car c'est l'un des moyens les plus simple ...

tu as une dll à mettre dans le même dossier que ton exe ou alors dans system32

sinon regarde les sources de nono, il me semble qu'il a réaliser un keylogger déjà

[gaby277]

Bonjour,

Pour afficher la lettre 'A' dans un mémo il suffit de créer l'événement 'FormKeyDown'. ça marche aussi pour 'B', 'C' !.
Après tu te débrouilles !
Mais je ne suis pas sur que ce soit un 'keylogger' ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  memo1.Text := memo1.Text + chr(key);
end;
end.

[Chyokyka]

Interresant ta source , mais ca marche que si on est sur le programme , si on tape sur google un truk sa le marque pas