¿descargar un archivo al darle a un botón, y ver el progreso y velocidad de descarga?

[wyrms]

Hola, muy buenas.

El problema que tengo es que soy nuevo y por eso no me aclaro...

haber, tengo en una pestaña de mi formulario 5 descargas, cada una en un botón diferente con este código:

Código:

System.Diagnostics.Process.Start("http… del archivo")

se me abre el navegador y empieza la descargar, hasta aquí todo bien.

pero la idea no es esta, es que al darle a descargar, la barra de progreso que tengo en el proyecto avance con la descarga, bueno con todas, cuando le de a un botón se lance el progressbar y cuando pulse otro lo mismo.

tengo el progressbar con un timer, pero esta mas que de adorno, hace el relleno de la barra y se para ya esta.

también me gustaría que en el mismo directorio donde este el programa que he diseñado, cree una carpeta donde guarde las descargas, ya sea data, descargas o lo que sea.

he encontrado como hacer navegadores o programas escribiendo la dirección de descarga y la dirección de guardar, pero no es lo que busco, lo que busco es que solo apretando el botón, descargue y guarde el archivo en la carpeta preestablecida y se cree si no esta en el directorio la carpeta.

edit:

he encontrado este código:

Código:

Function Descargar(ByVal Url As String, ByVal Path_Destino As String) As Boolean
If Url = vbNullString Or Path_Destino = vbNullString Then
MsgBox("No se indicó la url o el archivo de destino", MsgBoxStyle.Critical, "Error")
Else
If Len(Dir(Path_Destino)) <> 0 Then
MsgBox("el archivo ya existe.", MsgBoxStyle.Exclamation, "Error")
Else
On Error Resume Next
My.Computer.Network.DownloadFile(Url, Path_Destino)
If Err.Number = 0 Then
Descargar = True
Else
MsgBox(Err.Description)
End If
Err.Clear()
Shell(Path_Destino)
End If
End If
End Function

y para los botones pongo este código:

Código:

Descargar("http://dirección del archivo", "dirección de guardado")

ahora me queda como enlazarlo a un progressbar genérico para todas las descargas con su timer si debe llevarlo.

para descargar deveria usar usar la clase

WebClient Class

ya que esta expone un evento DownloadProgressChanged

que podría usar para reflejar el progress.

llevo 3 noches enteras acostándome a las 7 de la mañana y no doy con la tela. necesitaría un evento al cual usar con cada botón, y poder ver la barra de progreso con lebel de %, tamaño del archivo y velocidad de descarga.

lo necesito para mi programa y no veo como hacerlo, he escarbado internet afondo, veo con textbox para poner ruta del archivo a descargar y ruta de guardado, pero no es lo q necesito, necesito q al apretar cada botón de descarga, se inicie la descarga correspondiente, toy todo loco, no me sale por mas q lo intento.

es para visual basic 2010.
haber si me pueden echar una mano, y no me sale, descarga, pero no informa.

muchas gracias de antemano al que me pueda echar una ayudita con el código, soy nuevo y agradecería que la explicación sea con detalles .

de verdad muchas gracias.

un saludo .

[luis404]

debes usar un backgroundWorker y asignarle las propiedades sig.

en el

private void backgroundWorker_DoWork(object sender, DoWorkEventArgs e)
{
//Todas las cosas de la descarga la url, obtienes el peso del archivo y etc
//en base a eso puedes ir asignando los valores al progressbar
}

en

private void backgroundWorker_ProgressChanged(object sender, ProgressChangedEventArgs e)
{
//Voy avanzando la barrita
progressBar_Descargar.Value = e.ProgressPercentage;
}

private void backgroundWorker_RunWorkerCompleted(object sender, RunWorkerCompletedEventArgs e)
{
//Cuando se haya acabado la descargo muestro el mensaje
}

esto en C# en VB.NET creo es algo parecido.

Saludos.

[wyrms]

Iniciado por luis404

debes usar un backgroundWorker y asignarle las propiedades sig.

en el

private void backgroundWorker_DoWork(object sender, DoWorkEventArgs e)
{
//Todas las cosas de la descarga la url, obtienes el peso del archivo y etc
//en base a eso puedes ir asignando los valores al progressbar
}

en

private void backgroundWorker_ProgressChanged(object sender, ProgressChangedEventArgs e)
{
//Voy avanzando la barrita
progressBar_Descargar.Value = e.ProgressPercentage;
}

private void backgroundWorker_RunWorkerCompleted(object sender, RunWorkerCompletedEventArgs e)
{
//Cuando se haya acabado la descargo muestro el mensaje
}

esto en C# en VB.NET creo es algo parecido.

Saludos.

bien pues esto es lo que he echo hasta ahora, la barra y el % en el label funcionan bien, tambien consegui poner rl total del archivo a descargar y lo que se va descargado en MB.

Bueno si no es ya abusar de vuestra amabilidad, la opción de ver si existe ya el archivo para no descargarlo, y el abrir el archivo cuando concluya la descarga.

añado que puse este código para ver si existe el archivo, siendo positivo, como detendría el proceso para que no hiciese la descarga?

If IO.File.Exists("C:\nombre del archivo.exe") Then
MsgBox("El archivo ya fue descargado!", MsgBoxStyle.Exclamation, "Descargado!")
If Err.Number = 0 Then
(que código pondría en este lugar para no proceder a la descarga?)
Else
MsgBox(Err.Description)
End If
Err.Clear()
End If

Mi código actual es este:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim client As WebClient = New WebClient
AddHandler client.DownloadProgressChanged, AddressOf client_ProgressChanged
AddHandler client.DownloadFileCompleted, AddressOf client_DownloadCompleted
If IO.File.Exists("C:\archivo.rar") Then 'comprobamos si existe
MsgBox("El archivo ya esta descargado!", MsgBoxStyle.Exclamation, "Descargado!") 'si existe te salta una alerta
If Err.Number = 0 Then
( que pondríamos aquí para detener la descarga antes que la inicie si da error y la continué si no lo da( =0)?)
Else
MsgBox(Err.Description)
End If
Err.Clear()
client.DownloadFileAsync(New Uri("http://archivo a descargar.rar"), "C:\archivo a guardar.rar")
ProgressBar1.Visible = True
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Button1.Text = "Descargando..."
Button1.Enabled = False
Button2.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button7.Enabled = False

muchas gracias por la ayuda prestada hasta el momento

saludos.

[luis404]

pues moverías para ahí tu código

If Err.Number = 0 Then
client.DownloadFileAsync(New Uri("http://archivo a descargar.rar"), "C:\archivo a guardar.rar")
Else

para abrirlo después de descargado

lo pones al final de tu método de descarga

Process.Start("ruta del Archivo")

[wyrms]

Iniciado por luis404

pues moverías para ahí tu código

If Err.Number = 0 Then
client.DownloadFileAsync(New Uri("http://archivo a descargar.rar"), "C:\archivo a guardar.rar")
Else

para abrirlo después de descargado

lo pones al final de tu método de descarga

Process.Start("ruta del Archivo")

en lo referente lo de ejecutar el archivo, obste por que abra el directorio donde dejo todas las descargas.

Código vb:

Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
        Shell("explorer.exe C:\directorio", AppWinStyle.NormalFocus)
    End Sub
 

pero sigo teniendo el problema que me informa de que el archivo ya existe y aun así procede a la descarga del mismo, saltando el mensaje de archivo descargado.

no debería parar al reportar error en MsgBox al encontrar que existe el archivo?.

no se algo estoy haciendo mal.

Código vb:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim client As WebClient = New WebClient
        AddHandler client.DownloadProgressChanged, AddressOf client_ProgressChanged
        AddHandler client.DownloadFileCompleted, AddressOf client_DownloadCompleted
        If IO.File.Exists("C:\nombre del archivo.exe") Then 'comprobamos si existe
            MsgBox("El archivo ya esta descargado!", MsgBoxStyle.Exclamation, "Descargado!") 'si existe te salta una alerta
            If Err.Number = 0 Then
                client.DownloadFileAsync(New Uri("http://archivo a descargar.rar"), "C:\archivo a guardar.rar")
            Else
                MsgBox(Err.Description)
            End If
            Err.Clear()
        End If
        ProgressBar1.Visible = True
        Label1.Visible = True
        Label2.Visible = True
        Label3.Visible = True
        Button2.Text = "Descargando..."
        Button2.Enabled = False
        Button1.Enabled = False
        Button4.Enabled = False
        Button5.Enabled = False
        Button7.Enabled = False
 
    End Sub
 

gracias por tu paciencia y ayuda, me sirvió bastante hasta ahora .

[luis404]

If IO.File.Exists("C:\nombre del archivo.exe") Then 'comprobamos si existe
MsgBox("El archivo ya esta descargado!", MsgBoxStyle.Exclamation, "Descargado!") 'si existe te salta una alerta
If Err.Number = 0 Then
client.DownloadFileAsync(New Uri("http://archivo a descargar.rar"), "C:\archivo a guardar.rar")
Else
MsgBox(Err.Description)
End If
Err.Clear()
End If

esta rara esta parte

If Err.Number = 0 Then
client.DownloadFileAsync(New Uri("http://archivo a descargar.rar"), "C:\archivo a guardar.rar")
Else
MsgBox(Err.Description)
End If
Err.Clear()

Quizas seria hacerlo asi


If IO.File.Exists("C:\nombre del archivo.exe") = true Then 'comprobamos si existe
MsgBox("El archivo ya esta descargado!", MsgBoxStyle.Exclamation, "Descargado!") 'si existe te salta una alerta
Else
client.DownloadFileAsync(New Uri("http://archivo a descargar.rar"), "C:\archivo a guardar.rar")
End IF

[wyrms]

bueno ya lo solucione.
aquí el código de 1 botón, los demás es lo mismo, pero con sus direcciones.

Código vb:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim client As WebClient = New WebClient
        AddHandler client.DownloadProgressChanged, AddressOf client_ProgressChanged
        AddHandler client.DownloadFileCompleted, AddressOf client_DownloadCompleted
        If IO.Directory.Exists("C:\descargas_launcher") Then
        Else
            On Error Resume Next
            If Err.Number = 0 Then
                IO.Directory.CreateDirectory("c:\descargas_launcher")
                MsgBox("El directorio Descargas_launcher ha sido creado", MsgBoxStyle.Exclamation, "Descargado!")
            Else
                Err.Clear()
            End If
        End If
        If IO.File.Exists("C:\descargas_launcher\archivo.rar") Then
            MsgBox("El archivo ya esta descargado!", MsgBoxStyle.Exclamation, "Descargado!")
        Else
            On Error Resume Next
            If Err.Number = 0 Then
                client.DownloadFileAsync(New Uri("http://direción.a.descargar.rar"), "C:\descargas_launcher\dirección.a.guardar.rar")
            Else
                MsgBox(Err.Description)
            End If
            Err.Clear()
            ProgressBar1.Visible = True
            Label1.Visible = True
            Label2.Visible = True
            Label3.Visible = True
            Button1.Text = "Descargando..."
            Button1.Enabled = False
            Button2.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button7.Enabled = False
        End If
    End Sub
 

lo que me faltaría es poner la velocidad de red de descarga en el progressbar para las descargas en kbps.
aquí dejo el código de los medidores como los tengo:

Código vb:

Private Sub client_ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
        Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())
        Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())
        Dim percentage As Double = bytesIn / totalBytes * 100
        Label1.Text = CStr(e.ProgressPercentage & (" %"))
        Label2.Text = CStr(bytesIn / 1024 / 1000 & "  MB")
        Label3.Text = CStr(totalBytes / 1024 / 1000 & "  TOTAL MB")
        ProgressBar1.Value = Int32.Parse(Math.Truncate(percentage).ToString())
    End Sub
 

muchísimas gracias por todo tu apoyo de verdad, me ha servido mucho.
lo que no se como poner es lo ultimo dicho y lo ultimo que necesito :D.

un saludete.