BXV 发表于 2020-12-6 19:09
建议使用其他模块获取DOS数据，经过分析源码后猜测是管道过小，读取过慢，导致CMD结束后仍未读取完毕（对管 ...

测试无效...
发现模拟器只要超过262不能读取
小于等于262则可以全部读取

建议使用其他模块获取DOS数据，经过分析源码后猜测是管道过小，读取过慢，导致CMD结束后仍未读取完毕（对管道没有太多研究，但是查看源码后我认为是此问题的几率较大）。
请尝试如下代码，如问题无法解决请更换模块：

  

子程序名	返回值类型	公开	备 注
系统_取DOS执行结果	文本型		注意:该命令会阻塞,一直到cmd中的内容执行完毕后才会返回.
参数名	类 型	参考	可空	数组	备 注
命令行文本	文本型
即时回显	子程序指针				DOS即时回显信息回调函数 回调DOS函数(回显信息) 返回逻辑值,真:停止,假:继续

变量名	类 型	静态	数组	备 注
SECURITY_ATTRIBUTES	SECURITY_ATTRIBUTES
STARTUPINFO	STARTUPINFO_短整数
PROCESS_INFORMATION	精易_进程结构
hWrite	整数型
hRead	整数型
txt	字节集
Length	整数型
ExitCode	整数型
retext	文本型
Buff	文本型
hook	字节集

SECURITY_ATTRIBUTES.nLength ＝ 1024
SECURITY_ATTRIBUTES.lpSecurityDescriptor ＝ 0
SECURITY_ATTRIBUTES.bInheritHandle ＝ 真
CreatePipe (hRead, hWrite, SECURITY_ATTRIBUTES, 0)  ' 创建一个匿名管道
STARTUPINFO.cb ＝ 68
STARTUPINFO.dwFlags ＝ 位或 ( #STARTF_USESHOWWINDOW, #STARTF_USESTDHANDLES )
STARTUPINFO.wShowWindow ＝ #SW_HIDE
STARTUPINFO.hStdOutput ＝ hWrite
STARTUPINFO.hStdError ＝ hWrite
如果 (取操作系统类别 () ≤ 2)
CreateProcess_短整数2 (0, “command.com /c ” ＋ 命令行文本, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION)  ' 创建一个新进程，并且设置读写管道，创建成功后，进程会自动再创建一个写管道端口
CreateProcess_短整数2 (0, “cmd.exe /c ” ＋ 命令行文本, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION)  ' 创建一个新进程，并且设置读写管道，创建成功后，进程会自动再创建一个写管道端口

CloseHandle (hWrite)  ' 因为我们开始已经创建了一个写管道端口，现在进程创键时又自动创键了一个写管道端口，所以应关闭多余的管道写端口
hook ＝ { 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 }
判断循环首 (Length ≠ -1)  ' 制造一个无限循环
PeekNamedPipe (hRead, 0, 0, 0, Length, 0)  ' 查看管道中是否有数据
如果 (Length ≠ 0)
txt ＝ 取空白字节集 (Length)
ReadFile (hRead, txt, Length, Length, 0)  ' 从管道中读取数据
Buff ＝ 取字节集数据 (txt, #文本型, )
如果真 (是否为空 (即时回显) ＝ 假)
如果真 (CallWindowProcA (取指针字节集_ (hook), 到整数 (即时回显), 取指针_通用型 (Buff), 1, 0) ≠ 0)
CloseHandle (hRead)  ' 关闭管道
跳出循环 ()

retext ＝ retext ＋ Buff
GetExitCodeProcess (PROCESS_INFORMATION.进程句柄, ExitCode)  ' 查看指定进程是否已结束
如果真 (ExitCode ≠ #STILL_ACTIVE )  ' 因为会有程序退出来了，但管道中还有数据的情况，所以必须在管道中没有数据的情况下判断程序是否已结束，这时才能中止循环！
CloseHandle (hRead)  ' 关闭管道
跳出循环 ()

系统_处理事件 ()
程序_延时 (1)
判断循环尾 ()
CloseHandle (PROCESS_INFORMATION.进程句柄)
CloseHandle (PROCESS_INFORMATION.线程句柄)
返回 (retext)

.版本 2<br /> <br /> .子程序 系统_取DOS执行结果, 文本型, 公开, 注意:该命令会阻塞,一直到cmd中的内容执行完毕后才会返回.<br /> .参数 命令行文本, 文本型<br /> .参数 即时回显, 子程序指针, 可空, DOS即时回显信息回调函数 回调DOS函数(回显信息) 返回逻辑值,真:停止,假:继续<br /> .局部变量 SECURITY_ATTRIBUTES, SECURITY_ATTRIBUTES<br /> .局部变量 STARTUPINFO, STARTUPINFO_短整数<br /> .局部变量 PROCESS_INFORMATION, 精易_进程结构<br /> .局部变量 hWrite, 整数型<br /> .局部变量 hRead, 整数型<br /> .局部变量 txt, 字节集<br /> .局部变量 Length, 整数型<br /> .局部变量 ExitCode, 整数型<br /> .局部变量 retext, 文本型<br /> .局部变量 Buff, 文本型<br /> .局部变量 hook, 字节集<br /> <br /> SECURITY_ATTRIBUTES.nLength ＝ 1024<br /> SECURITY_ATTRIBUTES.lpSecurityDescriptor ＝ 0<br /> SECURITY_ATTRIBUTES.bInheritHandle ＝ 真<br /> CreatePipe (hRead, hWrite, SECURITY_ATTRIBUTES, 0)  ' 创建一个匿名管道<br /> STARTUPINFO.cb ＝ 68<br /> STARTUPINFO.dwFlags ＝ 位或 (#STARTF_USESHOWWINDOW, #STARTF_USESTDHANDLES)<br /> STARTUPINFO.wShowWindow ＝ #SW_HIDE<br /> STARTUPINFO.hStdOutput ＝ hWrite<br /> STARTUPINFO.hStdError ＝ hWrite<br /> .如果 (取操作系统类别 () ≤ 2)<br />     CreateProcess_短整数2 (0, “command.com /c ” ＋ 命令行文本, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION)  ' 创建一个新进程，并且设置读写管道，创建成功后，进程会自动再创建一个写管道端口<br /> .否则<br />     CreateProcess_短整数2 (0, “cmd.exe /c ” ＋ 命令行文本, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION)  ' 创建一个新进程，并且设置读写管道，创建成功后，进程会自动再创建一个写管道端口<br /> .如果结束<br /> <br /> CloseHandle (hWrite)  ' 因为我们开始已经创建了一个写管道端口，现在进程创键时又自动创键了一个写管道端口，所以应关闭多余的管道写端口<br /> <br /> hook ＝ { 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 }<br /> .判断循环首 (Length ≠ -1)  ' 制造一个无限循环<br />     PeekNamedPipe (hRead, 0, 0, 0, Length, 0)  ' 查看管道中是否有数据<br />     .如果 (Length ≠ 0)<br />         txt ＝ 取空白字节集 (Length)<br />         ReadFile (hRead, txt, Length, Length, 0)  ' 从管道中读取数据<br />         Buff ＝ 取字节集数据 (txt, #文本型, )<br />         .如果真 (是否为空 (即时回显) ＝ 假)<br />             .如果真 (CallWindowProcA (取指针字节集_ (hook), 到整数 (即时回显), 取指针_通用型 (Buff), 1, 0) ≠ 0)<br />                 CloseHandle (hRead)  ' 关闭管道<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .如果真结束<br />         retext ＝ retext ＋ Buff<br />     .否则<br />         GetExitCodeProcess (PROCESS_INFORMATION.进程句柄, ExitCode)  ' 查看指定进程是否已结束<br />         .如果真 (ExitCode ≠ #STILL_ACTIVE)  ' 因为会有程序退出来了，但管道中还有数据的情况，所以必须在管道中没有数据的情况下判断程序是否已结束，这时才能中止循环！<br />             CloseHandle (hRead)  ' 关闭管道<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果结束<br />     系统_处理事件 ()<br />     程序_延时 (1)<br /> .判断循环尾 ()<br /> CloseHandle (PROCESS_INFORMATION.进程句柄)<br /> CloseHandle (PROCESS_INFORMATION.线程句柄)<br /> 返回 (retext)