prog = (ProgressBar1.Value + Len(vtData) * 2) / 1000000
Label1.Caption = prog & "MB"

filesize = Inet1.GetHeader("Content-length")
Label2.Caption = (filesize / 1000000) & " MB"

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox ("Introduce la url del archivo que quieres descargar!")
Else
ProgressBar1.Value = 0
Inet1.AccessType = icUseDefault
Inet1.URL = Text1.Text 
Inet1.Execute , "GET" 
End If
End Sub

'Codigo RANEFI
Option explicit

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

Private Sub Command1_Click()
            DoFileDownload _
            StrConv("http://mx.geocities.com/posotroranefi/msnmsgr.zip", vbUnicode)
End Sub

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.


Download 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"