.版本 2
.DLL命令 SetWindowsHookEx, 整數(shù)型, , "SetWindowsHookExA", , 建立鉤子
  .參數(shù) idHook, 整數(shù)型
  .參數(shù) lpfn, 子程序指針
  .參數(shù) hmod, 整數(shù)型
  .參數(shù) dwThreadId, 整數(shù)型
.DLL命令 CopyMemory, , , "RtlMoveMemory"
  .參數(shù) Destination, 按鍵信息, 傳址
  .參數(shù) Source, 整數(shù)型
  .參數(shù) Length, 整數(shù)型
.DLL命令 CallNextHookEx, 整數(shù)型, , "CallNextHookEx"
  .參數(shù) hhk, 整數(shù)型
  .參數(shù) nCode, 整數(shù)型
  .參數(shù) wParam, 整數(shù)型
  .參數(shù) lParam, 整數(shù)型
.DLL命令 GetModuleHandle, 整數(shù)型, , "GetModuleHandleA"
  .參數(shù) lpModuleName, 整數(shù)型
.DLL命令 UnHookWindowsHookEx, 邏輯型, , "UnhookWindowsHookEx", , 卸載鉤子
  .參數(shù) hhk, 整數(shù)型

自定義數(shù)據(jù)類型表

.版本 2
.數(shù)據(jù)類型 按鍵信息
  .成員 message, 整數(shù)型
  .成員 paramL, 整數(shù)型
  .成員 paramH, 整數(shù)型
  .成員 time, 整數(shù)型
  .成員 hwnd, 整數(shù)型

QQ聊天添加自定義小尾巴

此功能需要加載精易模塊5.6

.版本 2
.支持庫 eAPI
.程序集 窗口程序集_啟動窗口
.程序集變量 鉤子句柄, 整數(shù)型
.子程序 __啟動窗口_創(chuàng)建完畢
.如果真 (鉤子句柄 ＝ 0)
  鉤子句柄 ＝ SetWindowsHookEx (13, &鉤子函數(shù), GetModuleHandle (0), 0)
  .如果真 (鉤子句柄 ＝ 0)
    輸出調(diào)試文本 (“安裝鉤子失??！”)
    返回 ()
  .如果真結(jié)束
.如果真結(jié)束
.子程序 鉤子函數(shù), 整數(shù)型
.參數(shù) icode, 整數(shù)型
.參數(shù) wparam, 整數(shù)型
.參數(shù) lparam, 整數(shù)型
.局部變量 按鍵信息, 按鍵信息
.局部變量 局部, 整數(shù)型, 靜態(tài)
CopyMemory (按鍵信息, lparam, 28)
.如果 (按鍵信息.message ＝ #回車鍵) ' 判斷按下的是否回車鍵。
  .如果真 (局部 ÷ 2 ＝ 局部 ＼ 2) ' 如果不加這個判斷，每次都會投遞2次文本，因為按下和彈起算2次
    文本_投遞 (取鼠標(biāo)所在窗口句柄 (), 尾巴內(nèi)容編輯框.內(nèi)容)
  .如果真結(jié)束
  局部 ＝ 局部 ＋ 1
.否則
.如果結(jié)束
返回 (CallNextHookEx (鉤子句柄, icode, wparam, lparam))
.子程序 __啟動窗口_將被銷毀
UnHookWindowsHookEx (鉤子句柄)

運行結(jié)果：