Imports System.IO
Imports System.net
Public Class dwtofile
    Public dwpath As String
    Public topath As String
    Public allleght As Long
    Public curentleght As Long
    Public percent As Integer
    Public status As String = "ready"
    Public flagstop As Boolean

    Private Sub dw()
        On Error Resume Next
        flagstop = False
        Dim request As HttpWebRequest = DirectCast(WebRequest.Create(dwpath), HttpWebRequest)
        request.Method = "GET"
        request.UserAgent = "Mozila/5.O (Windows; U; Windows NT 5.1; ru; rv:1.9.0.15) Gecko/2OO912O2O8 Firefox/3.O.16"
        allleght = request.GetResponse.ContentLength
        curentleght = 0
        percent = 0
        status = "download"

        If Dir(topath) <> "" Then
            curentleght = FileLen(topath) - 1
            percent = CInt((curentleght * 100) / allleght)
            If FileLen(topath) >= allleght Then GoTo endt
            request.AddRange(CInt(curentleght), CInt(allleght))
        End If


        Dim FLOut As System.IO.FileStream
        FLOut = New FileStream(topath, FileMode.OpenOrCreate, FileAccess.Write, FileShare.ReadWrite)
        FLOut.Seek(curentleght, SeekOrigin.Current)
        If flagstop = True Then flagstop = False : Exit Sub

        'testzon
        Dim inn As Long


        Dim stream2 As Stream = request.GetResponse().GetResponseStream()
        Dim reader2 As New StreamReader(stream2, System.Text.Encoding.Default)
        Dim b(0) As Char
        Dim h As Byte
        Do
            If flagstop = True Then flagstop = False : Exit Sub
            reader2.Read(b, 0, 1)
            h = Asc(b(0))
            FLOut.WriteByte(h)
            curentleght = curentleght + 1
            percent = CInt((curentleght * 100) / allleght)
            If reader2.EndOfStream = True Then Exit Do
            If curentleght > allleght Then Exit Do

        Loop


        FLOut.Close()

        stream2.Close()
        reader2.Close()
endt:
        status = "done"
    End Sub
    Public Sub start_download()
        Dim jk As Threading.Thread
        jk = New Threading.Thread(AddressOf dw)
        jk.Start()

    End Sub

allleght = request.GetResponse.ContentLength

 Function getleght(ByVal ur As String) As Long
        Dim request As HttpWebRequest = DirectCast(WebRequest.Create(ur), HttpWebRequest)
        Return request.GetResponse.ContentLength
    End Function
=========================================

allleght = getleght(dwpath)