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

Public Class Form3
    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        If nomutilisateur = "" Then

        Else
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/admin.txt")
            If vri = 1 Then
                Panel3.Show()
            End If
        End If


        Panel2.Size = New Size(50, 37)
        PictureBox1.Image = My.Resources._588a6507d06f6719692ezezea2d15
        Panel1.Hide()
        Panel2.BackColor = Color.FromArgb(32, 32, 32)
        ComboBox2.SelectedItem = "Tout les jeux"
        ComboBox3.SelectedItem = "Tout les ISO"
        ComboBox4.SelectedItem = "1.19.2"
        ComboBox5.SelectedItem = "1.19.2"
        ComboBox6.SelectedItem = "1.19.2"
        ComboBox7.SelectedItem = "1.19.2"

        loadLaunchers()

    End Sub

    Private Sub Form3_LocationChanged(sender As Object, e As EventArgs) Handles Me.LocationChanged
        Form1.Location = Me.Location
    End Sub

    Private Sub Form3_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        Form1.Show()
    End Sub
    Private Sub Panel10_Click(sender As Object, e As EventArgs) Handles Panel10.Click
        Close()
    End Sub

    Private Sub Label16_Click(sender As Object, e As EventArgs) Handles Label16.Click
        Close()
    End Sub

    Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click
        Close()
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        If Panel1.Visible = True Then
            Panel2.Size = New Size(50, 37)
            PictureBox1.Image = My.Resources._588a6507d06f6719692ezezea2d15
            Panel1.Hide()
            Panel2.BackColor = Color.FromArgb(32, 32, 32)
            Panel4.Hide()
        Else
            Panel2.Size = New Size(201, 55)
            PictureBox1.Image = My.Resources._588a6507d06f6719692a2d15
            Panel1.Show()
            Panel4.Show()
            Panel2.BackColor = Color.FromArgb(64, 64, 64)
        End If
    End Sub

    Private Sub Form3_Click(sender As Object, e As EventArgs) Handles Me.Click
        PictureBox1.Image = My.Resources._588a6507d06f6719692ezezea2d15
        Panel1.Hide()
        Panel2.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

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

        Try
            ListBox1.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/logiciels/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox1.Items.Add(str)
                ListBox1.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox1.Items.Count = 0 Then
                Label1.Show()
            Else
                Label1.Hide()
            End If
        Catch ex As Exception
            Timer1.Start()
        End Try
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Try
            ListBox1.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/logiciels/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox1.Items.Add(str)
                ListBox1.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox1.Items.Count = 0 Then
                Label1.Show()
            Else
                Label1.Hide()
            End If
        Catch ex As Exception
            Timer1.Start()
        End Try
    End Sub

    Private Sub ListBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedValueChanged
        If ListBox1.SelectedItem = "" Then

        Else
            TextBox1.Text = "recherche ici:"
            Form5.Text = ListBox1.SelectedItem
            Form5.Label1.Text = "télécharger: " & ListBox1.SelectedItem
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & ListBox1.SelectedItem.ToString & "/logo.png", dosrepertoire & "\logo.png")
            Form5.PictureBox2.Image = Image.FromFile(dosrepertoire & "\logo.png")
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & ListBox1.SelectedItem.ToString & "/info.txt")
            Form5.TextBox1.Text = vri
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & ListBox1.SelectedItem.ToString & "/site.txt")
            Form5.siteweb = vri2.ToString
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & ListBox1.SelectedItem.ToString & "/nom.txt")
            Form5.nom = vri3.ToString
            Form5.Button1.Hide()
            Form5.dl = 0
            Form5.Panel1.Focus()
            Form5.ShowDialog()
        End If

    End Sub

    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
        If ListBox1.Items.Count = 0 Then
            TextBox1.Text = "recherche ici:"
            MsgBox("aucun logiciels trouvez", MsgBoxStyle.Information)
            Timer1.Start()
        Else
            If TextBox1.Text = "" Or TextBox1.Text = " " Or TextBox1.Text = "  " Or TextBox1.Text = "recherche ici:" Then
                TextBox1.Text = "recherche ici:"
                Timer1.Start()
            Else
                Try
                    ListBox1.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/logiciels/")
                    fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
                    fwr.Method = WebRequestMethods.Ftp.ListDirectory
                    Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                    Dim str As String = sr.ReadLine()
                    While Not str Is Nothing

                        Directory.CreateDirectory(dostemps & str)


                        str = sr.ReadLine()

                    End While
                    sr.Close()

                    If Directory.Exists(dostemps & TextBox1.Text) = True Then
                        ListBox1.Items.Add(TextBox1.Text)
                        TextBox1.Text = "recherche ici:"
                    Else
                        MsgBox("Le logiciels: " & TextBox1.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer1.Start()
                    End If


                    For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(dostemps & info.Name)
                    Next
                Catch ex As Exception
                    Timer2.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Timer2.Stop()
        Try
            ListBox1.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/logiciels/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                Directory.CreateDirectory(dostemps & str)


                str = sr.ReadLine()

            End While
            sr.Close()

            If Directory.Exists(dostemps & TextBox1.Text) = True Then
                ListBox1.Items.Clear()
                ListBox1.Items.Add(TextBox1.Text)
                TextBox1.Text = "recherche ici:"
            Else
                MsgBox("Le logiciels: " & TextBox1.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                Timer1.Start()
            End If

            For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                Dim info As New IO.FileInfo(fichier)
                Directory.Delete(dostemps & info.Name)
            Next
        Catch ex As Exception
            Timer2.Start()
        End Try
    End Sub

    Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click
        TextBox1.Clear()
    End Sub

    Private Sub Panel3_Click(sender As Object, e As EventArgs) Handles Panel3.Click
        Try
            Form7.ShowDialog()

        Catch ex As Exception
            Form7.Close()
            Form7.ShowDialog()
        End Try
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

    End Sub

    Private Sub ComboBox2_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedValueChanged
        Try
            ListBox2.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/" & ComboBox2.SelectedItem & "/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox2.Items.Add(str)
                ListBox2.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox2.Items.Count = 0 Then
                Label4.Show()
            Else
                Label4.Hide()
            End If
        Catch ex As Exception
            Timer3.Start()
        End Try
    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Timer3.Stop()
        Try
            ListBox2.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/" & ComboBox2.SelectedItem & "/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox2.Items.Add(str)
                ListBox2.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox2.Items.Count = 0 Then
                Label4.Show()
            Else
                Label4.Hide()
            End If
        Catch ex As Exception
            Timer3.Start()
        End Try
    End Sub

    Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
        If ListBox2.Items.Count = 0 Then
            TextBox2.Text = "recherche ici:"
            MsgBox("aucun jeux trouvez", MsgBoxStyle.Information)
            Timer3.Start()
        Else
            If TextBox2.Text = "" Or TextBox2.Text = " " Or TextBox2.Text = "  " Or TextBox2.Text = "recherche ici:" Then
                TextBox2.Text = "recherche ici:"
                Timer3.Start()
            Else
                Try
                    ListBox2.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/" & ComboBox2.SelectedItem & "/")
                    fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
                    fwr.Method = WebRequestMethods.Ftp.ListDirectory
                    Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                    Dim str As String = sr.ReadLine()
                    While Not str Is Nothing

                        Directory.CreateDirectory(dostemps & str)


                        str = sr.ReadLine()

                    End While
                    sr.Close()

                    If Directory.Exists(dostemps & TextBox2.Text) = True Then
                        ListBox2.Items.Add(TextBox2.Text)
                        TextBox2.Text = "recherche ici:"
                    Else
                        MsgBox("Le jeux: " & TextBox2.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer3.Start()
                    End If


                    For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(dostemps & info.Name)
                    Next
                Catch ex As Exception
                    Timer4.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
        Timer4.Stop()
        If ListBox2.Items.Count = 0 Then
            TextBox2.Text = "recherche ici:"
            MsgBox("aucun jeux trouvez", MsgBoxStyle.Information)
            Timer3.Start()
        Else
            If TextBox2.Text = "" Or TextBox2.Text = " " Or TextBox2.Text = "  " Or TextBox2.Text = "recherche ici:" Then
                TextBox2.Text = "recherche ici:"
                Timer3.Start()
            Else
                Try
                    ListBox2.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/" & ComboBox2.SelectedItem & "/")
                    fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
                    fwr.Method = WebRequestMethods.Ftp.ListDirectory
                    Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                    Dim str As String = sr.ReadLine()
                    While Not str Is Nothing

                        Directory.CreateDirectory(dostemps & str)


                        str = sr.ReadLine()

                    End While
                    sr.Close()

                    If Directory.Exists(dostemps & TextBox2.Text) = True Then
                        ListBox2.Items.Add(TextBox2.Text)
                        TextBox2.Text = "recherche ici:"
                    Else
                        MsgBox("Le jeux: " & TextBox2.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer3.Start()
                    End If


                    For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(dostemps & info.Name)
                    Next
                Catch ex As Exception
                    Timer4.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub TextBox2_Click(sender As Object, e As EventArgs) Handles TextBox2.Click
        TextBox2.Clear()
    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged

    End Sub

    Private Sub ComboBox3_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedValueChanged
        Try
            ListBox3.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/ISO/" & ComboBox3.SelectedItem & "/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox3.Items.Add(str)
                ListBox3.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox3.Items.Count = 0 Then
                Label3.Show()
            Else
                Label3.Hide()
            End If
        Catch ex As Exception
            Timer5.Start()
        End Try
    End Sub

    Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
        Timer5.Stop()
        Try
            ListBox3.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/ISO/" & ComboBox3.SelectedItem & "/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox3.Items.Add(str)
                ListBox3.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox3.Items.Count = 0 Then
                Label3.Show()
            Else
                Label3.Hide()
            End If
        Catch ex As Exception
            Timer5.Start()
        End Try
    End Sub

    Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
        If ListBox3.Items.Count = 0 Then
            TextBox3.Text = "recherche ici:"
            MsgBox("aucun ISO trouvez", MsgBoxStyle.Information)
            Timer5.Start()
        Else
            If TextBox3.Text = "" Or TextBox3.Text = " " Or TextBox3.Text = "  " Or TextBox3.Text = "recherche ici:" Then
                TextBox3.Text = "recherche ici:"
                Timer5.Start()
            Else
                Try
                    ListBox3.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/ISO/" & ComboBox3.SelectedItem & "/")
                    fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
                    fwr.Method = WebRequestMethods.Ftp.ListDirectory
                    Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                    Dim str As String = sr.ReadLine()
                    While Not str Is Nothing

                        Directory.CreateDirectory(dostemps & str)


                        str = sr.ReadLine()

                    End While
                    sr.Close()

                    If Directory.Exists(dostemps & TextBox3.Text) = True Then
                        ListBox3.Items.Add(TextBox3.Text)
                        TextBox3.Text = "recherche ici:"
                    Else
                        MsgBox("Le fichier ISO: " & TextBox3.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer5.Start()
                    End If


                    For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(dostemps & info.Name)
                    Next
                Catch ex As Exception
                    Timer6.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
        Timer6.Stop()
        If ListBox3.Items.Count = 0 Then
            TextBox3.Text = "recherche ici:"
            MsgBox("aucun ISO trouvez", MsgBoxStyle.Information)
            Timer5.Start()
        Else
            If TextBox3.Text = "" Or TextBox3.Text = " " Or TextBox3.Text = "  " Or TextBox3.Text = "recherche ici:" Then
                TextBox3.Text = "recherche ici:"
                Timer5.Start()
            Else
                Try
                    ListBox3.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/ISO/" & ComboBox3.SelectedItem & "/")
                    fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
                    fwr.Method = WebRequestMethods.Ftp.ListDirectory
                    Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                    Dim str As String = sr.ReadLine()
                    While Not str Is Nothing

                        Directory.CreateDirectory(dostemps & str)


                        str = sr.ReadLine()

                    End While
                    sr.Close()

                    If Directory.Exists(dostemps & TextBox3.Text) = True Then
                        ListBox3.Items.Add(TextBox3.Text)
                        TextBox3.Text = "recherche ici:"
                    Else
                        MsgBox("Le fichier ISO: " & TextBox3.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer5.Start()
                    End If


                    For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(dostemps & info.Name)
                    Next
                Catch ex As Exception
                    Timer6.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub TextBox3_Click(sender As Object, e As EventArgs) Handles TextBox3.Click
        TextBox3.Clear()
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

    Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged

    End Sub

    Private Sub ListBox2_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedValueChanged
        If ListBox2.SelectedItem = "" Then

        Else
            TextBox2.Text = "recherche ici:"
            Form5.Text = ListBox2.SelectedItem
            Form5.Label1.Text = "télécharger: " & ListBox2.SelectedItem
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & ComboBox2.SelectedItem.ToString & "/" & ListBox2.SelectedItem.ToString & "/logo.png", dosrepertoire & "\logo.png")
            Form5.PictureBox2.Image = Image.FromFile(dosrepertoire & "\logo.png")
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/" & ComboBox2.SelectedItem.ToString & "/" & ListBox2.SelectedItem.ToString & "/info.txt")
            Form5.TextBox1.Text = vri
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/" & ComboBox2.SelectedItem.ToString & "/" & ListBox2.SelectedItem.ToString & "/site.txt")
            Form5.siteweb = vri2.ToString
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/" & ComboBox2.SelectedItem.ToString & "/" & ListBox2.SelectedItem.ToString & "/nom.txt")
            Form5.nom = vri3.ToString
            Form5.Button1.Text = "image du jeux"
            Form5.dl = 1
            Form5.Button1.Show()
            Form5.Panel1.Focus()
            Form5.ShowDialog()
        End If
    End Sub

    Private Sub PictureBox10_Click(sender As Object, e As EventArgs) Handles PictureBox10.Click
        Form2.Location = Me.Location
        Form2.startpara = 1
        Form2.Show()
        Me.Visible = False
    End Sub

    Private Sub Label17_Click(sender As Object, e As EventArgs) Handles Label17.Click
        Form2.Location = Me.Location
        Form2.startpara = 1
        Form2.Show()
        Me.Visible = False
    End Sub

    Private Sub Panel12_Paint(sender As Object, e As PaintEventArgs) Handles Panel12.Paint

    End Sub

    Private Sub Panel12_Click(sender As Object, e As EventArgs) Handles Panel12.Click
        Form2.Location = Me.Location
        Form2.startpara = 1
        Form2.Show()
        Me.Visible = False
    End Sub

    Private Sub ListBox3_Click(sender As Object, e As EventArgs) Handles ListBox3.Click
        If ListBox3.SelectedItem = "" Then

        Else
            TextBox3.Text = "recherche ici:"
            Form5.Text = ListBox3.SelectedItem
            Form5.Label1.Text = "télécharger: " & ListBox3.SelectedItem
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/ISO/" & ComboBox3.SelectedItem.ToString & "/" & ListBox3.SelectedItem.ToString & "/logo.png", dosrepertoire & "\logo.png")
            Form5.PictureBox2.Image = Image.FromFile(dosrepertoire & "\logo.png")
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Téléchargeur/ISO/" & ComboBox3.SelectedItem.ToString & "/" & ListBox3.SelectedItem.ToString & "/info.txt")
            Form5.TextBox1.Text = vri
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Téléchargeur/ISO/" & ComboBox3.SelectedItem.ToString & "/" & ListBox3.SelectedItem.ToString & "/site.txt")
            Form5.siteweb = vri2.ToString
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/ISO/" & ComboBox3.SelectedItem.ToString & "/" & ListBox3.SelectedItem.ToString & "/nom.txt")
            Form5.nom = vri3.ToString
            Form5.dl = 2
            Form5.Button1.Hide()
            Form5.Panel1.Focus()
            Form5.ShowDialog()
        End If
    End Sub

    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged

    End Sub

    Private Sub ComboBox4_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedValueChanged
        Try
            ListBox4.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/mod/" & ComboBox4.SelectedItem & "/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox4.Items.Add(str)
                ListBox4.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox4.Items.Count = 0 Then
                Label5.Show()
            Else
                Label5.Hide()
            End If
        Catch ex As Exception
            Timer7.Start()
        End Try
    End Sub

    Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
        Timer7.Stop()
        Try
            ListBox4.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/mod/" & ComboBox4.SelectedItem & "/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox4.Items.Add(str)
                ListBox4.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox4.Items.Count = 0 Then
                Label5.Show()
            Else
                Label5.Hide()
            End If
        Catch ex As Exception
            Timer7.Start()
        End Try
    End Sub

    Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
        If ListBox4.Items.Count = 0 Then
            TextBox4.Text = "recherche ici:"
            MsgBox("aucun mods trouvez", MsgBoxStyle.Information)
            Timer7.Start()
        Else
            If TextBox4.Text = "" Or TextBox4.Text = " " Or TextBox4.Text = "  " Or TextBox4.Text = "recherche ici:" Then
                TextBox4.Text = "recherche ici:"
                Timer7.Start()
            Else
                Try
                    ListBox4.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/mod/" & ComboBox4.SelectedItem & "/")
                    fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
                    fwr.Method = WebRequestMethods.Ftp.ListDirectory
                    Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                    Dim str As String = sr.ReadLine()
                    While Not str Is Nothing

                        Directory.CreateDirectory(dostemps & str)


                        str = sr.ReadLine()

                    End While
                    sr.Close()

                    If Directory.Exists(dostemps & TextBox4.Text) = True Then
                        ListBox4.Items.Add(TextBox4.Text)
                        TextBox4.Text = "recherche ici:"
                    Else
                        MsgBox("Le mods: " & TextBox4.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer7.Start()
                    End If

                    For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(dostemps & info.Name)
                    Next
                Catch ex As Exception
                    Timer8.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
        Timer8.Stop()
        If ListBox4.Items.Count = 0 Then
            TextBox4.Text = "recherche ici:"
            MsgBox("aucun mods trouvez", MsgBoxStyle.Information)
            Timer7.Start()
        Else
            If TextBox4.Text = "" Or TextBox4.Text = " " Or TextBox4.Text = "  " Or TextBox4.Text = "recherche ici:" Then
                TextBox4.Text = "recherche ici:"
                Timer7.Start()
            Else
                Try
                    ListBox4.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/mod/" & ComboBox4.SelectedItem & "/")
                    fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
                    fwr.Method = WebRequestMethods.Ftp.ListDirectory
                    Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                    Dim str As String = sr.ReadLine()
                    While Not str Is Nothing

                        Directory.CreateDirectory(dostemps & str)


                        str = sr.ReadLine()

                    End While
                    sr.Close()

                    If Directory.Exists(dostemps & TextBox4.Text) = True Then
                        ListBox4.Items.Add(TextBox4.Text)
                        TextBox4.Text = "recherche ici:"
                    Else
                        MsgBox("Le mods: " & TextBox4.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer7.Start()
                    End If

                    For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(dostemps & info.Name)
                    Next
                Catch ex As Exception
                    Timer8.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub TextBox4_Click(sender As Object, e As EventArgs) Handles TextBox4.Click
        TextBox4.Clear()
    End Sub

    Private Sub ListBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox4.SelectedIndexChanged

    End Sub

    Private Sub ListBox4_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox4.SelectedValueChanged
        If ListBox4.SelectedItem = "" Then

        Else
            TextBox4.Text = "recherche ici:"
            Form5.Text = ListBox4.SelectedItem
            Form5.Label1.Text = "télécharger: " & ListBox4.SelectedItem
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & ComboBox4.SelectedItem.ToString & "/" & ListBox4.SelectedItem.ToString & "/logo.png", dosrepertoire & "\logo.png")
            Form5.PictureBox2.Image = Image.FromFile(dosrepertoire & "\logo.png")
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & ComboBox4.SelectedItem.ToString & "/" & ListBox4.SelectedItem.ToString & "/info.txt")
            Form5.TextBox1.Text = vri
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & ComboBox4.SelectedItem.ToString & "/" & ListBox4.SelectedItem.ToString & "/site.txt")
            Form5.siteweb = vri2.ToString
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & ComboBox4.SelectedItem.ToString & "/" & ListBox4.SelectedItem.ToString & "/nom.txt")
            Form5.nom = vri3.ToString
            Form5.Button1.Text = "image du mod"
            Form5.dl = 3
            Form5.Button1.Show()
            Form5.Panel1.Focus()
            Form5.ShowDialog()
        End If
    End Sub

    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged

    End Sub

    Private Sub ComboBox5_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedValueChanged
        Try
            ListBox5.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/plugin/" & ComboBox5.SelectedItem & "/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox5.Items.Add(str)
                ListBox5.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox5.Items.Count = 0 Then
                Label6.Show()
            Else
                Label6.Hide()
            End If
        Catch ex As Exception
            Timer9.Start()
        End Try
    End Sub

    Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles Timer9.Tick
        Timer9.Stop()
        Try
            ListBox5.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/plugin/" & ComboBox5.SelectedItem & "/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox5.Items.Add(str)
                ListBox5.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox5.Items.Count = 0 Then
                Label6.Show()
            Else
                Label6.Hide()
            End If
        Catch ex As Exception
            Timer9.Start()
        End Try
    End Sub

    Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
        If ListBox5.Items.Count = 0 Then
            TextBox5.Text = "recherche ici:"
            MsgBox("aucun plugin trouvez", MsgBoxStyle.Information)
            Timer9.Start()
        Else
            If TextBox5.Text = "" Or TextBox5.Text = " " Or TextBox5.Text = "  " Or TextBox5.Text = "recherche ici:" Then
                TextBox5.Text = "recherche ici:"
                Timer9.Start()
            Else
                Try
                    ListBox5.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/plugin/" & ComboBox5.SelectedItem & "/")
                    fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
                    fwr.Method = WebRequestMethods.Ftp.ListDirectory
                    Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                    Dim str As String = sr.ReadLine()
                    While Not str Is Nothing

                        Directory.CreateDirectory(dostemps & str)


                        str = sr.ReadLine()

                    End While
                    sr.Close()

                    If Directory.Exists(dostemps & TextBox5.Text) = True Then
                        ListBox5.Items.Add(TextBox5.Text)
                        TextBox5.Text = "recherche ici:"
                    Else
                        MsgBox("Le plugin: " & TextBox5.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer9.Start()
                    End If

                    For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(dostemps & info.Name)
                    Next
                Catch ex As Exception
                    Timer10.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick
        Timer10.Stop()
        If ListBox5.Items.Count = 0 Then
            TextBox5.Text = "recherche ici:"
            MsgBox("aucun plugin trouvez", MsgBoxStyle.Information)
            Timer9.Start()
        Else
            If TextBox5.Text = "" Or TextBox5.Text = " " Or TextBox5.Text = "  " Or TextBox5.Text = "recherche ici:" Then
                TextBox5.Text = "recherche ici:"
                Timer9.Start()
            Else
                Try
                    ListBox5.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/plugin/" & ComboBox5.SelectedItem & "/")
                    fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
                    fwr.Method = WebRequestMethods.Ftp.ListDirectory
                    Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                    Dim str As String = sr.ReadLine()
                    While Not str Is Nothing

                        Directory.CreateDirectory(dostemps & str)


                        str = sr.ReadLine()

                    End While
                    sr.Close()

                    If Directory.Exists(dostemps & TextBox5.Text) = True Then
                        ListBox5.Items.Add(TextBox5.Text)
                        TextBox5.Text = "recherche ici:"
                    Else
                        MsgBox("Le plugin: " & TextBox5.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer9.Start()
                    End If

                    For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(dostemps & info.Name)
                    Next
                Catch ex As Exception
                    Timer10.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged

    End Sub

    Private Sub TextBox5_Click(sender As Object, e As EventArgs) Handles TextBox5.Click
        TextBox5.Clear()
    End Sub

    Private Sub ListBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox5.SelectedIndexChanged

    End Sub

    Private Sub ListBox5_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox5.SelectedValueChanged
        If ListBox5.SelectedItem = "" Then

        Else
            TextBox5.Text = "recherche ici:"
            Form5.Text = ListBox5.SelectedItem
            Form5.Label1.Text = "télécharger: " & ListBox5.SelectedItem
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & ComboBox5.SelectedItem.ToString & "/" & ListBox5.SelectedItem.ToString & "/logo.png", dosrepertoire & "\logo.png")
            Form5.PictureBox2.Image = Image.FromFile(dosrepertoire & "\logo.png")
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & ComboBox5.SelectedItem.ToString & "/" & ListBox5.SelectedItem.ToString & "/info.txt")
            Form5.TextBox1.Text = vri
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & ComboBox5.SelectedItem.ToString & "/" & ListBox5.SelectedItem.ToString & "/site.txt")
            Form5.siteweb = vri2.ToString
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & ComboBox5.SelectedItem.ToString & "/" & ListBox5.SelectedItem.ToString & "/nom.txt")
            Form5.nom = vri3.ToString
            Form5.Button1.Text = "image du plugin"
            Form5.dl = 4
            Form5.Button1.Show()
            Form5.Panel1.Focus()
            Form5.ShowDialog()
        End If
    End Sub

    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged

    End Sub

    Private Sub ComboBox6_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedValueChanged
        Try
            ListBox6.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/map/" & ComboBox6.SelectedItem & "/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox6.Items.Add(str)
                ListBox6.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox6.Items.Count = 0 Then
                Label7.Show()
            Else
                Label7.Hide()
            End If
        Catch ex As Exception
            Timer11.Start()
        End Try
    End Sub

    Private Sub Timer11_Tick(sender As Object, e As EventArgs) Handles Timer11.Tick
        Timer11.Stop()
        Try
            ListBox6.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/map/" & ComboBox6.SelectedItem & "/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox6.Items.Add(str)
                ListBox6.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox6.Items.Count = 0 Then
                Label7.Show()
            Else
                Label7.Hide()
            End If
        Catch ex As Exception
            Timer11.Start()
        End Try
    End Sub

    Private Sub PictureBox11_Click(sender As Object, e As EventArgs) Handles PictureBox11.Click
        If ListBox6.Items.Count = 0 Then
            TextBox6.Text = "recherche ici:"
            MsgBox("aucune map trouvez", MsgBoxStyle.Information)
            Timer11.Start()
        Else
            If TextBox6.Text = "" Or TextBox6.Text = " " Or TextBox6.Text = "  " Or TextBox6.Text = "recherche ici:" Then
                TextBox6.Text = "recherche ici:"
                Timer11.Start()
            Else
                Try
                    ListBox6.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/map/" & ComboBox6.SelectedItem & "/")
                    fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
                    fwr.Method = WebRequestMethods.Ftp.ListDirectory
                    Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                    Dim str As String = sr.ReadLine()
                    While Not str Is Nothing

                        Directory.CreateDirectory(dostemps & str)


                        str = sr.ReadLine()

                    End While
                    sr.Close()

                    If Directory.Exists(dostemps & TextBox6.Text) = True Then
                        ListBox6.Items.Add(TextBox6.Text)
                        TextBox6.Text = "recherche ici:"
                    Else
                        MsgBox("La map: " & TextBox6.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer11.Start()
                    End If

                    For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(dostemps & info.Name)
                    Next
                Catch ex As Exception
                    Timer12.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub Timer12_Tick(sender As Object, e As EventArgs) Handles Timer12.Tick
        Timer12.Stop()
        If ListBox6.Items.Count = 0 Then
            TextBox6.Text = "recherche ici:"
            MsgBox("aucune map trouvez", MsgBoxStyle.Information)
        Else
            If TextBox6.Text = "" Or TextBox6.Text = " " Or TextBox6.Text = "  " Or TextBox6.Text = "recherche ici:" Then
                TextBox6.Text = "recherche ici:"
                Timer11.Start()
            Else
                Try
                    ListBox6.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/map/" & ComboBox6.SelectedItem & "/")
                    fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
                    fwr.Method = WebRequestMethods.Ftp.ListDirectory
                    Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                    Dim str As String = sr.ReadLine()
                    While Not str Is Nothing

                        Directory.CreateDirectory(dostemps & str)


                        str = sr.ReadLine()

                    End While
                    sr.Close()

                    If Directory.Exists(dostemps & TextBox6.Text) = True Then
                        ListBox6.Items.Add(TextBox6.Text)
                        TextBox6.Text = "recherche ici:"
                    Else
                        MsgBox("La map: " & TextBox6.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer11.Start()
                    End If

                    For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(dostemps & info.Name)
                    Next
                Catch ex As Exception
                    Timer12.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged

    End Sub

    Private Sub TextBox6_Click(sender As Object, e As EventArgs) Handles TextBox6.Click
        TextBox6.Clear()
    End Sub

    Private Sub ListBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox6.SelectedIndexChanged

    End Sub

    Private Sub ListBox6_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox6.SelectedValueChanged
        If ListBox6.SelectedItem = "" Then

        Else
            TextBox6.Text = "recherche ici:"
            Form5.Text = ListBox6.SelectedItem
            Form5.Label1.Text = "télécharger: " & ListBox6.SelectedItem
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & ComboBox6.SelectedItem.ToString & "/" & ListBox6.SelectedItem.ToString & "/logo.png", dosrepertoire & "\logo.png")
            Form5.PictureBox2.Image = Image.FromFile(dosrepertoire & "\logo.png")
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & ComboBox6.SelectedItem.ToString & "/" & ListBox6.SelectedItem.ToString & "/info.txt")
            Form5.TextBox1.Text = vri
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & ComboBox6.SelectedItem.ToString & "/" & ListBox6.SelectedItem.ToString & "/site.txt")
            Form5.siteweb = vri2.ToString
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & ComboBox6.SelectedItem.ToString & "/" & ListBox6.SelectedItem.ToString & "/nom.txt")
            Form5.nom = vri3.ToString
            Form5.Button1.Text = "image de la map"
            Form5.dl = 5
            Form5.Button1.Show()
            Form5.Panel1.Focus()
            Form5.ShowDialog()
        End If
    End Sub

    Private Sub ComboBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox7.SelectedIndexChanged

    End Sub

    Private Sub ComboBox7_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox7.SelectedValueChanged
        Try
            ListBox7.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/serveur/" & ComboBox7.SelectedItem & "/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox7.Items.Add(str)
                ListBox7.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox7.Items.Count = 0 Then
                Label8.Show()
            Else
                Label8.Hide()
            End If
        Catch ex As Exception
            Timer13.Start()
        End Try
    End Sub

    Private Sub Timer13_Tick(sender As Object, e As EventArgs) Handles Timer13.Tick
        Timer13.Stop()
        Try
            ListBox7.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/serveur/" & ComboBox7.SelectedItem & "/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox7.Items.Add(str)
                ListBox7.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox7.Items.Count = 0 Then
                Label8.Show()
            Else
                Label8.Hide()
            End If
        Catch ex As Exception
            Timer13.Start()
        End Try
    End Sub

    Private Sub PictureBox12_Click(sender As Object, e As EventArgs) Handles PictureBox12.Click
        If ListBox7.Items.Count = 0 Then
            TextBox7.Text = "recherche ici:"
            MsgBox("aucune serveur trouvez", MsgBoxStyle.Information)
            Timer13.Start()
        Else
            If TextBox7.Text = "" Or TextBox7.Text = " " Or TextBox7.Text = "  " Or TextBox7.Text = "recherche ici:" Then
                TextBox7.Text = "recherche ici:"
                Timer13.Start()
            Else
                Try
                    ListBox7.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/serveur/" & ComboBox7.SelectedItem & "/")
                    fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
                    fwr.Method = WebRequestMethods.Ftp.ListDirectory
                    Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                    Dim str As String = sr.ReadLine()
                    While Not str Is Nothing

                        Directory.CreateDirectory(dostemps & str)


                        str = sr.ReadLine()

                    End While
                    sr.Close()

                    If Directory.Exists(dostemps & TextBox7.Text) = True Then
                        ListBox7.Items.Add(TextBox7.Text)
                        TextBox7.Text = "recherche ici:"
                    Else
                        MsgBox("le serveur: " & TextBox7.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer13.Start()
                    End If

                    For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(dostemps & info.Name)
                    Next
                Catch ex As Exception
                    Timer14.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub Timer14_Tick(sender As Object, e As EventArgs) Handles Timer14.Tick
        Timer14.Stop()
        If ListBox7.Items.Count = 0 Then
            TextBox7.Text = "recherche ici:"
            MsgBox("aucune serveur trouvez", MsgBoxStyle.Information)
            Timer13.Start()
        Else
            If TextBox7.Text = "" Or TextBox7.Text = " " Or TextBox7.Text = "  " Or TextBox7.Text = "recherche ici:" Then
                TextBox7.Text = "recherche ici:"
                Timer13.Start()
            Else
                Try
                    ListBox7.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/serveur/" & ComboBox7.SelectedItem & "/")
                    fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
                    fwr.Method = WebRequestMethods.Ftp.ListDirectory
                    Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                    Dim str As String = sr.ReadLine()
                    While Not str Is Nothing

                        Directory.CreateDirectory(dostemps & str)


                        str = sr.ReadLine()

                    End While
                    sr.Close()

                    If Directory.Exists(dostemps & TextBox7.Text) = True Then
                        ListBox7.Items.Add(TextBox7.Text)
                        TextBox7.Text = "recherche ici:"
                    Else
                        MsgBox("le serveur: " & TextBox7.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer13.Start()
                    End If

                    For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(dostemps & info.Name)
                    Next
                Catch ex As Exception
                    Timer14.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub TextBox7_Click(sender As Object, e As EventArgs) Handles TextBox7.Click
        TextBox7.Clear()
    End Sub

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

    End Sub

    Private Sub ListBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox7.SelectedIndexChanged

    End Sub

    Private Sub ListBox7_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox7.SelectedValueChanged
        If ListBox7.SelectedItem = "" Then

        Else
            TextBox7.Text = "recherche ici:"
            Form5.Text = ListBox7.SelectedItem
            Form5.Label1.Text = "télécharger: " & ListBox7.SelectedItem
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & ComboBox7.SelectedItem.ToString & "/" & ListBox7.SelectedItem.ToString & "/logo.png", dosrepertoire & "\logo.png")
            Form5.PictureBox2.Image = Image.FromFile(dosrepertoire & "\logo.png")
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & ComboBox7.SelectedItem.ToString & "/" & ListBox7.SelectedItem.ToString & "/info.txt")
            Form5.TextBox1.Text = vri
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & ComboBox7.SelectedItem.ToString & "/" & ListBox7.SelectedItem.ToString & "/site.txt")
            Form5.siteweb = vri2.ToString
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & ComboBox7.SelectedItem.ToString & "/" & ListBox7.SelectedItem.ToString & "/nom.txt")
            Form5.nom = vri3.ToString
            Form5.Button1.Text = "image du serveur"
            Form5.dl = 6
            Form5.Button1.Show()
            Form5.Panel1.Focus()
            Form5.ShowDialog()
        End If
    End Sub
    Sub loadLaunchers()
        Try
            ListBox8.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/Launcher/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox8.Items.Add(str)
                ListBox8.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox8.Items.Count = 0 Then
                Label9.Show()
            Else
                Label9.Hide()
            End If
        Catch ex As Exception
            Timer15.Start()
        End Try
    End Sub

    Private Sub Timer15_Tick(sender As Object, e As EventArgs) Handles Timer15.Tick
        Timer15.Stop()
        Try
            ListBox8.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/Launcher/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox8.Items.Add(str)
                ListBox8.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox8.Items.Count = 0 Then
                Label9.Show()
            Else
                Label9.Hide()
            End If
        Catch ex As Exception
            Timer15.Start()
        End Try
    End Sub

    Private Sub PictureBox13_Click(sender As Object, e As EventArgs) Handles PictureBox13.Click
        If ListBox8.Items.Count = 0 Then
            TextBox8.Text = "recherche ici:"
            MsgBox("aucun Launcher trouvez", MsgBoxStyle.Information)
            Timer15.Start()
        Else
            If TextBox8.Text = "" Or TextBox8.Text = " " Or TextBox8.Text = "  " Or TextBox8.Text = "recherche ici:" Then
                TextBox8.Text = "recherche ici:"
                Timer15.Start()
            Else
                Try
                    ListBox8.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/Launcher/")
                    fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
                    fwr.Method = WebRequestMethods.Ftp.ListDirectory
                    Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                    Dim str As String = sr.ReadLine()
                    While Not str Is Nothing

                        Directory.CreateDirectory(dostemps & str)


                        str = sr.ReadLine()

                    End While
                    sr.Close()

                    If Directory.Exists(dostemps & TextBox8.Text) = True Then
                        ListBox8.Items.Add(TextBox8.Text)
                        TextBox8.Text = "recherche ici:"
                    Else
                        MsgBox("le Launcher: " & TextBox8.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer15.Start()
                    End If

                    For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(dostemps & info.Name)
                    Next
                Catch ex As Exception
                    Timer16.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub Timer16_Tick(sender As Object, e As EventArgs) Handles Timer16.Tick
        Timer16.Stop()
        If TextBox8.Text = "" Or TextBox8.Text = " " Or TextBox8.Text = "  " Or TextBox8.Text = "recherche ici:" Then
            TextBox8.Text = "recherche ici:"
            Timer15.Start()
        Else
            Try
                ListBox8.Items.Clear()
                Dim fwr As FtpWebRequest
                fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/Launcher/")
                fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
                fwr.Method = WebRequestMethods.Ftp.ListDirectory
                Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                Dim str As String = sr.ReadLine()
                While Not str Is Nothing

                    Directory.CreateDirectory(dostemps & str)


                    str = sr.ReadLine()

                End While
                sr.Close()

                If Directory.Exists(dostemps & TextBox8.Text) = True Then
                    ListBox8.Items.Add(TextBox8.Text)
                    TextBox8.Text = "recherche ici:"
                Else
                    MsgBox("le Launcher: " & TextBox8.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                    Timer15.Start()
                End If

                For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(dostemps & info.Name)
                Next
            Catch ex As Exception
                Timer16.Start()
            End Try
        End If
    End Sub

    Private Sub TextBox7_TextChanged_1(sender As Object, e As EventArgs) Handles TextBox7.TextChanged

    End Sub

    Private Sub TextBox8_TextChanged(sender As Object, e As EventArgs) Handles TextBox8.TextChanged

    End Sub

    Private Sub TextBox8_Click(sender As Object, e As EventArgs) Handles TextBox8.Click
        TextBox8.Clear()
    End Sub

    Private Sub ListBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox8.SelectedIndexChanged

    End Sub

    Private Sub ListBox8_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox8.SelectedValueChanged
        If ListBox8.SelectedItem = "" Then

        Else
            TextBox8.Text = "recherche ici:"
            Form5.Text = ListBox8.SelectedItem
            Form5.Label1.Text = "télécharger: " & ListBox8.SelectedItem
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & "/" & ListBox8.SelectedItem.ToString & "/logo.png", dosrepertoire & "\logo.png")
            Form5.PictureBox2.Image = Image.FromFile(dosrepertoire & "\logo.png")
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & "/" & ListBox8.SelectedItem.ToString & "/info.txt")
            Form5.TextBox1.Text = vri
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & "/" & ListBox8.SelectedItem.ToString & "/site.txt")
            Form5.siteweb = vri2.ToString
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & "/" & ListBox8.SelectedItem.ToString & "/nom.txt")
            Form5.nom = vri3.ToString
            Form5.Button1.Text = "image du Launcher"
            Form5.dl = 7
            Form5.Button1.Show()
            Form5.Panel1.Focus()
            Form5.ShowDialog()
        End If
    End Sub

    Private Sub Panel3_Paint(sender As Object, e As PaintEventArgs) Handles Panel3.Paint

    End Sub

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
        Try
            Form7.ShowDialog()

        Catch ex As Exception
            Form7.Close()
            Form7.ShowDialog()
        End Try
    End Sub

    Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
        Try
            Form7.ShowDialog()

        Catch ex As Exception
            Form7.Close()
            Form7.ShowDialog()
        End Try
    End Sub

    Private Sub Panel11_Paint(sender As Object, e As PaintEventArgs) Handles Panel11.Paint

    End Sub

    Private Sub Panel11_Click(sender As Object, e As EventArgs) Handles Panel11.Click
        If nomutilisateur = "" Then
            MsgBox("vous devez être connecter pour accéder a la parti communautaire", MsgBoxStyle.Exclamation)
        Else
            Form28.Location = Me.Location
            Form28.Show()
            Me.Visible = False
        End If
    End Sub

    Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click
        If nomutilisateur = "" Then
            MsgBox("vous devez être connecter pour accéder a la parti communautaire", MsgBoxStyle.Exclamation)
        Else
            Form28.Location = Me.Location
            Form28.Show()
            Me.Visible = False
        End If
    End Sub

    Private Sub Label15_Click(sender As Object, e As EventArgs) Handles Label15.Click
        If nomutilisateur = "" Then
            MsgBox("vous devez être connecter pour accéder a la parti communautaire", MsgBoxStyle.Exclamation)
        Else
            Form28.Location = Me.Location
            Form28.Show()
            Me.Visible = False
        End If
    End Sub

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

    End Sub
End Class