VB6 Errore di WebBrowser non può ottenere proprietà OUTERHTML
Domanda
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
. Soluzione
WebBrowser1.Document.documentElement.outerHTML
funziona solo in eventi DocumentComplete
.
Private Sub WebBrowser1_DocumentComplete()
html = WebBrowser1.Document.documentElement.outerHTML
End Sub
. Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow