.版本 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
.程序集 窗口程序集_啟動(dòng)窗口
.程序集變量 鉤子句柄, 整數(shù)型
.子程序 __啟動(dòng)窗口_創(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) ' 如果不加這個(gè)判斷，每次都會(huì)投遞2次文本，因?yàn)榘聪潞蛷椘鹚?次
    文本_投遞 (取鼠標(biāo)所在窗口句柄 (), 尾巴內(nèi)容編輯框.內(nèi)容)
  .如果真結(jié)束
  局部 ＝ 局部 ＋ 1
.否則
.如果結(jié)束
返回 (CallNextHookEx (鉤子句柄, icode, wparam, lparam))
.子程序 __啟動(dòng)窗口_將被銷毀
UnHookWindowsHookEx (鉤子句柄)

運(yùn)行結(jié)果：