检查Internet是否脱机

Question

我使用

成功检索了网页数据

Set o = CreateObject("MSXML2.XMLHTTP") 
o.open "GET", "http://www.example.com/get.php", False 
o.send 

但是，如果Internet处于OFF状态（无连接），则vbs文件会出错。 那么我如何制作if语句，检查互联网是否不在线，不尝试检索数据？

Answer 1

您可以处理以下错误，而不是检查是否存在互联网连接：

On Error Resume Next 'swallow errors
o.open "GET", "http://www.example.com/get.php", False 
o.send 
If Err.Number <> 0 Then
    MsgBox "An error occured. Data not retrieved."
    'or whatever else you want to do in such a case.
End If
On Error Goto 0 'back to normal error behaviour

这具有除了没有连接之外还能够处理其他错误的优点，例如， example.com网站已关闭，等等。