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

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