Question

在VB.NET中如何获取cmd命令回显

比如我在VB.NET里执行ping，如何获取ping的结果并保存到文本框中？
一定要【VB.NET】，不要【VB6】

Answer 1

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim b As Boolean = My.Computer.Network.Ping("192.168.1.1", 1000) '返回ping结果，true表示通，false表示不通，1000表示1000毫秒内返回结果
        My.Computer.FileSystem.WriteAllText("c:\1.txt", b.ToString & vbCrLf, True) '写入到c盘的1.txt文件中并自动加换行回车符
    End Sub

追问

如果是其他的命令怎么写代码呢？

追答

Shell
比如： Shell("cmd /c ipconfig >> C:\123d.txt")

追问

谢谢

追答

下面有更好的方式

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          MsgBox(RunCMD("ipconfig", 60)) '这里的60表示60秒
    End Sub
    Public Function RunCMD(ByVal Commands As String, Optional ByVal TimeOutSencond As Integer = 3 * 60) As String '执行命令行函数
        Dim myProcess As New Process()
        Dim myProcessStartInfo As New ProcessStartInfo("cmd.exe")
        myProcessStartInfo.UseShellExecute = False
        myProcessStartInfo.RedirectStandardOutput = True
        myProcessStartInfo.CreateNoWindow = True
        myProcessStartInfo.Arguments = "/c " & Commands
        myProcess.StartInfo = myProcessStartInfo
        myProcess.Start()
        myProcess.WaitForExit(TimeOutSencond * 1000)
        Dim myStreamReader As IO.StreamReader = myProcess.StandardOutput
        Dim myString As String = myStreamReader.ReadToEnd()
        myProcess.Close()
        Return myString
    End Function

End Class