VB6 webbrowser erro não é possível obter a propriedade outerhtml
Pergunta
Eu tenho o antigo programa foi criado VB6 e tudo estava funcionando bem, Eu estou usando o controle de navegador da web para carregar uma página da web e, em seguida, obter o html dentro de uma cadeia, recentemente recebi o abaixo mensagem de erro quando tentei carregar o código HTML para uma variável de seqüência de caracteres, que acontecem com grande apenas páginas.
Meu código como abaixo
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
Solução
WebBrowser1.Document.documentElement.outerHTML
só funciona em DocumentComplete
Eventos.
Private Sub WebBrowser1_DocumentComplete()
html = WebBrowser1.Document.documentElement.outerHTML
End Sub
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow