vb6 - VB6 webbrowserエラーがouterhtmlプロパティを取得できません

Question

私はVB6によって作成された古いプログラムを持っていて、うまく機能していました.Webブラウザコントロールを使用して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.outerHTMLDocumentCompleteイベントでのみ機能します。

Private Sub WebBrowser1_DocumentComplete()

  html = WebBrowser1.Document.documentElement.outerHTML

End Sub