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

DLL命令表

.版本 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, 整数型

QQ聊天添加自定义小尾巴

此功能需要加载精易模块5.6

.版本 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 (钩子句柄)

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对脚本之家的支持。如果你想了解更多相关内容请查看下面相关链接