调用方法很简单，在Form中如下书写代码：
Private Sub Form_Load() SetHotkey 1,"Ctrl,112","Add" '按 Ctrl+F1 激活指定程序，F1的Ascii码为112 SetHotkey 2,113,"Add" '按 F2 激活指定程序，F2的Ascii码为113 SetHotkey 3,"Ctrl+Alt,113","Add" '按 Ctrl+Alt+F2 激活指定程序，F2的Ascii码为113 End Sub Private Sub Form_Unload(Cancel As Integer) SetHotkey 1,"","Del" '<a href="https://www.jb51.cc/tag/tuichu/" target="_blank" class="keywords">退出</a>程序是一定要用上的，不然会导至程序死掉 SetHotkey 2,"Del" SetHotkey 3,"Del" End Sub
在项目中新建一个模块(bas文件)，然后代码如下（此模块中需要我们修改的是Function keyWndproc()，这里的代码实现的是当系统中按了热键后的调用代码）：
Option Explicit Private Declare Function Se<a href="https://www.jb51.cc/tag/twind/" target="_blank" class="keywords">twind</a>owLong Lib "user32" Alias "Se<a href="https://www.jb51.cc/tag/twind/" target="_blank" class="keywords">twind</a>owLongA" (ByVal hwnd As Long,ByVal nIndex As Long,ByVal dwNewLong As Long) As Long Private Declare Function <a href="https://www.jb51.cc/tag/getwindowlong/" target="_blank" class="keywords">getwindowlong</a> Lib "user32" Alias "<a href="https://www.jb51.cc/tag/getwindowlong/" target="_blank" class="keywords">getwindowlong</a>A" (ByVal hwnd As Long,ByVal nIndex As Long) As Long Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long,ByVal hwnd As Long,ByVal Msg As Long,ByVal wP<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m As Long,ByVal lP<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m As Long) As Long Private Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long,ByVal id As Long,ByVal fskey_Modifiers As Long,ByVal vk As Long) As Long Private Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As Long,ByVal id As Long) As Long Const WM_HOTKEY = &H312 Const MOD_ALT = &H1 Const MOD_CONTROL = &H2 Const MOD_SHIFT = &H4 Const GWL_WNDPROC = (-4) '窗口<a href="https://www.jb51.cc/tag/hanshu/" target="_blank" class="keywords">函数</a>的地址 Dim key_preWinProc As Long '用来保存窗口信息 Dim key_Modifiers As Long,key_uVirtKey As Long,key_idHotKey As Long Dim key_IsWinAddress As Boolean '是否取得窗口信息的判断 Function keyWndproc(ByVal hwnd As Long,ByVal lP<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m As Long) As Long If Msg = WM_HOTKEY Then Select Case wP<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m 'wP<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m 值就是 key_idHotKey Case 1 '激活 3 个热键后,3 个热键所对应的操作,大家在其他的程序中，只要<a href="https://www.jb51.cc/tag/xiugai/" target="_blank" class="keywords">修改</a>此处就可以了 Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> "aa" Case 2 Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> "bb" Case 3 Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> "cc" End Select End If '将消息传送给指定的窗口 keyWndproc = CallWindowProc(key_preWinProc,hwnd,Msg,wP<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m,lP<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m) End Function Function SetHotkey(ByVal KeyId As Long,ByVal KeyAss0 As String,ByVal Action As String) Dim KeyAss1 As Long Dim KeyAss2 As String Dim i As Long i = InStr(1,KeyAss0,",") If i = 0 Then KeyAss1 = Val(KeyAss0) KeyAss2 = "" Else KeyAss1 = Right(KeyAss0,Len(KeyAss0) - i) KeyAss2 = Left(KeyAss0,i - 1) End If key_idHotKey = 0 key_Modifiers = 0 key_uVirtKey = 0 If key_IsWinAddress = False Then '判断是否需要取得窗口信息，如果重复取得,再最后恢复窗口时，将会造成程序死掉 '记录原来的window程序地址 key_preWinProc = <a href="https://www.jb51.cc/tag/getwindowlong/" target="_blank" class="keywords">getwindowlong</a>(Form1.hwnd,GWL_WNDPROC) '用<a href="https://www.jb51.cc/tag/zidingyi/" target="_blank" class="keywords">自定义</a>程序代替原来的window程序 Se<a href="https://www.jb51.cc/tag/twind/" target="_blank" class="keywords">twind</a>owLong Form1.hwnd,GWL_WNDPROC,AddressOf keyWndproc End If key_idHotKey = KeyId Select Case Action Case "Add" If KeyAss2 = "Ctrl" Then key_Modifiers = MOD_CONTROL If KeyAss2 = "Alt" Then key_Modifiers = MOD_ALT If KeyAss2 = "Shift" Then key_Modifiers = MOD_SHIFT If KeyAss2 = "Ctrl+Alt" Then key_Modifiers = MOD_CONTROL + MOD_ALT If KeyAss2 = "Ctrl+Shift" Then key_Modifiers = MOD_CONTROL + MOD_SHIFT If KeyAss2 = "Ctrl+Alt+Shift" Then key_Modifiers = MOD_CONTROL + MOD_ALT + MOD_SHIFT If KeyAss2 = "Shift+Alt" Then key_Modifiers = MOD_SHIFT + MOD_ALT key_uVirtKey = Val(KeyAss1) RegisterHotKey Form1.hwnd,key_idHotKey,key_Modifiers,key_uVirtKey '向窗口<a href="https://www.jb51.cc/tag/zhuce/" target="_blank" class="keywords">注册</a>系统热键 key_IsWinAddress = True '不需要再取得窗口信息 Case "Del" Se<a href="https://www.jb51.cc/tag/twind/" target="_blank" class="keywords">twind</a>owLong Form1.hwnd,key_preWinProc '恢复窗口信息 UnregisterHotKey Form1.hwnd,key_uVirtKey '取消系统热键 key_IsWinAddress = False '可以再次取得窗口信息 End Select End Function
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/jyh_jack/archive/2008/05/13/2440471.aspx
