¬ Home » Tipps & Tricks » Tipp 043 Feedback | Druckansicht

Tipp 043: Maus oder Tastatur komplett deaktivieren respektive sperren

Autor: Alexander Kopatz VB-Version: Visual Basic 6.0 Download: Beispielprojekt Tipp-043

Beschreibung

Wenn Sie entweder die Maus oder die Tastatur komplett außer Betrieb setzen wollen, ist dieses Beispiel die ideale Wahl. Allerdings sollten Sie dabei unbedingt beachten, dass sowohl Maus als auch Tastatur bis zum nächsten Neustart des Rechners deaktiviert bleiben.

Quellcode

frmMouseKey

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