在应用程序的Visual Basic中处理缺少Internet连接的问题>>

Question

我正在创建简单的代码，该代码将转到网站，单击登录按钮，输入登录详细信息等，然后下载数据。我知道这不是推荐的方法，但是使用Microsoft.XMLHTTP时，我的GET URL没有帮助，因为登录后我最终到达的页面的URL生成了唯一的身份验证令牌。例如。昨天是URL = www.abcd.com/ABCD-EFGH-IJKL，今天是URL = www.abcd.com/MNOP-QRST-UVWX，因此我没有设置网址。因此，使用InternetExplorer.Application方法，我正在尝试处理与Internet的断开连接。与Internet断开连接不会产生错误，而只会产生空白页，因此我无法使用On Error GoTo LineX。我该如何处理以下代码中的断开连接：

Dim IE as Object
Set IE = CreateObject (InternetExplorer.Application")
IE.navigate "www.abcd.com"
If 'some sort of status response' = 'some value' Then Msgbox 'You are disconnected from the internet'
Else
End If
是否存在状态响应代码（与Microsoft.XMPHTTP相同），我可以使用该代码通过msgbox通知用户“请连接到互联网等”。

谢谢。

我正在创建简单的代码，该代码将转到网站，单击登录按钮，输入登录详细信息等，然后下载数据。我知道这不是推荐的方法，而是使用Microsoft.XMLHTTP，其中... ...>

Answer 1

我对获取实际HTTP响应的方式不熟悉，但是您可以检查页面上是否有某种元素（或者是否有任何元素，如下所示：

]

elements = IE.document.getElementsByTagName("input") 'Or whatever element will be on that page
If elements.Length = 0 Then 
    MsgBox "Please connect to the Internet."
End If

Answer 2

我尝试过的时候效果很好：