Código fuente de la página web de VB
//Definición
//Descargar archivos de la red al local.
Función de declaración privada URLDownloadToFile Lib "urlmon" alias "URLDownloadToFileA" (_
ByVal pCaller siempre que,_
ByVal szURL como cadena,_
ByVal szFileName en forma de cadena, _
ByVal se mantiene siempre que sea largo, _
ByVal lpfnCB As Long _
) tiene la misma longitud
//Descargar un archivo a local.
El archivo de descarga de función pública (ByVal strURL es una cadena, ByVal strFile es una cadena) es un valor booleano
El vidrio oscuro adquiere la misma longitud
lngReturn = URLDownloadToFile(0, strURL, strFile, 0, 0)
Si lngReturn = 0, entonces DownloadFile = True
Finalizar función
Subcomando privado 1_Click()
Depurar. Imprime el archivo descargado ("/question/12376048.html", "D:\1.html")
Finalizar conector