Snippet Library

none

'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
;