Question

我正在创建简单的代码，可以访问网站，点击登录按钮，输入登录详细信息等等......并下载数据。我知道这不是推荐的方法，而是使用＆＃39; Microsoft.XMLHTTP＆＃39;在哪里我＆＃39; GET＆＃39; URL没有帮助，因为登录后我最终到达的页面的URL具有生成的唯一身份验证令牌。例如昨天网址= www.abcd.com/ABCD-EFGH-IJKL，今天是= www.abcd.com/MNOP-QRST-UVWX，所以我没有设置网址。因此，随着InternetExplorer.Application＆＃39;方法，我试图处理从互联网断开连接。与互联网断开连接，不会产生错误，只会产生空白页面，因此我无法使用错误转到LineX＆＃39;。如何在代码中处理断开连接，如：

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

是否有状态响应conde（因为有＆＃39; Microsoft.XMPHTTP＆＃39;），我可以用它来通知用户msgbox＆＃34;请连接到互联网等等＃34;？

谢谢。

Answer 1

当我尝试它时，这很有效：

http://vbnet.mvps.org/index.html?code/internet/internetcheckconnection.htm

Answer 2

我不熟悉获取实际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

处理缺乏互联网连接

2 个答案: