處理 Visual Basic for Applications 中缺少 Internet 連接的問題

Question

我正在創建簡單的代碼，可以訪問網站、單擊登錄按鈕、輸入登錄詳細信息等，然后下載數據。 我知道這不是推薦的方法，但是使用Microsoft.XMLHTTP GET URL 並沒有幫助，因為登錄后我最終到達的頁面的 URL 生成了唯一的身份驗證令牌。 例如昨天， URL = www.abcd.com/ABCD-EFGH-IJKL而今天它是URL = www.abcd.com/MNOP-QRST-UVWX ，所以我沒有固定的 URL。 因此，使用InternetExplorer.Application方法，我正在嘗試處理與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 ），我可以使用它來通知用戶“請連接到互聯網等”？

謝謝你。

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