NUM-Taste abfragen

'NUM-Taste abfragen

Beitrag, 16.07.2007 00:56: ;createCode() 'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt: 'NUM-Taste abfragen 'Retstate& = 1 -> NUM-Taste ist gedrückt (eingeschaltet) 'Retstate& = 0 -> NUM-Taste ist nicht gedrückt (ausgeschaltet) Def Getkeyboardstate(1) ! "USER32.DLL","GetKeyboardState" Declare State# Proc Numstate Getmessage Declare Retstate& Dim State#,256 Getkeyboardstate(State#) If Byte(State#,144) = 1 Retstate&=1 Else Retstate&=0 Endif Dispose State# Return Retstate& Endproc Cls While 1 Waitinput Numstate Print &(0) Wend

Dies ist die Offlinevariante vom Thread [NUM-Taste abfragen].