Option Strict On 'soyons strict
Option Explicit On 'et explicit !

Imports System.Net

'Ceci n'est pas ma classe je l'ai prise sur VBfrance
'Auteur : Hbv
'J'ai rajouté des commentaires car il n'y en avait aucun !
'J'ai modifié la classe pour l'intégrer dans mon tutos

Public Class Download_File

    '3 events :
    '- Pour le début du télechargement (debut_dl)
    ' pour la progression du téléchargement (progression_dl)
    ' pour la fin du téléchargement (fin_dl)

    Public Event Debut_Dl(ByVal Taille_Fichier As Long, ByVal resumepos As Long, ByVal Temps_Depart As Long)
    Public Event Progression_Dl(ByVal actual_pos As Long)
    Public Event Fin_Dl(ByVal actual_pos As Long)

    Dim b As Boolean 'indique si l'utiliateur veut annulé son dl
    Dim bresume As Boolean
    Dim readstr As IO.Stream
    Dim lenfile As Long
    Dim bytesarr(102400) As Byte
    Dim timestart As Long
    Dim tmppos As Long
    Dim posresume As Long
    Dim pathname As String
    Dim urlz As String

    Public Sub DonwloadFile(ByVal Source As String, ByVal Path As String, ByVal IsResume As Boolean)
        b = True
        bresume = IsResume
        timestart = 0
        pathname = Path
        urlz = Source
        If My.Computer.FileSystem.FileExists(Path) = True Then
            My.Computer.FileSystem.DeleteFile(Path)
        End If
        Dim threadz As New System.Threading.Thread(AddressOf thread_launch)
        threadz.Start()
    End Sub

    Private Sub thread_launch() 'thread pour lancer le téléchargement
        Get_file(urlz, pathname) 'appel de la procédure de dl
    End Sub

    Public Sub Cancel_Dl() 'pour annuler le téléchargement
        b = False
    End Sub

    Private Sub Get_file(ByVal fileurl As String, ByVal filepath As String, Optional ByVal proxy As String = Nothing, Optional ByVal proxyport As Integer = Nothing)
        If proxy <> Nothing And proxyport <> Nothing Then
            Dim hproxy As New WebProxy(proxy, proxyport)
            ' GlobalProxySelection.Select = hproxy
            WebRequest.DefaultWebProxy = hproxy
        End If

        Dim hwebrequest As System.Net.HttpWebRequest = CType(System.Net.WebRequest.Create(fileurl), HttpWebRequest)
        If bresume = True Then
            posresume = CInt(FileLen(filepath))
            tmppos = posresume
            hwebrequest.AddRange(CInt(tmppos))
        End If

        Dim hwebresponse As System.Net.HttpWebResponse = CType(hwebrequest.GetResponse, HttpWebResponse)
        readstr = hwebresponse.GetResponseStream
        lenfile = hwebresponse.ContentLength + tmppos
        timestart = Environment.TickCount 'temps de depart du téléchargement
        Dim tmplen As Long 'indique la position du flux
        tmplen = 2
        b = True
        RaiseEvent Debut_Dl(lenfile, CInt(posresume), CInt(timestart)) 'debut du téléchargement
        Do While tmplen > 0
            If b = False Then Exit Do 'en cas d'annulation, on quitte la boucle
            tmplen = readstr.Read(bytesarr, 0, 102400) 'lis les données
            tmppos += tmplen 'position du stream
            Dim filesave As New IO.FileStream(filepath, IO.FileMode.Append, IO.FileAccess.Write)
            filesave.Write(bytesarr, 0, CInt(tmplen)) 'ecrit les données dans le fichier au bon entroit
            filesave.Close() 'ferme le fichier
            RaiseEvent Progression_Dl(tmppos) 'déclanche l'event progression
            ' System.Threading.Thread.Sleep(100) 'ca sert à rien mais c'est pour ralentir le code je suppose !
        Loop
        RaiseEvent Fin_Dl(tmppos) 'le telechargement est terminé !
        readstr.Close() 'on ferme tout
        readstr = Nothing
    End Sub

End Class