易语言制作QQ聊天添加自定义小尾巴工具

.版本 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
.程序集 窗口程序集_启动窗口
.程序集变量 钩子句柄, 整数型
.子程序 __启动窗口_创建完毕
.如果真 (钩子句柄 ＝ 0)
  钩子句柄 ＝ SetWindowsHookEx (13, &钩子函数, GetModuleHandle (0), 0)
  .如果真 (钩子句柄 ＝ 0)
    输出调试文本 (“安装钩子失败！”)
    返回 ()
  .如果真结束
.如果真结束
.子程序 钩子函数, 整数型
.参数 icode, 整数型
.参数 wparam, 整数型
.参数 lparam, 整数型
.局部变量 按键信息, 按键信息
.局部变量 局部, 整数型, 静态
CopyMemory (按键信息, lparam, 28)
.如果 (按键信息.message ＝ #回车键) ' 判断按下的是否回车键。
  .如果真 (局部 ÷ 2 ＝ 局部 ＼ 2) ' 如果不加这个判断，每次都会投递2次文本，因为按下和弹起算2次
    文本_投递 (取鼠标所在窗口句柄 (), 尾巴内容编辑框.内容)
  .如果真结束
  局部 ＝ 局部 ＋ 1
.否则
.如果结束
返回 (CallNextHookEx (钩子句柄, icode, wparam, lparam))
.子程序 __启动窗口_将被销毁
UnHookWindowsHookEx (钩子句柄)