鱼刺多线程经常提前销毁了

wyk228

运行时有时候任务数没完成就已经被销毁了，例如任务数是5000，运行到2633就显示 销毁了2633。 有时候又是正常的，不知道是哪里出问题了。
跟任务数多少没啥关系，有时候运任务数2000也会出现这个情况，到900也停了

  

SetProcessAffinityMask (-1, 1)
许可证号 ＝ 创建进入许可证 ()
任务数 ＝ 到整数（编辑框.内容）
' 任务数 ＝ 总任务数
线程数 ＝ 5
按钮1.禁止 ＝ 真
如果真 (线程数 ≤ 0)
信息框 (“线程数量不能为0”, 0, , )
如果真 (线程数 ＞ 任务数)
线程数 ＝ 任务数
如果真 (线程池.取_状态 () ＝ 0)
循环判断首 ()
循环判断尾 (线程池.创建 (线程数, 线程数, , 真) ＝ 假)
判断循环首 (任务数 ＞ 已养号数量)
如果真 (线程池.取_空闲线程数 () ＞ 0)
进入许可区 (许可证号)
原子_递增 (已养号数量)
退出许可区 (许可证号)
线程池.投递任务 (&养号, , )
程序_延时 (500, )
判断循环尾 ()
循环判断首 (线程池.取_是否空闲 () ＝ 假)
程序_延时 (500)
处理事件 ()
循环判断尾 ()
如果真 (线程池.取_是否空闲 () ＝ 真)
按钮1.禁止 ＝ 假

循环判断首 ()
销毁状态 ＝ 线程池.销毁 (0, , )
日志 (“销毁了” ＋ 到文本 (已养号数量))
程序_延时 (500)
处理事件 ()
循环判断尾 (销毁状态 ＝ 假)
如果真 (线程池.销毁 (0, , ) ＝ 真)
已养号数量 ＝ 0
线程操作.关闭句柄 ()
线程操作.强制结束 ()
已养号数量 ＝ 0
线程池.销毁 (0, 1000, 假)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> SetProcessAffinityMask (-1, 1)<br /> <br /> 许可证号 ＝ 创建进入许可证 ()<br /> 任务数 ＝ 到整数（编辑框.内容）<br /> <br /> ' 任务数 ＝ 总任务数<br /> <br /> 线程数 ＝ 5<br /> 按钮1.禁止 ＝ 真<br /> .如果真 (线程数 ≤ 0)<br />     信息框 (“线程数量不能为0”, 0, , )<br /> .如果真结束<br /> .如果真 (线程数 ＞ 任务数)<br />     线程数 ＝ 任务数<br /> .如果真结束<br /> .如果真 (线程池.取_状态 () ＝ 0)<br />     .循环判断首 ()<br /> <br />     .循环判断尾 (线程池.创建 (线程数, 线程数, , 真) ＝ 假)<br /> <br /> .如果真结束<br /> .判断循环首 (任务数 ＞ 已养号数量)<br />     .如果真 (线程池.取_空闲线程数 () ＞ 0)<br /> <br />         进入许可区 (许可证号)<br />         原子_递增 (已养号数量)<br />         退出许可区 (许可证号)<br /> <br />         线程池.投递任务 (&养号, , )<br /> <br /> <br />     .如果真结束<br />     程序_延时 (500, )<br /> <br /> .判断循环尾 ()<br /> <br /> .循环判断首 (线程池.取_是否空闲 () ＝ 假)<br /> <br />     程序_延时 (500)<br />     处理事件 ()<br /> <br /> .循环判断尾 ()<br /> <br /> .如果真 (线程池.取_是否空闲 () ＝ 真)<br />     按钮1.禁止 ＝ 假<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> .循环判断首 ()<br />     销毁状态 ＝ 线程池.销毁 (0, , )<br />     日志 (“销毁了” ＋ 到文本 (已养号数量))<br /> <br />     程序_延时 (500)<br />     处理事件 ()<br /> .循环判断尾 (销毁状态 ＝ 假)<br /> .如果真 (线程池.销毁 (0, , ) ＝ 真)<br />     已养号数量 ＝ 0<br /> <br />     线程操作.关闭句柄 ()<br />     线程操作.强制结束 ()<br /> <br /> .如果真结束<br /> 已养号数量 ＝ 0<br /> <br /> 线程池.销毁 (0, 1000, 假)

wyk228

有没有大佬帮忙看下

追梦11177012

循环判断首 (线程池.取_是否空闲 () ＝ 假)
程序_延时 (500)
处理事件 ()
循环判断尾 ()

改
判断循环首 (线程池.取执行线程数>0)
程序_延时 (500)
处理事件 ()
判断循环尾

追梦11177012

追梦11177012 发表于 2024-12-3 20:45
循环判断首 (线程池.取_是否空闲 () ＝ 假)
程序_延时 (500)
处理事件 ()

线程池.取执行线程数() 少了括号自己补一下

wyk228

追梦11177012 发表于 2024-12-3 20:45
循环判断首 (线程池.取_是否空闲 () ＝ 假)
程序_延时 (500)
处理事件 ()

但这个不影响我投递吧，我现在是没有养号数小于任务数，但没有继续投递线程
如果修改后面这个部分不是只能把当时运行的线程数那5个运行完，其他都还是不会投递啊