# Ich gebe zu, für alle Tastatureingaben ist es umständlich, aber ich wollte
# eigentlich nur bestimmte Tasten loggen (F12, ESC, RETURN, ...).
# Das Beispiel habe ich jetzt kurz gemacht, es ist ohne TK, loggt die Eingaben
# 1-0 auf der normalen Tastatur (nicht NUM) in das Textfile logfile.txt,
# abzubrechen mit ESC.
# Du wirst feststellen, das es immer funktioniert, auch wenn das Perlfenster
# nicht aktiv ist.

use Win32::GuiTest qw/SendKeys IsKeyPressed/;

my @keys = qw/1 2 3 4 5 6 7 8 9 0/;
my $logfile = "logfile.txt";

open LOG, "> $logfile";
until (IsKeyPressed("ESC")) {
    for (@keys) {
        if (IsKeyPressed($_)) {
            print LOG "Du hast gerade $_ gedrückt\n";
            SendKeys "{PAUSE 50}";
        }
        else {
           SendKeys "{PAUSE 20}";
        }
    }
}
close LOG;


#Bitte immer mit ESC beenden,
#
#JanE