易语言多线程分批操作

辣椒aac

比如我要登录100个号。那么多线程分批10个号为一次。执行完再执行第二批。这样怎么写？

pnccm

  

变量名	类 型	静态	数组	备 注
i	整数型
线程数量	整数型
线程_句柄	整数型
总线程句柄	整数型		0
启动线程数	整数型
n	整数型
temp	整数型

线程数量 ＝ 10
计次循环首 (100, i)
如果 (启动线程数 ＜ 线程数量)
启动线程 (&任务子程序, , 线程_句柄)
加入成员 (总线程句柄, 线程_句柄)
启动线程数 ＝ 启动线程数 ＋ 1

temp=1
判断循环首 (真)
如果真 (线程_取状态 (总线程句柄 [temp]) ＝ 0)
temp ＝ temp ＋ 1
如果真 (temp ＝ 10)
跳出循环 ()


判断循环尾 ()

计次循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .局部变量 i, 整数型<br /> .局部变量 线程数量, 整数型<br /> .局部变量 线程_句柄, 整数型<br /> .局部变量 总线程句柄, 整数型, , "0"<br /> .局部变量 启动线程数, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 temp, 整数型<br /> <br /> 线程数量 ＝ 10<br /> <br /> .计次循环首 (100, i)<br />     .如果 (启动线程数 ＜ 线程数量)<br />         启动线程 (&任务子程序, , 线程_句柄)<br />         加入成员 (总线程句柄, 线程_句柄)<br />         启动线程数 ＝ 启动线程数 ＋ 1<br /> <br />     .否则<br />         temp=1<br />         .判断循环首 (真)<br />             .如果真 (线程_取状态 (总线程句柄 [temp]) ＝ 0)<br />                 temp ＝ temp ＋ 1<br />                 .如果真 (temp ＝ 10)<br />                     跳出循环 ()<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .判断循环尾 ()<br />     .如果结束<br /> <br /> .计次循环尾 ()

可能写法不够严谨或是过于复杂化 仅供参考用 如果只是要保持10条线程一直执行下去 线程池可能会更好些


补充内容 (2021-12-17 19:44):
下面判断线程状态后完后跳出循环前还需要清除一下总线程句柄数组 可能还有其他问题我没考虑到需自行发现

补充内容 (2021-12-17 19:50):
不好意思  刚才测试了下问题挺多的 还需要继续更改 只能作为思路参考

冰墩墩

看我签名

pnccm

判断线程数量 达到10条线程就跳过 不继续启动线程  如果要分一次10条线程执行完 才执行下一个10条 就 通过 线程_取状态 () 判断一下线程是否执行完 执行完就继续启动新的线程

ku2017

线程池，设置启动数量为10就可以，运行中的线程少于10自动启动新线程就可以保持一直有10个在登录

蛀牙

也许这就是你需要的
test.e (854.61 KB, 下载次数: 22)

2021-12-17 20:38 上传

点击文件名下载附件






补充内容 (2021-12-17 21:57):
调试输出 改成 输出调试文本  (调试输出有bug)

网恋被骗几十万

蛀牙 发表于 2021-12-17 20:39
也许这就是你需要的

你的头像是什么鬼

蛀牙

网恋被骗几十万 发表于 2021-12-17 22:04
你的头像是什么鬼

大腿？我也不知道，就知道挺好看的！应该不会违规吧

网恋被骗几十万

蛀牙 发表于 2021-12-17 22:06
大腿？我也不知道，就知道挺好看的！应该不会违规吧

我想深入了解

蛀牙

网恋被骗几十万 发表于 2021-12-17 22:21
我想深入了解