在dos下运行程序并得到运行结果

 'Imports System.Diagnostics

        Dim p As New Process

        p.StartInfo.FileName = "cmd.exe"

        p.StartInfo.UseShellExecute = False

        p.StartInfo.RedirectStandardInput = True

        p.StartInfo.RedirectStandardOutput = True

        p.StartInfo.RedirectStandardError = True

        p.StartInfo.CreateNoWindow = True '不想看见那个黑黑的dos窗口

        p.Start()

        p.StandardInput.WriteLine("pint -n 1 192.168.10.100") '不小心把ping写成pint了

        p.StandardInput.WriteLine("ping -n 1 192.168.10.100")

        p.StandardInput.WriteLine("exit")

        Dim strRet As String

        strRet = p.StandardOutput.ReadToEnd()

        MsgBox(strRet)

        strRet = p.StandardError.ReadToEnd()

        MsgBox(strRet)