不用钩了(hook.dll)只用API函数组合实现热键捕获.

在VB编程中不免要用到热键设定,一般地讲常用的几种方法都能实现这样的功能.但是在有些DX编程游戏中却很难实热键消息获取.经过对几种游戏(比如Announcements)程序测试,采用几个win的api组合使用基本可以实现这样的功能.编程要使用的api函数如下:

FindWindowA

GetWindowThreadProcessId

SetTimer

KillTimer

GetAsyncKeyState

SetWindowPos

其VB声明如下:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long