怎样使用“系统”不响应鼠标的任何事件！

Question

写一个程序，要只响应键盘，使用“系统”不响应鼠标的任何事件！包括，鼠标移动，单击，…………最好有代码，解决问题就结账！

Answer 1

http://gamesir.enorth.com.cn/ShowTopic-516536-191.html

Answer 2

http://community.csdn.net/Expert/TopicView3.asp?id=4685960

Answer 3

===================窗体代码=================
'---------------------------------
'Form'安装钩子
Private Sub Form_Load()
 lHook(1) = SetWindowsHookEx(WH_MOUSE_LL, AddressOf CallMouseHookProc, App.hInstance, 0)
End Sub
'卸钩子
Private Sub Form_Unload(Cancel As Integer)
UnhookWindowsHookEx lHook(1)
End Sub================模块代码============================
'模块
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 Const WH_MOUSE_LL = 14
'鼠标消息
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public lHook(1) As Long
'----------------------------------------'鼠标钩子
Public Function CallMouseHookProc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long    CallMouseHookProc = 1End Function

Answer 4

运行后要结束按alt+F4,有不然鼠标就死翘翘喽:)

Answer 5

用局部HOOK就可以了，VB没问题。