Añade la siguiente componente al proyecto:
Microsoft Internet Transfer control (SP4)
Luego añade al formulario el componente Inet. Este control te permite extraer el código de una página dada.
Ejemplo:
'Muestra el código de una página dada en una caja de texto multiline
Private Sub cmdViewCode_Click()
txtCode.Text = ""
txtCode.Text = Inet1.OpenURL(
http://www.solocodigo.com)
End Sub
Luego para guardar el contenido utiliza el FileSystemObject para guardar el código que te devuelve el objeto inet en un fichero html. Tienes que agregar la siguiente referencia al proyecto:
Microsoft Scripting runtime
En tu caso tendrías q hacer lo siguiente una vez que hayas añadido el componente inet al formulario y la referencia que te e indicado antes.
'Esta función guarda en un fichero el código de una página
'que recibe por parámetro.
Function SaveCodePage (URL as string)
Dim file As New Scripting.FileSystemObject
Dim ts As Scripting.TextStream
Set ts = file.CreateTextFile(App.Path & "Prueba.html")
'Leo el código de la página web y la guardo en el fichero
ts.Write Inet1.OpenURL(URL)
ts.Close
'Destruimos el objeto para liberar la memoris
File = Nothing
End Function
Un saludo.
