XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Tastaturabfrage (TAB-bouton abfragen)
messagebox(cette Code ist pas courir!,I N F O,4160)
end
là gibt es plusieurs Opportunités:
1. reagiert, glaube je, seulement sur dem Hauptfenster:
CLS

Tandis que 0=0

    IF %SCANKEY=9

        @messagebox(TAB-TAste wurde gedrückt!,Hinweis,0)
        @sendkey(%HWND,0)

    endif

Wend

2.Possibilité ist pour Controls et Dialoge:
Déclarer Taste&,Ende%
Fenêtre 0,0-640,200
Imprimer allô Meister
def @GetState(1) !User32,GetKeyState API Funktion zum Abfragen de Tasten (9=TAB)

Tandis que @equ(Ende%,0)

    Laisser Taste&=@GetState(9) Funktion wird aufgerufen
    drawtext 100,10,@add$(@str$(TASTE&),          ) Funktion wird aufgerufen

    Si @and(@neq(Taste&,0),@neq(Taste&,1))

        @messagebox(qui TAB-bouton wurde gedückt,Message,0)

    endif

Wend

@messagebox(bouton F12 wurde gedückt,Message,0)
end
3.Möglickeit pour inaktive la fenêtre im Hintergrund:
Déclarer Taste&,Ende%
Fenêtre 0,0-640,200
Imprimer allô Meister
def @GetState(1) !User32,GetAsync    KeyState API Funktion zum Abfragen de Tasten (9=TAB)

Tandis que @equ(Ende%,0)

    Laisser Taste&=@GetState(9) Funktion wird aufgerufen
    drawtext 100,10,@add$(@str$(TASTE&),          ) Funktion wird aufgerufen

    Si @and(@neq(Taste&,0),@neq(Taste&,1))

        @messagebox(qui TAB-bouton wurde gedückt,Message,0)

    endif

Wend

@messagebox(bouton F12 wurde gedückt,Message,0)
end