CMD 回显 数据流 获取 最终版

zhanglei1371

感谢分享，看看如何实现的

zhanglei1371

不知其他人测试结果如何，我测试的结果返回空。
代码如下：

Local $mytxt=RunCMD("dir E:\*.txt")
MsgBox(0,1,$mytxt)
Exit
Func GetCMD($command)
        Local $strA
        Local $var="d:\dir.txt"
        Run(@ComSpec & ' /c ' & $command & '>"'&$var&'"',"", @SW_HIDE)
        $strA=FileRead($var)
        FileDelete($var)
        Return $strA
EndFunc

Func RunCmd($sCommand, $bBin = False, $bWait = False) ;1:要执行的命令行（无需带@ComSpec） 2:是否以二进制方式读取（防止中文乱码，如ImageX） 3:是否等待进程执行完毕（防止部分exe数据流获取不全，如Diskpart）
Local $STDERR_CHILD
        Local $STDOUT_CHILD
        If $bBin Then
 Local $sOutput = Binary('')
 Else
 Local $sOutput = ''
 EndIf
 Local $iPID = Run($sCommand, '', @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)

 If $bWait Then
 ProcessWaitClose($iPID)
 $sOutput = StdoutRead($iPID, False, $bBin)
        MsgBox(0,0, $sOutput )
 Else
 While 1
 $sOutput &= StdoutRead($iPID, False, $bBin)
 If @error Then ExitLoop
 WEnd
 EndIf
 If $bBin Then $sOutput = BinaryToString($sOutput, 4)
 Return $sOutput
 EndFunc ;==>RunCmd

使用文件中转读取却没有任何问题：
下面是我自己的函数：

Local $mytxt=GetCMD("dir E:\*.txt")
MsgBox(0,1,$mytxt)
Exit


Func GetCMD($command)
        Local $strA
        Local $var="d:\dir.txt"
        Run(@ComSpec & ' /c ' & $command & '>"'&$var&'"',"", @SW_HIDE)
        $strA=FileRead($var)
        FileDelete($var)
        Return $strA
EndFunc

sanmoking

多谢楼主分享知识。。

gzh888666

查了几个不理想呀

ddx13

好东东，学习一下。

柠檬时代

感謝分享

hollice

我这个好像不能获取到 wmic nicconfig get DefaultIPGateway, index |findstr "192.168.0.1"

怪咖很怪i

hollice 发表于 2022-9-28 22:35
我这个好像不能获取到 wmic nicconfig get DefaultIPGateway, index |findstr "192.168.0.1"

可以取

wmic nicconfig get DefaultIPGateway, index

前面部分，加上后面就不行了。

hollice

怪咖很怪i 发表于 2022-9-28 23:14
可以取前面部分，加上后面就不行了。

是的。谢谢回复

anythinging

刚刚用上，非常好用，感谢！

hnfeng

回复看看，学习一下。

486486

好奇看看哈哈

生于忧患

牛逼 学习一下

liuyq

正好需要

xyx115

看以下11111111111111111