免加密登录的QQ群成员提取软件

易语言 2020-07-11 17:41:53

免加密登录的QQ群成员提取软件

所以是不影响多线程的,有个别朋友反映IE11会强制共享Cookies,我实测并未发现这个问题,测试环境为win7 64 +IE11 都是原盘系统非第三方ghost,希望有更多朋友参与测试。

连续赋值 (真, 按钮_刷新列表.禁止, 按钮_导出号码.禁止, 按钮_登录.禁止)
按钮_导出号码.标记 = 按钮_导出号码.标题
按钮_导出号码.标题 = “正在获取群成员......”
线程池.创建 (到整数 (编辑框_线程数量.内容))
.计次循环首 (超级列表框_群信息.取表项数 (), 计次)
.如果真 (超级列表框_群信息.取当前状态图片 (计次 - 1) = 1)
线程池.投递任务 (&线程_获取群成员, 到整数 (超级列表框_群信息.取标题 (计次 - 1, 2)), )
.如果真结束

.计次循环尾 ()
线程池.等待 ()
程序_延时 (1000)
线程池.销毁 ()
集_最后结果 = 文本_去重复文本 (集_最后结果, #换行符)
连续赋值 (假, 按钮_刷新列表.禁止, 按钮_导出号码.禁止, 按钮_登录.禁止)
按钮_导出号码.标题 = 按钮_导出号码.标记
通用对话框_文件.类型 = 1
.如果真 (通用对话框_文件.打开 ())
写到文件 (通用对话框_文件.文件名, 到字节集 (集_最后结果))