处理缺乏互联网连接

我正在创build简单的代码到网站,点击loginbutton,inputlogin信息等等,然后下载数据。 我知道这不是一个推荐的方法,但使用'Microsoft.XMLHTTP',我'GET'的URL没有帮助,因为我最终达到的页面的URL,login后,有一个唯一的身份validation令牌生成。 例如昨天URL = www.abcd.com/ABCD-EFGH-IJKL,今天是= www.abcd.com/MNOP-QRST-UVWX,所以我没有一个设置的URL。 因此,使用“InternetExplorer.Application”方法,我试图处理与互联网的断开连接。 从互联网断开,不会产生错误,但只是一个空白页面,所以我不能使用“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用户“请连接到互联网等等”?

谢谢。

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