Public Shared Function ExecuteCmd(ByVal cmd As String) As String
Dim startInfo As New processstartinfo("cmd.exe")
With startInfo
.Arguments = "/C " + cmd
.RedirectStandardError = True
.RedirectStandardOutput = True
.UseShellExecute = False
.CreateNowindow = True
.WindowStyle = ProcessWindowStyle.Hidden
End With
Dim p As Process = Process.Start(startInfo)
Dim strOutput As String = p.StandardOutput.ReadToEnd()
Dim strError As String = p.StandardError.ReadToEnd()
p.WaitForExit()
If (strOutput.Length <> 0) Then
Return strOutput
ElseIf (strError.Length <> 0) Then
Return strError
End If
Return "" End Function
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
