怎样使用钩子函数.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

在 Win32 API中 有 详 细 的 关 于 钩 子 函 数 的 介 绍 ， 如 果 你 没 有 Win32 API。 
    Windows的 钩 子 函 数 分 两 种 ， 一 种 是 全 局 的 ， 一 种 是 线 程 的 。 全 局 的 钩 子 函 数 可 以 捕 获 任 何 应 用 程 序 的 消 息 ， 但 必 须 是 标 准 的 DLL才 能 实 现 ， VB做 不 了 。 VB可 以 实 现 线 程 的 ， 就 是 当 前 应 用 程 序 的 消 息 ， 这 对 鼠 标 消 息 的 捕 捉 有 影 响 。 
    SetWindowsHookEx定 义 如 下 ： 
    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 
    idHook是 钩 子 类 型 ， 如 WH_KEYBOARD捕 捉 键 盘 消 息 ， 而 WH_MOUSE捕 捉 鼠 标 消 息 。 hmod用 于 全 局 钩 子 ， VB要 实 现 钩 子 ， 必 须 设 为 0。 dwThreadId用 于 线 程 钩 子 VB中 可 以 设 置 为 App.ThreadID。 lpfn为 钩 子 函 数 ， 在 VB中 可 以 使 用 AddressOf获 得 钩 子 函 数 的 地 址 。 这 个 函 数 因 为 钩 子 类 型 不 同 而 有 所 不 同 。 如 键 盘 钩 子 为 ： 
    Public Function KeyboardProc(ByVal nCode As Long, _ 
     ByVal wParam As Long, _ 
     ByVal lParam As Long) As Long 
    如 果 Code不 为 0， 钩 子 函 数 必 须 调 用 CallNextHookEx， 将 消 息 传 递 给 下 面 的 钩 子 。 wParam和 lParam不 是 按 键 。 
<END>