Ошибка WebBrowser VB6 не может получить свойство SurventHTML

Question

У меня есть старая программа была создана его VB6, и он работал хорошо, Я использую элемент управления веб-браузером, чтобы загрузить веб-страницу, затем получить 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

.