/ Snippet Library - View Code

Snippet details

ID: 388

Viewed: 1285

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Two ways I know of to disable keyboard

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Matthew Gates

Snippet By:	Matthew Gates
Declarations
Highlight Allnone
Code
Highlight All'1 - Rundll32: 'code: Shell "rundll32 keyboard,disable" '2 - BlockInput API function (only problem with this is 'you disable both mouse and keyboard and you have to 'basically set a timer or something, or else you can't re-'enable them, but in the code below, there is an example 'of setting a time to disable and re-enable them). Private Declare Function BlockInput Lib "user32" _ (ByVal fBlock As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal _ dwMilliseconds As Long) Private Sub Command1_Click() DoEvents 'block the mouse and keyboard input BlockInput True 'wait 10 seconds before unblocking it Sleep 10000 'unblock the mouse and keyboard input BlockInput False End Sub

No Reviews to show