VBÓüüÅÌÈ«¾ÖHOOKµÄÎÊÌâ - VB / API

Public Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  Dim blnHook As Boolean
  Dim p As KBDLLHOOKSTRUCT
  Dim IsbKeyUp As Boolean
  Dim AltKey As Boolean


  Call CopyMemory(p, ByVal lParam, Len(p))

  AltKey = ((GetKeyState(18) And &H4000) = &H4000) ''''''''''ALT¼ü
   
  If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Then
  IsbKeyUp = False
  ElseIf wParam = WM_KEYUP Or wParam = WM_SYSKEYUP Then
  IsbKeyUp = True
  End If

  If AltKey And main.AltChk.Value Then

  Debug.Print "1" & AltKey
  If p.vkCode = vbKeyQ Then Call keybd_event(103, 0, IIf(IsbKeyUp, 2, 0), 0): blnHook = True
  End If

  If blnHook Then
  LowLevelKeyboardProc = 1
  Else
  Call CallNextHookEx(WH_KEYBOARD_LL, nCode, wParam, lParam)
  End If

End Function


ÕâÊÇÎÒÀ¹½Ø¼üÅÌ°´¼üµÄº¯Êý¡£
ÎÒҪʵÏÖ¡°½«°´ALT+Q¸Ä³É°´Ð¡¼üÅÌ7¡±

ÕâÑùΪʲô²»ÐÐÄØ£¿ÎÒdebug.print·¢ÏÖÊǸĹýµÄ£¬µ«ÊÇÔÚÆäËüµØ·½°´ALT+QÈ´´ò²»³ö7£¬Çó¸ßÊÖ½â´ð

---

http://download.csdn.net/source/1899084

---

¼üÅÌHOOKÎһᡣ¡£ÏñÄÇÑùµÄ°Ñy¸Ä³ÉnÎÒҲûÎÊÌâ¡£Ö»ÊÇÎҵijÌÐ