多线程查询QQ是否开通腾讯视频会员

.版本 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”, )

@15364025091