form1.vb

编程环境VB.NET2005 多线程下载

Public Class Form1
    'http://www.51dd.com/Download.asp?ID=42296&sID=2&UUName=222.183.235.190005&TFlag=1173630217&OPIN=678F08E94BDBBC577B0D303643792BB2
    'http://filestreamtest/down.txt
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        doDownload(TextBox1.Text)
    End Sub
    Sub doDownload(ByVal url As String)
        Dim fromPath As String = url
        Dim downPath As String = "d:\mydowntest.txt"
        Dim response As Net.HttpWebResponse
        Dim request As Net.HttpWebRequest
        request = CType(Net.HttpWebRequest.Create(fromPath), Net.HttpWebRequest)
        request.Headers.Add("Translate: f")
        request.Credentials = System.Net.CredentialCache.DefaultCredentials
        response = CType(request.GetResponse, Net.HttpWebResponse)

        Dim res As IO.Stream = response.GetResponseStream
        Dim FileSize As Integer = CInt(response.ContentLength)
        'Do the Download
        Dim bufferSize As Integer = 1000 'FileSize
        Dim B(bufferSize - 1) As Byte
        Dim fs As IO.FileStream = IO.File.Open(downPath, IO.FileMode.Create, IO.FileAccess.Write)
        Dim len As Integer
        len = res.Read(B, 0, bufferSize)
        Console.Out.WriteLine(len)
        'Dim writeLen As Long = len
        While len <> 0
            fs.Write(B, 0, len)
            len = res.Read(B, 0, bufferSize)
            Console.Out.WriteLine(len)
            '   writeLen += len
        End While
        fs.Close()
    End Sub
End Class
'//create web request/response
'         









'               int FileSize = int.Parse(Response.ContentLength.ToString());
'               //Do the Download
'