Tipp 043: Maus oder Tastatur komplett deaktivieren respektive sperren

Form                     frmMouseKey 
CommandButton            cmdMaus
CommandButton            cmdTastatur

' VISUAL BASIC WORLD
' ===========================================
' Das große Portal zum Thema Visual Basic.
'
' Wenn Ihnen dieser Source Code gefallen hat,
' dann empfehlen Sie Visual Basic World bitte
' weiter und/oder setzen Sie einen Link auf:
'
' http://www.visualbasicworld.de/
'
' Vernetzen Sie sich mit uns:
'
' http://twitter.com/visualbasicwrld


Option Explicit
 

 
Private Sub cmdMaus_Click()
 
      'A C H T U N G!
      'Diese Deaktivierung kann nur durch einen
      'Neustart wieder rückgängig gemacht werden.
 
   Shell "Rundll32.exe mouse,disable"
      'Dieser Aufruf schaltet die Maus komplett aus.
 
End Sub
 

 
Private Sub cmdTastatur_Click()
 
      'A C H T U N G!
      'Diese Deaktivierung kann nur durch einen
      'Neustart wieder rückgängig gemacht werden.
 
   Shell "Rundll32.exe keyboard,disable"
      'Dieser Aufruf schaltet die Tastatur komplett aus.
 
End Sub