C# / VB.NET - HTTPwebrequest

 Public Sub scarica()
        Dim link As String = "http://colossus.altervista.org/file/Colossus.zip"
        request = WebRequest.Create(New Uri(link))
        Dim response As HttpWebResponse = request.GetResponse
        Dim stream As New StreamReader(response.GetResponseStream)
        Dim we As New StreamWriter("C:\guida.zip")
        While Not (stream.EndOfStream)
            we.Write(stream.Read)
        End While
        we.Close()
    End Sub

dove sbaglio? la velocità sembra esserci ma quello che scaric anon è quello che ho messo sul server......

 Public Sub scarica()
        Dim link As String = "http://colossus.altervista.org/file/Colossus.zip"
        request = WebRequest.Create(New Uri(link))
        Dim response As HttpWebResponse = request.GetResponse
        Dim stream As Stream = response.GetResponseStream
        Dim dove As Stream = File.OpenWrite("C:\casa.zip")
        While (True)
            Dim byt As Byte = stream.ReadByte
            If byt = -1 Then
                Exit While
            Else
                dove.WriteByte(byt)
            End If
        End While
        stream.Close()
        dove.Close()
    End Sub

cosi scarica esattamente quello che voglio il file arriva integro pero' è lentissimo... mi dite che devo fare? mo lo meno sto coso oubt:

 Public Sub scarica()
        Dim link As String = "http://colossus.altervista.org/file/Colossus.zip"
        request = WebRequest.Create(New Uri(link))
        Dim response As HttpWebResponse = request.GetResponse
        Dim stream As Stream = (response.GetResponseStream)
        Dim dove As Stream = File.OpenWrite("C:\casa.zip")
        While (True)
            Try
                Dim c As Byte = stream.ReadByte
                dove.WriteByte(c)
            Catch
                Exit While
            End Try
        End While
        dove.Close()
    End Sub

oppure cosi ma è ancora lentissimissimo.....

Potrebbe essere un picco negativo momentaneo della tua connessione! Io ho provato il tuo codice aggiungendo la visualizzazione dei KB/sec, mi risulta quasi sempre sui 200! Per la mia connessione è tanto eh

quale dei tre codici hai provato e che funzione hai costruito per visualizzare i kb/s?

Ho preso spunto dall'ultimo codice! In pratica per visualizzare i KB/sec faccio così:
- Dichiaro due variabili globali: "numero_bytes_scaricati" e "secondi";
- Al partire del Download faccio partire un Timer con intervallo di 1000 ms;
- Nell'evento Tick del Timer incremento la variabile "secondi";
- Incremento la variabile "numero_bytes_scaricati" ad ogni ciclo;
- Alla fine del download faccio il rapporto fra "numero_bytes_scaricati" e "secondi" per ottenere i B/sec (quindi per i KB bisogna dividere ulteriormente per 1024).


P.S. Sto costruendo una classe Download dotata di eventi così se può servire la posto

niente da fare nemmeno con questo codice va sopra i 200... il download manager mi va sopra i 700... come diavolo fa...

 Public Sub scarica()
        File.Delete("C:\casa.zip")
        Dim link As String = "http://www.microsoft.com/downloads/info.aspx?na=90&p=&SrcDisplayLang=it&SrcCategoryId=&SrcFamilyId=5b33b5a8-5e76-401f-be08-1e1555d4f3d4&u=http%3a%2f%2fdownload.microsoft.com%2fdownload%2f9%2f4%2fd%2f94d3f80a-2c0d-4ce1-a983-52f946b62c78%2fWindowsXP-KB936929-SP3-x86-ITA.exe"
        request = WebRequest.Create(New Uri(link))
        Dim response As HttpWebResponse = request.GetResponse
        Dim stream As Stream = (response.GetResponseStream)
        While (True)
            Try
                Dim buff(65536) As Byte
                Dim p As Integer = stream.Read(buff, 0, buff.Length)
                ricevuti += p
            Catch
                Exit While
            End Try
        End While
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        secondi += 1
        Label2.Text = Int(Int(ricevuti / secondi) / 1024)
    End Sub

Ma che connessione hai? Io ho una 4 mega divisa in 3 da un router, eppure Orbit Downloader raggiunge addirittura velocità di 500/600 KB/sec, cosa che nessun altro programma riesce a fare