如何禁止鼠标和键盘？

Question

各位大虾，多谢支招。

Answer 1

Private Sub Command1_Click()
Shell "rundll32 mouse,disable"
End Sub
Private Sub Command2_Click()
Shell "rundll32 keyboard,disable"
End Sub

Answer 2

请问这位大哥，如果恢复是不是Enable?

Answer 3

'让Window不接受键盘输入及Mouse Click Mouse不可移动
Const WM_MOUSELAST = &H209
Const WM_MOUSEFIRST = &H200
Public Const WM_KEYLAST = &H108
Public Const WM_KEYFIRST = &H100
Public Const WH_JOURNALRECORD = 0
Public Const WH_JOURNALPLAYBACK = 1Type EVENTMSG
        message As Long
        paramL As Long
        paramH As Long
        time As Long
        hwnd As Long
End Type
Public 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
Public Declare Function UnhookWindowsHookEx Lib "user32" _
   (ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
   ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public hNxtHook As Long   ' handle of Hook Procedure
Public msg As EVENTMSG
'禁止
Sub EnableHook()
   hNxtHook = SetWindowsHookEx(WH_JOURNALPLAYBACK, AddressOf HookProc, App.hInstance, 0)
End Sub
'允许
Sub FreeHook()
    Dim ret As Long
    ret = UnhookWindowsHookEx(hNxtHook)
End Sub
Function HookProc(ByVal code As Long, ByVal wParam As Long, _
                ByVal lParam As Long) As Long
HookProc = CallNextHookEx(hNxtHook, code, wParam, lParam)
End Function

Answer 4

jxf_yx(清风) 
  用JOURNALPLAYBACK 钩子是不能完全屏蔽掉的