Visual Basic - descarga con tiempo

Life is soft - evento anual de software empresarial
 
Vista:

descarga con tiempo

Publicado por noelia (8 intervenciones) el 31/05/2005 21:12:47
Buenas Tardes:
tengo el siguiente codigo para poder descargar archivos de internet, pero tengo un problema como puedo hacer que se vea el tiempo restante.gracias

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
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
If DownloadFile("http://descarga.e-mision.net/contaplus.zip", "c:contaplus.zip") Then
MsgBox "Descarga completada correctamente", vbInformation
Else
MsgBox "La descarga no ha sido completada", vbCritical
End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:descarga con tiempo

Publicado por SetFocus (183 intervenciones) el 31/05/2005 21:57:06
Hola! Proba el siguiente codigo:
para la prueba en un form agrega un boton y un textbox (no le cambies los nombres por defecto para que funcione con el ejemplo de codigo)
Luego pega el codigo en la seccion general del form y listo... a descargar archivos... :)
y en el textbox escribi la direccion de descarga("http://descarga.e-mision.net/contaplus.zip")

Lo que hace esto es abrir la ventana de descarga de internet explorer, con todas las opciones y muestra el tiempo restante... ;)

Yo uso IE 6 y windows 2000 no se si en otros sistemas funciona bien.

Bueno espero te sirva Saludos.

Option Explicit

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

Private Sub Command1_Click()

Dim sDownload As String

sDownload = StrConv(Text1.Text, vbUnicode)
Call DoFileDownload(sDownload)

End Sub

Colaboracion del gran Maestro Randy Birch.... realemente hay gente que sabe,eh? :)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:descarga con tiempo

Publicado por noelia (8 intervenciones) el 31/05/2005 23:01:18
Muchas gracias pero no me funciona. sabes alguna otra forma de hacerlo. gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:descarga con tiempo

Publicado por SetFocus (183 intervenciones) el 31/05/2005 23:10:38
Hola! que raro antes de mandarte el codigo de ejemplo lo probe y logre descargar el archivo ese de la direccion que ponias, es un .pdf comprimido que explica no se que cosa de un sistema,no?
Bueno, entonces voy a ver si encuentro algo y te digo,si? Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar