VB6 webbrowser erreur ne peut pas obtenir outerhtml propriété

Question

J'ai des vieux programme a été créé par VB6 et c'était bon travail, Je suis à l'aide de contrôle de navigateur web à charger une page web, puis obtenir le code html à l'intérieur d'une chaîne, récemment j'ai reçu le message suivant d'erreur quand j'ai essayé de charger le code HTML d'une variable de type chaîne, c'est arriver avec de grandes pages seulement.

Mon code comme ci-dessous

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 ne fonctionne que dans DocumentComplete Les événements.

Private Sub WebBrowser1_DocumentComplete()

  html = WebBrowser1.Document.documentElement.outerHTML

End Sub