系统_取DOS执行结果，会卡住

fal8899

用了即时回显执行ffmpeg的命令，偶尔会卡住不动，但是不用系统_取DOS执行结果 又正常

emodiyu

他不是有备注吗，用线程启动一下

注意:该命令会阻塞,一直到cmd中的内容执行完毕后才会返回.

兰色的夜晚

我是根据源码写了个回调内取回数据。。。
你也可以这么操作试试。。。
获取一部分数据>多少长度   操作一次回调传给子程序！

补充内容 (2024-5-10 13:44):
我是用 ping 192.168.0.1 -t   永恒阻塞  做的测试！

fal8899

emodiyu 发表于 2024-5-10 13:35
他不是有备注吗，用线程启动一下

注意:该命令会阻塞,一直到cmd中的内容执行完毕后才会返回. ...

你没明白我意思，我是遇到卡死的，本来命令几十秒就该执行完了，卡住一直不动，即时回显也不动了

fal8899

兰色的夜晚 发表于 2024-5-10 13:43
我是根据源码写了个回调内取回数据。。。
你也可以这么操作试试。。。
获取一部分数据>多少长度   操作一次 ...

  

子程序名	返回值类型	公开	备 注
回显子程序	逻辑型		取DOS返回 即时回显子程序例子。返回逻辑值,真:停止,假:继续
参数名	类 型	参考	可空	数组	备 注
即时文本	文本型

变量名	类 型	静态	数组	备 注
回显文本	文本型

回显文本 ＝ 编码_utf8到gb2312 (即时文本)
' 输出调试文本 (回显文本)
编辑框_日志.加入文本 (回显文本 ＋ #换行符 )
返回 (假)  ' 这里如果返回真，则停止该DOS进程

.版本 2<br /> <br /> .子程序 回显子程序, 逻辑型, , 取DOS返回 即时回显子程序例子。返回逻辑值,真:停止,假:继续<br /> .参数 即时文本, 文本型<br /> .局部变量 回显文本, 文本型<br /> <br /> 回显文本 ＝ 编码_utf8到gb2312 (即时文本)<br /> ' 输出调试文本 (回显文本)<br /> 编辑框_日志.加入文本 (回显文本 ＋ #换行符)<br /> 返回 (假)  ' 这里如果返回真，则停止该DOS进程

就这个回调啊，会卡死，数据不返回一直没反应

qq73s5456

用管道，超时退出

fal8899

qq73s5456 发表于 2024-5-10 15:10
用管道，超时退出

能具体一点吗？或者有现成的代码吗？

qq73s5456

fal8899 发表于 2024-5-10 18:26
能具体一点吗？或者有现成的代码吗？

用命名管道呀，超时退出

  

子程序名	返回值类型	公开	备 注
执行CMD	文本型		1
参数名	类 型	参考	可空	数组	备 注
命令行	文本型
即时回显	子程序指针
立退返回	逻辑型				是否是立退返回，不需要执行结果， 壁免长时间阻噻CPU
超时时间	整数型				超时时间 MS  超时强行强束 返回

变量名	类 型	静态	数组	备 注
SECURITY_ATTRIBUTES	SECURITY_ATTRIBUTES
STARTUPINFO	STARTUPINFO_short
PROCESS_INFORMATION	PROCESS_STRUCTURE
txt	字节集
len	整数型
hWrite	整数型
hRead	整数型
EXIT	整数型
fanhui	文本型
linshi	文本型
canshu	整数型		1
开始时间	整数型

置入代码 ( #保护函数头_超级 )
SECURITY_ATTRIBUTES.nLength ＝ 12
SECURITY_ATTRIBUTES.lpSecurityDescriptor ＝ 0
SECURITY_ATTRIBUTES.bInheritHandle ＝ 1
CreatePipe (hRead, hWrite, SECURITY_ATTRIBUTES, 0)
STARTUPINFO.cb ＝ 68
STARTUPINFO.dwFlags ＝ 位或 (1, 256)
STARTUPINFO.wShowWindow ＝ 0
STARTUPINFO.hStdOutput ＝ hWrite
STARTUPINFO.hStdError ＝ hWrite
如果 (取操作系统类别 () ≤ 2)
CreateProcessA (0, “command.com /c ” ＋ 命令行, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION)


CreateProcessA (0, “cmd.exe /c ” ＋ 命令行, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION)
CloseHandle (hWrite)
开始时间 ＝ 取启动时间 ()
' //
判断循环首 (len ≠ -1)
PeekNamedPipe (hRead, 0, 0, 0, len, 0)
如果 (len ≠ 0)
txt ＝ 取空白字节集 (1024)
ReadFile (hRead, txt, 1023, len, 0)
linshi ＝ 取字节集数据 (txt, 10, )
如果真 (是否为空 (即时回显) ＝ 假)
canshu [1] ＝ lstrcpyn (linshi, linshi, 0)
如果真 (CallWindowProcA ({ 85, 139, 236, 86, 139, 117, 16, 141, 78, 255, 133, 201, 124, 21, 139, 69, 12, 141, 4, 136, 65, 139, 16, 137, 85, 16, 255, 117, 16, 131, 232, 4, 73, 117, 242, 255, 85, 8, 137, 69, 12, 139, 69, 20, 133, 192, 116, 13, 141, 4, 181, 0, 0, 0, 0, 137, 69, 16, 3, 101, 16, 139, 69, 12, 94, 93, 194, 16, 0 }, 即时回显, canshu, 1, 假))
CloseHandle (hRead)
跳出循环 ()

fanhui ＝ fanhui ＋ linshi
GetExitCodeProcess (PROCESS_INFORMATION.hProcess, EXIT)
如果 (EXIT ≠ 259)
CloseHandle (hRead)
跳出循环 ()



' //超时
如果真 (超时时间 ＞ 0)
如果真 (取启动时间 () － 开始时间 ≥ 超时时间)
CloseHandle (hRead)
跳出循环 ()



处理事件 ()
如果真 (立退返回 ＝ 真)
CloseHandle (hRead)
跳出循环 ()

判断循环尾 ()
返回 (fanhui)

.版本 2<br /> <br /> .子程序 执行CMD, 文本型, , 1<br /> .参数 命令行, 文本型<br /> .参数 即时回显, 子程序指针, 可空<br /> .参数 立退返回, 逻辑型, 可空, 是否是立退返回，不需要执行结果， 壁免长时间阻噻CPU<br /> .参数 超时时间, 整数型, 可空, 超时时间 MS  超时强行强束 返回<br /> .局部变量 SECURITY_ATTRIBUTES, SECURITY_ATTRIBUTES<br /> .局部变量 STARTUPINFO, STARTUPINFO_short<br /> .局部变量 PROCESS_INFORMATION, PROCESS_STRUCTURE<br /> .局部变量 txt, 字节集<br /> .局部变量 len, 整数型<br /> .局部变量 hWrite, 整数型<br /> .局部变量 hRead, 整数型<br /> .局部变量 EXIT, 整数型<br /> .局部变量 fanhui, 文本型<br /> .局部变量 linshi, 文本型<br /> .局部变量 canshu, 整数型, , "1"<br /> .局部变量 开始时间, 整数型<br /> <br /> <br /> 置入代码 (#保护函数头_超级)<br /> SECURITY_ATTRIBUTES.nLength ＝ 12<br /> SECURITY_ATTRIBUTES.lpSecurityDescriptor ＝ 0<br /> SECURITY_ATTRIBUTES.bInheritHandle ＝ 1<br /> CreatePipe (hRead, hWrite, SECURITY_ATTRIBUTES, 0)<br /> STARTUPINFO.cb ＝ 68<br /> STARTUPINFO.dwFlags ＝ 位或 (1, 256)<br /> STARTUPINFO.wShowWindow ＝ 0<br /> STARTUPINFO.hStdOutput ＝ hWrite<br /> STARTUPINFO.hStdError ＝ hWrite<br /> .如果 (取操作系统类别 () ≤ 2)<br />     CreateProcessA (0, “command.com /c ” ＋ 命令行, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION)<br /> .否则<br /> <br />     CreateProcessA (0, “cmd.exe /c ” ＋ 命令行, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION)<br /> .如果结束<br /> CloseHandle (hWrite)<br /> <br /> 开始时间 ＝ 取启动时间 ()<br /> ' //<br /> .判断循环首 (len ≠ -1)<br />     PeekNamedPipe (hRead, 0, 0, 0, len, 0)<br />     .如果 (len ≠ 0)<br />         txt ＝ 取空白字节集 (1024)<br />         ReadFile (hRead, txt, 1023, len, 0)<br />         linshi ＝ 取字节集数据 (txt, 10, )<br />         .如果真 (是否为空 (即时回显) ＝ 假)<br />             canshu [1] ＝ lstrcpyn (linshi, linshi, 0)<br />             .如果真 (CallWindowProcA ({ 85, 139, 236, 86, 139, 117, 16, 141, 78, 255, 133, 201, 124, 21, 139, 69, 12, 141, 4, 136, 65, 139, 16, 137, 85, 16, 255, 117, 16, 131, 232, 4, 73, 117, 242, 255, 85, 8, 137, 69, 12, 139, 69, 20, 133, 192, 116, 13, 141, 4, 181, 0, 0, 0, 0, 137, 69, 16, 3, 101, 16, 139, 69, 12, 94, 93, 194, 16, 0 }, 即时回显, canshu, 1, 假))<br />                 CloseHandle (hRead)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .如果真结束<br />         fanhui ＝ fanhui ＋ linshi<br />     .否则<br />         GetExitCodeProcess (PROCESS_INFORMATION.hProcess, EXIT)<br />         .如果 (EXIT ≠ 259)<br />             CloseHandle (hRead)<br />             跳出循环 ()<br /> <br />         .否则<br /> <br />             ' //超时<br />             .如果真 (超时时间 ＞ 0)<br />                 .如果真 (取启动时间 () － 开始时间 ≥ 超时时间)<br />                     CloseHandle (hRead)<br />                     跳出循环 ()<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .如果结束<br /> <br /> <br />     .如果结束<br />     处理事件 ()<br />     .如果真 (立退返回 ＝ 真)<br />         CloseHandle (hRead)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 返回 (fanhui)

fal8899

qq73s5456 发表于 2024-5-10 18:30
用命名管道呀，超时退出[e=2].版本 2

.子程序 执行CMD, 文本型, , 1

问题我是cmd下执行是正常的，用系统_取DOS执行结果偶尔会卡住，超时退出的话那个命令就不能执行了，不是我想要的

小李吃不饱

程序_延迟（1） 拿去~