Esta clase sirve para descargar cualquier archivo de un servidor web, tanto una página como cualquier otro tipo de archivo (.zip, etc). La clase provee de un evento cada vez que descarga un bloque de byes que permite saber el tamaño del documento a descargar, el tamaño que ya hemos descargado, el porcentaje que ya hemos descargado (lo que permite mostrar un barra de progreso de la descarga), el tiempo transcurrido y restante, la velocidad en KB/seg y cancelar la misma en cualquier momento.

El funcionamiento es sencillo, como se ve en el programa de ejemplo.

PROPIEDADES

BytesBloqueDescarga : Devuelve o establece el tamaño de cada bloque que se descarga de internet. No conviene que sea demasiado grande porque se tardará más en poder cancelar una descarga y en mostrar el porcentaje descargado. Su valor por defecto es 512.

ContenidoDescargado : Devuelve el contenido descargado de internet si se dejó en blanco la propiedad Fichero.

Fichero : Devuelve o establece el nombre del fichero donde se guardará el contenido descargado. Si se deja en blanco el contenido descargado se devolverá en la propiedad ContenidoDescargado.

HuboError : Devuelve si la operación causó un error. Consultar StatusCode y StatusText para más información.

NoUsarProxy : Establece la lista de direcciones para las que no se usará el proxy a usar. Si se deja vacía se usará la configuración predeterminada del sistema.

Password : Devuelve o establece la password con la que se realizará la conexión.

Puerto : Puerto que se utilizará para la conexión. Si no se rellena se utilizará el puerto por defecto según el protocolo.

QContentLength : Devuelve o establece si deseamos recuperar la cabecera CONTENT_LENGTH

QContentLengthStr : Devuelve la información de la cabecera CONTENT_LENGTH, si la propiedad QContentLength as true.

QContentType : Devuelve o establece si deseamos recuperar la cabecera CONTENT_TYPE

QContentTypeStr : Devuelve la información de la cabecera CONTENT_TYPE si la propiedad QContentType es true.

QExpires : Devuelve o establece si queremos obtener el valor de la cabeceraEXPIRES.

QExpiresStr : Devuelve el valor de la cabecera EXPIRES si el valor de QExpires es true.

QForwarded : Devuelve o establece si deseamos recuperar la cabecera FORWARDED.

QForwardedStr : Devuelve el contenido de la cabecera FORWARDED si la propiedad QForwarded es true.

QLastModified : Devuelve o establece si deseamos recuperar la cabecera LAST_MODIFIED

QLastModifiedStr : Devuelve el valor de la cabecera LAST_MODIFIED si la propiedad QLastModified es true.

QPragma : Devuelve o establece si deseamos recuperar la cabecera PRAGMA.

QPragmaStr : Devuelve el valor de la cabecera PRAGMA si la propiedad QPragma es true.

QRawHeaders : Devuelve o establece si deseamos recuperar la cabecera RAW_HEADERS.

QRawHeadersCrLf : Devuelve o establece si deseamos recuperar la cabecera RAW_HEADERS_CRLF.

QRawHeadersCrLfStr : Devuelve el valor de la cabecera RAW_HEADERS_CRLF si la propiedad QRawHeadersCrLf es true.

QRawHeadersStr : Devuelve el valor de la cabecera RAW_HEADERS si la propiedad QRawHeaders es true.

QRequestMethod : Devuelve o establece si deseamos recuperar la cabecera REQUEST_METHOD.

QRequestMethodStr : Devuelve el valor de la cabecera REQUEST_METHOD si la propiedad QRequestMethod es true.

QServer : Devuelve o establece si deseamos recuperar la cabecera SERVER.

QServerStr : Devuelve el valor de la cabecera SERVER si la propiedad QServer es true.

QVersion : Devuelve o establece si deseamos recuperar la cabecera VERSION.

QVersionStr : Devuelve el valor de la cabecera VERSION si la propiedad QVersion es true.

StatusCode : Devuelve el código de error.

<>StatusText : Devuelve la descripción del error.

URL : Devuelve y establece la URL que queremos descargar.

UsarProxy : Establece la lista de proxys a usar. Si se deja vacía se usará la configuración predeterminada del sistema.

Usuario : Devuelve o establece el usuario con el que se realizará la conexión.

METODOS

Descargar : Descarga la información y/o el contenido solicitado. Para determinar qué información descargar revise las propiedades que comienzan con Q.

EVENTOS

Progreso : Este evento informa de los bytes totales del documento que estamos descargando (-1 si el tamaño es desconocido), los bytes que llevamos descargados, el porcentaje que esto representa, los segundos transcurridos, los segundos restantes (a la velocidad de descarga actual) y la velocidad de descarga en bytes por segundo.
Si ponemos el parámetro Cancelar a true se cancela la descarga.

 jrdownload.zip  

He encontrado otra manera más sencilla de bajar un fichero de internet.

Declaramos :

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Y, simplemente :

Dim j As Long
j = URLDownloadToFile(0, "http://www.microsoft.com/ms.htm", _
"c:\temp\ms.htm", 0, 0)

If j = 0 Then
   'el fichero se descargó correctamente
Else
   'ha ocurrido un error
End If

Si queremos que se muestre el diálogo del IExplorer y que luego nos pregunte el nombre del archivo de destino :

Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

Dim Url as string

'Convertimos la URL a Unicode
Url = StrConv("http://www.microsoft.com/ms.htm', vbUnicode)

DoFileDownload Url

En este caso no sé cómo saber si la descarga es correcta porque en las pruebas que hice la función siempre devuelve 0.

Si necesitamos especificar un usuario y una password (por ejemplo para un servidor ftp) los incluiremos en la URL de la siguiente manera : para bajer el fichero "mifichero.zip" del servidor "ftp.telecable.es" con el usuario "usuario" y la password "password" debes poner en la URL : "ftp://usuario:password@ftp.telecable.es/mifichero.zip"

Podemos descargar un fichero desde internet (por http, ftp o gopher) fácilmente usando el API.
Para ello declaramos :

Const scUserAgent = "PonTuNombreAqui"
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long

Y empleamos una función como esta :

Function BajarFichero(sURL As String, sFichero As String, Optional sProxy As String = vbNullString, Optional sNoProxy As String = vbNullString) As Boolean
'sURL = dirección del fichero a bajar
'
'sFichero = nombre del fichero en el pc
'
'sProxy = dirección del proxy si es necesario. si no se pone lee la información del registro
'no poner una cadena vacía
'
'sNoProxy = lista de nombres y/o ip's para las que no se usará proxy. si ponemos sólo "" no se usará
'el proxy para direcciones que no contengan un punto. no poner una cadena vacía
'
Dim hOpen As Long, hFile As Long, sBuffer As String, Ret As Long, Res As Integer
Dim Fich As Integer, aux As String

'Crear buffer para recibir el fichero
sBuffer = Space(1000)
BajarFichero = False
'Crear una conexión a internet
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, sProxy, sNoProxy, 0)
If hOpen = 0 Then Exit Function
'Abrir la url
hFile = InternetOpenUrl(hOpen, sURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
If hFile = 0 Then Exit Function
'abrimos el fichero en local
Fich = FreeFile()
If Dir(sFichero) <> "" Then Kill sFichero
Open sFichero For Binary As Fich
Res = 1: Ret = 1000
While Res = 1 And Ret = 1000
    Res = InternetReadFile(hFile, sBuffer, 1000, Ret)
    If Ret > 0 Then
        aux = Left(sBuffer, Ret)
        Put Fich, , aux
    End If
Wend
'cierro el fichero
Close Fich
'cierro la conexión
InternetCloseHandle hFile
InternetCloseHandle hOpen
BajarFichero = True
End Function


Para descargar un fichero simplemente debemos hacer :

bResultado= BajarFichero("URL del fichero","c:\NombreFichero")

La función también admite como parámetros el nombre o dirección de un proxy y la lista de máquinas a las que no iremos por proxy. Estos parámetros no deben indicarse si no se utilizan.

Si necesitamos especificar un usuario y una password (por ejemplo para un servidor ftp) los incluiremos en la URL de la siguiente manera : para bajer el fichero "mifichero.zip" del servidor "ftp.telecable.es" con el usuario "usuario" y la password "password" debes poner en la URL : "ftp://usuario:password@ftp.telecable.es/mifichero.zip"