请高手贴一个键盘钩子程序的例子。谢谢

Question

我也想要！请发给我一份，我得信箱[email protected]谢谢了！我想将一个设备的驱动注入到IE里面，不知道该怎么做？？然后怎样在IE里面使用该设备！希望高手能给我详细的实现方法，我是刚刚接触这方面的问题希望谁能提供一些这方面的资料给我！谢谢！～～～

Answer 1

我是才来这个论坛的,希望谁能给我一些资料谢谢!~~我得信箱:[email protected]

Answer 2

注释：以下在.Bas
Option ExplicitDeclare Function SetWindowsHookEx Lib "user32" Alias _
"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, _
ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" _
    (ByVal hHook As Long) As Long
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
   ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As LongPublic hnexthookproc As Long
Public Const HC_ACTION = 0
Public Const WH_KEYBOARD = 2Public Sub UnHookKBD()
If hnexthookproc <> 0 Then
   UnhookWindowsHookEx hnexthookproc
   hnexthookproc = 0
End If
End Sub
Public Function EnableKBDHook()
If hnexthookproc <> 0 Then
   Exit Function
End If
hnexthookproc = SetWindowsHookEx(WH_KEYBOARD, AddressOf _
            MyKBHFunc, App.hInstance, 0)
If hnexthookproc <> 0 Then
   EnableKBDHook = hnexthookproc
End If
End Function
Public Function MyKBHFunc(ByVal iCode As Long, _
    ByVal wParam As Long, ByVal lParam As Long) As Long
  '注释：这三个叁数是固定的，不能动，而MyKBHFunc这个名称只要和
  '注释：SetWindowsHookex()中 AddressOf後的名称一样便可，不一定叫什麽
  '注释：wParam 是传入按了哪个key的virtual-key code  '注释：如果您将以下的两行un则所有键盘的输入皆没有作用
  '注释：MyKBHFunc = 1  注释：吃掉讯息
  '注释：Exit Function  MyKBHFunc = 0 '注释：讯息要处理
  If iCode < 0 Then
    MyKBHFunc = CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
    Exit Function
  End If
  If wParam = vbKeyEscape Then  '注释：侦测 有没有按到ESC键
    MyKBHFunc = 1 '注释：在这个Hook便吃掉这个讯息
    Debug.Print "呵呵！"
  Else
    Call CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
  End If
End Function'注释：以下在Form
Private Sub Form_Load()
Call EnableKBDHook
End SubPrivate Sub Form_Unload(Cancel As Integer)
Call UnHookKBD
End Sub

Answer 3

首选谢谢你的回答，但这个例子不能屏蔽WIN键，我注意到App.hInstance这个参数，应该是个程序级的钩子，我要注册系统级的钩子，这里应改成什么？

Answer 4

系统钩子的处理函数必需写在。DLL文件里
我认为MyKBFunc()必需写成。DLL文件！
然后用LoadLibrary()在内存映射一块区域
而SetWindowsHookEx Lib "user32" Alias _
"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, _
ByVal hmod As Long, ByVal dwThreadId As Long)的lpfn参数由GetProcAddress()获得
具体的看一下MSDN就行了

Answer 5

怎样屏蔽WIN键,有谁知道的???