用线程输出来实现。。
Dim p As New Process
p.StartInfo.RedirectStandardOutput = True '使用进程输出
p.StartInfo.CreateNoWindow = True '新窗口来响应进程
p.StartInfo.FileName = "ping"
p.StartInfo.Arguments = "192.168.0.1" p.StartInfo.UseShellExecute = False '这里一定要设置为FALSE
p.Start()
Dim s As String = p.StandardOutput.ReadToEnd