Keylogger und diakritische Zeichen

[Shaman]

Ich verwerfe nie einen Tastenanschlag, alles wird weitergeleitet...

Ist dir bei deinem KeyLogger nie ein solches Problem aufgefallen?

[DocBorn]

vielleicht hab' ichs ja auch nich gecheckt, aber in der Funktion vkCodeToChar prüfst du ja ob es sich um ein diakritisches Zeichen (oder deadkey) handelt. Wenn ja dann gibst du in dieser Funktion false zurück. Weiter unten rufst du eben diese Funktion auf und wenn sie false lieferst wirfst du das Ergebnis nicht aus. Das ist so meine erste spontan-Idee. Ansonsten sweete Applikation (und du sagst das funktioniert nicht auf alten Windows-Systemen? Schade :)).

Viele Grüße
Lars

[smallsmoker]

entschuldigung das ich den thread wiederbelebe aber könnte man in diesem programm auch den fenstertitel u. uhrzeit etc. anzeigen ?
mfg smallsmoker

[toms]

Zitat:

Zitat von smallsmoker

entschuldigung das ich den thread wiederbelebe aber könnte man in diesem programm auch den fenstertitel u. uhrzeit etc. anzeigen ?
mfg smallsmoker

Klar, du kannst dies im LogKeyPress Ereignis einbauen.

Delphi-Quellcode:

procedure TMainForm.LogKeyPress(Sender: TObject; Key: Char);
begin
  Memo1.SelText:= Key;
end;

[toms]

Es tritt noch ein Fehler auf, wenn extern irgend eine Taste gedrückt wird.

Zitat:

Zitat von madexcept

exception class : ERangeError
exception message : Range check error.

main thread ($4a0):
004b0dfe +26 KeyLoggerTest.exe KeyLogger 68 +1 GetKeyboardState
004b0e72 +36 KeyLoggerTest.exe KeyLogger 82 +3 vkCodeToChar
004b113a +72 KeyLoggerTest.exe KeyLogger 181 +5 TKeyLogger.Logging
004b0f11 +55 KeyLoggerTest.exe KeyLogger 101 +7 LLKeyboardHookProc

[smallsmoker]

hm habe jetzt ne nette funktion der schweizer gefunden die aktuelle Fenster Caption herausfinden
nur weiß ich nicht genau wie ich dies in das LogKeyPress event einfügen soll ...
er soll ja nur in den log schreiben wenn sich das fenster ändert ..
momentan sieht der inhalt des events bei mir so aus:

Delphi-Quellcode:

procedure TMainForm.LogKeyPress(Sender: TObject; Key: Char);
var aktuellesfensterhandle : integer;
begin
if (aktuellesfensterhandle <> GetForegroundWindow) then
memo1.Lines.Add(activecaption);
Memo1.SelText:= Key;
aktuellesfensterhandle := GetForegroundWindow;
end;

was leider dazü führt bsp.:

Zitat:

Ausführen
h
Ausführena
Ausführenl
Ausführenl
Ausführeno
Unbenannt - Editorh
Unbenannt - Editora
Unbenannt - Editorl
Unbenannt - Editorl
Unbenannt - Editoro

was eigentlich so aussehen sollte.:

Ausführen
hallo

Unbenannt - Editor
hallo

ändert sich ständig das fenster im vordergrund ? oder hab ich da nen denkfehler ..

mfg smallmoker

[smallsmoker]

habe jetzt eine lösung gefunden wenn auch eine skurile die ich mir nicht erkären kann hoffe ihr könnt mir helfen ..
der oben genannte code funtioniert wenn man es so macht

Delphi-Quellcode:

procedure TMainForm.LogKeyPress(Sender: TObject; Key: Char);
begin
if inttostr(GetForegroundWindow) <> lbltest.Caption then memo1.Lines.Add(activecaption);
Memo1.SelText:= Key;
lbltest.Caption := inttostr(GetForegroundWindow);
end;

mit einem label als zwischenspeicher .. kein plan wieso aber anders geht es bei mir nicht.
:wiejetzt:

p.s.: sry für den doppelpost

so habe den fehler musste einfach die variable außerhalb der prozedur eintragen

[stoxx]

Zitat:

Es tritt noch ein Fehler auf, wenn extern irgend eine Taste gedrückt wird.

was heißt bei Dir "extern? ...

[Mackhack]

Ist es auch gewollt dass es 2 mal Tasten wie z. B. Shift anzeigt obwohl nur einmal gedrueckt? Ansonsten schon ganz nett!

[toms]

Zitat:

Zitat von stoxx

Zitat:

Es tritt noch ein Fehler auf, wenn extern irgend eine Taste gedrückt wird.

was heißt bei Dir "extern? ...

In einer anderen Anwendung.