Monday, December 14, 2009

Disable Keyboard and Mouse using VB6

The following simple example code to disable the keyboard and mouse. First create a form and add the two commands on the form, then paste the following code:

' for disable keyboard
Private Sub Command1_Click()
dim aa
aa=shell("rundll keyboard,disable")
End Sub

'for disable mouse
Private Sub Command2_Click()
dim aa
aa=shell("RUNDLL MOUSE,DISABLE")
End Sub


NOTE;
To reactive them you may need to restart your computer :)


2 comments:

  1. Wow! very nice information. i was searching article like this.

    Thanks

    http://mlmdevelopers.com/products/mlm-software/mlm-software-beta/features.html

    ReplyDelete
  2. Very Nice and Informative Post. Thanks admin for sharing such an amazing post.

    --->>How to Lock Keyboard and Mouse by KeyFreeze!

    ReplyDelete