西游记中的唐僧:VB的热键技巧的终结篇(转)

(2011-06-28 16:43:44)转载
标签：杂谈
VB的热键技巧的终结篇
2009-11-01 12:54
VB的热键技巧的终结篇
一、问题的提出
从 DOS 时代开始写程序的朋友，对于热键的功能应该不陌生，在 DOS 时代我们往往会撰写系统常驻程序借进行热键盘的操作，随时检测用户的按键盘情况，然后根据所按的按键盘决定执行的程序。
现在到了   Windows 的时代，键盘的中断已经交由 Windows 统一管理，因此程序无法再拦载"键盘的中断"，那么在 Windows 中如何实现热键盘的操作呢？
二、问题的解决
方法（1）：通过 API 函数 GetAsyncKeyState（判断函数调用时指定虚拟键的状态）、和 Timer（时间控件），来实现热键的操作
例子：用热键 F2 调用 MsgBox。（具体的例子请查看 软件报 2000 年 第38 期的文章<<利用热键操作实现一键通>>）
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = 1    注释：设置检测间隔时间
End Sub
Private Sub Timer1_Timer()
If MyHotKey(vbKeyF2) Then MsgBox "热键调用成功！！", vbOKOnly
End Sub
小结：用这个方法只需要调用一个 API 函数，比较简单，但是由于使用的是 Timer 控件来实现按键的监视，如果监视间隔时间过短，就会造成系统资源的浪费；如果间隔时间过长，按键就可能漏掉。
方法（2）：通过 API 函数 RegisterHotKey（向系统注册相应的热键）、WndProc（消息处理）等等，来实现热键的操作。
例子：由于代码太多，请大家查看 软件报 2000 年 第 48 期的文章<<再谈热键编程>>
小结：这种方法需要调用调用 6 个以上的 API 函数，需要定义多个常数（操作一个热键就要定义一个常数），对于一般的编程爱好者来说，过于复杂，不好掌握。
方法（3）：通过调用 VC 编写的 DLL 文件。
由于 Windows 规定用以拦截全系统键盘消息的 HookProc Callback 函数必须放在 DLL 文件里面，但 VB 无法制作   DLL 文件（注：VB 可以用来制作   ActiveX DLL 文件，但 ActiveX DLL 与单纯的 DLL 不尽相同）。
我们这里调用王国荣先生用 VC 编写的 KeybHook.dll 文件（注：现在许多的有关热键操作的软件都是调用的这个 dll 文件，大家如果需要可到www.vbgood.com 去下载）。
例子：按键追踪程序（可以检测你按下的所有的键值）
界面如图1所示，装载 1 个 ListBox 控件，属性值为默认。
Fomr1.frm 文件代码：
Option Explicit
Private Sub Form_Load()
On Error Resume Next
注释：挂上 KeyboardHook_HookProc 函数
SetKeyboardHook Me.hWnd, WM_USER
If Err.Number <> 0 Then
MsgBox "请先将 KeybHook.dll 复制到 Windows 的所在路径!", vbCritical
End
End If
On Error GoTo 0
注释：挂上窗口程序
prevWndProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf WndProc
End Sub
Private Sub Form_Unload(Cancel As Integer)
注释：卸下 KeyboardHook_HookProc 函数
ReleaseKeyboardHook
注释：卸下窗口程序
SetWindowLong Me.hWnd, GWL_WNDPROC, prevWndProc
End Sub
Module1.bas 文件代码：
Option Explicit
Public Const GWL_WNDPROC = (-4)
Public Const WM_USER = &H400
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function SetKeyboardHook Lib "KeybHook" (ByVal hwndPost As Long, ByVal Msg As Long) As Long
Declare Function ReleaseKeyboardHook Lib "KeybHook" () As Long
Public prevWndProc As Long
Dim IsCtrlDown As Boolean
Function WndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = WM_USER Then
Form1.List1.AddItem "wParam=" & wParam & ", lParam=" & Hex(lParam)
Form1.List1.ListIndex = Form1.List1.NewIndex
If wParam = 65 And (lParam And &H80000000) <> 0 Then MsgBox "热键调用成功！！", vbOKOnly
注释：判断按键情况，对于你所按的按键的键值可通过本程序查看到
If wParam = 66 And (lParam And &H80000000) <> 0 And IsCtrlDown Then MsgBox   "组合热键调用成功！！", vbOKOnly, "组合键情况"
注释：判断按键情况(组合键情况)
End If
WndProc = CallWindowProc(prevWndProc, hWnd, Msg, wParam, lParam)
End Function
小结：用这种方法，就我而言感觉是最好的，可以很方便的检测按键，不需要事先用常量定义，不需要时间控件，也可方便的定义组合键。
以上程序在 VB6.0、Windows 98 编译通过，大家可根据自己的需要（自我的感觉），决定使用哪种方法，如果大家还有什么问题可到www.ruanxue.com（对编辑的话：一个 VB 论坛，我总在面）来讨论。