碰碰运气，看那位大侠能提供这个源码，键盘钩子程序

Question

请各位大哥看看以下这个功能，是不是很容易实现，不知有源码吗？编写一个程序运行后，要求能记录用键盘输入的任何字母、汉字或数字。比如：该程序运行后，你在文本文件或其他地方用键盘输入“a”,则该程序相应的框中就会显示a,键盘输入"138",程序相应的框中马上显示138好像是钩子程序，网上找了半天，大部分源码不能实现我要的功能，请大哥们帮一忙，谢谢！

Answer 1

实时监测Caps Lock、NumLock、Scroll Lock三个按件的状态
'.bas模块中
Public m_hDllKbdHook As Long       'public variable holding
                                   'the handle to the hook procedure
                               
Public Const WH_KEYBOARD_LL As Long = 13 'enables monitoring of keyboard
                                    'input events about to be posted
                                    'in a thread input queue
                                       
Private Const HC_ACTION As Long = 0 'wParam and lParam parameters
                                    'contain information about a
                                    'keyboard messagePublic Const VK_CAPITAL As Long = &H14
Public Const VK_NUMLOCK As Long = &H90
Public Const VK_SCROLL As Long = &H91
Private Const LLKHF_UP As Long = &H80&     'test the transition-state flagPublic Type KeyboardBytes
   kbByte(0 To 255) As Byte
End TypePrivate Type KBDLLHOOKSTRUCT
  vkCode As Long        'a virtual-key code in the range 1 to 254
  scanCode As Long      'hardware scan code for the key
  flags As Long         'specifies the extended-key flag,
                        'event-injected flag, context code,
                        'and transition-state flag
  time As Long          'time stamp for this message
  dwExtraInfo As Long   'extra info associated with the message
End TypePublic Declare Function SetWindowsHookEx Lib "user32" _
   Alias "SetWindowsHookExA" _
  (ByVal idHook As Long, _
   ByVal lpfn As Long, _
   ByVal hmod As Long, _
   ByVal dwThreadId As Long) As Long
   
Public Declare Function UnhookWindowsHookEx Lib "user32" _
  (ByVal hHook As Long) As LongPublic Declare Function CallNextHookEx Lib "user32" _
  (ByVal hHook As Long, _
   ByVal nCode As Long, _
   ByVal wParam As Long, _
   ByVal lParam As Long) As Long
   
Public Declare Sub CopyMemory Lib "kernel32" _
   Alias "RtlMoveMemory" _
  (pDest As Any, _
   pSource As Any, _
   ByVal cb As Long)Public Declare Function GetKeyboardState Lib "user32" _
   (kbArray As KeyboardBytes) As LongPublic Declare Function GetKeyState Lib "user32" _
  (ByVal nVirtKey As Long) As Integer 
Public Function LowLevelKeyboardProc(ByVal nCode As Long, _
                                     ByVal wParam As Long, _
                                     ByVal lParam As Long) As Long   Dim kbdllhs As KBDLLHOOKSTRUCT
  
   If nCode = HC_ACTION Then
   
      Call CopyMemory(kbdllhs, ByVal lParam, Len(kbdllhs))      If (kbdllhs.flags And LLKHF_UP) Then
      
         Select Case kbdllhs.vkCode
         
            Case VK_NUMLOCK
               Form1.Label1.Visible = (GetKeyState(VK_NUMLOCK) = &HFF81)
               
            Case VK_CAPITAL
               Form1.Label2.Visible = (GetKeyState(VK_CAPITAL) = &HFF81)
            
            Case VK_SCROLL
               Form1.Label3.Visible = (GetKeyState(VK_SCROLL) = &HFF81)
               
            Case Else
         End Select
         
      End If
      
   End If  'nCode = HC_ACTION
  
   LowLevelKeyboardProc = CallNextHookEx(m_hDllKbdHook, _
                                         nCode, _
                                         wParam, _
                                         lParam)
  
End FunctionForm1中加入3个标签控件Label1、Label2、Label3
Form1中的代码Private Sub Form_Load()   Dim kbdState As KeyboardBytes   Call GetKeyboardState(kbdState)
   
   With Label1
      .Caption = "Numlock is ON"
      .Alignment = vbRightJustify
   End With
   
   With Label2
      .Caption = "Caps lock is ON"
      .Alignment = vbRightJustify
   End With
   
   With Label3
      .Caption = "Scroll lock is ON"
      .Alignment = vbRightJustify
   End With
         
   Label1.Visible = kbdState.kbByte(VK_NUMLOCK) = 1
   Label2.Visible = kbdState.kbByte(VK_CAPITAL) = 1
   Label3.Visible = kbdState.kbByte(VK_SCROLL) = 1  'set and obtain the handle to the keyboard hook
   m_hDllKbdHook = SetWindowsHookEx(WH_KEYBOARD_LL, _
                                   AddressOf LowLevelKeyboardProc, _
                                   App.hInstance, _
                                   0&)   If m_hDllKbdHook = 0 Then
   
      MsgBox "Failed to install low-level keyboard hook."
   
   End If
  
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)   If m_hDllKbdHook <> 0 Then
      Call UnhookWindowsHookEx(m_hDllKbdHook)
   End If
  
End Sub  

Answer 2

邮件是： [email protected]  谢谢

Answer 3

http://www.google.com/search?hl=en&newwindow=1&rls=com.microsoft%3Aen-US&q=WH_KEYBOARD_LL+vb6&btnG=Search

Answer 4

[email protected]  请发 这里，狂谢大哥们啊

Answer 5

楼上的大哥，邮件收到了，该加的也加了，但不搞不懂什么叫：KeyCode ???
acscii码？

Answer 6

呵呵，keycode和窗体的keydown事件中的keycode含义一样的。
就是按键的键值
keyascii是按键对应的字符的ascii码。VB刚学？？不是吧。刚学就做这个？