碰碰运气，看那位大侠能提供这个源码，键盘钩子程序
请各位大哥看看以下这个功能，是不是很容易实现，不知有源码吗？
编写一个程序运行后，要求能记录用键盘输入的任何字母、汉字或数字。比如：该程序运行后，你在文本文件或其他地方用键盘输入“a”,则该程序相应的框中就会显示a,键盘输入 "138 ",程序相应的框中马上显示138
好像是钩子程序，网上找了半天，大部分源码不能实现我要的功能，请大哥们帮一忙，谢谢！
[解决办法]
实时监测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 message
Public 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 flag
Public Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type
Private 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 Type
Public 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 Long
Public 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 Long
Public 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 Function
Form1中加入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
[解决办法]
http://www.google.com/search?hl=en&newwindow=1&rls=com.microsoft%3Aen-US&q=WH_KEYBOARD_LL+vb6&btnG=Search
[解决办法]
已经给你发了，请注意查收。
共同学习。毋忘加分。