多线停止暂停 崩溃

djmy2018

启动线程的时候会把 线程句柄 传到数组里  然后  全停止 或 全暂停， 经常脚本会卡死，一直找不到解决方法，请大佬们帮忙下，非常谢谢
这是817 乐玩 模块

  

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

变量名	类 型	静态	数组	备 注
n	整数型
列表数	整数型
线程句柄计次	整数型

判断 (按钮_全暂停.标题 ＝ “全暂停”)
计次循环首 (取数组成员数 (主控句柄数组), 线程句柄计次)
UI信息 (线程句柄计次, 2, “暂停中”, #红色, #黄色 )
线程_挂起 (主控句柄数组 [线程句柄计次])
处理事件 ()
超级延时 (100, )
计次循环尾 ()
输出日志 (“”, “全暂停”)
按钮_全暂停.标题 ＝ “全继续”

判断 (按钮_全暂停.标题 ＝ “全继续”)
计次循环首 (取数组成员数 (主控句柄数组), 线程句柄计次)
UI信息 (线程句柄计次, 2, “运行中”, #绿色, #白色 )
线程_恢复 (主控句柄数组 [线程句柄计次])
处理事件 ()
超级延时 (100, )
计次循环尾 ()
输出日志 (“”, “全继续”)
按钮_全暂停.标题 ＝ “全暂停”

.版本 2<br /> <br /> .子程序 _按钮_全暂停_被单击, , , 全暂停<br /> .局部变量 n, 整数型<br /> .局部变量 列表数, 整数型<br /> .局部变量 线程句柄计次, 整数型<br /> <br /> .判断开始 (按钮_全暂停.标题 ＝ “全暂停”)<br />     .计次循环首 (取数组成员数 (主控句柄数组), 线程句柄计次)<br />         UI信息 (线程句柄计次, 2, “暂停中”, #红色, #黄色)<br />         线程_挂起 (主控句柄数组 [线程句柄计次])<br />         处理事件 ()<br />         超级延时 (100, )<br />     .计次循环尾 ()<br />     输出日志 (“”, “全暂停”)<br />     按钮_全暂停.标题 ＝ “全继续”<br /> <br /> .判断 (按钮_全暂停.标题 ＝ “全继续”)<br />     .计次循环首 (取数组成员数 (主控句柄数组), 线程句柄计次)<br />         UI信息 (线程句柄计次, 2, “运行中”, #绿色, #白色)<br />         线程_恢复 (主控句柄数组 [线程句柄计次])<br />         处理事件 ()<br />         超级延时 (100, )<br />     .计次循环尾 ()<br />     输出日志 (“”, “全继续”)<br />     按钮_全暂停.标题 ＝ “全暂停”

  

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

变量名	类 型	静态	数组	备 注
n	整数型
列表数	整数型
线程句柄计次	整数型
i

停止键 ＝ 真
按钮_全暂停.标题 ＝ “全暂停”
按钮_启动.禁止 ＝ 假
按钮_全停止.禁止 ＝ 真
计次循环首 (取数组成员数 (主控句柄数组), 线程句柄计次)
如果真 (线程信息 [线程句柄计次].线程句柄 ≠ 0)
线程_强制结束 (线程信息 [线程句柄计次].线程句柄)
线程_关闭句柄 (线程信息 [线程句柄计次].线程句柄)
线程_销毁 (线程信息 [线程句柄计次].线程句柄)
如果真 (lw [线程句柄计次].后台_是否已绑定 (线程信息 [线程句柄计次].窗口句柄))
lw [线程句柄计次].后台_解绑 ()
调试输出 (“解绑1”)
如果真 (lw [线程句柄计次].后台_是否已绑定 (线程信息 [线程句柄计次].窗口句柄))
lw [线程句柄计次].后台_强制解绑 (线程信息 [线程句柄计次].窗口句柄)
调试输出 (“解绑2”)

线程信息 [线程句柄计次].线程句柄 ＝ 0

处理事件 ()
超级延时 (10, )
计次循环尾 ()
计次循环首 (取数组成员数 (主控句柄数组), 线程句柄计次)
UI信息 (线程句柄计次, 2, “已停止”, #红色, #白色 )
超级延时 (10, )
计次循环尾 ()
输出日志 (“”, “已经全停”)
按钮_全停止.禁止 ＝ 假

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮_全停止_被单击, , , 全停止<br /> .局部变量 n, 整数型<br /> .局部变量 列表数, 整数型<br /> .局部变量 线程句柄计次, 整数型<br /> .局部变量 i<br /> <br /> <br /> 停止键 ＝ 真<br /> 按钮_全暂停.标题 ＝ “全暂停”<br /> <br /> 按钮_启动.禁止 ＝ 假<br /> 按钮_全停止.禁止 ＝ 真<br /> <br /> .计次循环首 (取数组成员数 (主控句柄数组), 线程句柄计次)<br />     .如果真 (线程信息 [线程句柄计次].线程句柄 ≠ 0)<br />         线程_强制结束 (线程信息 [线程句柄计次].线程句柄)<br />         线程_关闭句柄 (线程信息 [线程句柄计次].线程句柄)<br />         线程_销毁 (线程信息 [线程句柄计次].线程句柄)<br /> <br />         .如果真 (lw [线程句柄计次].后台_是否已绑定 (线程信息 [线程句柄计次].窗口句柄))<br />             lw [线程句柄计次].后台_解绑 ()<br />             调试输出 (“解绑1”)<br />         .如果真结束<br />         .如果真 (lw [线程句柄计次].后台_是否已绑定 (线程信息 [线程句柄计次].窗口句柄))<br />             lw [线程句柄计次].后台_强制解绑 (线程信息 [线程句柄计次].窗口句柄)<br />             调试输出 (“解绑2”)<br />         .如果真结束<br /> <br />         线程信息 [线程句柄计次].线程句柄 ＝ 0<br />     .如果真结束<br /> <br />     处理事件 ()<br />     超级延时 (10, )<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (主控句柄数组), 线程句柄计次)<br />     UI信息 (线程句柄计次, 2, “已停止”, #红色, #白色)<br />     超级延时 (10, )<br /> .计次循环尾 ()<br /> 输出日志 (“”, “已经全停”)<br /> 按钮_全停止.禁止 ＝ 假

1043603367

不要使用 线程_销毁（） ，用原子变量传递，让线程自行销毁

djmy2018

1043603367 发表于 2023-7-20 17:13
不要使用 线程_销毁（） ，用原子变量传递，让线程自行销毁

哥，能具体点吗？

1043603367

线程控制.e (934.04 KB, 下载次数: 11)

2023-7-21 09:33 上传

点击文件名下载附件 针对循环类线程

djmy2018

1043603367 发表于 2023-7-21 09:34
针对循环类线程

子程序调用的多，如果这样，每个子程序都要写吗？那太多了吧