VB6.0: Obtenga todo el código HTML de la página web

'Utilice la API ?URLDownloadToFile? para lograr lo que desea.

'Declarar función API

¿Privada?¿Declarar?Función?URLDownloadToFile?Lib?"urlmon"? ¿"URLDownloadToFileA"?(? _

ByVal?pCaller?As?Long,?_

ByVal?szURL?As?_

ByVal?szFileName?As ?_

ByVal?dwReserved?As?Long,?_

ByVal?lpfnCB?As?Long?_

)?As?Long

'Descargar código fuente de la página web

¿Público?Función?DownloadFile(ByVal?strURL es una cadena, strFile es una cadena)

Dim?lngReturnAs?Long

lngReturn=?URLDownloadToFile(0,?strURL,?strFile,0,0)

Si lngReturn=0, entonces DownloadFile=True

Finalizar función

Subcomando privado1_Click()

Debug.Print.DownloadFile("/")

Debug.question/12376048.html",?" D:\1.html" )

End.Sub

O utilizar WinHTTP, objetos XMLHTTP