vb6 - VB6 webbrowser error can't get outerhtml property

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