.版本 2 .支持库 EThread .支持库 edroptarget .支持库 iext .程序集 窗口程序集_启动窗口 .程序集变量 许可证_工作, 整数型 .程序集变量 许可证_退出工作, 整数型 .程序集变量 参数_当前表项, 整数型 .程序集变量 参数_线程数, 整数型 .程序集变量 参数_退出线程数, 整数型 .程序集变量 参数_当前状态, 文本型 .程序集变量 文件数组, 文本型, , "0" .程序集变量 局部_分割, 文本型, , "0" .子程序 _按钮1_被单击 载入 (窗口1, , 真) .子程序 __启动窗口_创建完毕 SetProcessAffinityMask (-1, 1) 许可证_工作 ＝ 创建进入许可证 () 许可证_退出工作 ＝ 创建进入许可证 () 拖放对象1.接收文件 ＝ 真 拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ()) .子程序 _拖放对象1_得到文件 .参数 接收到的文件路径, 文本型 .局部变量 局部_文本, 文本型 参数_当前表项 ＝ 0 ' //初始化 超级列表框1.全部删除 () 局部_文本 ＝ 到文本 (读入文件 (接收到的文件路径)) 局部_分割 ＝ 分割文本 (局部_文本, #换行符, ) 线程_启动 (&导入线程) .子程序 导入线程 .局部变量 局部_循环次数, 整数型 .局部变量 局部_当前表项, 整数型 .局部变量 局部_号码, 文本型 .计次循环首 (取数组成员数 (局部_分割), 局部_循环次数) 局部_号码 ＝ 局部_分割 [局部_循环次数] 局部_当前表项 ＝ 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (局部_当前表项, 0, 到文本 (局部_循环次数)) 超级列表框1.置标题 (局部_当前表项, 1, 局部_号码) 超级列表框1.保证显示 (局部_当前表项) .计次循环尾 () .子程序 _按钮_批量查询_被单击 .如果真 (超级列表框1.取表项数 () ＝ 0) 信息框 (“请先导入QQ号码”, 0, ) 返回 () .如果真结束 .如果真 (参数_当前状态 ≠ “工作”) 参数_当前状态 ＝ “工作” 按钮_批量查询.标题 ＝ “暂停” 启动线程 (&多线程_启动前置, , ) 返回 () .如果真结束 .如果真 (参数_当前状态 ＝ “工作”) 参数_当前状态 ＝ “暂停” 按钮_批量查询.标题 ＝ “开始” 返回 () .如果真结束 .子程序 多线程_启动前置 参数_线程数 ＝ 到整数 (编辑框_多线程.内容) .计次循环首 (参数_线程数, ) 启动线程 (&多线程_工作线程, , ) .计次循环尾 () .子程序 多线程_工作线程 .局部变量 局部_当前表项, 整数型 .局部变量 局部_号码, 文本型 .局部变量 局部_状态, 逻辑型 .局部变量 fanh, 字节集 .局部变量 fanhdasd, 文本型 .局部变量 返回文本, 文本型 .局部变量 成功次数, 整数型 .局部变量 失败次数, 整数型 .局部变量 临时数组, 文本型, , "0" .局部变量 n, 整数型 .判断循环首 (参数_当前状态 ＝ “工作”) 进入许可区 (许可证_工作) 局部_当前表项 ＝ 参数_当前表项 参数_当前表项 ＝ 参数_当前表项 ＋ 1 退出许可区 (许可证_工作) .如果真 (参数_当前表项 ＞ 超级列表框1.取表项数 ()) 跳出循环 () .如果真结束 超级列表框1.置标题 (局部_当前表项, 2, “正在查询”) 局部_号码 ＝ 超级列表框1.取标题 (局部_当前表项, 1) 返回文本 ＝ 网页_访问S (“https://h5.vip.qq.com/p/mc/privilegelist/other?_wvx=2&friend=” ＋ 局部_号码, 0, , 提交CK, , , , ) .如果 (文本_寻找文本 (返回文本, “imgcache.qq.com/club/mobile/privilege/filmv4”, , ) ≠ -1) 超级列表框1.置标题 (局部_当前表项, 2, “成功”) 编辑框1.加入文本 (局部_号码 ＋ #换行符) .否则 超级列表框1.置标题 (局部_当前表项, 2, “失败”) .如果结束 超级列表框1.保证显示 (参数_当前表项) .判断循环尾 () 进入许可区 (许可证_退出工作) 参数_退出线程数 ＝ 参数_退出线程数 ＋ 1 退出许可区 (许可证_退出工作) .如果真 (参数_当前状态 ＝ “暂停”) .如果真 (参数_退出线程数 ≥ 参数_线程数) 按钮_批量查询.标题 ＝ “开始” .如果真结束 返回 () .如果真结束 .如果真 (参数_当前状态 ＝ “停止”) .如果真 (参数_退出线程数 ≥ 参数_线程数) 按钮_停止查询.标题 ＝ “停止” 参数_当前表项 ＝ 0 .如果真结束 返回 () .如果真结束 .如果真 (参数_退出线程数 ≥ 参数_线程数) 参数_当前状态 ＝ “停止” 按钮_批量查询.标题 ＝ “开始” .如果真结束 .子程序 _按钮_停止查询_被单击 .如果真 (参数_当前状态 ＝ “工作”) 参数_当前状态 ＝ “停止” 按钮_批量查询.标题 ＝ “开始” .如果真结束 .子程序 _按钮2_被单击 写到文件 (取运行目录 () ＋ “\成功.txt”, 到字节集 (编辑框1.内容)) 信息框 (“OK”, 0, “OK”, )