Question

VB6调用PING命令时如何不出现CMD的黑框

下面的语句可能将PING后的内容转到数据中进行分析,
但不知如何才能不出现那个黑框呢
Set dosExec = objShell.Exec("Cmd.exe /c ping " & name_ch)
单是这个问题的话可以说是解决了,但用的不是这种方式,
我希望是更改这句,达到要求,谢谢

Answer 1

Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("ping 192.168.6.242")
Set objStdOut = objWshScriptExec.StdOut
Do Until objStdOut.AtEndOfStream
strLine = objStdOut.ReadLine
Text1.Text = Text1.Text & strLine & vbNewLine
Loop
这个可以讲cmd的结果在文本框中显示出来，但是不能做到不显示黑框

Answer 2

直接用Shell　函数：
Shell "Cmd.exe /c ping " & name_ch
问题是Ping命令，不出现黑框如何知道结果？

追问

请问这样使用后，PING的结果在那里了？如何才能取出来前用于判断是否PING通？