怎么在vb中调用ping命令，并将ping的过程显示在vb界面中，就是把运行——>ping 192.
怎么在vb中调用ping命令，并将ping的过程显示在vb界面中，就是把运行——>ping192.168.1.1的dos界面嵌入到所写的vb界面中？语句注明解释最好，谢谢...
怎么在vb中调用ping命令，并将ping的过程显示在vb界面中，就是把运行——>ping 192.168.1.1 的dos界面嵌入到 所写的vb界面中？语句注明解释最好，谢谢
展开
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
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
追问
能解释下每句的具体意思吗，谢谢，（函数的说明）
追答
'首先创建一个WScript.Shell对象
'
'然后给它执行ping语句
'
'将cmd程序打开并执行
循环取出cmd执行出来的每一行记录，并且将每一行赋值给text1，直到结束
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
