XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Tastaturabfrage per API
declare e%,i%
Def Sleep(1) !KERNEL32,Sleep
Def GetKeyState(1) !USER32,GetKeyState
Def IsKeyPressed(1) equ(and(GetKeyState(&(1)),$8000),$8000)
Def &VK_F1 112 F1
Def &VK_F2 113 F2
Def &VK_F3 114 F3
Def &VK_Links 37
Def &VK_Hoch 38
Def &VK_Rechts 39
Def &VK_Runter 40
Def &VK_Esc 27

PROC TUWASOHNETASTE

    print Hallo - Ich bin Zeile Nr.  + str$(i%)
    inc i%

ENDPROC

cls

whilenot e%

    If IsKeyPressed(&VK_F1)

        MessageBox(F1-Taste,Info,64)

    elseif IsKeyPressed(&VK_Links)

        MessageBox(Cursor links!,Info,64)

    elseif IsKeyPressed(&VK_Rechts)

        MessageBox(Cursor rechts!,Info,64)

    elseif IsKeyPressed(&VK_Hoch)

        MessageBox(Cursor hoch!,Info,64)

    elseif IsKeyPressed(&VK_Runter)

        MessageBox(Cursor runter!,Info,64)

    elseif IsKeyPressed(&VK_Esc)

        e% = 1

    EndIf

    TUWASOHNETASTE         Sleep(10)

wend