.版本 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ù)類(lèi)型表

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

QQ聊天添加自定義小尾巴

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

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

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