多线程计次循环问题

自在门

如代码所示，启动线程后，如果我勾选了4个商品，开启4个线程，目前是每个商品运行4次后在继续运行下一个商品4次，如何改进变成每个线程同时进行4个商品请求一次?
.版本 2
.支持库 EThread
.支持库 iext

.子程序 _按钮1_被单击


线程_启动 (&主线程, , )


.子程序 主线程
.局部变量 局部_线程数, 整数型
.局部变量 局部_任务数量, 整数型

许可证 ＝ 创建进入许可证 ()
.判断循环首 (总执行数 ＝ 1)
    .如果 (线程数 ＜ 到整数 (编辑框1.内容))
        ' 总执行数 ＝ 总执行数 ＋ 1
        线程数 ＝ 线程数 ＋ 1
        线程_启动 (&秒杀程序)

    .否则

    .如果结束

    程序_延时 (10)
    处理事件 ()
.判断循环尾 ()

.子程序 秒杀程序
.局部变量 i, 整数型
.局部变量 rt, 自定义数据
.局部变量 auth, 文本型
.局部变量 v, 整数型
.局部变量 选择数值, 整数型
.局部变量 商品类型, 文本型
.局部变量 商品id, 文本型
.局部变量 局_网址, 文本型
.局部变量 局_返回, 文本型
.局部变量 json, 类_json
.局部变量 索引, 整数型
.局部变量 奖品名称, 文本型
.局部变量 用户名, 文本型


.计次循环首 (超级列表框1.取表项数 (), i)
    auth ＝ 超级列表框1.取标题 (i － 1, 2)
    用户名 ＝ 超级列表框1.取标题 (i － 1, 1)

    .计次循环首 (选择列表框1.取项目数 (), v)
        ' 进入许可区 (许可证)
        rt ＝ 获取token (auth)
        ' 退出许可区 (许可证)
        .如果 (选择列表框1.是否被选中 (v － 1) ＝ 真)
            选择数值 ＝ 选择列表框1.取项目数值 (v － 1)
            .如果 (选择数值 ＝ 1)
                商品id ＝ “ru_coupon_1”

            .否则

            .如果结束
            .如果 (选择数值 ＝ 2)
                商品id ＝ “ru_coupon_2”
            .否则

            .如果结束
            .如果 (选择数值 ＝ 3)
                商品id ＝ “ru_coupon_3”
            .否则

            .如果结束
            .如果 (选择数值 ＝ 4)
                商品id ＝ “ru_coupon_4”
            .否则

            .如果结束
            局_网址 ＝ “https://94828.activity-35.m.duiba.com.cn/projectx/p1270126c/draw/draw.do?ruleId=” ＋ 商品id ＋ “&token=” ＋ rt.token ＋ “&user_type=1&is_from_share=1&_t=” ＋ 时间_取现行时间戳 ()
            ' 调试输出 (局_网址)
            局_返回 ＝ 编码_Utf8到Ansi (网页_访问_对象 (局_网址, 0, , rt.ck, , #协议头, , , , , , ))
            json.解析 (局_返回)
        .否则

        .如果结束

    .计次循环尾 ()

.计次循环尾 ()




补充内容 (2023-7-21 17:50):
这个代码怎么粘贴变成纯文字了？怎么操作成和编辑器一样的样式

补充内容 (2023-7-21 18:05):
或者说，让这4个请求执行互不干扰

cherryy

  

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

线程_启动 (&主线程, , )

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

变量名	类 型	静态	数组	备 注
局部_线程数	整数型
局部_任务数量	整数型
总任务数

' 许可证 ＝ 创建进入许可证 ()
. ' 判断循环首 (总执行数 ＝ 1)判断循环首 ()
. ' 如果 (线程数 ＜ 到整数 (编辑框1.内容))如果 ()
' ' 总执行数 ＝ 总执行数 ＋ 1
' 线程数 ＝ 线程数 ＋ 1
' 线程_启动 (&秒杀程序, , )


' 程序_延时 (10)
' 处理事件 ()
. ' 判断循环尾 ()
总任务数 ＝ 到整数 (超级列表框1.取表项数 ())
' /////判断勾选了几个任务，填到 编辑框_线程
' 判断勾选放上面
并发线程 ＝ 到整数 (编辑框_线程.内容)
当前任务数 ＝ 总任务数
如果真 (取反 (集_多线程.创建 (并发线程, 并发线程, , )))
信息框 (“线程池创建失败!”, 64, , )
返回 ()

判断循环首 (n ＜ 总任务数)
空闲数 ＝ 集_多线程.取_空闲线程数 ()
如果真 (空闲数 ＞ 0)
当前任务数 ＝ 总任务数 － n
如果真 (当前任务数 ＞ 空闲数)
当前任务数 ＝ 空闲数
计次循环首 (当前任务数, )
n ＝ n ＋ 1
' 超级列表框1.插入表项 (-1, 到文本 (n), , , , )
' 超级列表框1.保证显示 (n － 1)
集_多线程.投递任务 (&秒杀程序, n － 1, )
计次循环尾 ()
集_多线程.等待任务动态 (, )
判断循环尾 ()

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

变量名	类 型	静态	数组	备 注
i	整数型
rt	自定义数据
auth	文本型
v	整数型
选择数值	整数型
商品类型	文本型
商品id	文本型
局_网址	文本型
局_返回	文本型
json	类_json
索引	整数型
奖品名称	文本型
用户名	文本型

' 计次循环首 (超级列表框1.取表项数 (), i)计次循环首 ()
' auth ＝ 超级列表框1.取标题 (i － 1, 2)
' 用户名 ＝ 超级列表框1.取标题 (i － 1, 1)
. ' 计次循环首 (选择列表框1.取项目数 (), v)计次循环首 ()
' ' 进入许可区 (许可证)
' rt ＝ 获取token (auth)
' ' 退出许可区 (许可证)
. ' 如果 (选择列表框1.是否被选中 (v － 1) ＝ 真)如果 ()
' 选择数值 ＝ 选择列表框1.取项目数值 (v － 1)
. ' 如果 (选择数值 ＝ 1)如果 ()
' 商品id ＝ “ru_coupon_1”


. ' 如果 (选择数值 ＝ 2)如果 ()
' 商品id ＝ “ru_coupon_2”


. ' 如果 (选择数值 ＝ 3)
' 商品id ＝ “ru_coupon_3”


. ' 如果 (选择数值 ＝ 4)如果 ()
' 商品id ＝ “ru_coupon_4”


' 局_网址 ＝ “https://94828.activity-35.m.duiba.com.cn/projectx/p1270126c/draw/draw.do?ruleId=” ＋ 商品id ＋ “&token=” ＋ rt.token ＋ “&user_type=1&is_from_share=1&_t=” ＋ 时间_取现行时间戳 ()
' ' 调试输出 (局_网址)
' 局_返回 ＝ 编码_Utf8到Ansi (网页_访问_对象 (局_网址, 0, , rt.ck, , #协议头, , , , , , ))
' json.解析 (局_返回)



. ' 计次循环尾 ()计次循环尾 ()
'
局_网址 ＝ “https://94828.activity-35.m.duiba.com.cn/projectx/p1270126c/draw/draw.do?ruleId=” ＋ 商品id ＋ “&token=” ＋ rt.token ＋ “&user_type=1&is_from_share=1&_t=” ＋ 时间_取现行时间戳 ()
' 调试输出 (局_网址)
局_返回 ＝ 编码_Utf8到Ansi (网页_访问_对象 (局_网址, 0, , rt.ck, , #协议头, , , , , , ))
json.解析 (局_返回)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 线程_启动 (&主线程, , )<br /> <br /> .子程序 主线程<br /> .局部变量 局部_线程数, 整数型<br /> .局部变量 局部_任务数量, 整数型<br /> .局部变量 总任务数<br /> <br /> ' 许可证 ＝ 创建进入许可证 ()<br /> .' 判断循环首 (总执行数 ＝ 1)判断循环首 ()<br />     .' 如果 (线程数 ＜ 到整数 (编辑框1.内容))如果 ()<br />         ' ' 总执行数 ＝ 总执行数 ＋ 1<br />         ' 线程数 ＝ 线程数 ＋ 1<br />         ' 线程_启动 (&秒杀程序, , )<br />     .否则<br /> <br />     .如果结束<br />     ' 程序_延时 (10)<br />     ' 处理事件 ()<br /> .' 判断循环尾 ()<br /> 总任务数 ＝ 到整数 (超级列表框1.取表项数 ())<br /> ' /////判断勾选了几个任务，填到 编辑框_线程<br /> ' 判断勾选放上面<br /> <br /> 并发线程 ＝ 到整数 (编辑框_线程.内容)<br /> 当前任务数 ＝ 总任务数<br /> <br /> .如果真 (取反 (集_多线程.创建 (并发线程, 并发线程, , )))<br />     信息框 (“线程池创建失败!”, 64, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> .判断循环首 (n ＜ 总任务数)<br /> <br />     空闲数 ＝ 集_多线程.取_空闲线程数 ()<br /> <br />     .如果真 (空闲数 ＞ 0)<br /> <br />         当前任务数 ＝ 总任务数 － n<br /> <br />         .如果真 (当前任务数 ＞ 空闲数)<br /> <br />             当前任务数 ＝ 空闲数<br /> <br />         .如果真结束<br />         .计次循环首 (当前任务数, )<br />             n ＝ n ＋ 1<br /> <br />             ' 超级列表框1.插入表项 (-1, 到文本 (n), , , , )<br /> <br />             ' 超级列表框1.保证显示 (n － 1)<br /> <br />             集_多线程.投递任务 (&秒杀程序, n － 1, )<br />         .计次循环尾 ()<br />     .如果真结束<br />     集_多线程.等待任务动态 (, )<br /> <br /> .判断循环尾 ()<br /> <br /> .子程序 秒杀程序<br /> .局部变量 i, 整数型<br /> .局部变量 rt, 自定义数据<br /> .局部变量 auth, 文本型<br /> .局部变量 v, 整数型<br /> .局部变量 选择数值, 整数型<br /> .局部变量 商品类型, 文本型<br /> .局部变量 商品id, 文本型<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_返回, 文本型<br /> .局部变量 json, 类_json<br /> .局部变量 索引, 整数型<br /> .局部变量 奖品名称, 文本型<br /> .局部变量 用户名, 文本型<br /> <br /> ' 计次循环首 (超级列表框1.取表项数 (), i)计次循环首 ()<br /> ' auth ＝ 超级列表框1.取标题 (i － 1, 2)<br /> ' 用户名 ＝ 超级列表框1.取标题 (i － 1, 1)<br /> <br /> .' 计次循环首 (选择列表框1.取项目数 (), v)计次循环首 ()<br />     ' ' 进入许可区 (许可证)<br />     ' rt ＝ 获取token (auth)<br />     ' ' 退出许可区 (许可证)<br />     .' 如果 (选择列表框1.是否被选中 (v － 1) ＝ 真)如果 ()<br />         ' 选择数值 ＝ 选择列表框1.取项目数值 (v － 1)<br />         .' 如果 (选择数值 ＝ 1)如果 ()<br />             ' 商品id ＝ “ru_coupon_1”<br /> <br />         .否则<br /> <br />         .如果结束<br />         .' 如果 (选择数值 ＝ 2)如果 ()<br />             ' 商品id ＝ “ru_coupon_2”<br />         .否则<br /> <br />         .如果结束<br />         .' 如果 (选择数值 ＝ 3)<br />             ' 商品id ＝ “ru_coupon_3”<br />         .否则<br /> <br />         .如果结束<br />         .' 如果 (选择数值 ＝ 4)如果 ()<br />             ' 商品id ＝ “ru_coupon_4”<br />         .否则<br /> <br />         .如果结束<br />         ' 局_网址 ＝ “https://94828.activity-35.m.duiba.com.cn/projectx/p1270126c/draw/draw.do?ruleId=” ＋ 商品id ＋ “&token=” ＋ rt.token ＋ “&user_type=1&is_from_share=1&_t=” ＋ 时间_取现行时间戳 ()<br />         ' ' 调试输出 (局_网址)<br />         ' 局_返回 ＝ 编码_Utf8到Ansi (网页_访问_对象 (局_网址, 0, , rt.ck, , #协议头, , , , , , ))<br />         ' json.解析 (局_返回)<br />     .否则<br /> <br />     .如果结束<br /> <br /> .' 计次循环尾 ()计次循环尾 ()<br /> <br /> ' <br /> 局_网址 ＝ “https://94828.activity-35.m.duiba.com.cn/projectx/p1270126c/draw/draw.do?ruleId=” ＋ 商品id ＋ “&token=” ＋ rt.token ＋ “&user_type=1&is_from_share=1&_t=” ＋ 时间_取现行时间戳 ()<br /> ' 调试输出 (局_网址)<br /> 局_返回 ＝ 编码_Utf8到Ansi (网页_访问_对象 (局_网址, 0, , rt.ck, , #协议头, , , , , , ))<br /> json.解析 (局_返回)

自在门

cherryy 发表于 2023-7-21 18:04
[e=0].版本 2
.支持库 iext

这是鱼刺的写法吗，精易的可以改吗