VB6 WebBrowser 오류는 OuterHTML 속성을 얻을 수 없습니다

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

.