XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Tastaturabfrage (TAB-Taste abfragen)
messagebox(Dieser Code es no lauffähig!,I N F O,4160)
end
Como son lo mehrere Möglichkeiten:
1. reagiert, glaube Yo, sólo en el Ventana principal:
CLS

Mientras que 0=0

    IF %SCANKEY=9

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

    endif

wend

2.Möglichkeit es para Controls y Dialoge:
Declarar Taste&,Ende%
Ventana 0,0-640,200
Imprimir ¡Hola Meister
def @GetState(1) !User32,GetKeyState API Función para Abfragen de Tasten (9=TAB)

Mientras que @equ(Ende%,0)

    Let Taste&=@GetState(9) Función se aufgerufen
    drawtext 100,10,@add$(@str$(TASTE&),          ) Función se aufgerufen

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

        @messagebox(El TAB-Taste wurde gedückt,Message,0)

    endif

wend

@messagebox(Taste F12 wurde gedückt,Message,0)
end
3.Möglickeit para inaktive Ventana en el Hintergrund:
Declarar Taste&,Ende%
Ventana 0,0-640,200
Imprimir ¡Hola Meister
def @GetState(1) !User32,GetAsync    KeyState API Función para Abfragen de Tasten (9=TAB)

Mientras que @equ(Ende%,0)

    Let Taste&=@GetState(9) Función se aufgerufen
    drawtext 100,10,@add$(@str$(TASTE&),          ) Función se aufgerufen

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

        @messagebox(El TAB-Taste wurde gedückt,Message,0)

    endif

wend

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