Globales Tasten-Event abfangen (win) - #74658 (Allgemeines zu Perl)

vayu

2007-02-28 15:10

User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]

Wenn es auch NumLock, CapsLock oder ScrollLock sein darf :)

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Win32::KeyState qw(:get);

while(1) {
   print 'CapsNum is ', GetNumLock() ? 'On' : 'Off', "\n";
}

wenn du den windows code für die ALT-Taste kennst, müsstest auch hiermit den Status abfragen können

Code: (dl )

if (GetKeyState(0x10) & 1) {
      print "Shift key is depressed\n" 
   } else {
      print "Shift key is pressed\n" 
   }

\n\n