网上的方法，我电脑测试不行，直接打开cmd是可以的，您试试
Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.Verb = "runas"
p.StartInfo.WorkingDirectory = SpecialFolder.system
'p.StartInfo.Arguments = "/k telnet 127.0.0.1 80"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()
p.StandardInput.WriteLine("telnet 127.0.0.1 80")
p.StandardInput.WriteLine("exit")
p.WaitForExit(5000)
Output.Show(2)
Dim s2 As String = p.StandardError.ReadToEnd()
Dim s As String = p.StandardOutput.ReadToEnd()
Output.Show(3)
Output.Show(s)
Output.Show(s2)
'p.Close
加好友 
发短信
Post By：2020/3/28 12:30:00 [只看该作者]
