等待 Internet Explorer 加载所有内容？

Question

我正在抓取一个网页，并等待 Internet Explorer 完成加载，但由于某种原因它不是。我试图在页面上获取一个值，但等待部分没有等待，因此当应该有一个值时该值返回空白。 IE 页面已加载完毕，但页面上元素的值尚未加载。 有没有办法等待所有元素完成加载后再继续执行下一行代码？这是我的代码：

Dim IE As Object 
Dim myvalue as string

IE = CreateObject("internetexplorer.application")
IE.navigate("mypage")

While Not IE.ReadyState = WebBrowserReadyState.Complete
    Application.DoEvents()
End While

myValue = IE.document.getElementById("theValue").getAttribute("value")
Debug.Print(myValue)

Answer 1

您不应使用Application.DoEvents() 以保持您的用户界面响应！我真的不能强调这一点！经常使用它是一种糟糕的技巧，只会产生比它解决的问题更多的问题。

更多信息请参考：Keeping your UI Responsive and the Dangers of Application.DoEvents。

正确的方法是使用InternetExplorer.DocumentComplete event，它会在页面（或其子部分，例如iframe）完全加载时引发。以下是如何使用它的简短示例：

1. 在Solution Explorer 中右键单击您的项目，然后按Add Reference...

2. 转到COM 选项卡，找到名为Microsoft Internet Controls 的参考，然后按OK。

3. 将 SHDocVw 命名空间导入到您要使用它的文件中，并创建一个 InternetExplorer 类型的类级别 WithEvents 变量，以便您可以使用 @987654324 订阅事件@。

还有瞧！

Imports SHDocVw

Public Class Form1

    Dim WithEvents IE As New InternetExplorer

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        IE.Navigate("http://www.google.com/")
    End Sub

    Private Sub IE_DocumentComplete(pDisp As Object, ByRef URL As Object) Handles IE.DocumentComplete
        MessageBox.Show("Successfully navigated to: " & URL.ToString())
    End Sub
End Class

或者，您也可以使用lambda expression 在线订阅事件：

Imports SHDocVw

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim IE As New InternetExplorer
        IE.Navigate("http://www.google.com/")

        AddHandler IE.DocumentComplete, Sub(pDisp As Object, ByRef URL As Object)
                                            MessageBox.Show("Successfully navigated to: " & URL.ToString())
                                        End Sub
    End Sub
End Class