系统_取DOS执行结果添加ExitCode返回

梦汐

ExitCode挺实用的，比如执行exe的时候可以根据ExitCode来判断，而不是根据响应文本来判断

  

子程序名	返回值类型	公开	备 注
系统_取DOS执行结果T	字节集		该命令会阻塞，一直到CMD中的内容执行完毕后才会返回
参数名	类 型	参考	可空	数组	备 注
命令行文本	字节集
即时回显	子程序指针				DOS即时回显信息回调函数！回调DOS函数(回显信息) 返回逻辑值；真、停止，假、继续
UNICODE	逻辑型
ExitCode	整数型

变量名	类 型	静态	数组	备 注
hRead	整数型
hWrite	整数型
sa	SECURITY_ATTRIBUTES
nMaxCount	整数型
szPath	字节集
szCmdLine	字节集
si	STARTUPINFO
pi	PROCESS_INFORMATION
dwBytesInStdOut	整数型
lRes	逻辑型
dwExitCode	整数型
szTemp	字节集
szBuf	字节集

sa.nLength ＝ 12  ' sizeof(SECURITY_ATTRIBUTES)
sa.lpSecurityDescriptor ＝ #NULL
sa.bInheritHandle ＝ 真
lRes ＝ CreatePipe (hRead, hWrite, sa, 0)
如果真 (lRes ＝ 假)
返回 ({  })
si.cb ＝ 68  ' sizeof(STARTUPINFO)
si.dwFlags ＝ 位或 ( #STARTF_USESTDHANDLES, #STARTF_USESHOWWINDOW )
si.wShowWindow ＝ #SW_HIDE
si.hStdInput ＝ hRead
si.hStdOutput ＝ hWrite
si.hStdError ＝ hWrite
szPath ＝ 取空白字节集 (incShl ( #MAX_PATH, 真))
SHGetSpecialFolderPathW ( #NULL, 取指针字节集_ (szPath), #CSIDL_SYSTEM, 假)
写到内存 (编码_Ansi到Unicode (选择 (_WIN32_WINNT ≥ #_WIN32_WINNT_WINXP, “\cmd.exe”, “\command.com”), ), 取指针字节集_ (szPath) ＋ incShl (文本_取长度W (szPath), 真), )
szCmdLine ＝ 编码_Ansi到Unicode (“ /c ”, 真) ＋ 命令行文本
nMaxCount ＝ 取字节集长度 (szCmdLine)
szCmdLine ＝ szCmdLine ＋ 取空白字节集 (incShl ( #MAXSHORT, 真) － nMaxCount)  ' 填充
lRes ＝ CreateProcessW (取指针字节集_ (szPath), 取指针_字节集型 (szCmdLine), 取数据_通用型 (sa), #NULL, 真, 0, #NULL, #NULL, si, pi)
CloseHandle (hWrite)
如果真 (lRes ＝ 假)
CloseHandle (hRead)
返回 ({  })
CloseHandle (pi.hThread)
WaitForInputIdle (pi.hProcess, 1000)  ' 毫秒
判断循环首 (dwBytesInStdOut ≠ -1)
PeekNamedPipe (hRead, #NULL, 0, #NULL, dwBytesInStdOut, #NULL )
如果 (dwBytesInStdOut ＞ 0)
szTemp ＝ 取空白字节集 (dwBytesInStdOut)
ReadFile (hRead, szTemp, dwBytesInStdOut, dwBytesInStdOut, #NULL )
szBuf ＝ szBuf ＋ szTemp
如果真 (是否为空 (即时回显) ＝ 假)
如果 (UNICODE)
szTemp ＝ A2W_CP (szTemp, m_CodePage)
szTemp ＝ szTemp ＋ { 0 }
lRes ＝ 程序_执行整数子程序 (即时回显, 取指针_字节集型 (szTemp), , ) ≠ 0
如果真 (lRes)
跳出循环 ()


GetExitCodeProcess (pi.hProcess, dwExitCode)
如果真 (dwExitCode ≠ #STILL_ACTIVE )
跳出循环 ()

Sleep (1)
判断循环尾 ()
CloseHandle (pi.hProcess)
CloseHandle (hRead)
ExitCode ＝ dwExitCode
如果真 (szBuf ＝ {  })
返回 ({  })
如果 (UNICODE)
返回 (A2W_CP (szBuf, m_CodePage))
szBuf ＝ szBuf ＋ { 0 }
返回 (szBuf)

.版本 2<br /> <br /> .子程序 系统_取DOS执行结果T, 字节集, 公开, 该命令会阻塞，一直到CMD中的内容执行完毕后才会返回<br /> .参数 命令行文本, 字节集<br /> .参数 即时回显, 子程序指针, 可空, DOS即时回显信息回调函数！回调DOS函数(回显信息) 返回逻辑值；真、停止，假、继续<br /> .参数 UNICODE, 逻辑型, 可空<br /> .参数 ExitCode, 整数型, 参考 可空<br /> .局部变量 hRead, 整数型<br /> .局部变量 hWrite, 整数型<br /> .局部变量 sa, SECURITY_ATTRIBUTES<br /> .局部变量 nMaxCount, 整数型<br /> .局部变量 szPath, 字节集<br /> .局部变量 szCmdLine, 字节集<br /> .局部变量 si, STARTUPINFO<br /> .局部变量 pi, PROCESS_INFORMATION<br /> .局部变量 dwBytesInStdOut, 整数型<br /> .局部变量 lRes, 逻辑型<br /> .局部变量 dwExitCode, 整数型<br /> .局部变量 szTemp, 字节集<br /> .局部变量 szBuf, 字节集<br /> <br /> sa.nLength ＝ 12  ' sizeof(SECURITY_ATTRIBUTES)<br /> sa.lpSecurityDescriptor ＝ #NULL<br /> sa.bInheritHandle ＝ 真<br /> lRes ＝ CreatePipe (hRead, hWrite, sa, 0)<br /> .如果真 (lRes ＝ 假)<br />     返回 ({  })<br /> .如果真结束<br /> si.cb ＝ 68  ' sizeof(STARTUPINFO)<br /> si.dwFlags ＝ 位或 (#STARTF_USESTDHANDLES, #STARTF_USESHOWWINDOW)<br /> si.wShowWindow ＝ #SW_HIDE<br /> si.hStdInput ＝ hRead<br /> si.hStdOutput ＝ hWrite<br /> si.hStdError ＝ hWrite<br /> szPath ＝ 取空白字节集 (incShl (#MAX_PATH, 真))<br /> SHGetSpecialFolderPathW (#NULL, 取指针字节集_ (szPath), #CSIDL_SYSTEM, 假)<br /> 写到内存 (编码_Ansi到Unicode (选择 (_WIN32_WINNT ≥ #_WIN32_WINNT_WINXP, “\cmd.exe”, “\command.com”), ), 取指针字节集_ (szPath) ＋ incShl (文本_取长度W (szPath), 真), )<br /> szCmdLine ＝ 编码_Ansi到Unicode (“ /c ”, 真) ＋ 命令行文本<br /> nMaxCount ＝ 取字节集长度 (szCmdLine)<br /> szCmdLine ＝ szCmdLine ＋ 取空白字节集 (incShl (#MAXSHORT, 真) － nMaxCount)  ' 填充<br /> lRes ＝ CreateProcessW (取指针字节集_ (szPath), 取指针_字节集型 (szCmdLine), 取数据_通用型 (sa), #NULL, 真, 0, #NULL, #NULL, si, pi)<br /> CloseHandle (hWrite)<br /> .如果真 (lRes ＝ 假)<br />     CloseHandle (hRead)<br />     返回 ({  })<br /> .如果真结束<br /> CloseHandle (pi.hThread)<br /> WaitForInputIdle (pi.hProcess, 1000)  ' 毫秒<br /> .判断循环首 (dwBytesInStdOut ≠ -1)<br />     PeekNamedPipe (hRead, #NULL, 0, #NULL, dwBytesInStdOut, #NULL)<br />     .如果 (dwBytesInStdOut ＞ 0)<br />         szTemp ＝ 取空白字节集 (dwBytesInStdOut)<br />         ReadFile (hRead, szTemp, dwBytesInStdOut, dwBytesInStdOut, #NULL)<br />         szBuf ＝ szBuf ＋ szTemp<br />         .如果真 (是否为空 (即时回显) ＝ 假)<br />             .如果 (UNICODE)<br />                 szTemp ＝ A2W_CP (szTemp, m_CodePage)<br />             .否则<br />                 szTemp ＝ szTemp ＋ { 0 }<br />             .如果结束<br />             lRes ＝ 程序_执行整数子程序 (即时回显, 取指针_字节集型 (szTemp), , ) ≠ 0<br />             .如果真 (lRes)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .否则<br />         GetExitCodeProcess (pi.hProcess, dwExitCode)<br />         .如果真 (dwExitCode ≠ #STILL_ACTIVE)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果结束<br />     Sleep (1)<br /> .判断循环尾 ()<br /> CloseHandle (pi.hProcess)<br /> CloseHandle (hRead)<br /> ExitCode ＝ dwExitCode<br /> .如果真 (szBuf ＝ {  })<br />     返回 ({  })<br /> .如果真结束<br /> .如果 (UNICODE)<br />     返回 (A2W_CP (szBuf, m_CodePage))<br /> .否则<br />     szBuf ＝ szBuf ＋ { 0 }<br /> .如果结束<br /> 返回 (szBuf)

lelele1979

好像不能全部取到 我登陆了两个原版qq和一个nt的 只能各取到一个

388266

#在这里快速回复#每日打卡签到

一指温柔

每日打卡签到

z2368370

主窗口句柄主窗口句柄主窗口句柄主窗口句柄主窗口句柄主窗口句柄主窗口句柄主窗口句柄主窗口句柄主窗口句柄主窗口句柄