主题：类似日志模式怎么实现啊

此主题相关图片如下：qq图片20180122082049.png

想实现上面的效果，就是把cmd里执行的命名 在text中动态的显示下

参考

 

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"

p.StartInfo.UseShellExecute = False '关闭Shell的使用

p.StartInfo.RedirectStandardInput = True '重定向标准输入

p.StartInfo.RedirectStandardOutput = True '重定向标准输出

p.StartInfo.RedirectStandardError = True '重定向错误输出

p.StartInfo.CreateNoWindow = True '设置不显示窗口

p.Start()

p.StandardInput.WriteLine("ping www.baidu.com")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

msgbox(strrst)

原本想着逐行显示的，找个后期我在修改下。请问下， 我能获取到cmd的返回值吗 ？比如 %errorlevel%

我可以获取到图片中的错误吗

如果要获取环境变量，就这样处理

 

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"

p.StartInfo.UseShellExecute = False '关闭Shell的使用

p.StartInfo.RedirectStandardInput = True '重定向标准输入

p.StartInfo.RedirectStandardOutput = True '重定向标准输出

p.StartInfo.RedirectStandardError = True '重定向错误输出

p.StartInfo.CreateNoWindow = True '设置不显示窗口

p.Start()

p.StandardInput.WriteLine("set path")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

msgbox(strrst)

如果是telnet，参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=105012&skin=0