多线程单个窗口重启偶尔会停掉所有线程执行

pengyuanjun

多线程，单个窗口重启偶尔会停掉所有线程执行
偶尔不会，在代码调试没有发现问题
哪位大神指教一二

  

子程序名	返回值类型	公开	备 注
_选择重启_被选择

变量名	类 型	静态	数组	备 注
选中行号	整数型
选中进程ID	整数型
选中线程句柄	整数型
选中监控线程句柄	整数型
大漠	dmsoft
是否确认	整数型
当前账号	文本型
n	整数型
多线程数量	整数型

选择重启.禁止 ＝ 真
是否确认 ＝ 1
进入许可区 (许可证)
选中行号 ＝ 超级列表框1.现行选中项
当前账号 ＝ 超级列表框1.取标题 (选中行号, 1)
' 选中行号 ＝ 选中行号 ＋ 1
' 全局任务文本 ＝ “”
' 选中进程ID ＝ 大漠多线程 [选中行号].进程ID
' 选中线程句柄 ＝ 大漠多线程 [选中行号].线程句柄
' 选中监控线程句柄 ＝ 大漠多线程 [选中行号].监控线程句柄
' 大漠 ＝ 大漠多线程 [选中行号].大漠
多线程数量 ＝ 取数组成员数 (大漠多线程)
退出许可区 (许可证)
如果 (选中行号 ＞ -1)
选中行号 ＝ 选中行号 ＋ 1
如果 (多线程数量 ≥ 选中行号)
进入许可区 (许可证)
全局任务文本 ＝ “”
选中进程ID ＝ 大漠多线程 [选中行号].进程ID
选中线程句柄 ＝ 大漠多线程 [选中行号].线程句柄
选中监控线程句柄 ＝ 大漠多线程 [选中行号].监控线程句柄
大漠 ＝ 大漠多线程 [选中行号].大漠
退出许可区 (许可证)
如果 (选中进程ID ＞ 0 且 选中线程句柄 ＞ 0 且 选中监控线程句柄 ＞ 0)
是否确认 ＝ 信息框 (“确定当前账号【” ＋ 当前账号 ＋ “】重启吗！”, 33, , )
如果 (是否确认 ＝ 0)
' 反馈列表信息 (选中行号, 7, “”)
计次循环首 (列表框_任务.取项目数 (), n)
进入许可区 (许可证)
全局任务文本 ＝ 全局任务文本 ＋ 列表框_任务.取项目文本 (n － 1) ＋ “|”
退出许可区 (许可证)
计次循环尾 ()
大漠.UnBindWindow ()
进程_结束 (选中进程ID)
大漠.释放 ()
' 大漠.销毁 ()
线程_销毁 (选中监控线程句柄)
线程_关闭句柄 (选中监控线程句柄)
线程_销毁 (选中线程句柄)
线程_关闭句柄 (选中线程句柄)
进入许可区 (许可证)
大漠多线程 [选中行号].线程句柄 ＝ 0
程序_延时 (2000, )
大漠多线程 [选中行号].线程句柄 ＝ 线程_启动 (&窗口线程, 选中行号, )
如果 (大漠多线程 [选中行号].线程句柄 ＞ 0)
调试输出 (“线程” ＋ 到文本 (选中行号) ＋ “重启成功”)
调试输出 (“线程” ＋ 到文本 (选中行号) ＋ “重启失败”)
退出许可区 (许可证)
判断循环首 (真)
如果真 (全局登录状态 ＝ “登录成功”)
进入许可区 (许可证)
全局登录状态 ＝ “”
退出许可区 (许可证)
跳出循环 ()
程序_延时 (3000, )
判断循环尾 ()
进入许可区 (许可证)
大漠多线程 [选中行号].卡点任务 ＝ “”
大漠多线程 [选中行号].当前已完成任务索引 ＝ 0
大漠多线程 [选中行号].监控线程句柄 ＝ 线程_启动 (&窗口监控线程一, 选中行号, )  ' 方法一
如果 (大漠多线程 [选中行号].监控线程句柄 ＞ 0)
调试输出 (“监控线程” ＋ 到文本 (选中行号) ＋ “启动成功”)
调试输出 (“监控线程” ＋ 到文本 (选中行号) ＋ “启动失败”)
退出许可区 (许可证)
反馈列表信息 (选中行号, 8, “运行中”)
选择重启.禁止 ＝ 假



程序_延时 (1000, )
选择重启.禁止 ＝ 假




信息框 (“选中的账号未启动过无法重启！”, 48, , )
选择重启.禁止 ＝ 假




信息框 (“未检测到有模拟器开启无法重启！”, 48, , )
选择重启.禁止 ＝ 假




信息框 (“请选中要重启的账号！”, 48, , )
选择重启.禁止 ＝ 假

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

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _选择重启_被选择<br /> .局部变量 选中行号, 整数型<br /> .局部变量 选中进程ID, 整数型<br /> .局部变量 选中线程句柄, 整数型<br /> .局部变量 选中监控线程句柄, 整数型<br /> .局部变量 大漠, dmsoft<br /> .局部变量 是否确认, 整数型<br /> .局部变量 当前账号, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 多线程数量, 整数型<br /> <br /> <br /> <br /> 选择重启.禁止 ＝ 真<br /> 是否确认 ＝ 1<br /> 进入许可区 (许可证)<br /> 选中行号 ＝ 超级列表框1.现行选中项<br /> 当前账号 ＝ 超级列表框1.取标题 (选中行号, 1)<br /> ' 选中行号 ＝ 选中行号 ＋ 1<br /> ' 全局任务文本 ＝ “”<br /> ' 选中进程ID ＝ 大漠多线程 [选中行号].进程ID<br /> ' 选中线程句柄 ＝ 大漠多线程 [选中行号].线程句柄<br /> ' 选中监控线程句柄 ＝ 大漠多线程 [选中行号].监控线程句柄<br /> ' 大漠 ＝ 大漠多线程 [选中行号].大漠<br /> 多线程数量 ＝ 取数组成员数 (大漠多线程)<br /> 退出许可区 (许可证)<br /> <br /> <br /> <br /> .如果 (选中行号 ＞ -1)<br />     选中行号 ＝ 选中行号 ＋ 1<br />     .如果 (多线程数量 ≥ 选中行号)<br />         进入许可区 (许可证)<br />         全局任务文本 ＝ “”<br />         选中进程ID ＝ 大漠多线程 [选中行号].进程ID<br />         选中线程句柄 ＝ 大漠多线程 [选中行号].线程句柄<br />         选中监控线程句柄 ＝ 大漠多线程 [选中行号].监控线程句柄<br />         大漠 ＝ 大漠多线程 [选中行号].大漠<br />         退出许可区 (许可证)<br /> <br />         .如果 (选中进程ID ＞ 0 且 选中线程句柄 ＞ 0 且 选中监控线程句柄 ＞ 0)<br />             是否确认 ＝ 信息框 (“确定当前账号【” ＋ 当前账号 ＋ “】重启吗！”, 33, , )<br />             .如果 (是否确认 ＝ 0)<br /> <br />                 ' 反馈列表信息 (选中行号, 7, “”)<br />                 .计次循环首 (列表框_任务.取项目数 (), n)<br />                     进入许可区 (许可证)<br />                     全局任务文本 ＝ 全局任务文本 ＋ 列表框_任务.取项目文本 (n － 1) ＋ “|”<br />                     退出许可区 (许可证)<br />                 .计次循环尾 ()<br /> <br />                 大漠.UnBindWindow ()<br />                 进程_结束 (选中进程ID)<br />                 大漠.释放 ()<br />                 ' 大漠.销毁 ()<br />                 线程_销毁 (选中监控线程句柄)<br />                 线程_关闭句柄 (选中监控线程句柄)<br />                 线程_销毁 (选中线程句柄)<br />                 线程_关闭句柄 (选中线程句柄)<br /> <br />                 进入许可区 (许可证)<br />                 大漠多线程 [选中行号].线程句柄 ＝ 0<br />                 程序_延时 (2000, )<br />                 大漠多线程 [选中行号].线程句柄 ＝ 线程_启动 (&窗口线程, 选中行号, )<br />                 .如果 (大漠多线程 [选中行号].线程句柄 ＞ 0)<br />                     调试输出 (“线程” ＋ 到文本 (选中行号) ＋ “重启成功”)<br />                 .否则<br />                     调试输出 (“线程” ＋ 到文本 (选中行号) ＋ “重启失败”)<br />                 .如果结束<br />                 退出许可区 (许可证)<br /> <br />                 .判断循环首 (真)<br />                     .如果真 (全局登录状态 ＝ “登录成功”)<br />                         进入许可区 (许可证)<br />                         全局登录状态 ＝ “”<br />                         退出许可区 (许可证)<br />                         跳出循环 ()<br />                     .如果真结束<br />                     程序_延时 (3000, )<br />                 .判断循环尾 ()<br /> <br />                 进入许可区 (许可证)<br />                 大漠多线程 [选中行号].卡点任务 ＝ “”<br />                 大漠多线程 [选中行号].当前已完成任务索引 ＝ 0<br />                 大漠多线程 [选中行号].监控线程句柄 ＝ 线程_启动 (&窗口监控线程一, 选中行号, )  ' 方法一<br />                 .如果 (大漠多线程 [选中行号].监控线程句柄 ＞ 0)<br />                     调试输出 (“监控线程” ＋ 到文本 (选中行号) ＋ “启动成功”)<br />                 .否则<br />                     调试输出 (“监控线程” ＋ 到文本 (选中行号) ＋ “启动失败”)<br />                 .如果结束<br />                 退出许可区 (许可证)<br /> <br />                 反馈列表信息 (选中行号, 8, “运行中”)<br /> <br />                 选择重启.禁止 ＝ 假<br /> <br /> <br /> <br />             .否则<br /> <br />                 程序_延时 (1000, )<br />                 选择重启.禁止 ＝ 假<br /> <br />             .如果结束<br /> <br /> <br /> <br />         .否则<br /> <br />             信息框 (“选中的账号未启动过无法重启！”, 48, , )<br />             选择重启.禁止 ＝ 假<br /> <br /> <br />         .如果结束<br /> <br /> <br /> <br />     .否则<br /> <br />         信息框 (“未检测到有模拟器开启无法重启！”, 48, , )<br />         选择重启.禁止 ＝ 假<br /> <br /> <br />     .如果结束<br /> <br /> <br /> <br /> .否则<br /> <br />     信息框 (“请选中要重启的账号！”, 48, , )<br />     选择重启.禁止 ＝ 假

po1718

粗略看了你的代码. 不是停掉线程问题,是你这乱用许可证导致卡在许可 . 还有你好像是在按钮点击路面跑线程.不卡界面么?

pengyuanjun

po1718 发表于 2025-5-17 10:45
粗略看了你的代码. 不是停掉线程问题,是你这乱用许可证导致卡在许可 . 还有你好像是在按钮点击路面跑线程. ...

去掉许可证也不行

pengyuanjun

po1718 发表于 2025-5-17 10:45
粗略看了你的代码. 不是停掉线程问题,是你这乱用许可证导致卡在许可 . 还有你好像是在按钮点击路面跑线程. ...

我屏蔽了全部许可证，但是跑的时候，单个窗口重启还是会偶发线程全部死了