后台VB怎样得到键盘信息，如Ctrl键被按下。急！急！急！很容易，是不是？

[scorpio]

请问：
我想实现VB在后台运行， form隐藏，在其他应用程序正常运行时，VB 在后台能截获键盘击键， 如“F10"? 怎么办？？

[scorpio]

我试过,但要设置dwThreadId=0 ,并且lpfn 指向DLL 中的一个hook procedure,我不知如何设置参数 lpfn 和 hMod.

[greentape]

我所想到的方法稍微有点复杂
要用API SetWindowsHookEx
来设置WH_KEYBOARD Hook截获
WM_KEYUP和WM_KEYDOWN消息

最好用c写一个dll来实现
我也没做过，不知道你是否有
用Hook的经验
如果没有， 查一下MSDN吧。

需要的话，我们可以一起探讨
细节和实现

[fs_windy]

'建立Hook函数如下：
Public Function Hook(HookHwnd As Long) As Long
Hook = SetWindowLong(HookHwnd, GWL_WNDPROC, AddressOf WindowProc)
End Function

’处理Hook的过程如下：
Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
On Error GoTo ErrOnWindowProc
'// 此处进行消息处理
Select Case uMsg
Case WM_KEYDOWN
'//消息处理,注意wParam和lParam的值，它是你想要的
End Select

'回调其它的缺省的消息处理过程
WindowProc = CallWindowProc(gPrevWndProc, hw, uMsg, wParam, lParam)

ErrOnWindowProc:

End Function

'退出时记得UnHook呵!!!!!!!!
Public Function UnHook(HookHwnd As Long, lpPrevWndProc As Long) As Long
UnHook = SetWindowLong(HookHwnd, GWL_WNDPROC, lpPrevWndProc)
End Function

在Hook的过程中不要使用VB中的Pause中止，这可是个灾难！！！！！！！

Good Luck!

[freehero]

有现成的控件，msghook可以试一试。下载在 vbapi.yeah

[ynduanlian]

我也很想知道这个问题怎么解决：
SetWindowLong只能截获特定窗体的键盘击键，要截获用户的任一键盘击键，好象不太可行，不知应如何实现？
据说必须编写成DLL，有这方面的VB或Delphi或VC代码吗？

[DeityFox]

如果只是截获特定的几个热键，那这两个api函数就行

Public Declare Function RegisterHotKey Lib "user32" Alias "RegisterHotKey" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long

Public Declare Function UnregisterHotKey Lib "user32" Alias "UnregisterHotKey" (ByVal hwnd As Long, ByVal id As Long) As Long

如果要截获全部键盘输入，那就要甬道系统钩子了，我有这方面Delphi的原码，可以于我联系：
[e-mail]