.版本 2

.支持库 spec

.子程序 功能_心跳

.局部变量 心跳返回, 文本型

.局部变量 QQUIN, 文本型

.局部变量 QQ号, 文本型

.判断循环首 (心跳 ＝ 假)

心跳返回 ＝ 到文本 (网页_访问 (“http://d.web2.qq.com/channel/poll2”, 1, “r=%7B%22clientid%22%3A%22” ＋ QQ在线数据.clientid ＋ “%22%2C%22psessionid%22%3A%22” ＋ QQ在线数据.psessionid ＋ “%22%2C%22key%22%3A0%2C%22ids%22%3A%5B%5D%7D&clientid=” ＋ QQ在线数据.clientid ＋ “&psessionid=” ＋ QQ在线数据.psessionid, Cookies, , , , , , ))

调试输出 (心跳返回)

.判断开始 (寻找文本 (心跳返回, #引号 ＋ “message”, , 假) ≠ -1)

' 收到好友信息

.如果真 (窗口_系统设置.选择框_好友自动管理.选中 ＝ 真)

功能_自动处理好友信息 (心跳返回)

.如果真结束

.判断 (寻找文本 (心跳返回, “group_message”, , 假) ≠ -1)

' 收到普通群消息

.如果真 (窗口_系统设置.选择框_群自动管理.选中 ＝ 真)

功能_处理群消息 (心跳返回)

.如果真结束

.判断 (寻找文本 (心跳返回, “system_message”, , 假) ≠ -1)

.如果真 (寻找文本 (心跳返回, “account”, , 假) ＝ -1)

返回 ()

.如果真结束

.如果真 (窗口_系统设置.选择框_好友请求处理.选中 ＝ 真)

' 开始自动处理请求

QQUIN ＝ 文本_取出中间文本 (心跳返回, “from_uin” ＋ #引号 ＋ “:”, “,” ＋ #引号 ＋ “account”)

QQ号 ＝ 文本_取出中间文本 (心跳返回, “account” ＋ #引号 ＋ “:”, “,” ＋ #引号 ＋ “msg” ＋ #引号)

.判断开始 (窗口_系统设置.单选框_同意添加我.选中 ＝ 真)

功能_自动处理好友请求 (1, QQ号, QQUIN)

.判断 (窗口_系统设置.单选框_拒绝添加.选中 ＝ 真)

功能_自动处理好友请求 (2, QQ号, QQUIN)

.判断 (窗口_系统设置.单选框_同意双向.选中 ＝ 真)

功能_自动处理好友请求 (3, QQ号, QQUIN)

.默认

.判断结束

.如果真结束

.判断 (寻找文本 (心跳返回, “\u60A8\u7684\u5E10\u53F7\u5728\u53E6\u4E00\u5730\u70B9\u767B\u5F55\uFF0C\u60A8\u5DF2\u88AB\u8FEB\u4E0B\u7EBF\u3002\u5982\u6709\u7591\u95EE\uFF0C\u8BF7\u767B\u5F55”, , 假) ≠ -1)

信息框 (“您的帐号在另一地点登录，您已被迫下线。”, #信息图标, “系统提示”)

功能_注销登录 ()

.默认

.判断结束

.判断循环尾 ()

.版本 2

.支持库 spec

.支持库 iext

.子程序 功能_处理群消息

.参数 返回群心跳数据, 文本型

.局部变量 群UIN, 文本型

.局部变量 N, 整数型

.局部变量 群号码, 文本型

.局部变量 收到内容, 文本型

.局部变量 欲发送的内容, 文本型

调试输出 (返回群心跳数据)

群UIN ＝ 文本_取出中间文本 (返回群心跳数据, “from_uin” ＋ #引号 ＋ “:”, “,” ＋ #引号 ＋ “to_uin”)

.计次循环首 (取数组成员数 (群信息数组), N)

.如果真 (群UIN ＝ 群信息数组 [N].code)

群号码 ＝ 群信息数组 [N].号码

.如果真结束

.计次循环尾 ()

.如果真 (窗口_系统设置.选择框_群屏蔽.选中 ＝ 真)

.计次循环首 (窗口_系统设置.超级列表框_群屏蔽列表.取表项数 (), N)

.如果真 (群号码 ＝ 窗口_系统设置.超级列表框_群屏蔽列表.取标题 (N － 1, 1))

返回 ()

.如果真结束

.计次循环尾 ()

调试输出 (群号码)

.如果真结束

收到内容 ＝ 文本_取出中间文本 (返回群心跳数据, “}],” ＋ #引号, #引号 ＋ “]}}]}”)

收到内容 ＝ 删首尾空 (编码_usc2到ansi (收到内容))

调试输出 (收到内容)

.如果真 (取文本左边 (收到内容, 1) ＝ “#”)

收到内容 ＝ 文本_取右边 (收到内容, “#”, 1, )

置当前库 (取运行目录 () ＋ “\data\message.edb”)

到首记录 ()

.如果真 (查找 (收到内容 ＝ 读 (1)))

欲发送的内容 ＝ 读 (2)

网页_访问 (“http://d.web2.qq.com/channel/send_qun_msg2”, 1, “r=%7B%22group_uin%22%3A” ＋ 群UIN ＋ “%2C%22content%22%3A%22%5B%5C%22” ＋ 编码_gb2312到utf8 (欲发送的内容) ＋ “%5C%22%2C%5C%22%5C%22%2C%5B%5C%22font%5C%22%2C%7B%5C%22name%5C%22%3A%5C%22%5C%5Cu5b8b%5C%5Cu4f53%5C%22%2C%5C%22size%5C%22%3A%5C%2210%5C%22%2C%5C%22style%5C%22%3A%5B0%2C0%2C0%5D%2C%5C%22color%5C%22%3A%5C%22000000%5C%22%7D%5D%5D%22%2C%22msg_id%22%3A” ＋ 到文本 (QQ在线数据.msg_id ＋ 1) ＋ “%2C%22clientid%22%3A%22” ＋ QQ在线数据.clientid ＋ “%22%2C%22psessionid%22%3A%22” ＋ QQ在线数据.psessionid ＋ “%22%7D”, Cookies)

返回 ()