如何屏蔽键盘和鼠标。

Question

调用Public Declare Function SetWindowsHook Lib "user32" Alias "SetWindowsHookA" (ByVal nFilterType As Long, ByVal lpfnFilterProc As Long) As Long
然后,写一个函数处理,函数地址为lpfnFilterProc

Answer 1

用API
Public Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
用法：
      EnableWindow Me.hwnd, 1   '表示可用
      EnableWindow Me.hwnd, 0   '表示不可用

Answer 2

用以下API函数屏蔽鼠标Public Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As LongDim abc As Long
abc= ShowCursor(False)

Answer 3

把 siqi163() 和 albertina() 的方法终合一下就行了。