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

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

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