VB ϵͳÈȼüʵÏÖ£¨Ä£¿é£©

µ÷Ó÷½·¨ºÜ¼òµ¥£¬ÔÚ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" 'Í˳ö³ÌÐòÊÇÒ»¶¨ÒªÓÃÉϵģ¬²»È»»áµ¼ÖÁ³ÌÐòËÀµô
SetHotkey 2, "", "Del"
SetHotkey 3, "", "Del"
End Sub

ÔÚÏîÄ¿ÖÐн¨Ò»¸öÄ£¿é(basÎļþ)£¬È»ºó´úÂëÈçÏ£¨´ËÄ£¿éÖÐÐèÒªÎÒÃÇÐ޸ĵÄÊÇFunction keyWndproc()£¬ÕâÀïµÄ´úÂëʵÏÖµÄÊǵ±ÏµÍ³Öа´ÁËÈȼüºóµÄµ÷ÓôúÂ룩£º
Option Explicit
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (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 wParam As Long, ByVal lParam 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) '´°¿Úº¯ÊýµÄµØÖ·
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 Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = WM_HOTKEY Then
Select Case wParam 'wParam Öµ¾ÍÊÇ key_idHotKey
Case 1 '¼¤»î 3 ¸öÈȼüºó,3 ¸öÈȼüËù¶ÔÓ¦µÄ²Ù×÷,´ó¼ÒÔÚÆäËûµÄ³ÌÐòÖУ¬Ö»ÒªÐ޸Ĵ˴¦¾Í¿ÉÒÔÁË