QQ群成员监控新人进群推送邮件源码

获取成员总数 (qunnum, “1”)
.如果真 (群信息 [qunnum].count ＜ 群信息 [qunnum].count1)
日志.加入文本 (时间 () ＋ “：群成员有新增” ＋ #换行符)
Resnum ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“https://qun.qq.com/cgi-bin/qun_mgr/search_group_members?gc=” ＋ 群信息 [qunnum].gc ＋ “&st=” ＋ 群信息 [qunnum].count ＋ “&end=” ＋ 到文本 (到整数 (群信息 [qunnum].count1) － 1) ＋ “&sort=0&bkn=” ＋ 登录信息.bkn, 1, , 登录信息.cookie)))
' 调试输出 (Resnum)
.判断循环首 (寻找文本 (Resnum, “公益404页面”, , 假) ＞ -1)
随机等待 (10, 20)
Resnum ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“https://qun.qq.com/cgi-bin/qun_mgr/search_group_members?gc=” ＋ 群信息 [qunnum].gc ＋ “&st=” ＋ 群信息 [qunnum].count ＋ “&end=” ＋ 到文本 (到整数 (群信息 [qunnum].count1) － 1) ＋ “&sort=0&bkn=” ＋ 登录信息.bkn, 1, , 登录信息.cookie)))
调试输出 (Resnum)
日志.加入文本 (时间 () ＋ “重新拉取群成员中..” ＋ #换行符)
.判断循环尾 ()
Json.解析 (Resnum)
.如果 (Json.成员数 (“mems”) ＞ 0)
清除数组 (新成员信息)
重定义数组 (新成员信息, 假, Json.成员数 (“mems”))
.否则
日志.加入文本 (时间 () ＋ “：程序出错，提示信息：” ＋ Resnum ＋ #换行符)
程序状态.up ＝ 假
返回 ()
.如果结束
.计次循环首 (Json.成员数 (“mems”), ii)
新成员信息 [ii].nick ＝ Json.取通用属性 (“mems[” ＋ 到文本 (ii － 1) ＋ “].nick”, 真) ' 昵称
新成员信息 [ii].uin ＝ Json.取通用属性 (“mems[” ＋ 到文本 (ii － 1) ＋ “].uin”, 真) ' QQ号
新成员信息 [ii].join_time ＝ Json.取通用属性 (“mems[” ＋ 到文本 (ii － 1) ＋ “].join_time”, 真) ' 入群时间戳

容器 ＝ 超级列表框_新成员.插入表项 (, 到文本 (超级列表框_新成员.取表项数 () ＋ 1), , , , )
超级列表框_新成员.置标题 (容器, 1, 新成员信息 [ii].uin)
超级列表框_新成员.置标题 (容器, 2, 新成员信息 [ii].nick)
超级列表框_新成员.置标题 (容器, 3, 时间_时间戳转文本 (新成员信息 [ii].join_time))
超级列表框_新成员.置标题 (容器, 5, 群信息 [qunnum].gc)
超级列表框_新成员.置标题 (容器, 6, 群信息 [qunnum].gn)
超级列表框_新成员.置标题 (容器, 7, “等待发送”)
超级列表框_新成员.置标题 (容器, 8, “等待发送”)
' 信息框 (新成员信息 [ii].uin ＋ “@qq.com”, 0, , )
开始发送邮件 (新成员信息 [ii].uin ＋ “@qq.com”, 容器)
日志.加入文本 (时间 () ＋ “：昵称：” ＋ 新成员信息 [ii].nick ＋ “|qq号：” ＋ 新成员信息 [ii].uin ＋ “|来自群” ＋ 群信息 [qunnum].gn ＋ “|群号” ＋ 群信息 [qunnum].gc ＋ “|加入时间：” ＋ 时间_时间戳转文本 (新成员信息 [ii].join_time) ＋ “|邮箱已开通” ＋ #换行符)
群信息 [qunnum].count ＝ 群信息 [qunnum].count1
日志.加入文本 (时间 () ＋ “：原人数” ＋ 群信息 [qunnum].count ＋ “|新人数” ＋ 群信息 [qunnum].count1 ＋ #换行符)
.计次循环尾 ()
.如果真结束
.如果真 (群信息 [qunnum].count ＞ 群信息 [qunnum].count1)
群信息 [qunnum].count ＝ 群信息 [qunnum].count1
.如果真结束
.如果真 (群信息 [qunnum].count ＝ 群信息 [qunnum].count1)
日志.加入文本 (时间 () ＋ “：” ＋ 群信息 [qunnum].gn ＋ “|无变化” ＋ #换行符)
' 调试输出 (群信息 [qunnum].gn, “无变化”)
.如果真结束
返回 ()