优化

已注销295060 · 发表于 2019-12-27 22:17:55

存在BUG 有时候停止后开始勾选的前一部分直接跳出了 QQ截图20191227221736.png

子程序名	返回值类型	公开	备注
_按钮8_被单击

变量名	类型	静态	数组	备注
num	整数型

判断 (按钮8.标题＝ “开始”)

num ＝ 1

判断 (选择框_选中.选中＝真)

计次循环首 (list.取表项数 (), num)

如果真 (list.取当前状态图片 (num － 1) ＝ 1)

队列.压入整数 (num － 1, )

计次循环尾 ()

计次循环首 (list.取表项数 (), num)

队列.压入整数 (num － 1, )

信息框 (“1”, 0, , )

计次循环尾 ()

线程_启动 (&线程池控制)

按钮8.标题＝选择 (按钮8.标题＝ “开始”, “停止”, “开始”)

按钮8.禁止＝真

启动线程 (&TOP, , )

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

队列.清空 ()

判断循环首 (真)

如果真 (线程池EX.取_是否空闲 ())

跳出循环 ()

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

处理事件 ()

判断循环尾 ()
按钮8.禁止＝假
线程池EX.销毁 ()
按钮8.标题＝选择 (按钮8.标题＝ “开始”, “停止”, “开始”)

子程序名	返回值类型	公开	备注
线程池控制

变量名	类型	静态	数组	备注
并发数量	整数型
Bool	逻辑型
空闲数	整数型
工作数量	整数型
int	整数型
拨号统计	整数型
是否使用ADSL	逻辑型
执行几个拨号	整数型
Id	整数型
执行线程数	整数型
使用代理ip	文本型

判断 (N线程1代理.选中＝真)

' *** 缩略程序块 ***

计次循环首 (5, )

使用代理ip ＝ “”

超级编辑框_运行记录.发送信息 (12, 0, 0)

使用代理ip ＝编码_utf8到gb2312 (到文本 (网页_访问_对象 (编辑框3api.内容, 0, , )))

运行记录 (“1线程1代理_” ＋使用代理ip)

判断 (寻找文本 (使用代理ip, “频繁”, , 假) ≠ -1)

置随机数种子 ()

程序_延时 (取随机数 (1, 6), 1)

判断 (寻找文本 (使用代理ip, “订单已过期”, , 假) ≠ -1)

信息框 (“订单已过期”, 0, , )

判断 (寻找文本 (使用代理ip, “提取数量用完”, , 假) ≠ -1)

信息框 (“提取数量用完”, 0, , )

判断 (寻找文本 (使用代理ip, “查不到订单”, , 假) ≠ -1)

信息框 (“查不到订单”, 0, , )

判断 (使用代理ip ≠ “”)

跳出循环 ()

处理事件 ()

计次循环尾 ()

运行记录 (“开始操作更新代理” ＋使用代理ip)

是否使用ADSL ＝选择框7.选中
执行几个拨号＝到整数 (编辑框1.内容)
并发数量＝到整数 (编辑框2.内容)
Bool ＝线程池EX.创建 (并发数量, 并发数量, , , 6096 × 32)

如果真 (取反 (Bool))

' 信息框 (“线程启动失败，可能你已经点击启动了”, 0, , )

运行记录 (“线程启动失败”)

返回 ()

判断循环首 (真)

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

如果真 (空闲数＞ 0)

工作数量＝队列.取队列长度 () ÷ 1

如果真 (工作数量＝ 0)

如果真 (线程池EX.取_是否空闲 ())

跳出循环 ()

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

到循环尾 ()

判断 (工作数量＞空闲数)

int ＝空闲数

int ＝工作数量

变量循环首 (1, int, 1, )

队列.弹出整数 (Id)

如果真 (list.取当前状态图片 (Id) ＝ 1)

拨号统计＝拨号统计＋ 1

线程池EX.投递任务 (&线程, Id, _写内存文本 (使用代理ip))

变量循环尾 ()

如果真 (是否使用ADSL 且执行几个拨号＞ 0)

如果真 (拨号统计 ≥ 执行几个拨号)

执行线程数＝线程池EX.取_执行线程数 ()

判断循环首 (执行线程数 ≠ 0)

程序_延时 (50, )

执行线程数＝线程池EX.取_执行线程数 ()

判断循环尾 ()

判断 (关闭代理ip.选中＝真)

程序_延时 (1, 1)

换ip ()

判断 (N线程1代理.选中＝真)

' *** 缩略程序块 ***

计次循环首 (5, )

使用代理ip ＝ “”

超级编辑框_运行记录.发送信息 (12, 0, 0)

使用代理ip ＝编码_utf8到gb2312 (到文本 (网页_访问_对象 (编辑框3api.内容, 0, , )))

运行记录 (“1线程1代理_” ＋使用代理ip)

判断 (寻找文本 (使用代理ip, “频繁”, , 假) ≠ -1)

置随机数种子 ()

程序_延时 (取随机数 (1, 6), 1)

判断 (寻找文本 (使用代理ip, “订单已过期”, , 假) ≠ -1)

信息框 (“订单已过期”, 0, , )

判断 (寻找文本 (使用代理ip, “提取数量用完”, , 假) ≠ -1)

信息框 (“提取数量用完”, 0, , )

判断 (寻找文本 (使用代理ip, “查不到订单”, , 假) ≠ -1)

信息框 (“查不到订单”, 0, , )

判断 (使用代理ip ≠ “”)

跳出循环 ()

处理事件 ()

计次循环尾 ()

拨号统计＝ 0 ' 复位一下，，，

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

处理事件 ()

判断循环尾 ()
线程池EX.销毁 ()
' 信息框 (“任务执行完毕”, 0, , )
按钮8.标题＝ “开始”
运行记录 (“登陆完成”)

i支持库列表	支持库注释
iext	扩展界面支持库一
EThread	多线程支持库

.版本 2<br />
.支持库 iext<br />
.支持库 EThread<br />
<br />
.子程序 _按钮8_被单击<br />
.局部变量 num, 整数型<br />
<br />
.判断开始 (按钮8.标题 ＝ “开始”)<br />
    num ＝ 1<br />
    .判断开始 (选择框_选中.选中 ＝ 真)<br />
        .计次循环首 (list.取表项数 (), num)<br />
            .如果真 (list.取当前状态图片 (num － 1) ＝ 1)<br />
                队列.压入整数 (num － 1, )<br />
            .如果真结束<br />
<br />
        .计次循环尾 ()<br />
<br />
    .默认<br />
        .计次循环首 (list.取表项数 (), num)<br />
            队列.压入整数 (num － 1, )<br />
            信息框 (“1”, 0, , )<br />
<br />
        .计次循环尾 ()<br />
    .判断结束<br />
<br />
    线程_启动 (&线程池控制)<br />
    按钮8.标题 ＝ 选择 (按钮8.标题 ＝ “开始”, “停止”, “开始”)<br />
.默认<br />
    按钮8.禁止 ＝ 真<br />
    启动线程 (&TOP, , )<br />
.判断结束<br />
<br />
<br />
.子程序 TOP<br />
<br />
队列.清空 ()<br />
.判断循环首 (真)<br />
    .如果真 (线程池EX.取_是否空闲 ())<br />
        跳出循环 ()<br />
    .如果真结束<br />
    线程池EX.等待任务动态 (100, )<br />
<br />
    处理事件 ()<br />
.判断循环尾 ()<br />
<br />
按钮8.禁止 ＝ 假<br />
线程池EX.销毁 ()<br />
按钮8.标题 ＝ 选择 (按钮8.标题 ＝ “开始”, “停止”, “开始”)<br />
<br />
.子程序 线程池控制<br />
.局部变量 并发数量, 整数型<br />
.局部变量 Bool, 逻辑型<br />
.局部变量 空闲数, 整数型<br />
.局部变量 工作数量, 整数型<br />
.局部变量 int, 整数型<br />
.局部变量 拨号统计, 整数型<br />
.局部变量 是否使用ADSL, 逻辑型<br />
.局部变量 执行几个拨号, 整数型<br />
.局部变量 Id, 整数型<br />
.局部变量 执行线程数, 整数型<br />
.局部变量 使用代理ip, 文本型<br />
<br />
.判断开始 (N线程1代理.选中 ＝ 真)<br />
<br />
    ' *** 缩略程序块 ***<br />
    .计次循环首 (5, )<br />
        使用代理ip ＝ “”<br />
        超级编辑框_运行记录.发送信息 (12, 0, 0)<br />
        使用代理ip ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (编辑框3api.内容, 0, , )))<br />
        运行记录 (“1线程1代理_” ＋ 使用代理ip)<br />
        .判断开始 (寻找文本 (使用代理ip, “频繁”, , 假) ≠ -1)<br />
            置随机数种子 ()<br />
            程序_延时 (取随机数 (1, 6), 1)<br />
        .判断 (寻找文本 (使用代理ip, “订单已过期”, , 假) ≠ -1)<br />
            信息框 (“订单已过期”, 0, , )<br />
        .判断 (寻找文本 (使用代理ip, “提取数量用完”, , 假) ≠ -1)<br />
            信息框 (“提取数量用完”, 0, , )<br />
        .判断 (寻找文本 (使用代理ip, “查不到订单”, , 假) ≠ -1)<br />
            信息框 (“查不到订单”, 0, , )<br />
        .判断 (使用代理ip ≠ “”)<br />
            跳出循环 ()<br />
        .默认<br />
<br />
        .判断结束<br />
<br />
        处理事件 ()<br />
    .计次循环尾 ()<br />
    运行记录 (“开始操作更新代理” ＋ 使用代理ip)<br />
<br />
.默认<br />
<br />
.判断结束<br />
<br />
<br />
是否使用ADSL ＝ 选择框7.选中<br />
执行几个拨号 ＝ 到整数 (编辑框1.内容)<br />
<br />
并发数量 ＝ 到整数 (编辑框2.内容)<br />
Bool ＝ 线程池EX.创建 (并发数量, 并发数量, , , 6096 × 32)<br />
.如果真 (取反 (Bool))<br />
    ' 信息框 (“线程启动失败，可能你已经点击启动了”, 0, , )<br />
    运行记录 (“线程启动失败”)<br />
    返回 ()<br />
.如果真结束<br />
<br />
.判断循环首 (真)<br />
    空闲数 ＝ 线程池EX.取_空闲线程数 ()<br />
    .如果真 (空闲数 ＞ 0)<br />
        工作数量 ＝ 队列.取队列长度 () ÷ 1<br />
        .如果真 (工作数量 ＝ 0)<br />
            .如果真 (线程池EX.取_是否空闲 ())<br />
                跳出循环 ()<br />
            .如果真结束<br />
            线程池EX.等待任务动态 (100)<br />
            到循环尾 ()<br />
        .如果真结束<br />
<br />
        .判断开始 (工作数量 ＞ 空闲数)<br />
            int ＝ 空闲数<br />
        .默认<br />
            int ＝ 工作数量<br />
        .判断结束<br />
<br />
        .变量循环首 (1, int, 1, )<br />
            队列.弹出整数 (Id)<br />
            .如果真 (list.取当前状态图片 (Id) ＝ 1)<br />
                拨号统计 ＝ 拨号统计 ＋ 1<br />
                线程池EX.投递任务 (&线程, Id, _写内存文本 (使用代理ip))<br />
            .如果真结束<br />
<br />
<br />
        .变量循环尾 ()<br />
<br />
    .如果真结束<br />
<br />
    .如果真 (是否使用ADSL 且 执行几个拨号 ＞ 0)<br />
        .如果真 (拨号统计 ≥ 执行几个拨号)<br />
            执行线程数 ＝ 线程池EX.取_执行线程数 ()<br />
<br />
            .判断循环首 (执行线程数 ≠ 0)<br />
<br />
                程序_延时 (50, )<br />
                执行线程数 ＝ 线程池EX.取_执行线程数 ()<br />
<br />
            .判断循环尾 ()<br />
<br />
<br />
            .判断开始 (关闭代理ip.选中 ＝ 真)<br />
                程序_延时 (1, 1)<br />
                换ip ()<br />
<br />
            .默认<br />
<br />
                .判断开始 (N线程1代理.选中 ＝ 真)<br />
<br />
                    ' *** 缩略程序块 ***<br />
                    .计次循环首 (5, )<br />
                        使用代理ip ＝ “”<br />
                        超级编辑框_运行记录.发送信息 (12, 0, 0)<br />
                        使用代理ip ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (编辑框3api.内容, 0, , )))<br />
                        运行记录 (“1线程1代理_” ＋ 使用代理ip)<br />
                        .判断开始 (寻找文本 (使用代理ip, “频繁”, , 假) ≠ -1)<br />
                            置随机数种子 ()<br />
                            程序_延时 (取随机数 (1, 6), 1)<br />
                        .判断 (寻找文本 (使用代理ip, “订单已过期”, , 假) ≠ -1)<br />
                            信息框 (“订单已过期”, 0, , )<br />
                        .判断 (寻找文本 (使用代理ip, “提取数量用完”, , 假) ≠ -1)<br />
                            信息框 (“提取数量用完”, 0, , )<br />
                        .判断 (寻找文本 (使用代理ip, “查不到订单”, , 假) ≠ -1)<br />
                            信息框 (“查不到订单”, 0, , )<br />
                        .判断 (使用代理ip ≠ “”)<br />
                            跳出循环 ()<br />
                        .默认<br />
<br />
                        .判断结束<br />
<br />
                        处理事件 ()<br />
                    .计次循环尾 ()<br />
<br />
                .默认<br />
<br />
                .判断结束<br />
<br />
            .判断结束<br />
<br />
            拨号统计 ＝ 0  ' 复位一下，，，<br />
<br />
        .如果真结束<br />
<br />
    .如果真结束<br />
    线程池EX.等待任务动态 ()<br />
<br />
<br />
    处理事件 ()<br />
<br />
<br />
.判断循环尾 ()<br />
线程池EX.销毁 ()<br />
' 信息框 (“任务执行完毕”, 0, , )<br />
按钮8.标题 ＝ “开始”<br />
运行记录 (“登陆完成”)