Qui trovi una discussione che ti puo' tornare utile.
ho dato un occhiata e...
codice:
Dim fs As New FileSystemObject
dim outfile
dim url as string
dim codice_html as string
fs.CreateTextFile (App.Path & "\prova.html") 'file dove salvi la pagina web
Set outFile = fs.OpenTextFile((App.Path & "\prova.html"), ForAppending, TristateFalse)
Inet1.URL = url 'passi l'url della pagina
codice_html = Inet1.OpenURL
outFile.WriteLine codice_html
outFile.Close
devi inserire il componente INET (micrososft internet transfer control)
in questo modo pero' ti ritrovi la pagina senza immagini...dovresti scandagliare tutto il codice html e intercettare tutti i tag delle immagini e scaricarle...!
secondo me...!ma sicuramente esiste un modo meno contorto!