Error al descargar imágenes usando VB usando WebBrowser. ¿Alguien tiene un método mejor?
No utilice el evento DownloadComplete porque esto no garantiza que la página se haya cargado completamente y el evento DownloadComplete se activará varias veces durante la visualización de la página, porque DownloadComplete significa que el archivo contenido en la página se ha descargado. significa que si la página contiene varias imágenes, cada vez que se descarga una imagen, se activará un evento DownloadComplete. No solo la imagen activará el evento DownloadComplete, sino que también se activarán otros archivos (como css, js, etc.). el evento DescargarComplete!
El enfoque correcto es utilizar el evento DocumentComplete, que indica que se ha descargado el documento completo. Además, si la página contiene marcos, cada marco también activará el evento DocumentComplete cuando termine de cargarse, por lo que deben excluirse:
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
p>Si pDisp es WebBrowser1.Object Entonces 'Esto es para determinar si el evento es desencadenado por la propia página
fullPath1 = Text2
TT = Mid$(fullPath1 , InStrRev( fullPath1, "/") + 1)
Dim K As Long, E, nRange
Para cada E en WebBrowser1.Document.All