子程序部分代码不执行问题

易小妞

直播监控和停止直播录制子程序代码基本相同，为什么停止直播录制可以正常结束监控句柄，而直播监控子程序“下面红线区域没运行”

求大佬指点

代码如下：

  

录制进程ID ＝ 进程_创建Ex (ffmpeg, 命令, , #隐藏窗口, , )
如果 (录制进程ID ＝ 0)
日志 (直播间主播名 ＋ “录制启动失败！”)
超级列表框_直播信息.置标题 (超级列表框_直播信息.现行选中项, 8, “录制失败”)

超级列表框_直播信息.置标题 (超级列表框_直播信息.现行选中项, 9, 到文本 (录制进程ID))
超级列表框_直播信息.置标题 (超级列表框_直播信息.现行选中项, 8, “开始录制”)
日志 (直播间主播名 ＋ “录制已启动，PID:” ＋ 到文本 (录制进程ID))
程序_延时 (100)
现行选中项数值 ＝ 超级列表框_直播信息.查找表项 (到文本 (录制进程ID), 0, 真, 9)
日志 (直播间主播名 ＋ “所在行：” ＋ 到文本 (现行选中项数值))
监控直播线程句柄 ＝ 线程_启动 (&直播监控, 录制进程ID, )
日志 (直播间主播名 ＋ “直播监控线程句柄:” ＋ 到文本 (监控直播线程句柄))
超级列表框_直播信息.置标题 (现行选中项数值, 10, 到文本 (监控直播线程句柄))
超级列表框_直播信息.现行选中项 ＝ -1

子程序名	返回值类型	公开	备 注
直播监控			是否关播
参数名	类 型	参考	可空	数组	备 注
录制进程ID	整数型

变量名	类 型	静态	数组	备 注
监控直播线程句柄	整数型
直播间主播名	文本型
现行选中项数值	整数型

现行选中项数值 ＝ 超级列表框_直播信息.查找表项 (到文本 (录制进程ID), , 真, 9)
调试输出 (现行选中项数值)
直播间主播名 ＝ 超级列表框_直播信息.取标题 (现行选中项数值, 3)
日志 (直播间主播名 ＋ “直播录制监控中。。。”)
判断循环首 (进程_ID是否有效 (录制进程ID))
' 调试输出 (直播间主播名 ＋ “录制中。。。”)
程序_延时 (1000, )
判断循环尾 ()
日志 (直播间主播名 ＋ “录制进程已无效，录制结束。。。”)
进程_结束 (录制进程ID)
超级列表框_直播信息.置标题 (现行选中项数值, 6, “”)
超级列表框_直播信息.置标题 (现行选中项数值, 7, “已停播”)
超级列表框_直播信息.置标题 (现行选中项数值, 8, “停止录制”)
超级列表框_直播信息.置标题 (现行选中项数值, 9, “”)
' 取出监控直播线程句柄
监控直播线程句柄 ＝ 到整数 (超级列表框_直播信息.取标题 (现行选中项数值, 10))
日志 (直播间主播名 ＋ “直播监控子程序：监控直播线程句柄:” ＋ 到文本 (监控直播线程句柄))
[color= #ff0000] -----------------------------这里为什么没有运行-------------------------------------------------------------------------[/color]
如果 (线程_销毁 (监控直播线程句柄))
超级列表框_直播信息.置标题 (现行选中项数值, 10, “成功”)
超级列表框_直播信息.置标题 (现行选中项数值, 10, “失败”)
日志 (直播间主播名 ＋ “直播监控子程序：销毁监控直播线程句柄。。。”)
如果 (关闭线程句柄 (监控直播线程句柄))
超级列表框_直播信息.置标题 (现行选中项数值, 10, “成功”)
超级列表框_直播信息.置标题 (现行选中项数值, 10, “失败”)
日志 (直播间主播名 ＋ “直播监控子程序：关闭监控直播线程句柄。。。”)
[color= #ff0000] ------------------------------------------------------------------------------------------------------------------------[/color]

子程序名	返回值类型	公开	备 注
停止直播录制
参数名	类 型	参考	可空	数组	备 注
录制进程ID	整数型
直播间主播名	文本型

变量名	类 型	静态	数组	备 注
现行选中项数值	整数型
监控直播线程句柄	整数型

现行选中项数值 ＝ 超级列表框_直播信息.查找表项 (到文本 (录制进程ID), 0, 真, 9)
超级列表框_直播信息.置标题 (现行选中项数值, 6, “”)
超级列表框_直播信息.置标题 (现行选中项数值, 7, “已停播”)
超级列表框_直播信息.置标题 (现行选中项数值, 8, “停止录制”)
如果 (进程_ID是否有效 (录制进程ID))
如果 (进程_结束 (录制进程ID))
超级列表框_直播信息.置标题 (现行选中项数值, 9, “成功”)
超级列表框_直播信息.置标题 (现行选中项数值, 9, “失败”)

超级列表框_直播信息.置标题 (现行选中项数值, 9, “失败”)

监控直播线程句柄 ＝ 到整数 (超级列表框_直播信息.取标题 (现行选中项数值, 10))  ' 取出监控直播线程句柄
如果 (线程_取状态 (监控直播线程句柄) ＝ 1)  ' 线程正在运行
如果 (线程_销毁 (监控直播线程句柄))
超级列表框_直播信息.置标题 (现行选中项数值, 10, “成功”)
超级列表框_直播信息.置标题 (现行选中项数值, 10, “失败”)

如果 (关闭线程句柄 (监控直播线程句柄))
超级列表框_直播信息.置标题 (现行选中项数值, 10, “成功”)
超级列表框_直播信息.置标题 (现行选中项数值, 10, “失败”)


超级列表框_直播信息.取消表项选择 (现行选中项数值)
日志 (直播间主播名 ＋ “录制已停止”)
超级列表框_直播信息.现行选中项 ＝ -1

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

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> 录制进程ID ＝ 进程_创建Ex (ffmpeg, 命令, , #隐藏窗口, , )<br /> <br /> .如果 (录制进程ID ＝ 0)<br />     日志 (直播间主播名 ＋ “录制启动失败！”)<br />     超级列表框_直播信息.置标题 (超级列表框_直播信息.现行选中项, 8, “录制失败”)<br /> <br /> .否则<br />     超级列表框_直播信息.置标题 (超级列表框_直播信息.现行选中项, 9, 到文本 (录制进程ID))<br />     超级列表框_直播信息.置标题 (超级列表框_直播信息.现行选中项, 8, “开始录制”)<br /> <br />     日志 (直播间主播名 ＋ “录制已启动，PID:” ＋ 到文本 (录制进程ID))<br />     程序_延时 (100)<br />     现行选中项数值 ＝ 超级列表框_直播信息.查找表项 (到文本 (录制进程ID), 0, 真, 9)<br />     日志 (直播间主播名 ＋ “所在行：” ＋ 到文本 (现行选中项数值))<br />     监控直播线程句柄 ＝ 线程_启动 (&直播监控, 录制进程ID, )<br />     日志 (直播间主播名 ＋ “直播监控线程句柄:” ＋ 到文本 (监控直播线程句柄))<br />     超级列表框_直播信息.置标题 (现行选中项数值, 10, 到文本 (监控直播线程句柄))<br />     超级列表框_直播信息.现行选中项 ＝ -1<br /> .如果结束<br /> <br /> <br /> .子程序 直播监控, , , 是否关播<br /> .参数 录制进程ID, 整数型<br /> .局部变量 监控直播线程句柄, 整数型<br /> .局部变量 直播间主播名, 文本型<br /> .局部变量 现行选中项数值, 整数型<br /> <br /> 现行选中项数值 ＝ 超级列表框_直播信息.查找表项 (到文本 (录制进程ID), , 真, 9)<br /> 调试输出 (现行选中项数值)<br /> 直播间主播名 ＝ 超级列表框_直播信息.取标题 (现行选中项数值, 3)<br /> 日志 (直播间主播名 ＋ “直播录制监控中。。。”)<br /> .判断循环首 (进程_ID是否有效 (录制进程ID))<br />     ' 调试输出 (直播间主播名 ＋ “录制中。。。”)<br />     程序_延时 (1000, )<br /> .判断循环尾 ()<br /> 日志 (直播间主播名 ＋ “录制进程已无效，录制结束。。。”)<br /> 进程_结束 (录制进程ID)<br /> 超级列表框_直播信息.置标题 (现行选中项数值, 6, “”)<br /> 超级列表框_直播信息.置标题 (现行选中项数值, 7, “已停播”)<br /> 超级列表框_直播信息.置标题 (现行选中项数值, 8, “停止录制”)<br /> 超级列表框_直播信息.置标题 (现行选中项数值, 9, “”)<br /> ' 取出监控直播线程句柄<br /> 监控直播线程句柄 ＝ 到整数 (超级列表框_直播信息.取标题 (现行选中项数值, 10))<br /> 日志 (直播间主播名 ＋ “直播监控子程序：监控直播线程句柄:” ＋ 到文本 (监控直播线程句柄))<br /> <font color="#ff0000">-----------------------------这里为什么没有运行-------------------------------------------------------------------------</font><br /> .如果 (线程_销毁 (监控直播线程句柄))<br />     超级列表框_直播信息.置标题 (现行选中项数值, 10, “成功”)<br /> .否则<br />     超级列表框_直播信息.置标题 (现行选中项数值, 10, “失败”)<br /> .如果结束<br /> 日志 (直播间主播名 ＋ “直播监控子程序：销毁监控直播线程句柄。。。”)<br /> .如果 (关闭线程句柄 (监控直播线程句柄))<br />     超级列表框_直播信息.置标题 (现行选中项数值, 10, “成功”)<br /> .否则<br />     超级列表框_直播信息.置标题 (现行选中项数值, 10, “失败”)<br /> .如果结束<br /> 日志 (直播间主播名 ＋ “直播监控子程序：关闭监控直播线程句柄。。。”)<br /> <font color="#ff0000">------------------------------------------------------------------------------------------------------------------------</font><br /> .子程序 停止直播录制<br /> .参数 录制进程ID, 整数型<br /> .参数 直播间主播名, 文本型<br /> .局部变量 现行选中项数值, 整数型<br /> .局部变量 监控直播线程句柄, 整数型<br /> <br /> 现行选中项数值 ＝ 超级列表框_直播信息.查找表项 (到文本 (录制进程ID), 0, 真, 9)<br /> 超级列表框_直播信息.置标题 (现行选中项数值, 6, “”)<br /> 超级列表框_直播信息.置标题 (现行选中项数值, 7, “已停播”)<br /> 超级列表框_直播信息.置标题 (现行选中项数值, 8, “停止录制”)<br /> <br /> .如果 (进程_ID是否有效 (录制进程ID))<br />     .如果 (进程_结束 (录制进程ID))<br />         超级列表框_直播信息.置标题 (现行选中项数值, 9, “成功”)<br />     .否则<br />         超级列表框_直播信息.置标题 (现行选中项数值, 9, “失败”)<br />     .如果结束<br /> <br /> .否则<br />     超级列表框_直播信息.置标题 (现行选中项数值, 9, “失败”)<br /> .如果结束<br /> <br /> 监控直播线程句柄 ＝ 到整数 (超级列表框_直播信息.取标题 (现行选中项数值, 10))  ' 取出监控直播线程句柄<br /> <br /> .如果 (线程_取状态 (监控直播线程句柄) ＝ 1)  ' 线程正在运行<br />     .如果 (线程_销毁 (监控直播线程句柄))<br />         超级列表框_直播信息.置标题 (现行选中项数值, 10, “成功”)<br />     .否则<br />         超级列表框_直播信息.置标题 (现行选中项数值, 10, “失败”)<br />     .如果结束<br /> <br /> .否则<br />     .如果 (关闭线程句柄 (监控直播线程句柄))<br />         超级列表框_直播信息.置标题 (现行选中项数值, 10, “成功”)<br />     .否则<br />         超级列表框_直播信息.置标题 (现行选中项数值, 10, “失败”)<br />     .如果结束<br /> <br /> .如果结束<br /> <br /> 超级列表框_直播信息.取消表项选择 (现行选中项数值)<br /> 日志 (直播间主播名 ＋ “录制已停止”)<br /> 超级列表框_直播信息.现行选中项 ＝ -1

z573277679

直播监控 子程序代码是运行在监控线程内部的。当你执行 线程_销毁 (监控直播线程句柄) 时，你实际上是在命令当前正在运行的这个线程立即停止。
一旦执行了这一行，线程瞬间死亡，CPU 立即停止处理该线程的任何后续指令。因此，紧跟在它后面的 超级列表框...置标题 (“成功”) 以及后续代码没有机会被执行。

丶TiGa

如果 (线程_销毁 (监控直播线程句柄))
超级列表框_直播信息.置标题 (现行选中项数值, 10, “成功”)
超级列表框_直播信息.置标题 (现行选中项数值, 10, “失败”)

这里成功 失败 都没输出？ 是的话有可能碰到暗桩了
新建一个子程序 把代码复制过去 调用新建的子程序

阿素里戈沃里嘚

你在没运行的代码前加一个  程序_延时 (1, )  就可以了

haoren1212

执行的太快没覆盖了，置标题的前面都加上延时试试，还有你线程里置标题不加许可证容易崩

随心o

超级列表框有那么多列么

易小妞

丶TiGa 发表于 2026-2-7 09:40
如果 (线程_销毁 (监控直播线程句柄))
超级列表框_直播信息.置标题 (现行选中项数值, 10, “成功”)
超级列 ...

是的 我调试过很多次 一直搞不定

易小妞

阿素里戈沃里嘚 发表于 2026-2-7 10:03
你在没运行的代码前加一个  程序_延时 (1, )  就可以了

如果说执行太快 需要加延时的话，那我就更纳闷了，下面的“停止直播录制”子程序这里也是没有延时，但是这个运行正常，正常输出

易小妞

随心o 发表于 2026-2-7 11:25
超级列表框有那么多列么

多列 为了防止错乱，都是记录了pid 和线程句柄，然后需要的时候直接查找的

阿素里戈沃里嘚

易小妞 发表于 2026-2-7 17:46
如果说执行太快 需要加延时的话，那我就更纳闷了，下面的“停止直播录制”子程序这里也是没有延时，但是 ...

尽量少用点程序_延时，延迟这种操作，因为这会卡住你的代码然后去执行其他的消息，从而把你主线程的栈空间搞乱；所以就会有很多你看不懂的东西出现；真的需要这种操作，建议你弄个时钟来跑。。。