用VBA判断网站是否网络已通

作者：绿色风分类：时间：2022-08-18 浏览：233

楼主罗刚君	例如：用VBA判断以上网站通还是不通（以自己计算为准）可以是断开网络和连上网络的情况下测试代码
2楼 chrisfang	对方网站是否已通这个概念太宽泛了吧？究竟以何为标准呢？提供一个以ping测试是否成功的代码吧，但不能ping通也不一定说明网站连不上。 Sub ping() URLname = InputBox("请输入需要ping测试的网址：") cmdping = "ping " & URLname ret = CreateObject("Wscript.shell").Run(cmdping, 0, True) If ret = 0 Then MsgBox "可以访问对方网址" Else MsgBox "对方地址无法连接" End If End Sub
3楼罗刚君	我测试了代码，似乎不行哦输入网址“ PING是一个不可靠的方法，对方可以屏弊PING命令，让任何人无法PING进来。我用的API
4楼 chrisfang	是啊，我在1楼已经说了，ping不通也不一定说明无法连接。所以需要指定“可以连接”的标准，是可以用IE打开？是可以下载到数据？
5楼罗刚君	Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As _ String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long Sub 测试网络是否通() MsgBox IIf(InternetCheckConnection("http://excelbbx.cn", 1, 0), "通", "不通") End Sub

免责声明

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

评论列表

楼主罗刚君	例如：用VBA判断以上网站通还是不通（以自己计算为准）可以是断开网络和连上网络的情况下测试代码
2楼 chrisfang	对方网站是否已通这个概念太宽泛了吧？究竟以何为标准呢？提供一个以ping测试是否成功的代码吧，但不能ping通也不一定说明网站连不上。 Sub ping() URLname = InputBox("请输入需要ping测试的网址：") cmdping = "ping " & URLname ret = CreateObject("Wscript.shell").Run(cmdping, 0, True) If ret = 0 Then MsgBox "可以访问对方网址" Else MsgBox "对方地址无法连接" End If End Sub
3楼罗刚君	我测试了代码，似乎不行哦输入网址“ PING是一个不可靠的方法，对方可以屏弊PING命令，让任何人无法PING进来。我用的API
4楼 chrisfang	是啊，我在1楼已经说了，ping不通也不一定说明无法连接。所以需要指定“可以连接”的标准，是可以用IE打开？是可以下载到数据？
5楼罗刚君	Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As _ String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long Sub 测试网络是否通() MsgBox IIf(InternetCheckConnection("http://excelbbx.cn", 1, 0), "通", "不通") End Sub