Gemme/Skrive fil?

Eksempel:

Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Class MainClass
    Public Shared Sub Main(ByVal args As String())
        Dim req As HttpWebRequest = CType(WebRequest.Create("http://www.microsoft.com/"), HttpWebRequest)
        Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
        Dim stm As Stream = resp.GetResponseStream
        Dim size As Long = resp.ContentLength
        Dim fs As FileStream = File.Create("C:\ms.htm")
        Dim c As Integer
        dim more as boolean = true
        While (more)
            c = stm.ReadByte
            If (c >= 0) Then
                fs.WriteByte(c)
            Else
                more = false
            End If
        End While
        stm.Close
        resp.Close
        fs.Close
    End Sub
End Class

Der er andre måder at gøre det på, men det her er ihvertfald en måde.

Kan man ikke vente med at skrive filen til man har hentet det hele...når jeg afvikler koden, låser programmet indtil den er helt færdig med at downloade!

Det kan du godt.

Men det er ikke skrivning til fil der tager tid. Det er selve downloaden. Så
jeg tror ikke at det hjælper på "der sker ikke noget" fornemmelsen.

Hvis du skal af med den for en større download, så skal du have en separat
download tråd.

ok...hvordan får jeg den til at lade være med at låse??

hmm...separat download tråd?

Jeg prøvet at bixe et eksempel.

Simpelt eksempel:

Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Threading

Class MainClass
    Public Shared Sub Main(ByVal args As String())
        Dim t As Thread = New Thread (AddressOf Download)
        t.Start
        While t.IsAlive
            Console.Write("*")
            Thread.Sleep(100)
        End While
        Console.WriteLine
        Console.WriteLine("done")
    End Sub
    Public Shared Sub Download
        Dim req As HttpWebRequest = CType(WebRequest.Create("http://www.microsoft.com/"), HttpWebRequest)
        Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
        Dim stm As Stream = resp.GetResponseStream
        Dim fs As FileStream = File.Create("C:\ms.htm")
        Dim c As Integer
        dim more as boolean = true
        While (more)
            c = stm.ReadByte
            If (c >= 0) Then
                fs.WriteByte(c)
            Else
                more = false
            End If
        End While
        stm.Close
        resp.Close
        fs.Close
    End Sub
End Class

nu kan jeg bare ikke hente fil størrelsen, og hvor meget den har hentet??

Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Threading

Class MainClass
    Private Shared size As Long = 0
    Private Shared got As Long = 0
    Public Shared Sub Main(ByVal args As String())
        Dim t As Thread = New Thread (AddressOf Download)
        t.Start
        While t.IsAlive
            if (got > 0)
                Console.WriteLine(got/size & " percent")
            Else
                Console.WriteLine("0 perecent")
            End If
            Thread.Sleep(100)
        End While
        Console.WriteLine("done")
    End Sub
    Public Shared Sub Download
        Dim req As HttpWebRequest = CType(WebRequest.Create("http://www.microsoft.com/"), HttpWebRequest)
        Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
        Dim stm As Stream = resp.GetResponseStream
        size = resp.ContentLength
        Dim fs As FileStream = File.Create("C:\ms.htm")
        Dim c As Integer
        Dim more as boolean = true
        While (more)
            c = stm.ReadByte
            If (c >= 0) Then
                fs.WriteByte(c)
                Got = Got + 1
            Else
                more = false
            End If
        End While
        stm.Close
        resp.Close
        fs.Close
    End Sub
End Class

OK ?