多线程更换接口 - 精易论坛

子程序名	返回值类型	公开	备注
更换域名

进入许可区 (许可证)
调试输出 (“准备换接口”)
原子_递增 (更换次数)
原子_递增 (全局_域名)

如果真 (全局_域名＝ 4 且线程池.等待任务动态 (, ) ＝真)

状态条1.置文本 (2, “接口拉黑，休息30分钟”)

线程池.暂停 ()

_延迟 (2100000)

线程池.继续 ()

全局_域名＝ 1
状态条1.置文本 (1, “更换接口” ＋到文本 (全局_域名) ＋ “，更换次数：” ＋到文本 (更换次数))
退出许可区 (许可证)

子程序名	返回值类型	公开	备注
主线程

变量名	类型	静态	数组	备注
总任务数	整数型
并发线程	整数型
当前任务数	整数型
n	整数型
空闲数	整数型
b	整数型
bool	逻辑型

如果真 (编辑框_线程.内容＝ “”)

信息框 (“请输入并发线程数”, 64, , )

返回 ()
按钮_开始.禁止＝真
总任务数＝帐号总数
并发线程＝到整数 (编辑框_线程.内容)
当前任务数＝总任务数

如果真 (取反 (线程池.创建 (并发线程, 并发线程, )))

信息框 (“线程池创建失败!”, 64, , )

返回 ()
关闭线程句柄 (线程句柄)

判断循环首 (n ＜总任务数)

空闲数＝线程池.取_空闲线程数 ()

如果真 (空闲数＞ 0)

当前任务数＝总任务数－ n

如果真 (当前任务数＞空闲数)

当前任务数＝空闲数

计次循环首 (当前任务数, )

n ＝ n ＋ 1

线程池.投递任务 (&子线程, n, )

计次循环尾 ()

线程池.等待任务动态 ()

判断循环尾 ()

判断循环首 (线程池.取_是否空闲 () ＝假)

如果真 (线程池.取_状态 () ≠ #线程池_正在工作 )

跳出循环 ()

线程池.等待任务动态 (100)

判断循环尾 ()
线程池.销毁 (, , )
按钮_开始.禁止＝假

子程序名	返回值类型	公开	备注
子线程
参数名	类型	参考	可空	数组	备注
n	整数型

变量名	类型	静态	数组	备注
索引	整数型
状态码	文本型
str	文本型
是否读完	逻辑型
mz	文本型
ip	文本型
arr	文本型		0
msg	文本型
fhck	文本型
bool	逻辑型

获取账号 (str)

如果真 (str ≠ “”)

msg ＝三无 (str)
返回 ()

子程序名	返回值类型	公开	备注
三无	文本型
参数名	类型	参考	可空	数组	备注
ret

判断 (全局_域名＝ 1)

path ＝ “a.com”

判断 (全局_域名＝ 2)

path ＝ “b.com”

判断 (全局_域名＝ 3)

path ＝ “c.com”

url ＝ “https://” ＋ path ＋ “/“+RET
' url ＝ “https://ui.ptlogin2.qq.com/ssl/check?pt_tea=2&uin=” ＋ Uin ＋ “&appid=1600001573&ptlang=2052®master=&pt_uistyle=9&o1vId=57368ac65e44ed800c2e9511cf1bf19f&daid=761&pt_3rd_aid=0&r=0.16041305934739503&pt_js_version=530c3f68”
ret ＝到文本 (网页_访问_对象 (url, , , , , , , , , , ips, 2, , , , , , , ))

如果真 (寻找文本 (ret, “501page”, , 假) ≠ -1)

更换域名 ()

返回 (“接口拉黑”)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br />
.支持库 EThread<br />
.支持库 spec<br />
.支持库 iext<br />
<br />
.子程序 更换域名<br />
<br />
进入许可区 (许可证)<br />
调试输出 (“准备换接口”)<br />
原子_递增 (更换次数)<br />
原子_递增 (全局_域名)<br />
.如果真 (全局_域名 ＝ 4 且 线程池.等待任务动态 (, ) ＝ 真)<br />
    状态条1.置文本 (2, “接口拉黑，休息30分钟”)<br />
    线程池.暂停 ()<br />
    _延迟 (2100000)<br />
    线程池.继续 ()<br />
    全局_域名 ＝ 1<br />
.如果真结束<br />
状态条1.置文本 (1, “更换接口” ＋ 到文本 (全局_域名) ＋ “，更换次数：” ＋ 到文本 (更换次数))<br />
退出许可区 (许可证)<br />
<br />
.子程序 主线程<br />
.局部变量 总任务数, 整数型<br />
.局部变量 并发线程, 整数型<br />
.局部变量 当前任务数, 整数型<br />
.局部变量 n, 整数型<br />
.局部变量 空闲数, 整数型<br />
.局部变量 b, 整数型<br />
.局部变量 bool, 逻辑型<br />
<br />
.如果真 (编辑框_线程.内容 ＝ “”)<br />
    信息框 (“请输入并发线程数”, 64, , )<br />
    返回 ()<br />
.如果真结束<br />
按钮_开始.禁止 ＝ 真<br />
总任务数 ＝ 帐号总数<br />
并发线程 ＝ 到整数 (编辑框_线程.内容)<br />
当前任务数 ＝ 总任务数<br />
.如果真 (取反 (线程池.创建 (并发线程, 并发线程, )))<br />
    信息框 (“线程池创建失败!”, 64, , )<br />
    返回 ()<br />
.如果真结束<br />
关闭线程句柄 (线程句柄)<br />
.判断循环首 (n ＜ 总任务数)<br />
    空闲数 ＝ 线程池.取_空闲线程数 ()<br />
    .如果真 (空闲数 ＞ 0)<br />
        当前任务数 ＝ 总任务数 － n<br />
        .如果真 (当前任务数 ＞ 空闲数)<br />
            当前任务数 ＝ 空闲数<br />
        .如果真结束<br />
        .计次循环首 (当前任务数, )<br />
            n ＝ n ＋ 1<br />
            线程池.投递任务 (&子线程, n, )<br />
        .计次循环尾 ()<br />
    .如果真结束<br />
    线程池.等待任务动态 ()<br />
.判断循环尾 ()<br />
.判断循环首 (线程池.取_是否空闲 () ＝ 假)<br />
    .如果真 (线程池.取_状态 () ≠ #线程池_正在工作)<br />
        跳出循环 ()<br />
    .如果真结束<br />
    线程池.等待任务动态 (100)<br />
.判断循环尾 ()<br />
线程池.销毁 (, , )<br />
按钮_开始.禁止 ＝ 假<br />
<br />
<br />
.子程序 子线程<br />
.参数 n, 整数型<br />
.局部变量 索引, 整数型<br />
.局部变量 状态码, 文本型<br />
.局部变量 str, 文本型<br />
.局部变量 是否读完, 逻辑型<br />
.局部变量 mz, 文本型<br />
.局部变量 ip, 文本型<br />
.局部变量 arr, 文本型, , "0"<br />
.局部变量 msg, 文本型<br />
.局部变量 fhck, 文本型<br />
.局部变量 bool, 逻辑型<br />
<br />
获取账号 (str)<br />
.如果真 (str ≠ “”)<br />
    msg ＝ 三无 (str)<br />
.如果真结束<br />
返回 ()<br />
<br />
.子程序 三无, 文本型<br />
.参数 ret<br />
<br />
.判断开始 (全局_域名 ＝ 1)<br />
    path ＝ “a.com”<br />
.判断 (全局_域名 ＝ 2)<br />
    path ＝ “b.com”<br />
.判断 (全局_域名 ＝ 3)<br />
    path ＝ “c.com”<br />
.默认<br />
<br />
.判断结束<br />
url ＝ “https://” ＋ path ＋ “/“+RET<br />
' url ＝ “<a href="https://ui.ptlogin2.qq.com/ssl/check?pt_tea=2&uin=" target="_blank">https://ui.ptlogin2.qq.com/ssl/check?pt_tea=2&uin=</a>” ＋ Uin ＋ “&appid=1600001573&ptlang=2052®master=&pt_uistyle=9&o1vId=57368ac65e44ed800c2e9511cf1bf19f&daid=761&pt_3rd_aid=0&r=0.16041305934739503&pt_js_version=530c3f68”<br />
ret ＝ 到文本 (网页_访问_对象 (url, , , , , , , , , , ips, 2, , , , , , , ))<br />
.如果真 (寻找文本 (ret, “501page”, , 假) ≠ -1)<br />
    更换域名 ()<br />
    返回 (“接口拉黑”)<br />
.如果真结束