FreeBasic: Eingaben blockieren

Aus Wikibooks
Zur Navigation springen Zur Suche springen
Declare Function BlockInput Lib "user32" Alias "BlockInput" (ByVal flags _
        As Long) As Long

Print "5 Sekunden Maus- und Tastatursperre"
BlockInput(1)
Sleep 5000,1
BlockInput(0)
Print "Sperre aufgehoben."

End

BlockInput ist eine WinAPI Funktion, die es einen Programm gestattet alle Eingaben zu sperren, ausser Strg+Alt+Entf. Mit BlockInput(1) wird dies nun getan, mit BlockInput(0) werden Maus & Tastatur wieder freigegeben.