VB6网页浏览器错误无法获取outerhtml属性

Question

我拥有旧程序是由VB6创建的，它运行良好，我正在使用Web浏览器控件加载网页，然后将HTML放入字符串中，最近我在尝试将HTML代码加载到一个时收到了以下错误消息字符串变量，仅在大页面上发生。

我的代码如下

Dim html As String
Private Sub GetHtm_Click()
   WebBrowser1.Navigate (webVar)
   Do
        DoEvents
    Loop Until Not WebBrowser1.Busy
    html = WebBrowser1.Document.documentElement.outerHTML
End Sub

Answer 1

WebBrowser1.Document.documentElement.outerHTML 只适用于 DocumentComplete 活动。

Private Sub WebBrowser1_DocumentComplete()

  html = WebBrowser1.Document.documentElement.outerHTML

End Sub