自己写了一个处理的多线程，论坛上下载了好多不会用

fengyewl

自己写了一个循环多线程处理，论坛上下载了好多多线程，不会用鱼翅有点看不懂。。。
现在的问题是这几点..  

或者能帮我改成 鱼翅多线程  简单点的也可以.   

能  暂停 恢复线程  最好，


就是这一块处理不好。感谢
************************************************************************************************
1.速度上有点慢，具体是哪里慢不知道，   把延迟去掉 直接崩掉了。


2.然后就是不能一组一组的运行线程，账号那乱跳。  


3.数组好像 有一个排序功能吧？  线程不是按顺序执行的感觉、   3  1  2  这样 返回  还是 我加了随机时间的问题。

***************************************************************************************************


希望有大神帮忙改进一下   感谢
能加一个    暂停 恢复线程


下面是源码


demo5.e (965.28 KB, 下载次数: 8)

2024-12-3 11:24 上传

点击文件名下载附件

  

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

变量名	类 型	静态	数组	备 注
i	整数型
h	整数型
启动数量	整数型
s	整数型
分组索引	整数型
分组名称	文本型
分组状态	文本型
分组任务	文本型
A分组	文本型		3
A分组索引	整数型
运行数组索引	整数型
分组任务数组	文本型		3
分组任务数组索引	整数型
获取任务索引	整数型
获取任务索引分组状态	文本型
获取任务索引分组任务	文本型
待开始任务索引素组分组	文本型		3
待开始任务索引分组索引	整数型
检测索引	整数型
检测索引分组状态	文本型
任务数量	整数型
任务重置	整数型

' 重定义数组 (运行数组, 假, 0)
' 每次只启动一组任务，待完成后在启动下一组。
判断循环首 (真)
计次循环首 (超级列表框2.取表项数 (), 分组索引)
分组名称 ＝ 超级列表框2.取标题 (分组索引 － 1, 0)
分组任务 ＝ 超级列表框2.取标题 (分组索引 － 1, 1)
分组状态 ＝ 超级列表框2.取标题 (分组索引 － 1, 2)
' 调试输出 (分组名称, 分组任务, 分组状态)
' * “A” | “1,2,3” | “待开始”
' * “B” | “4,5,6” | “待开始”
' * “C” | “7,8,9” | “待开始”
' * “D” | “10,11,12” | “待开始”
' * “F” | “13,14,15” | “待开始”
' * “G” | “16,17,18” | “待开始”
调试输出 (“获取正在运行的数组:”, 取数组成员数 (运行数组))
' 如果第一次没有启动，启动一组A组
如果真 (取数组成员数 (运行数组) ＝ 0)
如果真 (分组名称 ＝ “A”)
如果真 (分组状态 ＝ “待开始”)
A分组 ＝ 分割文本 (分组任务, “,”, )
调试输出 (A分组)
计次循环首 (取数组成员数 (A分组), A分组索引)
调试输出 (到整数 (A分组 [A分组索引]))
启动线程 (&执行程序, 到整数 (A分组 [A分组索引]), )
计次循环尾 ()
超级列表框2.置标题 (分组索引 － 1, 2, “运行中”)


' 检测任务是否做完  任务分组的做，一组做完再进行下一组！  任务循环  选择框是否循环线程 勾选一直做
计次循环首 (取数组成员数 (运行数组), 运行数组索引)
分组任务数组 ＝ 分割文本 (分组任务, “,”, )
计次循环首 (取数组成员数 (分组任务数组), 分组任务数组索引)
如果 (运行数组 [运行数组索引] ＝ 到整数 (分组任务数组 [分组任务数组索引]))
调试输出 (“完成任务”, 运行数组 [运行数组索引], 分组任务数组 [分组任务数组索引])
超级列表框2.置标题 (分组索引 － 1, 2, “完成任务”)
' 做完了初始化账号
读取账号 ()
程序_延时 (500)
计次循环首 (超级列表框2.取表项数 (), 获取任务索引)
获取任务索引分组状态 ＝ 超级列表框2.取标题 (获取任务索引 － 1, 2)
获取任务索引分组任务 ＝ 超级列表框2.取标题 (获取任务索引 － 1, 1)
如果真 (获取任务索引分组状态 ＝ “待开始”)
待开始任务索引素组分组 ＝ 分割文本 (获取任务索引分组任务, “,”, )
调试输出 (待开始任务索引素组分组)
计次循环首 (取数组成员数 (待开始任务索引素组分组), 待开始任务索引分组索引)
调试输出 (到整数 (待开始任务索引素组分组 [待开始任务索引分组索引]))
启动线程 (&执行程序, 到整数 (待开始任务索引素组分组 [待开始任务索引分组索引]), )
计次循环尾 ()
超级列表框2.置标题 (获取任务索引 － 1, 2, “运行中”)
调试输出 (“运行中”, “运行中”)
跳出循环 ()
程序_延时 (200)
计次循环尾 ()
' 调试输出 (“检测任务”, 运行数组 [运行数组索引], 分组任务数组 [分组任务数组索引])
程序_延时 (100)
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
程序_延时 (2000)
如果 (选择框是否循环线程.选中 ＝ 真)
' 检测所有分组任务完成后进行任务重置...重新开始循环
任务数量 ＝ 超级列表框2.取表项数 ()
计次循环首 (任务数量, 检测索引)
检测索引分组状态 ＝ 超级列表框2.取标题 (检测索引 － 1, 2)
如果真 (检测索引分组状态 ＝ “完成任务”)
如果真 (检测索引 ＝ 任务数量)
计次循环首 (任务数量, 任务重置)
超级列表框2.置标题 (任务重置 － 1, 2, “待开始”)
调试输出 (“任务重置”, “任务重置”)
计次循环尾 ()


计次循环尾 ()
跳出循环 ()

判断循环尾 ()
调试输出 (“结束任务”)

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

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 h, 整数型<br /> .局部变量 启动数量, 整数型<br /> .局部变量 s, 整数型<br /> .局部变量 分组索引, 整数型<br /> .局部变量 分组名称, 文本型<br /> .局部变量 分组状态, 文本型<br /> .局部变量 分组任务, 文本型<br /> .局部变量 A分组, 文本型, , "3"<br /> .局部变量 A分组索引, 整数型<br /> .局部变量 运行数组索引, 整数型<br /> .局部变量 分组任务数组, 文本型, , "3"<br /> .局部变量 分组任务数组索引, 整数型<br /> .局部变量 获取任务索引, 整数型<br /> .局部变量 获取任务索引分组状态, 文本型<br /> .局部变量 获取任务索引分组任务, 文本型<br /> .局部变量 待开始任务索引素组分组, 文本型, , "3"<br /> .局部变量 待开始任务索引分组索引, 整数型<br /> .局部变量 检测索引, 整数型<br /> .局部变量 检测索引分组状态, 文本型<br /> .局部变量 任务数量, 整数型<br /> .局部变量 任务重置, 整数型<br /> <br /> ' 重定义数组 (运行数组, 假, 0)<br /> ' 每次只启动一组任务，待完成后在启动下一组。<br /> .判断循环首 (真)<br />     .计次循环首 (超级列表框2.取表项数 (), 分组索引)<br />         分组名称 ＝ 超级列表框2.取标题 (分组索引 － 1, 0)<br />         分组任务 ＝ 超级列表框2.取标题 (分组索引 － 1, 1)<br />         分组状态 ＝ 超级列表框2.取标题 (分组索引 － 1, 2)<br />         ' 调试输出 (分组名称, 分组任务, 分组状态)<br />         ' * “A” | “1,2,3” | “待开始”<br />         ' * “B” | “4,5,6” | “待开始”<br />         ' * “C” | “7,8,9” | “待开始”<br />         ' * “D” | “10,11,12” | “待开始”<br />         ' * “F” | “13,14,15” | “待开始”<br />         ' * “G” | “16,17,18” | “待开始”<br />         调试输出 (“获取正在运行的数组:”, 取数组成员数 (运行数组))<br />         ' 如果第一次没有启动，启动一组A组<br />         .如果真 (取数组成员数 (运行数组) ＝ 0)<br />             .如果真 (分组名称 ＝ “A”)<br />                 .如果真 (分组状态 ＝ “待开始”)<br />                     A分组 ＝ 分割文本 (分组任务, “,”, )<br />                     调试输出 (A分组)<br />                     .计次循环首 (取数组成员数 (A分组), A分组索引)<br />                         调试输出 (到整数 (A分组 [A分组索引]))<br />                         启动线程 (&执行程序, 到整数 (A分组 [A分组索引]), )<br />                     .计次循环尾 ()<br />                     超级列表框2.置标题 (分组索引 － 1, 2, “运行中”)<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br />         ' 检测任务是否做完  任务分组的做，一组做完再进行下一组！  任务循环  选择框是否循环线程 勾选一直做<br />         .计次循环首 (取数组成员数 (运行数组), 运行数组索引)<br />             分组任务数组 ＝ 分割文本 (分组任务, “,”, )<br />             .计次循环首 (取数组成员数 (分组任务数组), 分组任务数组索引)<br />                 .如果 (运行数组 [运行数组索引] ＝ 到整数 (分组任务数组 [分组任务数组索引]))<br />                     调试输出 (“完成任务”, 运行数组 [运行数组索引], 分组任务数组 [分组任务数组索引])<br />                     超级列表框2.置标题 (分组索引 － 1, 2, “完成任务”)<br /> <br />                     ' 做完了初始化账号<br />                     读取账号 ()<br />                     程序_延时 (500)<br />                     .计次循环首 (超级列表框2.取表项数 (), 获取任务索引)<br />                         获取任务索引分组状态 ＝ 超级列表框2.取标题 (获取任务索引 － 1, 2)<br />                         获取任务索引分组任务 ＝ 超级列表框2.取标题 (获取任务索引 － 1, 1)<br />                         .如果真 (获取任务索引分组状态 ＝ “待开始”)<br />                             待开始任务索引素组分组 ＝ 分割文本 (获取任务索引分组任务, “,”, )<br />                             调试输出 (待开始任务索引素组分组)<br />                             .计次循环首 (取数组成员数 (待开始任务索引素组分组), 待开始任务索引分组索引)<br />                                 调试输出 (到整数 (待开始任务索引素组分组 [待开始任务索引分组索引]))<br />                                 启动线程 (&执行程序, 到整数 (待开始任务索引素组分组 [待开始任务索引分组索引]), )<br />                             .计次循环尾 ()<br />                             超级列表框2.置标题 (获取任务索引 － 1, 2, “运行中”)<br />                             调试输出 (“运行中”, “运行中”)<br />                             跳出循环 ()<br />                         .如果真结束<br />                         程序_延时 (200)<br />                     .计次循环尾 ()<br />                 .否则<br />                     ' 调试输出 (“检测任务”, 运行数组 [运行数组索引], 分组任务数组 [分组任务数组索引])<br />                 .如果结束<br />                 程序_延时 (100)<br />             .计次循环尾 ()<br /> <br />         .计次循环尾 ()<br /> <br />     .计次循环尾 ()<br />     程序_延时 (2000)<br />     .如果 (选择框是否循环线程.选中 ＝ 真)<br />         ' 检测所有分组任务完成后进行任务重置...重新开始循环<br />         任务数量 ＝ 超级列表框2.取表项数 ()<br />         .计次循环首 (任务数量, 检测索引)<br />             检测索引分组状态 ＝ 超级列表框2.取标题 (检测索引 － 1, 2)<br />             .如果真 (检测索引分组状态 ＝ “完成任务”)<br />                 .如果真 (检测索引 ＝ 任务数量)<br />                     .计次循环首 (任务数量, 任务重置)<br />                         超级列表框2.置标题 (任务重置 － 1, 2, “待开始”)<br />                         调试输出 (“任务重置”, “任务重置”)<br />                     .计次循环尾 ()<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .否则<br />         跳出循环 ()<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> 调试输出 (“结束任务”)

laihobglei

我不信你不会.

yuan1991a

小书

我真不信你不会。

なす随风ぬね

真不信NI

frankiy

改不来你的代码了。 给你一个参考吧

huayuanderen

这是要考考大家啊,交作业了

hongqingfeng

frankiy 发表于 2024-12-3 16:07
改不来你的代码了。 给你一个参考吧

这是写的啥，大神跟本运行不了

KD飞飞

你不会我倒立拉稀

cenjinqing

看看这这兄弟你就知道多线程咋写了 【【小岑学习社-提升篇-公开课】精易多线程&软件优化&秒杀软件写法】 https://www.bilibili.com/video/BV1co4y1S7kG/?share_source=copy_web&vd_source=ca2cd7cb6186a3281cacede84f2735c4