VB 收到CMD返回的信息

楼上的就可以了，但要注意一些问题：
两个>表示追加,那样可以会使你得到的结果有点问题,所以不建议用两个>,可使用一个>.
ping命令执行需要一定的时间，所以不能ping后直接取txt文件内容,加个判断,
shell "cmd /c ping 127.0.0.1 >c:\1.txt",vbhide
while filelen("C:\1.txt")=0 '如果ping命令没有执行完的话,那么此文件的长度就会是0
doevents '用doevents可以会使CPU使用率很高,可将此处改为sleep(),此为API函数,需要声明
wend
dim ls as string
open "C:\1.txt" for input as #1
while not eof(1)
input #1,ls
text1.text=text1.text+ls+vbcrlf '前提设text1可接受多行输入,将text1.MultiLine设为true
wend
close #1
这样就可以了

你可以把 Ping 的信息先存到一个文件中~之后再读取~
最后删掉该文件
比如： ping 192.168.1.1 >>c:\1.txt