QQ快捷自动回复助手源码支持批量

功能介绍：
1·只有文本发送
2·支持批量（PL）发送
3·支持添加 、删除，但是不支持保存再次操作！！！没有写保存功能 我才不会傻傻的把时间浪费在这个小东西上面 ~~~ 嗯嗯嗯~~~不能写这个^&……

写的全是子程序方式~~~~ 可以快速移植到别的地方开发 而且 后期 增加、维护 更方便。

.子程序 _时钟1_周期事件
.局部变量 hwnd, 整数型

获取QQ句柄 ()
.如果真 (批量发送 ＝ 假) ' 不然老是在批量里面跑来跑去
hwnd ＝ GetForegroundWindow ()
.如果真结束
' GetActiveWindow () ' 这玩意儿 适合自身使用提取句柄
调试输出 (hwnd, 取窗口标题 (hwnd))
.计次循环首 (取数组成员数 (hwnd_Q), 计次)
.如果真 (hwnd ＝ hwnd_Q [计次].hwnd)
HWND_zx ＝ hwnd
左边 ＝ hwnd_Q [计次].RECT.右边 － 5
顶边 ＝ hwnd_Q [计次].RECT.顶边 ＋ 5
' 跳出循环 ()
.如果真结束
处理事件 ()
.计次循环尾 ()

.子程序 获取QQ句柄
.局部变量 临时, QQ

hwnd_总 ＝ 取所有窗口列表 ()
重定义数组 (hwnd_Q, 假, 0)
.计次循环首 (取数组成员数 (hwnd_总), 计次)
.如果真 (取窗口类名 (到整数 (hwnd_总 [计次])) ＝ “TXGuiFoundation” 且 取窗口标题 (到整数 (hwnd_总 [计次])) ≠ “QQ” 且 取窗口标题 (到整数 (hwnd_总 [计次])) ≠ “ ”)
临时.hwnd ＝ 到整数 (hwnd_总 [计次])
GetWindowRect (到整数 (hwnd_总 [计次]), 临时.RECT)
加入成员 (hwnd_Q, 临时)
.如果真结束
处理事件 ()
.计次循环尾 ()

.子程序 _超级列表框_内容_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果真 (超级列表框_内容.现行选中项 ≠ -1) ' 不然发送空消息
Q发送消息 (批量发送, 超级列表框_内容.取标题 (超级列表框_内容.现行选中项, 1))
.如果真结束


.子程序 Q发送消息
.参数 是否批量发送, 逻辑型, 可空
.参数 发送的文本, 文本型

.判断开始 (是否批量发送 ＝ 假)
触发消息机制 (HWND_zx, 发送的文本)
.默认
.计次循环首 (取数组成员数 (hwnd_Q), 计次)
触发消息机制 (hwnd_Q [计次].hwnd, 发送的文本)
处理事件 ()
.计次循环尾 ()
.判断结束


.子程序 触发消息机制, , , 可以单独运用
.参数 hwnd
.参数 文本, 文本型

SetForegroundWindow (hwnd)
置剪辑板文本 (文本)
延迟 (5)
SendMessageA (hwnd, 770, 0, 0)
延迟 (5)
模拟按键 (#Ctrl键, #回车键, ) ' 存在 用回车的 自己改正一下 按键 ctrl +enter