(Resolvido) Baixando Arquivos e Exibindo Progresso

[travesso]

Olá a Todos To a 3 Dias Procurando Isso !

Queria um Codigo que Baixasse um Determinado arquivo e Exibisse o Progresso.

Eu tenho Um COdigo que Baixa ele Baixa Legalzinho mas na Exiber nenhum Progresso:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim site As String = "http://musolaris.eu5.org/Updates/"
        Dim arquivo As String = "new.txt"
        Dim webClient As New Net.WebClient()
        Console.WriteLine("Baixando arquivo ""{0}"" de ""{1}"" ......." _
        + ControlChars.Cr + ControlChars.Cr, arquivo, site)
        webClient.DownloadFile(site & arquivo, "c:\" & arquivo)
        UpdateII.Show()
        Me.Hide()
    End Sub

Bom se alguém Tiver ALgum outro Codigo o Saiba Editar Esse para Por pra Exibir Progresso Eu Agradeço Muito !

Obs: Uso o Microsoft Visual Basic 2008 Express Edition

Editado Julho 20, 2010 por travesso

[kuroi]

visual basic 2008 é visual basic .net.

moverei ao local correto.

[quintelab]

De uma olhada: http://www.macoratti.net/vbn_pb1.htm

Abraços...

[travesso]

De uma olhada: http://www.macoratti.net/vbn_pb1.htm

Abraços...

Bom eu dei uma Olhada no link que você postou mas não achei como posso exibir o Progresso do Download nela...

Se você possuir algum Script que faça isso eu ficarei grato se você postar !

[quintelab]

Será dificil encontrar algum que tenha fazendo o download, terá que adaptar algum.

Abraços...

[travesso]

Será dificil encontrar algum que tenha fazendo o download, terá que adaptar algum.

Abraços...

Eu descobri isso Otem eu Conseguir o Codigo vou Postar awe para quem Tiver o Mesmo Problema

Public Class UpdateI
    Private wc As System.Net.WebClient

    Private Sub DownloadProgressChangedCallback(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs)
        ' Atualiza ProgressBar
        ProgressBar1.Value = e.ProgressPercentage
        Application.DoEvents()
        Me.LBL_COUNT.Text = "Total Concluído: " & System.Math.Round((100 * ProgressBar1.Value) / ProgressBar1.Maximum) & " %"
    End Sub

    Private Sub DownloadFileCompletedCallback(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
        ' Remove eventos
        RemoveHandler wc.DownloadProgressChanged, AddressOf Me.DownloadProgressChangedCallback
        RemoveHandler wc.DownloadFileCompleted, AddressOf Me.DownloadFileCompletedCallback
        Me.LBL_COUNT.Text = "Download Concluído !"

    End Sub

    Private Sub UpdateI_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        wc = New System.Net.WebClient()
        Dim uri As New Uri("http://Link do Download")
        wc.DownloadFileAsync(uri, "c:\Destino do Download")
        ' Assina eventos
        AddHandler wc.DownloadProgressChanged, AddressOf Me.DownloadProgressChangedCallback
        AddHandler wc.DownloadFileCompleted, AddressOf Me.DownloadFileCompletedCallback
End Sub

Editado Julho 20, 2010 por travesso