怎么在vb中调用ping命令,并将ping的过程显示在vb界面中,就是把运行...
发布网友
发布时间：2024-10-24 12:55
共1个回答
热心网友
时间：2024-10-27 07:07
添加一个文本框
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
