[VB.NET] Scaricare file da Internet per installazione

[jack11]

Salve, avrei bisogno di scaricare un file da internet perché con clickonce l'installazione è sommaria e non riesco a includere tutti i file.
Vi scrivo un po' del codice che sono riuscito a mettere insieme.

Public Class controllore
Public WithEvents TCP As New System.Net.WebClient
 Private Sub controllore_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 TCP.DownloadFileAsync(New Uri("http://www.com.altervista.org/accesso.wav"), ("C:\ProgramData\"))
END SUB

E poi ho creato un'altra classe dove volevo volevo mostrare la percentuale, i bytes scaricati e quelli ancora da scaricare

Private Sub PrgChngd(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles TCP.DownloadProgressChanged
 Label2.Text = e.ProgressPercentage() 
Label3.Text = e.BytesReceived() 
Label5.Text = e.TotalBytesToReceive() 
End Sub

Solo che all'avvio, non so se il file parte in download e tanto meno riesco a vedere la percentuale e le informazioni riguardanti il download.
Credo che l'errore sia perché non richiamo la classe PrgChngd nella form_load.
Se intuisco giusto, come posso fare?
Grazie mille per la solita cortesia che riservate.

[ShaleN]

Non credo che sia quello l'errore: la seconda routine è un gestore di evento quindi viene richiamata automaticamente al verificarsi di quell'evento. Prova invece a fare così:

Private Sub PrgChngd(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles TCP.DownloadProgressChanged
 Label2.Text = e.ProgressPercentage() 
 Label3.Text = e.BytesReceived() 
 Label5.Text = e.TotalBytesToReceive()
 Me.Refresh() 'o Me.Invalidate() 
End Sub

[jack11]

Nulla, tutto fermo.

[mardok30]

Prova con questa:

Dim str As Stream = Nothing
        Dim fstr As FileStream = Nothing
Dim DownloadedBytes  as integer        
Try
            Dim wr As HttpWebRequest = CType(WebRequest.Create(Indirizzo), HttpWebRequest)
            Dim ws As HttpWebResponse = CType(wr.GetResponse(), HttpWebResponse)
            str = ws.GetResponseStream()
            Dim inBuf(4096) As Byte
            Dim bytesToRead As Integer = CInt(inBuf.Length)
            Dim bytesRead As Integer = 0

            fstr = New FileStream(PercorsoSalvataggio, FileMode.OpenOrCreate, FileAccess.Write)

            While bytesToRead > 0
                Dim n As Integer = str.Read(inBuf, bytesRead, bytesToRead)
                If n = 0 Then
                    Exit While
                Else
                    fstr.Write(inBuf, 0, n)
                End If
 DownloadedBytes += n
            End While

 Catch ex As Exception
            DownloadFile = ""
            MessageBox.Show("Errore", "Errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            If str IsNot Nothing Then str.Close()
            If fstr IsNot Nothing Then fstr.Close()
        End Try

Nel ciclo While gli metti:

 If ((DownloadedBytes / 4096) / FileLenght) * 100 <= 100 Then
                        PB.Value = CInt(((DownloadedBytes / 4096) / FileLenght) * 100)
                    Else
                        PB.Value = PB.Maximum
                    End If

Recuperi la dimensione del file dall'Header del HttpWebResponse oppure da ws.ContentLenght
Fammi sapere.

[jack11]

Intanto grazie mille per l'aiuto.
Mi da soltanto un errore:

downloadfile=""

non dichiarato.

[ShaleN]

Ecco, fatta n'altra figura di m****.
Alla prossima.