VB 锁键盘，锁鼠标！

我个人支持 wswck7 的回答.简明、快捷,以前还从不知道这个API. 运行后跟死机差不多,其实并不是死机,下面的代码就是.
wswck7朋友的代码改版:

Private Declare Function BlockInput Lib "user32" (ByVal Flag As Boolean) As Long

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Static i
i = i + 1
Cls
Print "千万不要以为死机了,只是锁住了键盘、鼠标" & vbCrLf & "其实系统还在正常运行 " & i
If i < 7 Then
BlockInput True '失去控制
Else
BlockInput False '7秒后恢复 20秒钟太长了,7秒钟就看到效果了..
End If
End Sub

锁键盘
先建一个模块
代码如下：
Public hHook As Long
Public h_Hook As Long
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function CallNextHookEx Lib "user