VB6 Errore di WebBrowser non può ottenere proprietà OUTERHTML

Question

Ho il vecchio programma è stato creato da VB6 e funzionava bene, Sto utilizzando il controllo del browser Web per caricare una pagina web, quindi ottieni l'HTML all'interno di una stringa, recentemente ho ricevuto il messaggio di errore sotto quando ho provato a caricare il codice HTML in una variabile String, è solo accadendo solo con le grandi pagine.

Il mio codice come sotto

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 funziona solo in eventi DocumentComplete.

Private Sub WebBrowser1_DocumentComplete()

  html = WebBrowser1.Document.documentElement.outerHTML

End Sub

.