[Microsoft Visual Basic 2013 Express]執行Cmd指令

開發環境：Microsoft Visual Basic 2013 Express

原理　　：用Cmd來做到從外部執行指令並取得傳回值

Public Function Cmd(ByVal Command As String) As String
      Dim process As New System.Diagnostics.Process()
      process.StartInfo.FileName = "cmd.exe"
      process.StartInfo.UseShellExecute = False
      process.StartInfo.RedirectStandardInput = True
      process.StartInfo.RedirectStandardOutput = True
      process.StartInfo.RedirectStandardError = True
      process.StartInfo.CreateNoWindow = True
      process.Start()
      process.StandardInput.WriteLine(Command)
      process.StandardInput.WriteLine("exit")
      Dim Result As String = process.StandardOutput.ReadToEnd()
      process.Close()
      Return Result
End Function

現在，我要用程式找IP:

Dim result As String

result = Cmd(“ipconfig")

Debug.Print(result)

這樣會印出所有Cmd上面的內容。