如何用VB拦截windows中所有的键盘输入(好难的...)

[dusj]

在程序中需要拦截处理所有的键盘输入,而不管当前激活窗口是哪一个.我用了如下代码:
但只有在该窗口激活时才能执行keyboardproc,如何才能得到在桌面上或记事本(等等其他程序)中的键盘输入呢?
是否需要编写DLL库呢?请给出详细的函数原型. thank you.

Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
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
Global hHook As Long

Public Function KeyboardProc(ByVal nCode As Long, ByVal wParam As _
Long, ByVal lParam As Long) As Long
If nCode >= 0 Then
Form1.List1.AddItem "keyPressed"
End If
KeyboardProc = CallNextHookEx(hHook, nCode, wParam, lParam)
End Function

Private Sub Form_Load()
hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, _
0&, App.ThreadID)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call UnhookWindowsHookEx(hHook)
End Sub

[TopHead]

对，需要将键盘钩子做到动态库中，才能成为全局钩子。否则的话，只能在应用程序中截获到键盘消息。

[kxy]

做系统Hook就可以了.

[NowCan]

这种程序我有（源程序），正好是VB的（当然HOOK是C编的）

[dusj]

TopHead, kxy两位大哥，具体怎么搞呢?细说好吗?
thank you.

[dusj]

NowCan你好:
能给我传过来吗?
如果用EMAIL的话: Please mail to : [e-mail]

[dusj]

嘿，你好，小兔子给分啦。
对不住，前阵太忙，没顾上，久等了。
我正在研究VC使用SDK，以后多指教
oicq: 2665523