QQ群批量提取系统无需小号

编辑框1.加入文本 (“正在取第” ＋ 到文本 (x) ＋ “页数据” ＋ #换行符)
进度条1.位置 ＝ 进度条1.位置 ＋ 1
清除数组 (群信息数组)
文本_取中间_批量 (返回文本, #群信息1, #群信息2, 群信息数组)
.计次循环首 (取数组成员数 (群信息数组), z)
人数 ＝ 到整数 (文本_取出中间文本 (群信息数组 [z], #现有人数1, #现有人数2))
不需要小号不需要验证码，直接获取人数最多的，多关键字 多线程获取，很好的一个QQ类例程哦，用的精易模块和小磊的超级网页访问模块皮肤模块请自行更改。
群号码 ＝ 文本_取出中间文本 (群信息数组 [z], #号码1, #号码2)
群主QQ ＝ 文本_取出中间文本 (群信息数组 [z], #群主1, #群主2)
群名片 ＝ 文本_取出中间文本 (群信息数组 [z], #名片1, #名片2)
群名片 ＝ 子文本替换 (群名片, #引号, “”, , , 真)
城市 ＝ 文本_取出中间文本 (群信息数组 [z], #城市1, #城市2)
城市 ＝ 子文本替换 (城市, #引号 ＋ “,” ＋ #引号, “---”, 0, 2, 假)
昵称 ＝ 文本_取出中间文本 (群信息数组 [z], #昵称1, #昵称2)
.如果真 (寻找文本 (编辑框_屏蔽.内容, 群号码, , 假) ＝ -1)
.判断开始 (最少人数 ≤ 人数)
q ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (q, 0, 到文本 (超级列表框1.取表项数 ()))
超级列表框1.置标题 (q, 1, 昵称)
超级列表框1.置标题 (q, 2, 群号码)
超级列表框1.置标题 (q, 3, 群主QQ)
超级列表框1.置标题 (q, 4, 群名片)
超级列表框1.置标题 (q, 5, 城市)
超级列表框1.置标题 (q, 6, 到文本 (人数))
.判断开始 (继续采集 ＝ 真)
信息框 (“总共获取：” ＋ 到文本 (超级列表框1.取表项数 ()) ＋ “条相关群数据。”, 0, )

编辑框_账号.内容 ＝ 读配置项 (取运行目录 () ＋ “\Config.ini”, “Config”, “ZH”, )
写配置项 (取运行目录 () ＋ “\Config.ini”, “Config”, “vs”, #版本号)
.判断开始 (信息框 (“软件已免费，请支持作者一下？”, #信息图标 ＋ #确认取消钮, “3Q”) ＝ #确认钮)