extreme-downloaders/Form5.vb

Imports System.IO
Imports System.ComponentModel
Imports System.Net

Public Class Form5
    Public siteweb As String = ""
    Public nom As String = ""
    Public dl As Integer = 0
    Dim téléchargement As Integer = 0
    Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If nomutilisateur = "" Then
            Button2.Hide()
        End If
    End Sub

    Private Sub Form5_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        If téléchargement = 1 Then
            MsgBox("un téléchargement est en cours" & vbNewLine & "merci de pantienter", MsgBoxStyle.Exclamation)
            e.Cancel = True
        Else
            PictureBox2.Image.Dispose()
            File.Delete(dosrepertoire & "\logo.png")
        End If
    End Sub

    Private Sub Panel1_MouseEnter(sender As Object, e As EventArgs) Handles Panel1.MouseEnter
        Panel1.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub Panel1_MouseLeave(sender As Object, e As EventArgs) Handles Panel1.MouseLeave
        Panel1.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

    Private Sub Label1_MouseEnter(sender As Object, e As EventArgs) Handles Label1.MouseEnter
        Panel1.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub Label1_MouseLeave(sender As Object, e As EventArgs) Handles Label1.MouseLeave
        Panel1.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

    Private Sub PictureBox1_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox1.MouseEnter
        Panel1.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub PictureBox1_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox1.MouseLeave
        Panel1.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

    Private Sub Panel1_Click(sender As Object, e As EventArgs) Handles Panel1.Click
        If dldos = "" Then
            If FolderBrowserDialog1.ShowDialog = 1 Then
                If File.Exists(FolderBrowserDialog1.SelectedPath & "\" & nom) = True Then
                    MsgBox("Le fichier: " & nom & " exsite dêjâ de le dosier: " & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Exclamation)

                Else
                    If dl = 0 And nom.Contains(".zip") = True Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
                        My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                        Me.Text = Form3.ListBox1.SelectedItem
                        téléchargement = 0
                        Button2.Enabled = True
                        MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
                    ElseIf dl = 0 And nom.Contains(".exe") = True Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"))
                    ElseIf dl = 0 And nom.Contains(".jar") = True Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
                        My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                        Me.Text = Form3.ListBox1.SelectedItem
                        téléchargement = 0
                        Button2.Enabled = True
                        MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
                    ElseIf dl = 1 And nom.Contains(".zip") = True Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
                        My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                        Me.Text = Form3.ListBox2.SelectedItem
                        téléchargement = 0
                        Button2.Enabled = True
                        MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
                    ElseIf dl = 1 And nom.Contains(".jar") = True Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
                        My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                        Me.Text = Form3.ListBox2.SelectedItem
                        téléchargement = 0
                        Button2.Enabled = True
                        MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
                    ElseIf dl = 1 And nom.Contains(".exe") = True Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
                        My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                        Me.Text = Form3.ListBox2.SelectedItem
                        téléchargement = 0
                        Button2.Enabled = True
                        MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
                    ElseIf dl = 2 Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/ISO/" & Form3.ComboBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & ".iso"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox3.SelectedItem.ToString & ".iso"))
                    ElseIf dl = 3 Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox4.SelectedItem.ToString & ".zip"))
                    ElseIf dl = 4 Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox5.SelectedItem.ToString & ".zip"))
                    ElseIf dl = 5 Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox6.SelectedItem.ToString & ".zip"))
                    ElseIf dl = 6 Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox7.SelectedItem.ToString & ".zip"))
                    ElseIf dl = 7 Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/" & Form3.ListBox8.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox8.SelectedItem.ToString & ".zip"))
                    End If
                End If
            End If
        Else
            FolderBrowserDialog1.SelectedPath = dldos
            If File.Exists(FolderBrowserDialog1.SelectedPath & "\" & nom) = True Then
                MsgBox("Le fichier: " & nom & " exsite dêjâ de le dosier: " & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Exclamation)
            Else
                If dl = 0 And nom.Contains(".zip") = True Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
                    My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                    Me.Text = Form3.ListBox1.SelectedItem
                    téléchargement = 0
                    Button2.Enabled = True
                    MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
                ElseIf dl = 0 And nom.Contains(".exe") = True Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"))
                ElseIf dl = 0 And nom.Contains(".jar") = True Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
                    My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                    Me.Text = Form3.ListBox1.SelectedItem
                    téléchargement = 0
                    Button2.Enabled = True
                    MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
                ElseIf dl = 1 And nom.Contains(".zip") = True Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
                    My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                    Me.Text = Form3.ListBox2.SelectedItem
                    téléchargement = 0
                    Button2.Enabled = True
                    MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
                ElseIf dl = 1 And nom.Contains(".jar") = True Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
                    My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                    Me.Text = Form3.ListBox2.SelectedItem
                    téléchargement = 0
                    Button2.Enabled = True
                    MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
                ElseIf dl = 1 And nom.Contains(".exe") = True Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
                    My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                    Me.Text = Form3.ListBox2.SelectedItem
                    téléchargement = 0
                    Button2.Enabled = True
                    MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
                ElseIf dl = 2 Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/ISO/" & Form3.ComboBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & ".iso"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox3.SelectedItem.ToString & ".iso"))
                ElseIf dl = 3 Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox4.SelectedItem.ToString & ".zip"))
                ElseIf dl = 4 Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox5.SelectedItem.ToString & ".zip"))
                ElseIf dl = 5 Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox6.SelectedItem.ToString & ".zip"))
                ElseIf dl = 6 Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox7.SelectedItem.ToString & ".zip"))
                ElseIf dl = 7 Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/" & Form3.ListBox8.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox8.SelectedItem.ToString & ".zip"))
                End If
            End If
        End If
    End Sub

    Private Sub téléchargerfr_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles téléchargerfr.DownloadProgressChanged
        If dl = 0 Then
            ProgressBar1.Value = e.ProgressPercentage
            Me.Text = e.ProgressPercentage & "%" & " Téléchargement de " & Form3.ListBox1.SelectedItem & " "
        ElseIf dl = 2 Then
            ProgressBar1.Value = e.ProgressPercentage
            Me.Text = e.ProgressPercentage & "%" & " Téléchargement de " & Form3.ListBox3.SelectedItem & " "
        ElseIf dl = 3 Then
            ProgressBar1.Value = e.ProgressPercentage
            Me.Text = e.ProgressPercentage & "%" & " Téléchargement de " & Form3.ListBox4.SelectedItem & " "
        ElseIf dl = 4 Then
            ProgressBar1.Value = e.ProgressPercentage
            Me.Text = e.ProgressPercentage & "%" & " Téléchargement de " & Form3.ListBox5.SelectedItem & " "
        ElseIf dl = 5 Then
            ProgressBar1.Value = e.ProgressPercentage
            Me.Text = e.ProgressPercentage & "%" & " Téléchargement de " & Form3.ListBox6.SelectedItem & " "
        ElseIf dl = 6 Then
            ProgressBar1.Value = e.ProgressPercentage
            Me.Text = e.ProgressPercentage & "%" & " Téléchargement de " & Form3.ListBox7.SelectedItem & " "
        ElseIf dl = 7 Then
            ProgressBar1.Value = e.ProgressPercentage
            Me.Text = e.ProgressPercentage & "%" & " Téléchargement de " & Form3.ListBox8.SelectedItem & " "
        End If
    End Sub

    Private Sub téléchargerfr_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles téléchargerfr.DownloadFileCompleted
        Panel1.Show()
        If dl = 0 Then
            ProgressBar1.Value = 0
            ProgressBar1.Hide()
            Me.Text = Form3.ListBox1.SelectedItem
            téléchargement = 0
            Button2.Enabled = True
            MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
            Dim msg = MsgBox("voulez vous lançer le setup de " & Form3.ListBox1.SelectedItem & "?", MsgBoxStyle.YesNo)
            If msg = MsgBoxResult.Yes Then
                Try
                    Process.Start(FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox1.SelectedItem.ToString & " setup.exe")
                Catch ex As Exception
                    MsgBox("un erreytur est survenue", MsgBoxStyle.Critical)
                End Try
            Else

            End If
        ElseIf dl = 2 Then
            ProgressBar1.Value = 0
            ProgressBar1.Hide()
            Me.Text = Form3.ListBox3.SelectedItem
            téléchargement = 0
            Button2.Enabled = True
            MsgBox("Le téléchargement de: " & Form3.ListBox3.SelectedItem & " est terminer", MsgBoxStyle.Information)
        ElseIf dl = 3 Then
            ProgressBar1.Value = 0
            ProgressBar1.Hide()
            Me.Text = Form3.ListBox4.SelectedItem
            Try
                IO.Compression.ZipFile.ExtractToDirectory(dostemps & "\" & Form3.ListBox4.SelectedItem.ToString & ".zip", FolderBrowserDialog1.SelectedPath)
                For Each fichier As String In IO.Directory.GetFiles(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    File.Delete(dostemps & info.Name)
                Next
                téléchargement = 0
                Button2.Enabled = True
                MsgBox("Le téléchargement de: " & Form3.ListBox4.SelectedItem & " est terminer", MsgBoxStyle.Information)
            Catch ex As Exception
                téléchargement = 0
                Button2.Enabled = True
                MsgBox("le fichier exsite dêja dans: " & vbNewLine & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Critical)
                For Each fichier As String In IO.Directory.GetFiles(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    File.Delete(dostemps & info.Name)
                Next
            End Try
        ElseIf dl = 4 Then
            ProgressBar1.Value = 0
            ProgressBar1.Hide()
            Me.Text = Form3.ListBox5.SelectedItem
            Try
                IO.Compression.ZipFile.ExtractToDirectory(dostemps & "\" & Form3.ListBox5.SelectedItem.ToString & ".zip", FolderBrowserDialog1.SelectedPath)
                For Each fichier As String In IO.Directory.GetFiles(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    File.Delete(dostemps & info.Name)
                Next
                téléchargement = 0
                Button2.Enabled = True
                MsgBox("Le téléchargement de: " & Form3.ListBox5.SelectedItem & " est terminer", MsgBoxStyle.Information)
            Catch ex As Exception
                téléchargement = 0
                Button2.Enabled = True
                MsgBox("le fichier exsite dêja dans: " & vbNewLine & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Critical)
                For Each fichier As String In IO.Directory.GetFiles(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    File.Delete(dostemps & info.Name)
                Next
            End Try
        ElseIf dl = 5 Then
            ProgressBar1.Value = 0
            ProgressBar1.Hide()
            Me.Text = Form3.ListBox6.SelectedItem
            Try
                IO.Compression.ZipFile.ExtractToDirectory(dostemps & "\" & Form3.ListBox6.SelectedItem.ToString & ".zip", FolderBrowserDialog1.SelectedPath)
                For Each fichier As String In IO.Directory.GetFiles(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    File.Delete(dostemps & info.Name)
                Next
                téléchargement = 0
                Button2.Enabled = True
                MsgBox("Le téléchargement de: " & Form3.ListBox6.SelectedItem & " est terminer", MsgBoxStyle.Information)
            Catch ex As Exception
                téléchargement = 0
                Button2.Enabled = True
                MsgBox("le fichier exsite dêja dans: " & vbNewLine & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Critical)
                For Each fichier As String In IO.Directory.GetFiles(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    File.Delete(dostemps & info.Name)
                Next
            End Try
        ElseIf dl = 6 Then
            ProgressBar1.Value = 0
            ProgressBar1.Hide()
            Me.Text = Form3.ListBox7.SelectedItem
            Try
                IO.Compression.ZipFile.ExtractToDirectory(dostemps & "\" & Form3.ListBox7.SelectedItem.ToString & ".zip", FolderBrowserDialog1.SelectedPath)
                For Each fichier As String In IO.Directory.GetFiles(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    File.Delete(dostemps & info.Name)
                Next
                téléchargement = 0
                Button2.Enabled = True
                MsgBox("Le téléchargement de: " & Form3.ListBox7.SelectedItem & " est terminer", MsgBoxStyle.Information)
            Catch ex As Exception
                téléchargement = 0
                Button2.Enabled = True
                MsgBox("le fichier exsite dêja dans: " & vbNewLine & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Critical)
                For Each fichier As String In IO.Directory.GetFiles(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    File.Delete(dostemps & info.Name)
                Next
            End Try
        ElseIf dl = 7 Then
            ProgressBar1.Value = 0
            ProgressBar1.Hide()
            Me.Text = Form3.ListBox8.SelectedItem
            Try
                IO.Compression.ZipFile.ExtractToDirectory(dostemps & "\" & Form3.ListBox8.SelectedItem.ToString & ".zip", FolderBrowserDialog1.SelectedPath)
                For Each fichier As String In IO.Directory.GetFiles(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    File.Delete(dostemps & info.Name)
                Next
                téléchargement = 0
                Button2.Enabled = True
                MsgBox("Le téléchargement de: " & Form3.ListBox8.SelectedItem & " est terminer", MsgBoxStyle.Information)
            Catch ex As Exception
                téléchargement = 0
                Button2.Enabled = True
                MsgBox("le fichier exsite dêja dans: " & vbNewLine & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Critical)
                For Each fichier As String In IO.Directory.GetFiles(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    File.Delete(dostemps & info.Name)
                Next
            End Try
        End If
    End Sub

    Dim WithEvents téléchargerfr As WebClient

    Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
        Process.Start(siteweb)
    End Sub

    Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint

    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form10.ShowDialog()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Form22.ShowDialog()
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
        If dldos = "" Then
            If FolderBrowserDialog1.ShowDialog = 1 Then
                If File.Exists(FolderBrowserDialog1.SelectedPath & "\" & nom) = True Then
                    MsgBox("Le fichier: " & nom & " exsite dêjâ de le dosier: " & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Exclamation)

                Else
                    If dl = 0 And nom.Contains(".zip") = True Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
                        My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                        Me.Text = Form3.ListBox1.SelectedItem
                        téléchargement = 0
                        Button2.Enabled = True
                        MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
                    ElseIf dl = 0 And nom.Contains(".exe") = True Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"))
                    ElseIf dl = 0 And nom.Contains(".jar") = True Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
                        My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                        Me.Text = Form3.ListBox1.SelectedItem
                        téléchargement = 0
                        Button2.Enabled = True
                        MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
                    ElseIf dl = 1 And nom.Contains(".zip") = True Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
                        My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                        Me.Text = Form3.ListBox2.SelectedItem
                        téléchargement = 0
                        Button2.Enabled = True
                        MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
                    ElseIf dl = 1 And nom.Contains(".jar") = True Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
                        My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                        Me.Text = Form3.ListBox2.SelectedItem
                        téléchargement = 0
                        Button2.Enabled = True
                        MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
                    ElseIf dl = 1 And nom.Contains(".exe") = True Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
                        My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                        Me.Text = Form3.ListBox2.SelectedItem
                        téléchargement = 0
                        Button2.Enabled = True
                        MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
                    ElseIf dl = 2 Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/ISO/" & Form3.ComboBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & ".iso"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox3.SelectedItem.ToString & ".iso"))
                    ElseIf dl = 3 Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox4.SelectedItem.ToString & ".zip"))
                    ElseIf dl = 4 Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox5.SelectedItem.ToString & ".zip"))
                    ElseIf dl = 5 Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox6.SelectedItem.ToString & ".zip"))
                    ElseIf dl = 6 Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox7.SelectedItem.ToString & ".zip"))
                    ElseIf dl = 7 Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/" & Form3.ListBox8.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox8.SelectedItem.ToString & ".zip"))
                    End If
                End If
            End If
        Else
            FolderBrowserDialog1.SelectedPath = dldos
            If File.Exists(FolderBrowserDialog1.SelectedPath & "\" & nom) = True Then
                MsgBox("Le fichier: " & nom & " exsite dêjâ de le dosier: " & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Exclamation)
            Else
                If dl = 0 And nom.Contains(".zip") = True Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
                    My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                    Me.Text = Form3.ListBox1.SelectedItem
                    téléchargement = 0
                    Button2.Enabled = True
                    MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
                ElseIf dl = 0 And nom.Contains(".exe") = True Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"))
                ElseIf dl = 0 And nom.Contains(".jar") = True Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
                    My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                    Me.Text = Form3.ListBox1.SelectedItem
                    téléchargement = 0
                    Button2.Enabled = True
                    MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
                ElseIf dl = 1 And nom.Contains(".zip") = True Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
                    My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                    Me.Text = Form3.ListBox2.SelectedItem
                    téléchargement = 0
                    Button2.Enabled = True
                    MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
                ElseIf dl = 1 And nom.Contains(".jar") = True Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
                    My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                    Me.Text = Form3.ListBox2.SelectedItem
                    téléchargement = 0
                    Button2.Enabled = True
                    MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
                ElseIf dl = 1 And nom.Contains(".exe") = True Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
                    My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                    Me.Text = Form3.ListBox2.SelectedItem
                    téléchargement = 0
                    Button2.Enabled = True
                    MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
                ElseIf dl = 2 Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/ISO/" & Form3.ComboBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & ".iso"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox3.SelectedItem.ToString & ".iso"))
                ElseIf dl = 3 Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox4.SelectedItem.ToString & ".zip"))
                ElseIf dl = 4 Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox5.SelectedItem.ToString & ".zip"))
                ElseIf dl = 5 Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox6.SelectedItem.ToString & ".zip"))
                ElseIf dl = 6 Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox7.SelectedItem.ToString & ".zip"))
                ElseIf dl = 7 Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/" & Form3.ListBox8.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox8.SelectedItem.ToString & ".zip"))
                End If
            End If
        End If
    End Sub

    Private Sub PictureBox1_Click_1(sender As Object, e As EventArgs) Handles PictureBox1.Click
        If dldos = "" Then
            If FolderBrowserDialog1.ShowDialog = 1 Then
                If File.Exists(FolderBrowserDialog1.SelectedPath & "\" & nom) = True Then
                    MsgBox("Le fichier: " & nom & " exsite dêjâ de le dosier: " & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Exclamation)

                Else
                    If dl = 0 And nom.Contains(".zip") = True Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
                        My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                        Me.Text = Form3.ListBox1.SelectedItem
                        téléchargement = 0
                        Button2.Enabled = True
                        MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
                    ElseIf dl = 0 And nom.Contains(".exe") = True Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"))
                    ElseIf dl = 0 And nom.Contains(".jar") = True Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
                        My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                        Me.Text = Form3.ListBox1.SelectedItem
                        téléchargement = 0
                        Button2.Enabled = True
                        MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
                    ElseIf dl = 1 And nom.Contains(".zip") = True Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
                        My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                        Me.Text = Form3.ListBox2.SelectedItem
                        téléchargement = 0
                        Button2.Enabled = True
                        MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
                    ElseIf dl = 1 And nom.Contains(".jar") = True Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
                        My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                        Me.Text = Form3.ListBox2.SelectedItem
                        téléchargement = 0
                        Button2.Enabled = True
                        MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
                    ElseIf dl = 1 And nom.Contains(".exe") = True Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
                        My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                        Me.Text = Form3.ListBox2.SelectedItem
                        téléchargement = 0
                        Button2.Enabled = True
                        MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
                    ElseIf dl = 2 Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/ISO/" & Form3.ComboBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & ".iso"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox3.SelectedItem.ToString & ".iso"))
                    ElseIf dl = 3 Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox4.SelectedItem.ToString & ".zip"))
                    ElseIf dl = 4 Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox5.SelectedItem.ToString & ".zip"))
                    ElseIf dl = 5 Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox6.SelectedItem.ToString & ".zip"))
                    ElseIf dl = 6 Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox7.SelectedItem.ToString & ".zip"))
                    ElseIf dl = 7 Then
                        Button2.Enabled = False
                        téléchargement = 1
                        Panel1.Hide()
                        ProgressBar1.Show()
                        téléchargerfr = New WebClient
                        téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/" & Form3.ListBox8.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox8.SelectedItem.ToString & ".zip"))
                    End If
                End If
            End If
        Else
            FolderBrowserDialog1.SelectedPath = dldos
            If File.Exists(FolderBrowserDialog1.SelectedPath & "\" & nom) = True Then
                MsgBox("Le fichier: " & nom & " exsite dêjâ de le dosier: " & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Exclamation)
            Else
                If dl = 0 And nom.Contains(".zip") = True Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
                    My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                    Me.Text = Form3.ListBox1.SelectedItem
                    téléchargement = 0
                    Button2.Enabled = True
                    MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
                ElseIf dl = 0 And nom.Contains(".exe") = True Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"))
                ElseIf dl = 0 And nom.Contains(".jar") = True Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
                    My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                    Me.Text = Form3.ListBox1.SelectedItem
                    téléchargement = 0
                    Button2.Enabled = True
                    MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
                ElseIf dl = 1 And nom.Contains(".zip") = True Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
                    My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                    Me.Text = Form3.ListBox2.SelectedItem
                    téléchargement = 0
                    Button2.Enabled = True
                    MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
                ElseIf dl = 1 And nom.Contains(".jar") = True Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
                    My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                    Me.Text = Form3.ListBox2.SelectedItem
                    téléchargement = 0
                    Button2.Enabled = True
                    MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
                ElseIf dl = 1 And nom.Contains(".exe") = True Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
                    My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
                    Me.Text = Form3.ListBox2.SelectedItem
                    téléchargement = 0
                    Button2.Enabled = True
                    MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
                ElseIf dl = 2 Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/ISO/" & Form3.ComboBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & ".iso"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox3.SelectedItem.ToString & ".iso"))
                ElseIf dl = 3 Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox4.SelectedItem.ToString & ".zip"))
                ElseIf dl = 4 Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox5.SelectedItem.ToString & ".zip"))
                ElseIf dl = 5 Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox6.SelectedItem.ToString & ".zip"))
                ElseIf dl = 6 Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox7.SelectedItem.ToString & ".zip"))
                ElseIf dl = 7 Then
                    Button2.Enabled = False
                    téléchargement = 1
                    Panel1.Hide()
                    ProgressBar1.Show()
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/" & Form3.ListBox8.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox8.SelectedItem.ToString & ".zip"))
                End If
            End If
        End If
    End Sub
End Class