XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Tastaturabfrage (5)
PRFellow-Vorlage
Autor: Thomas Hölzer
Einfaches Tool zum Auslesen von Key-Codes und -namen
(Alt, F1 und F10 gehen nicht, weil sie Sonderfunktionen haben)
Def GetKeyNameText(3) !USER32,GetKeyNameTextA
Def GetKeyboardLayoutName(1) !USER32,GetKeyboardLayoutNameA
Declare buffer#
WindowStyle $18
WindowTitle KeySpy
Window 0,0 - 400,50
UseIcon COMPUTER
SetWindowPos %hwnd = 0,0-400,50;-1
Dim buffer#,32
GetKeyboardLayoutName(buffer#)
Print Keyboard-Layout:,String$(buffer#,0)
Dispose buffer#

While 1

    WaitKey
    Dim buffer#,32
    GetKeyNameText(&lparam,buffer#,32)
    Cls
    Print ,String$(buffer#,0); = %scankey: ;
    Str$(%scankey); = %key: ;Str$(%key)
    Dispose buffer#

Wend