主题：用shell 命令启动ping，但是窗口不在最上层，请问怎么破？

 你也可以，直接得到结果，如

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
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( "ping www.baidu.com")
p.StandardInput.WriteLine("exit")

Dim strRst As String = p.StandardOutput.ReadToEnd()
msgbox(strrst)