请教版主大一个小问题？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

网上的方法，我电脑测试不行，直接打开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

主题：请教版主大一个小问题？