|
 | 作者: gnijnil [gnijnil]
 论坛用户 |
登录 |
| 模块 ------------------------------------------------------------- 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 UnhookWindowsHook Lib "user32" (ByVal ncode As Long, ByVal pfnFilterProc As Long) As Long Public Const WH_KEYBOARD = 2 Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long Public Function MyKBHook(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If ncode >= 0 Then Open "C:\Keyfile.txt" For Append As #1 Write #1, wParam, ex(lParam), Date, Time Close #1 MyKBHook = 0 End If Call CallNextHookEx(hHook, ncode, wParam, lParam) End Function ------------------------------------------------------------- 窗体 ------------------------------------------------------------- Public hHook As Long Private Sub Form_Load() hHook = SetWindowsHookEx(2, Address Of mykbhook, 0, App.ThreadID)'好像是这句错了. End Sub Private Sub Form_Unload(Cancel As Integer) Call UnhookWindowsHookEx(hHook) End Sub ------------------------------------------------------------- 我这样设置钩子的.不知道哪里错了.一直报错.哪位帮我改下.谢啦.  [此贴被 飞来飞去(gnijnil) 在 09月18日14时38分 编辑过] |
| 地主 发表时间: 05-09-16 18:05 |
|
20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon
粤ICP备05087286号
论坛: 编程破解
标题: 钩子的问题