等待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

您不应该使用应用程序。DoEvents（）以保持用户界面的响应性！我真的怎么强调都不过分！经常使用它是一种糟糕的黑客行为，它只会造成比它解决的问题更多的问题。

有关更多信息，请参阅：保持您的UI响应和应用程序的危险。多恩特。

正确的方法是使用InternetExplorer。当页面（或其子部分，如iframe）完全加载时引发的Document完成事件。下面是一个如何使用它的简单示例：

>

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

将SHDocVw命名空间导入到您要使用它的文件中，并创建一个类型为InternetExplorer的类级BackEvents变量，以便您可以通过Handles子句订阅事件...

瞧！

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表达式在线订阅事件：

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