解决程序_运行Ex 在标准输出内容过长时卡死的BUG

生命苦短

可直接替换使用。
现在易语言已经越来越跟不上时代了，连精易模块都停更了。不知道以后论坛会不会像官方论坛那样关了。只能希望逐渐越改越好吧。

  

子程序名	返回值类型	公开	备 注
程序_运行Ex	逻辑型		精易默认的在标准输出内容过长时会卡死，所以改成这样
参数名	类 型	参考	可空	数组	备 注
命令行	文本型
等待运行完毕	逻辑型
窗口显示方式	整数型				参数值可以为以下常量之一：1、#隐藏窗口； 2、#普通激活； 3、#最小化激活； 4、#最大化激活； 5、#普通不激活； 6、#最小化不激活。如果省略本参数，默认为“普通激活”方式。
标准输入数据	字节集
运行返回值	整数型				该参数值为返回值，且[等待运行完毕]必须为真。
标准输出数据	字节集				该参数值为返回值，且[等待运行完毕]必须为真。
标准错误数据	字节集				该参数值为返回值，且[等待运行完毕]必须为真。

变量名	类 型	静态	数组	备 注
startupInfo	STARTUPINFO
pipeAttr	SECURITY_ATTRIBUTES
processInfo	精易_进程结构
hRead	整数型
hWrite	整数型
hErrorRead	整数型
hErrorWrite	整数型
size	整数型
result	逻辑型
结果字节集	字节集

startupInfo.cb ＝ 68  ' sizeof(STARTUPINFO)
startupInfo.dwFlags ＝ #STARTF_USESHOWWINDOW
判断 (窗口显示方式 ＝ #隐藏窗口 )
startupInfo.wShowWindow ＝ #SW_HIDE

判断 (窗口显示方式 ＝ #最小化激活 )
startupInfo.wShowWindow ＝ #SW_SHOWMINIMIZED
判断 (窗口显示方式 ＝ #最大化激活 )
startupInfo.wShowWindow ＝ #SW_SHOWMAXIMIZED
判断 (窗口显示方式 ＝ #普通不激活 )
startupInfo.wShowWindow ＝ #SW_SHOWNOACTIVATE
判断 (窗口显示方式 ＝ #最小化不激活 )
startupInfo.wShowWindow ＝ #SW_SHOWMINNOACTIVE



' #普通激活
startupInfo.wShowWindow ＝ #SW_SHOWNORMAL

如果真 (是否为空 (标准输入数据) ＝ 假 或 是否为空 (标准输出数据) ＝ 假 或 是否为空 (标准错误数据) ＝ 假)
startupInfo.dwFlags ＝ 位或 (startupInfo.dwFlags, #STARTF_USESTDHANDLES )
pipeAttr.nLength ＝ #sizeof_SECURITY_ATTRIBUTES
pipeAttr.bInheritHandle ＝ 真
CreatePipe (hRead, hWrite, pipeAttr, 0)
CreatePipe (hErrorRead, hErrorWrite, pipeAttr, 0)
如果真 (是否为空 (标准输入数据) ＝ 假)
WriteFile (hWrite, 标准输入数据, 取字节集长度 (标准输入数据), 0, 0)
startupInfo.hStdInput ＝ hRead

如果真 (是否为空 (标准输出数据) ＝ 假)
startupInfo.hStdOutput ＝ hWrite

如果真 (是否为空 (标准错误数据) ＝ 假)
startupInfo.hStdError ＝ hErrorWrite


如果真 (CreateProcessA (0, 命令行, 0, 0, 真, 0, 0, 0, startupInfo, processInfo))
result ＝ 真
如果真 (等待运行完毕)
判断循环首 (WaitForSingleObject (processInfo.进程句柄, 100) ＝ #WAIT_TIMEOUT )
如果真 (PeekNamedPipe_字节集 (hRead, 结果字节集, 0, 0, size, 0))
结果字节集 ＝ 取空白字节集 (size)
如果真 (size ＞ 0)
ReadFile (hRead, 结果字节集, size, 0, 0)
标准输出数据 ＝ 标准输出数据 ＋ 结果字节集
结果字节集 ＝ {  }


判断循环尾 ()
如果真 (是否为空 (运行返回值) ＝ 假)
GetExitCodeProcess (processInfo.进程句柄, 运行返回值)

如果真 (是否为空 (标准输出数据) ＝ 假)
如果真 (PeekNamedPipe_字节集 (hRead, 结果字节集, 0, 0, size, 0))
结果字节集 ＝ 取空白字节集 (size)
如果真 (size ＞ 0)
ReadFile (hRead, 结果字节集, size, 0, 0)
标准输出数据 ＝ 标准输出数据 ＋ 结果字节集



如果真 (是否为空 (标准错误数据) ＝ 假)
如果真 (PeekNamedPipe_字节集 (hErrorRead, 标准错误数据, 0, 0, size, 0))
标准错误数据 ＝ 取空白字节集 (size)
如果真 (size ＞ 0)
ReadFile (hErrorRead, 标准错误数据, size, 0, 0)




CloseHandle (processInfo.进程句柄)
CloseHandle (processInfo.线程句柄)

如果真 (是否为空 (标准输入数据) ＝ 假 或 是否为空 (标准输出数据) ＝ 假 或 是否为空 (标准错误数据) ＝ 假)
CloseHandle (hRead)
CloseHandle (hWrite)
CloseHandle (hErrorRead)
CloseHandle (hErrorWrite)

返回 (result)

.版本 2<br /> <br /> <br /> <br /> .子程序 程序_运行Ex, 逻辑型, 公开, 精易默认的在标准输出内容过长时会卡死，所以改成这样<br /> <br /> .参数 命令行, 文本型<br /> <br /> .参数 等待运行完毕, 逻辑型, 可空<br /> <br /> .参数 窗口显示方式, 整数型, 可空, 参数值可以为以下常量之一：1、#隐藏窗口； 2、#普通激活； 3、#最小化激活； 4、#最大化激活； 5、#普通不激活； 6、#最小化不激活。如果省略本参数，默认为“普通激活”方式。<br /> <br /> .参数 标准输入数据, 字节集, 可空<br /> <br /> .参数 运行返回值, 整数型, 参考 可空, 该参数值为返回值，且[等待运行完毕]必须为真。<br /> <br /> .参数 标准输出数据, 字节集, 参考 可空, 该参数值为返回值，且[等待运行完毕]必须为真。<br /> <br /> .参数 标准错误数据, 字节集, 参考 可空, 该参数值为返回值，且[等待运行完毕]必须为真。<br /> <br /> .局部变量 startupInfo, STARTUPINFO<br /> <br /> .局部变量 pipeAttr, SECURITY_ATTRIBUTES<br /> <br /> .局部变量 processInfo, 精易_进程结构<br /> <br /> .局部变量 hRead, 整数型<br /> <br /> .局部变量 hWrite, 整数型<br /> <br /> .局部变量 hErrorRead, 整数型<br /> <br /> .局部变量 hErrorWrite, 整数型<br /> <br /> .局部变量 size, 整数型<br /> <br /> .局部变量 result, 逻辑型<br /> <br /> .局部变量 结果字节集, 字节集<br /> <br /> <br /> <br /> startupInfo.cb ＝ 68  ' sizeof(STARTUPINFO)<br /> <br /> startupInfo.dwFlags ＝ #STARTF_USESHOWWINDOW<br /> <br /> .判断开始 (窗口显示方式 ＝ #隐藏窗口)<br /> <br />     startupInfo.wShowWindow ＝ #SW_HIDE<br /> <br /> .判断 (窗口显示方式 ＝ #最小化激活)<br /> <br />     startupInfo.wShowWindow ＝ #SW_SHOWMINIMIZED<br /> <br /> .判断 (窗口显示方式 ＝ #最大化激活)<br /> <br />     startupInfo.wShowWindow ＝ #SW_SHOWMAXIMIZED<br /> <br /> .判断 (窗口显示方式 ＝ #普通不激活)<br /> <br />     startupInfo.wShowWindow ＝ #SW_SHOWNOACTIVATE<br /> <br /> .判断 (窗口显示方式 ＝ #最小化不激活)<br /> <br />     startupInfo.wShowWindow ＝ #SW_SHOWMINNOACTIVE<br /> <br /> .默认<br /> <br />     ' #普通激活<br /> <br />     startupInfo.wShowWindow ＝ #SW_SHOWNORMAL<br /> <br /> .判断结束<br /> <br /> .如果真 (是否为空 (标准输入数据) ＝ 假 或 是否为空 (标准输出数据) ＝ 假 或 是否为空 (标准错误数据) ＝ 假)<br /> <br />     startupInfo.dwFlags ＝ 位或 (startupInfo.dwFlags, #STARTF_USESTDHANDLES)<br /> <br />     pipeAttr.nLength ＝ #sizeof_SECURITY_ATTRIBUTES<br /> <br />     pipeAttr.bInheritHandle ＝ 真<br /> <br />     CreatePipe (hRead, hWrite, pipeAttr, 0)<br /> <br />     CreatePipe (hErrorRead, hErrorWrite, pipeAttr, 0)<br /> <br />     .如果真 (是否为空 (标准输入数据) ＝ 假)<br /> <br />         WriteFile (hWrite, 标准输入数据, 取字节集长度 (标准输入数据), 0, 0)<br /> <br />         startupInfo.hStdInput ＝ hRead<br /> <br />     .如果真结束<br /> <br />     .如果真 (是否为空 (标准输出数据) ＝ 假)<br /> <br />         startupInfo.hStdOutput ＝ hWrite<br /> <br />     .如果真结束<br /> <br />     .如果真 (是否为空 (标准错误数据) ＝ 假)<br /> <br />         startupInfo.hStdError ＝ hErrorWrite<br /> <br />     .如果真结束<br /> <br /> <br /> <br /> .如果真结束<br /> <br /> .如果真 (CreateProcessA (0, 命令行, 0, 0, 真, 0, 0, 0, startupInfo, processInfo))<br /> <br />     result ＝ 真<br /> <br />     .如果真 (等待运行完毕)<br /> <br /> <br /> <br />         .判断循环首 (WaitForSingleObject (processInfo.进程句柄, 100) ＝ #WAIT_TIMEOUT)<br /> <br />             .如果真 (PeekNamedPipe_字节集 (hRead, 结果字节集, 0, 0, size, 0))<br /> <br />                 结果字节集 ＝ 取空白字节集 (size)<br /> <br />                 .如果真 (size ＞ 0)<br /> <br />                     ReadFile (hRead, 结果字节集, size, 0, 0)<br /> <br />                     标准输出数据 ＝ 标准输出数据 ＋ 结果字节集<br /> <br />                     结果字节集 ＝ {  }<br /> <br />                 .如果真结束<br /> <br /> <br /> <br />             .如果真结束<br /> <br /> <br /> <br />         .判断循环尾 ()<br /> <br />         .如果真 (是否为空 (运行返回值) ＝ 假)<br /> <br />             GetExitCodeProcess (processInfo.进程句柄, 运行返回值)<br /> <br />         .如果真结束<br /> <br />         .如果真 (是否为空 (标准输出数据) ＝ 假)<br /> <br />             .如果真 (PeekNamedPipe_字节集 (hRead, 结果字节集, 0, 0, size, 0))<br /> <br />                 结果字节集 ＝ 取空白字节集 (size)<br /> <br />                 .如果真 (size ＞ 0)<br /> <br />                     ReadFile (hRead, 结果字节集, size, 0, 0)<br /> <br />                     标准输出数据 ＝ 标准输出数据 ＋ 结果字节集<br /> <br />                 .如果真结束<br /> <br /> <br /> <br />             .如果真结束<br /> <br /> <br /> <br />         .如果真结束<br /> <br />         .如果真 (是否为空 (标准错误数据) ＝ 假)<br /> <br />             .如果真 (PeekNamedPipe_字节集 (hErrorRead, 标准错误数据, 0, 0, size, 0))<br /> <br />                 标准错误数据 ＝ 取空白字节集 (size)<br /> <br />                 .如果真 (size ＞ 0)<br /> <br />                     ReadFile (hErrorRead, 标准错误数据, size, 0, 0)<br /> <br />                 .如果真结束<br /> <br /> <br /> <br />             .如果真结束<br /> <br /> <br /> <br />         .如果真结束<br /> <br /> <br /> <br />     .如果真结束<br /> <br />     CloseHandle (processInfo.进程句柄)<br /> <br />     CloseHandle (processInfo.线程句柄)<br /> <br /> .如果真结束<br /> <br /> .如果真 (是否为空 (标准输入数据) ＝ 假 或 是否为空 (标准输出数据) ＝ 假 或 是否为空 (标准错误数据) ＝ 假)<br /> <br />     CloseHandle (hRead)<br /> <br />     CloseHandle (hWrite)<br /> <br />     CloseHandle (hErrorRead)<br /> <br />     CloseHandle (hErrorWrite)<br /> <br /> .如果真结束<br /> <br /> 返回 (result)

cjh991206

感谢分享

葛晨

感谢分享

1184798949

感谢分享