Opened by ~Br4inP4in~ at 2007-06-18 23:59
User since
2007-06-13
28 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-06-13
28 Artikel
BenutzerIn
Hi.
Ich stehe vor dem Problem, dass ich Eingaben, die mit der Tastatur gemacht werden, im Hintergrund einlesen will (im Prinzip ein gewöhnlicher Keylogger)... Hierzu soll das Perlfenster nicht aktiv sein müssen und es sollen alle Tasten gelesen werden (also auch "Funktionstasten" wie Esc, Strg, Entf, usw.
Ich habe dazu 2 interessante Module gefunden, die mir auf den 2. Blick beide nicht wirklich weiterhelfen...
1. Term::ReadKey: Liest anscheinend die Eingaben, aber nicht im Hintergrund, sprich es Liest scheinbar nur Eingaben im aktiven Perlfenster.
2. Win32::KeyState: Liest Eingaben von best. Tasten (wie ich auf Buchstabentasten zugreife, habe ich noch nicht herausgefunden), doch setzt diese Tasten nach der Eingabe in einen Status, beispiel: Tab drücken -> Tab aktiv, nochmal Tab drücken -> Tab inaktiv.
Der Code dafür:
Ich weiss einfach nicht, wie ich vorgehen soll.
Kennt vlt jemand ein besser geeignetes Modul als die genannten?
Hat möglicherweise jemand Erfahrung mit diesem Projekt?
GreetZ, ~Br4inP4in~
Ich stehe vor dem Problem, dass ich Eingaben, die mit der Tastatur gemacht werden, im Hintergrund einlesen will (im Prinzip ein gewöhnlicher Keylogger)... Hierzu soll das Perlfenster nicht aktiv sein müssen und es sollen alle Tasten gelesen werden (also auch "Funktionstasten" wie Esc, Strg, Entf, usw.
Ich habe dazu 2 interessante Module gefunden, die mir auf den 2. Blick beide nicht wirklich weiterhelfen...
1. Term::ReadKey: Liest anscheinend die Eingaben, aber nicht im Hintergrund, sprich es Liest scheinbar nur Eingaben im aktiven Perlfenster.
2. Win32::KeyState: Liest Eingaben von best. Tasten (wie ich auf Buchstabentasten zugreife, habe ich noch nicht herausgefunden), doch setzt diese Tasten nach der Eingabe in einen Status, beispiel: Tab drücken -> Tab aktiv, nochmal Tab drücken -> Tab inaktiv.
Der Code dafür:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl -w
use strict;
use Win32::KeyState qw(:get);
while(1)
{
if (GetKeyState(0x09) & 1)
{
print "Tab = Pressed\n";
$_ = 0
}
}
Ich weiss einfach nicht, wie ich vorgehen soll.
Kennt vlt jemand ein besser geeignetes Modul als die genannten?
Hat möglicherweise jemand Erfahrung mit diesem Projekt?
GreetZ, ~Br4inP4in~