如何使用程序对网址进行ping测试并返回信息？

作者：绿色风分类：时间：2022-08-17 浏览：111

楼主
chrisfang

Q：如何使用程序对网址进行ping测试并返回信息?
A：可以借助shell.exec方法获取程序执行的输出信息，参考以下VBA代码：

Sub ping()
On Error Resume Next
URLname = InputBox("请输入需要ping测试的网址：")
cmdping = "ping " & URLname & " -n 1" '-n 1参数表示仅产生1条回显，非必须
Set oExec = CreateObject("Wscript.shell").exec(cmdping)
Do Until oExec.stdout.AtEndOfStream
strline = strline & oExec.stdout.readline() & Chr(13)
Loop
MsgBox strline
Set oExec = Nothing
End Sub

有关使用VBA测试网址是否可以ping通的方法，可参见：http://www.exceltip.net/thread-6949-1-1.html

2楼
aimstar

工作中经常用到ping，这个很实用，学习一下

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表