VB descargar el código fuente de la página web

Utilice la API URLDownloadToFile para lograr lo que desea.

'//Definición

'//Descargar archivos de la Web a local

Función de declaración privada URLDownloadToFile Lib "urlmon" Alias ​​​​"URLDownloadToFileA" ( _

ByVal pCaller Como largo, _

ByVal szURL Como cadena, _

ByVal szFileName Como cadena, _

ByVal dwReserved Como Long, _

ByVal lpfnCB As Long _

)As Long

'// Descargar archivo local

Función pública DownloadFile(ByVal strURL como cadena, ByVal strFile como cadena) como booleano

Dim lngReturn As Long

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

Si lngReturn = 0 Entonces DownloadFile = True

Función final

Subcomando privado1_Click()

Debug.Print DownloadFile("/question/12376048.html", "D :\1.html")

Fin Sub