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

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


        If File.Exists(startpage2) = True Then
            Dim lines1() As String = File.ReadAllLines(startpage2)
            If lines1(0) = 0 Then
                Form44.ShowDialog()
            End If
        Else
            Dim sw1 As New StreamWriter(startpage2)
            sw1.WriteLine(0)
            sw1.Close()
            Form44.ShowDialog()
        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 = "Windows"
        ComboBox4.SelectedItem = "1.19.2"
        ComboBox5.SelectedItem = "1.19.2"
        ComboBox6.SelectedItem = "1.19.2"
        ComboBox7.SelectedItem = "1.19.2"
        ComboBox1.SelectedItem = "1.19.2"
        ComboBox8.SelectedItem = "1.19.2"
        Dim maj1 As New WebClient
        Dim vri1 As String = maj1.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/admin.txt")
        If vri1 = 1 Then
            Label13.Show()
            PictureBox20.Show()
            Panel5.Show()
        Else
            Label13.Hide()
            PictureBox20.Hide()
            Panel5.Hide()
        End If
        ftp()
    End Sub

    Private Sub Form28_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        Form1.Show()
    End Sub

    Private Sub Form28_LocationChanged(sender As Object, e As EventArgs) Handles Me.LocationChanged
        Form1.Location = Me.Location
    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
    Sub ftp()
        Try
            ListBox1.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Communautaire/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
            ftp2()
        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 & "Communautaire/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
            ftp2()
        Catch ex As Exception
            Timer1.Start()
        End Try
    End Sub
    Sub ftp2()
        Try
            ListBox2.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Tout les jeux/")
            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
            ftp3()
        Catch ex As Exception
            Timer2.Start()
        End Try
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Timer2.Stop()
        Try
            ListBox2.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Tout les jeux/")
            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
            ftp3()
        Catch ex As Exception
            Timer2.Start()
        End Try
    End Sub
    Sub ftp3()
        Try
            ListBox8.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Launchers/")
            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
            ftp4()
        Catch ex As Exception
            Timer8.Start()
        End Try
    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 & "Communautaire/Jeux/Minecraft/Mods/" & 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
            Timer3.Start()
        End Try
    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Timer3.Stop()
        Try
            ListBox4.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Mods/" & 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
            Timer3.Start()
        End Try
    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 & "Communautaire/Jeux/Minecraft/Plugins/" & 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
            Timer4.Start()
        End Try
    End Sub

    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
        Timer4.Stop()
        Try
            ListBox5.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Plugins/" & 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
            Timer4.Start()
        End Try
    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 & "Communautaire/Jeux/Minecraft/Maps/" & 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
            Timer5.Start()
        End Try
    End Sub

    Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
        Timer5.Stop()
        Try
            ListBox6.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Maps/" & 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
            Timer5.Start()
        End Try
    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 & "Communautaire/Jeux/Minecraft/serveur préfaits/" & 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
            Timer6.Start()
        End Try
    End Sub

    Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
        Timer6.Stop()
        Try
            ListBox7.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/serveur préfaits/" & 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
            Timer6.Start()
        End Try
    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 & "Communautaire/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
            Timer7.Start()
        End Try
    End Sub

    Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
        Timer7.Stop()
        Try
            ListBox3.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Communautaire/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
            Timer7.Start()
        End Try
    End Sub

    Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
        Timer8.Stop()
        Try
            ListBox8.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Launchers/")
            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
            ftp4()
        Catch ex As Exception
            Timer8.Start()
        End Try
    End Sub
    Sub ftp4()
        Try
            ListBox9.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Communautaire/Autre/")
            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

                ListBox9.Items.Add(str)
                ListBox9.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox9.Items.Count = 0 Then
                Label10.Show()
            Else
                Label10.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
            ListBox9.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Communautaire/Autre/")
            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

                ListBox9.Items.Add(str)
                ListBox9.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

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

    Private Sub PictureBox15_Click(sender As Object, e As EventArgs) Handles PictureBox15.Click
        ftp()
    End Sub

    Private Sub PictureBox16_Click(sender As Object, e As EventArgs) Handles PictureBox16.Click
        ftp()
    End Sub

    Private Sub PictureBox17_Click(sender As Object, e As EventArgs) Handles PictureBox17.Click
        ftp()
    End Sub

    Private Sub PictureBox14_Click(sender As Object, e As EventArgs) Handles PictureBox14.Click
        If ListBox9.Items.Count = 0 Then
            TextBox9.Text = "recherche ici:"
            MsgBox("aucun fichier trouvez", MsgBoxStyle.Information)
            Timer9.Start()
        Else
            If TextBox9.Text = "" Or TextBox9.Text = " " Or TextBox9.Text = "  " Or TextBox9.Text = "recherche ici:" Then
                TextBox9.Text = "recherche ici:"
                Timer9.Start()
            Else
                Try
                    ListBox9.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/Autre/")
                    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 & TextBox9.Text) = True Then
                        ListBox9.Items.Add(TextBox9.Text)
                        TextBox9.Text = "recherche ici:"
                    Else
                        MsgBox("Le fichier: " & TextBox9.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
                    Timer18.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 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 & "/Communautaire/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
                    Timer10.Start()
                End Try
            End If
        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 & "/Communautaire/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
                    Timer10.Start()
                End Try
            End If
        End If
    End Sub

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

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click
        TextBox1.Clear()
    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)
            Timer2.Start()
        Else
            If TextBox2.Text = "" Or TextBox2.Text = " " Or TextBox2.Text = "  " Or TextBox2.Text = "recherche ici:" Then
                TextBox2.Text = "recherche ici:"
                Timer2.Start()
            Else
                Try
                    ListBox2.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Tout les jeux/")
                    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)
                        Timer2.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
                    Timer11.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub Timer11_Tick(sender As Object, e As EventArgs) Handles Timer11.Tick
        Timer11.Stop()
        If ListBox2.Items.Count = 0 Then
            TextBox2.Text = "recherche ici:"
            MsgBox("aucun jeux trouvez", MsgBoxStyle.Information)
            Timer2.Start()
        Else
            If TextBox2.Text = "" Or TextBox2.Text = " " Or TextBox2.Text = "  " Or TextBox2.Text = "recherche ici:" Then
                TextBox2.Text = "recherche ici:"
                Timer2.Start()
            Else
                Try
                    ListBox2.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Tout les jeux/")
                    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)
                        Timer2.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
                    Timer11.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 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)
            Timer3.Start()
        Else
            If TextBox4.Text = "" Or TextBox4.Text = " " Or TextBox4.Text = "  " Or TextBox4.Text = "recherche ici:" Then
                TextBox4.Text = "recherche ici:"
                Timer3.Start()
            Else
                Try
                    ListBox4.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Mods/" & 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)
                        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
                    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 ListBox4.Items.Count = 0 Then
            TextBox4.Text = "recherche ici:"
            MsgBox("aucun Mods trouvez", MsgBoxStyle.Information)
            Timer3.Start()
        Else
            If TextBox4.Text = "" Or TextBox4.Text = " " Or TextBox4.Text = "  " Or TextBox4.Text = "recherche ici:" Then
                TextBox4.Text = "recherche ici:"
                Timer3.Start()
            Else
                Try
                    ListBox4.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Mods/" & 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)
                        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
                    Timer12.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 PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
        If ListBox5.Items.Count = 0 Then
            TextBox5.Text = "recherche ici:"
            MsgBox("aucun Plugins trouvez", MsgBoxStyle.Information)
            Timer4.Start()
        Else
            If TextBox5.Text = "" Or TextBox5.Text = " " Or TextBox5.Text = "  " Or TextBox5.Text = "recherche ici:" Then
                TextBox4.Text = "recherche ici:"
                Timer4.Start()
            Else
                Try
                    ListBox5.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Plugins/" & 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 Plugins: " & TextBox5.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer4.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
                    Timer13.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub Timer13_Tick(sender As Object, e As EventArgs) Handles Timer13.Tick
        Timer13.Stop()
        If ListBox5.Items.Count = 0 Then
            TextBox5.Text = "recherche ici:"
            MsgBox("aucun Plugins trouvez", MsgBoxStyle.Information)
            Timer4.Start()
        Else
            If TextBox5.Text = "" Or TextBox5.Text = " " Or TextBox5.Text = "  " Or TextBox5.Text = "recherche ici:" Then
                TextBox4.Text = "recherche ici:"
                Timer4.Start()
            Else
                Try
                    ListBox5.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Plugins/" & 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 Plugins: " & TextBox5.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer4.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
                    Timer13.Start()
                End Try
            End If
        End If
    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("aucun Maps trouvez", MsgBoxStyle.Information)
            Timer5.Start()
        Else
            If TextBox6.Text = "" Or TextBox6.Text = " " Or TextBox6.Text = "  " Or TextBox6.Text = "recherche ici:" Then
                TextBox6.Text = "recherche ici:"
                Timer5.Start()
            Else
                Try
                    ListBox6.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Maps/" & 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 Maps: " & TextBox6.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
                    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 ListBox6.Items.Count = 0 Then
            TextBox6.Text = "recherche ici:"
            MsgBox("aucun Maps trouvez", MsgBoxStyle.Information)
            Timer5.Start()
        Else
            If TextBox6.Text = "" Or TextBox6.Text = " " Or TextBox6.Text = "  " Or TextBox6.Text = "recherche ici:" Then
                TextBox6.Text = "recherche ici:"
                Timer5.Start()
            Else
                Try
                    ListBox6.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Maps/" & 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 Maps: " & TextBox6.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
                    Timer14.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 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 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)
            Timer8.Start()
        Else
            If TextBox8.Text = "" Or TextBox8.Text = " " Or TextBox8.Text = "  " Or TextBox8.Text = "recherche ici:" Then
                TextBox8.Text = "recherche ici:"
                Timer8.Start()
            Else
                Try
                    ListBox8.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Launchers/")
                    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 Launchers: " & TextBox8.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer8.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
                    Timer15.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub Timer15_Tick(sender As Object, e As EventArgs) Handles Timer15.Tick
        Timer15.Stop()
        If ListBox8.Items.Count = 0 Then
            TextBox8.Text = "recherche ici:"
            MsgBox("aucun Launcher trouvez", MsgBoxStyle.Information)
            Timer8.Start()
        Else
            If TextBox8.Text = "" Or TextBox8.Text = " " Or TextBox8.Text = "  " Or TextBox8.Text = "recherche ici:" Then
                TextBox8.Text = "recherche ici:"
                Timer8.Start()
            Else
                Try
                    ListBox8.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Launchers/")
                    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 Launchers: " & TextBox8.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer8.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
                    Timer15.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub TextBox8_Click(sender As Object, e As EventArgs) Handles TextBox8.Click
        TextBox8.Clear()
    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("aucun serveur préfaits trouvez", MsgBoxStyle.Information)
            Timer6.Start()
        Else
            If TextBox7.Text = "" Or TextBox7.Text = " " Or TextBox7.Text = "  " Or TextBox7.Text = "recherche ici:" Then
                TextBox7.Text = "recherche ici:"
                Timer6.Start()
            Else
                Try
                    ListBox7.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/serveur préfaits/" & 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 préfaits: " & TextBox7.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer6.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 ListBox7.Items.Count = 0 Then
            TextBox7.Text = "recherche ici:"
            MsgBox("aucun serveur préfaits trouvez", MsgBoxStyle.Information)
            Timer6.Start()
        Else
            If TextBox7.Text = "" Or TextBox7.Text = " " Or TextBox7.Text = "  " Or TextBox7.Text = "recherche ici:" Then
                TextBox7.Text = "recherche ici:"
                Timer6.Start()
            Else
                Try
                    ListBox7.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/serveur préfaits/" & 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 préfaits: " & TextBox7.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer6.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 TextBox7_TextChanged(sender As Object, e As EventArgs) Handles TextBox7.TextChanged

    End Sub

    Private Sub TextBox7_Click(sender As Object, e As EventArgs) Handles TextBox7.Click
        TextBox7.Clear()
    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 fichier ISO trouvez", MsgBoxStyle.Information)
            Timer7.Start()
        Else
            If TextBox3.Text = "" Or TextBox3.Text = " " Or TextBox3.Text = "  " Or TextBox3.Text = "recherche ici:" Then
                TextBox3.Text = "recherche ici:"
                Timer7.Start()
            Else
                Try
                    ListBox3.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/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)
                        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
                    Timer17.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub Timer17_Tick(sender As Object, e As EventArgs) Handles Timer17.Tick
        Timer17.Stop()
        If ListBox3.Items.Count = 0 Then
            TextBox3.Text = "recherche ici:"
            MsgBox("aucun fichier ISO trouvez", MsgBoxStyle.Information)
            Timer7.Start()
        Else
            If TextBox3.Text = "" Or TextBox3.Text = " " Or TextBox3.Text = "  " Or TextBox3.Text = "recherche ici:" Then
                TextBox3.Text = "recherche ici:"
                Timer7.Start()
            Else
                Try
                    ListBox3.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/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)
                        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
                    Timer17.Start()
                End Try
            End If
        End If
    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 Timer18_Tick(sender As Object, e As EventArgs) Handles Timer18.Tick
        Timer18.Stop()
        If ListBox9.Items.Count = 0 Then
            TextBox9.Text = "recherche ici:"
            MsgBox("aucun fichier trouvez", MsgBoxStyle.Information)
            Timer9.Start()
        Else
            If TextBox9.Text = "" Or TextBox9.Text = " " Or TextBox9.Text = "  " Or TextBox9.Text = "recherche ici:" Then
                TextBox9.Text = "recherche ici:"
                Timer9.Start()
            Else
                Try
                    ListBox9.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/Autre/")
                    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 & TextBox9.Text) = True Then
                        ListBox9.Items.Add(TextBox9.Text)
                        TextBox9.Text = "recherche ici:"
                    Else
                        MsgBox("Le fichier: " & TextBox9.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
                    Timer18.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged

    End Sub

    Private Sub TextBox9_Click(sender As Object, e As EventArgs) Handles TextBox9.Click
        TextBox9.Clear()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

    End Sub

    Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
        Try
            ListBox10.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.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

                ListBox10.Items.Add(str)
                ListBox10.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox10.Items.Count = 0 Then
                Label11.Show()
            Else
                Label11.Hide()
            End If
        Catch ex As Exception
            Timer19.Start()
        End Try
    End Sub

    Private Sub Timer19_Tick(sender As Object, e As EventArgs) Handles Timer19.Tick
        Timer19.Stop()
        Try
            ListBox10.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.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

                ListBox10.Items.Add(str)
                ListBox10.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox10.Items.Count = 0 Then
                Label11.Show()
            Else
                Label11.Hide()
            End If
        Catch ex As Exception
            Timer19.Start()
        End Try
    End Sub

    Private Sub ComboBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox8.SelectedIndexChanged

    End Sub

    Private Sub ComboBox8_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox8.SelectedValueChanged
        Try
            ListBox11.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.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

                ListBox11.Items.Add(str)
                ListBox11.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox11.Items.Count = 0 Then
                Label12.Show()
            Else
                Label12.Hide()
            End If
        Catch ex As Exception
            Timer20.Start()
        End Try
    End Sub

    Private Sub Timer20_Tick(sender As Object, e As EventArgs) Handles Timer20.Tick
        Timer20.Stop()
        Try
            ListBox11.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.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

                ListBox11.Items.Add(str)
                ListBox11.Items.Add("")


                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox11.Items.Count = 0 Then
                Label12.Show()
            Else
                Label12.Hide()
            End If
        Catch ex As Exception
            Timer20.Start()
        End Try
    End Sub

    Private Sub PictureBox18_Click(sender As Object, e As EventArgs) Handles PictureBox18.Click
        If ListBox10.Items.Count = 0 Then
            TextBox10.Text = "recherche ici:"
            MsgBox("aucun pack de texture trouvez", MsgBoxStyle.Information)
            Timer19.Start()
        Else
            If TextBox10.Text = "" Or TextBox10.Text = " " Or TextBox10.Text = "  " Or TextBox10.Text = "recherche ici:" Then
                TextBox10.Text = "recherche ici:"
                Timer19.Start()
            Else
                Try
                    ListBox10.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.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 & TextBox10.Text) = True Then
                        ListBox10.Items.Add(TextBox10.Text)
                        TextBox10.Text = "recherche ici:"
                    Else
                        MsgBox("Le pack de texture: " & TextBox10.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer19.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
                    Timer21.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub Timer21_Tick(sender As Object, e As EventArgs) Handles Timer21.Tick
        Timer21.Stop()
        If ListBox10.Items.Count = 0 Then
            TextBox10.Text = "recherche ici:"
            MsgBox("aucun pack de texture trouvez", MsgBoxStyle.Information)
            Timer19.Start()
        Else
            If TextBox10.Text = "" Or TextBox10.Text = " " Or TextBox10.Text = "  " Or TextBox10.Text = "recherche ici:" Then
                TextBox10.Text = "recherche ici:"
                Timer19.Start()
            Else
                Try
                    ListBox10.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.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 & TextBox10.Text) = True Then
                        ListBox10.Items.Add(TextBox10.Text)
                        TextBox10.Text = "recherche ici:"
                    Else
                        MsgBox("Le pack de texture: " & TextBox10.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer19.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
                    Timer21.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub PictureBox19_Click(sender As Object, e As EventArgs) Handles PictureBox19.Click
        If ListBox11.Items.Count = 0 Then
            TextBox11.Text = "recherche ici:"
            MsgBox("aucun shaders trouvez", MsgBoxStyle.Information)
            Timer20.Start()
        Else
            If TextBox11.Text = "" Or TextBox11.Text = " " Or TextBox11.Text = "  " Or TextBox11.Text = "recherche ici:" Then
                TextBox11.Text = "recherche ici:"
                Timer20.Start()
            Else
                Try
                    ListBox11.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/shaders/" & ComboBox1.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 & TextBox11.Text) = True Then
                        ListBox11.Items.Add(TextBox11.Text)
                        TextBox11.Text = "recherche ici:"
                    Else
                        MsgBox("Le shaders: " & TextBox11.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer20.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
                    Timer22.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub Timer22_Tick(sender As Object, e As EventArgs) Handles Timer22.Tick
        Timer22.Stop()
        If ListBox11.Items.Count = 0 Then
            TextBox11.Text = "recherche ici:"
            MsgBox("aucun shaders trouvez", MsgBoxStyle.Information)
            Timer20.Start()
        Else
            If TextBox11.Text = "" Or TextBox11.Text = " " Or TextBox11.Text = "  " Or TextBox11.Text = "recherche ici:" Then
                TextBox11.Text = "recherche ici:"
                Timer20.Start()
            Else
                Try
                    ListBox11.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/shaders/" & ComboBox1.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 & TextBox11.Text) = True Then
                        ListBox11.Items.Add(TextBox11.Text)
                        TextBox11.Text = "recherche ici:"
                    Else
                        MsgBox("Le shaders: " & TextBox11.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer20.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
                    Timer22.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub TextBox10_TextChanged(sender As Object, e As EventArgs) Handles TextBox10.TextChanged

    End Sub

    Private Sub TextBox10_Click(sender As Object, e As EventArgs) Handles TextBox10.Click
        TextBox10.Clear()
    End Sub

    Private Sub TextBox11_TextChanged(sender As Object, e As EventArgs) Handles TextBox11.TextChanged

    End Sub

    Private Sub TextBox11_Click(sender As Object, e As EventArgs) Handles TextBox11.Click
        TextBox11.Clear()
    End Sub

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

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

        Else
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/auteur.txt")
            Form32.Label3.Text = "Publier par: " & vri
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
            Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
            Form32.nommisenligne = lines1(0)
            File.Delete(dostemps & "auteur.txt")
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/info.txt")
            Form32.TextBox1.Text = vri2
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/telechargement.txt")
            Form32.Label4.Text = "Nombre de téléchargement: " & vri3
            Dim maj4 As New WebClient
            Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/like.txt")
            Form32.Label2.Text = vri4
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
            Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
            Dim maj5 As New WebClient
            Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/site.txt")
            If vri5 = 0 Then
                Form32.PictureBox4.Hide()
            Else
                Dim maj8 As New WebClient
                Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/site2.txt")
                Form32.sitewebfichier = vri8
                Form32.PictureBox4.Show()
            End If


            Form32.Text = ListBox1.SelectedItem
            Dim maj6 As New WebClient
            Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/prix.txt")

            Dim maj7 As New WebClient
            Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/image.txt")
            If vri7 = 0 Then
                Form32.Button1.Hide()
            Else
                Form32.Button1.Show()
                Form32.Button1.Text = "image du logiciel"

            End If

            If nomutilisateur = Form32.nommisenligne Then
                Form32.Label1.Text = "Télécharcher: " & ListBox1.SelectedItem
                vérifilike()
            Else
                If vri6 = 0 Then
                    Form32.Label1.Text = "Télécharcher: " & ListBox1.SelectedItem
                    vérifilike()
                Else
                    vérifiachat()
                End If
            End If
        End If


    End Sub
    Sub vérifiachat()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/logiciels/" & ListBox1.SelectedItem & "/achat/")
            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 & nomutilisateur) = True Then
                Form32.Label1.Text = "télécharcher: " & ListBox1.SelectedItem
            Else
                Dim maj6 As New WebClient
                Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/prix.txt")
                Form32.prix = vri6
                Form32.Label1.Text = "acheter: " & ListBox1.SelectedItem & " pour " & vri6 & "PBs "
                Form32.Button2.Enabled = False
            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

            vérifilike()
        Catch ex As Exception

        End Try
    End Sub
    Sub vérifilike()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/logiciels/" & ListBox1.SelectedItem & "/like/")
            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 & nomutilisateur) = True Then
                Form32.PictureBox6.Show()
                Form32.PictureBox5.Hide()
            Else
                Form32.PictureBox6.Hide()
                Form32.PictureBox5.Show()

            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

            Form32.urldl = ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString
            Form32.upurl = ipserver & "/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString
            Form32.ShowDialog()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Timer23_Tick(sender As Object, e As EventArgs) Handles Timer23.Tick
        Timer23.Stop()
        Dim maj1 As New WebClient
        Dim vri1 As String = maj1.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/level.txt")
        Dim maj2 As New WebClient
        Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/XP.txt")
        If vri1 = 0 And vri2 >= 50 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(1)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 1"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 1."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 1 And vri2 >= 100 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(2)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 2"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 2."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 2 And vri2 >= 200 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(3)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 3"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 3."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 3 And vri2 >= 400 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(4)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 4"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 4."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 4 And vri2 >= 800 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(5)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt")
            Dim upmoney = vri3 + 2
            Dim sw2 As New StreamWriter(dostemps & "money.txt")
            sw2.WriteLine(upmoney)
            sw2.Close()
            My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
            File.Delete(dostemps & "money.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 5"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 5," & vbNewLine & vbNewLine & "vous avez ganner 2PB's."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 5 And vri2 >= 1600 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(6)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 6"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 6."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 6 And vri2 >= 3200 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(7)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 7"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 7."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 7 And vri2 >= 6400 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(8)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 8"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 8."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 8 And vri2 >= 12800 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(9)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 9"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 9."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 9 And vri2 >= 25600 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(10)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt")
            Dim upmoney = vri3 + 5
            Dim sw2 As New StreamWriter(dostemps & "money.txt")
            sw2.WriteLine(upmoney)
            sw2.Close()
            My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
            File.Delete(dostemps & "money.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 10"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 10," & vbNewLine & vbNewLine & "vous avez ganner 5PB's."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 10 And vri2 >= 51200 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(11)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 11"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 11."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 11 And vri2 >= 102400 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(12)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 12"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 12."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 12 And vri2 >= 204800 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(13)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 13"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 13."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 13 And vri2 >= 409600 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(14)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 14"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 14."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 14 And vri2 >= 819200 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(15)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 15"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 15."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 15 And vri2 >= 1638400 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(16)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 16"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 16."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 16 And vri2 >= 3276800 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(17)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 17"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 17."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 17 And vri2 >= 6553600 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(18)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 18"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 18."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 18 And vri2 >= 13107200 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(19)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 19"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 19."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        ElseIf vri1 = 19 And vri2 >= 26214400 Then
            Dim sw1 As New StreamWriter(dostemps & "level.txt")
            sw1.WriteLine(20)
            sw1.Close()
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
            File.Delete(dostemps & "level.txt")
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt")
            Dim upmoney = vri3 + 15
            Dim sw2 As New StreamWriter(dostemps & "money.txt")
            sw2.WriteLine(upmoney)
            sw2.Close()
            My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
            File.Delete(dostemps & "money.txt")
            Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 20"
            Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 20," & vbNewLine & vbNewLine & "vous avez ganner 15PB's."
            Form1.NotifyIcon1.ShowBalloonTip(1)
        End If
        Timer23.Start()
    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
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/auteur.txt")
            Form32.Label3.Text = "Publier par: " & vri
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
            Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
            Form32.nommisenligne = lines1(0)
            File.Delete(dostemps & "auteur.txt")
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/info.txt")
            Form32.TextBox1.Text = vri2
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/telechargement.txt")
            Form32.Label4.Text = "Nombre de téléchargement: " & vri3
            Dim maj4 As New WebClient
            Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/like.txt")
            Form32.Label2.Text = vri4
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
            Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
            Dim maj5 As New WebClient
            Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/site.txt")
            If vri5 = 0 Then
                Form32.PictureBox4.Hide()
            Else
                Dim maj8 As New WebClient
                Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/site2.txt")
                Form32.sitewebfichier = vri8
                Form32.PictureBox4.Show()
            End If


            Form32.Text = ListBox2.SelectedItem
            Dim maj6 As New WebClient
            Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/prix.txt")

            Dim maj7 As New WebClient
            Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/image.txt")
            If vri7 = 0 Then
                Form32.Button1.Hide()
            Else
                Form32.Button1.Show()
                Form32.Button1.Text = "image du Jeux"

            End If

            If nomutilisateur = Form32.nommisenligne Then
                Form32.Label1.Text = "Télécharcher: " & ListBox2.SelectedItem
                vérifilike2()
            Else
                If vri6 = 0 Then
                    Form32.Label1.Text = "Télécharcher: " & ListBox2.SelectedItem
                    vérifilike2()
                Else
                    vérifiachat2()
                End If
            End If
        End If
    End Sub
    Sub vérifilike2()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem & "/like/")
            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 & nomutilisateur) = True Then
                Form32.PictureBox6.Show()
                Form32.PictureBox5.Hide()
            Else
                Form32.PictureBox6.Hide()
                Form32.PictureBox5.Show()

            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

            Form32.urldl = ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString
            Form32.upurl = ipserver & "/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString
            Form32.ShowDialog()
        Catch ex As Exception

        End Try
    End Sub
    Sub vérifiachat2()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem & "/achat/")
            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 & nomutilisateur) = True Then
                Form32.Label1.Text = "télécharcher: " & ListBox2.SelectedItem
            Else
                Dim maj6 As New WebClient
                Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/prix.txt")
                Form32.prix = vri6
                Form32.Label1.Text = "acheter: " & ListBox2.SelectedItem & " pour " & vri6 & "PBs "
                Form32.Button2.Enabled = False
            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

            vérifilike2()
        Catch ex As Exception

        End Try
    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
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/auteur.txt")
            Form32.Label3.Text = "Publier par: " & vri
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
            Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
            Form32.nommisenligne = lines1(0)
            File.Delete(dostemps & "auteur.txt")
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/info.txt")
            Form32.TextBox1.Text = vri2
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/telechargement.txt")
            Form32.Label4.Text = "Nombre de téléchargement: " & vri3
            Dim maj4 As New WebClient
            Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/like.txt")
            Form32.Label2.Text = vri4
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
            Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
            Dim maj5 As New WebClient
            Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/site.txt")
            If vri5 = 0 Then
                Form32.PictureBox4.Hide()
            Else
                Dim maj8 As New WebClient
                Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/site2.txt")
                Form32.sitewebfichier = vri8
                Form32.PictureBox4.Show()
            End If


            Form32.Text = ListBox4.SelectedItem
            Dim maj6 As New WebClient
            Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/prix.txt")

            Dim maj7 As New WebClient
            Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/image.txt")
            If vri7 = 0 Then
                Form32.Button1.Hide()
            Else
                Form32.Button1.Show()
                Form32.Button1.Text = "image du mods"

            End If

            If nomutilisateur = Form32.nommisenligne Then
                Form32.Label1.Text = "Télécharcher: " & ListBox4.SelectedItem
                vérifilike3()
            Else
                If vri6 = 0 Then
                    Form32.Label1.Text = "Télécharcher: " & ListBox4.SelectedItem
                    vérifilike3()
                Else
                    vérifiachat3()
                End If
            End If
        End If
    End Sub
    Sub vérifilike3()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem & "/like/")
            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 & nomutilisateur) = True Then
                Form32.PictureBox6.Show()
                Form32.PictureBox5.Hide()
            Else
                Form32.PictureBox6.Hide()
                Form32.PictureBox5.Show()

            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

            Form32.urldl = ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString
            Form32.upurl = ipserver & "/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString
            Form32.ShowDialog()
        Catch ex As Exception

        End Try
    End Sub
    Sub vérifiachat3()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem & "/achat/")
            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 & nomutilisateur) = True Then
                Form32.Label1.Text = "télécharcher: " & ListBox4.SelectedItem
            Else
                Dim maj6 As New WebClient
                Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/prix.txt")
                Form32.prix = vri6
                Form32.Label1.Text = "acheter: " & ListBox4.SelectedItem & " pour " & vri6 & "PBs "
                Form32.Button2.Enabled = False
            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

            vérifilike3()
        Catch ex As Exception

        End Try
    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
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/auteur.txt")
            Form32.Label3.Text = "Publier par: " & vri
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
            Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
            Form32.nommisenligne = lines1(0)
            File.Delete(dostemps & "auteur.txt")
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/info.txt")
            Form32.TextBox1.Text = vri2
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/telechargement.txt")
            Form32.Label4.Text = "Nombre de téléchargement: " & vri3
            Dim maj4 As New WebClient
            Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/like.txt")
            Form32.Label2.Text = vri4
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
            Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
            Dim maj5 As New WebClient
            Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/site.txt")
            If vri5 = 0 Then
                Form32.PictureBox4.Hide()
            Else
                Dim maj8 As New WebClient
                Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/site2.txt")
                Form32.sitewebfichier = vri8
                Form32.PictureBox4.Show()
            End If


            Form32.Text = ListBox5.SelectedItem
            Dim maj6 As New WebClient
            Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/prix.txt")

            Dim maj7 As New WebClient
            Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/image.txt")
            If vri7 = 0 Then
                Form32.Button1.Hide()
            Else
                Form32.Button1.Show()
                Form32.Button1.Text = "image de la maps"

            End If

            If nomutilisateur = Form32.nommisenligne Then
                Form32.Label1.Text = "Télécharcher: " & ListBox5.SelectedItem
                vérifilike4()
            Else
                If vri6 = 0 Then
                    Form32.Label1.Text = "Télécharcher: " & ListBox5.SelectedItem
                    vérifilike4()
                Else
                    vérifiachat4()
                End If
            End If
        End If
    End Sub
    Sub vérifilike4()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem & "/like/")
            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 & nomutilisateur) = True Then
                Form32.PictureBox6.Show()
                Form32.PictureBox5.Hide()
            Else
                Form32.PictureBox6.Hide()
                Form32.PictureBox5.Show()

            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

            Form32.urldl = ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString
            Form32.upurl = ipserver & "/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString
            Form32.ShowDialog()
        Catch ex As Exception

        End Try
    End Sub
    Sub vérifiachat4()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem & "/achat/")
            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 & nomutilisateur) = True Then
                Form32.Label1.Text = "télécharcher: " & ListBox5.SelectedItem
            Else
                Dim maj6 As New WebClient
                Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/prix.txt")
                Form32.prix = vri6
                Form32.Label1.Text = "acheter: " & ListBox5.SelectedItem & " pour " & vri6 & "PBs "
                Form32.Button2.Enabled = False
            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

            vérifilike4()
        Catch ex As Exception

        End Try
    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
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/auteur.txt")
            Form32.Label3.Text = "Publier par: " & vri
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
            Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
            Form32.nommisenligne = lines1(0)
            File.Delete(dostemps & "auteur.txt")
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/info.txt")
            Form32.TextBox1.Text = vri2
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/telechargement.txt")
            Form32.Label4.Text = "Nombre de téléchargement: " & vri3
            Dim maj4 As New WebClient
            Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/like.txt")
            Form32.Label2.Text = vri4
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
            Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
            Dim maj5 As New WebClient
            Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/site.txt")
            If vri5 = 0 Then
                Form32.PictureBox4.Hide()
            Else
                Dim maj8 As New WebClient
                Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/site2.txt")
                Form32.sitewebfichier = vri8
                Form32.PictureBox4.Show()
            End If


            Form32.Text = ListBox6.SelectedItem
            Dim maj6 As New WebClient
            Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/prix.txt")

            Dim maj7 As New WebClient
            Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/image.txt")
            If vri7 = 0 Then
                Form32.Button1.Hide()
            Else
                Form32.Button1.Show()
                Form32.Button1.Text = "image de la map"

            End If

            If nomutilisateur = Form32.nommisenligne Then
                Form32.Label1.Text = "Télécharcher: " & ListBox6.SelectedItem
                vérifilike5()
            Else
                If vri6 = 0 Then
                    Form32.Label1.Text = "Télécharcher: " & ListBox6.SelectedItem
                    vérifilike5()
                Else
                    vérifiachat5()
                End If
            End If

        End If
    End Sub
    Sub vérifilike5()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem & "/like/")
            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 & nomutilisateur) = True Then
                Form32.PictureBox6.Show()
                Form32.PictureBox5.Hide()
            Else
                Form32.PictureBox6.Hide()
                Form32.PictureBox5.Show()

            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

            Form32.urldl = ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString
            Form32.upurl = ipserver & "/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString
            Form32.ShowDialog()
        Catch ex As Exception

        End Try
    End Sub
    Sub vérifiachat5()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem & "/achat/")
            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 & nomutilisateur) = True Then
                Form32.Label1.Text = "télécharcher: " & ListBox6.SelectedItem
            Else
                Dim maj6 As New WebClient
                Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/prix.txt")
                Form32.prix = vri6
                Form32.Label1.Text = "acheter: " & ListBox6.SelectedItem & " pour " & vri6 & "PBs "
                Form32.Button2.Enabled = False
            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

            vérifilike5()
        Catch ex As Exception

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

        Else
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/auteur.txt")
            Form32.Label3.Text = "Publier par: " & vri
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
            Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
            Form32.nommisenligne = lines1(0)
            File.Delete(dostemps & "auteur.txt")
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/info.txt")
            Form32.TextBox1.Text = vri2
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/telechargement.txt")
            Form32.Label4.Text = "Nombre de téléchargement: " & vri3
            Dim maj4 As New WebClient
            Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/like.txt")
            Form32.Label2.Text = vri4
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
            Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
            Dim maj5 As New WebClient
            Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/site.txt")
            If vri5 = 0 Then
                Form32.PictureBox4.Hide()
            Else
                Dim maj8 As New WebClient
                Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/site2.txt")
                Form32.sitewebfichier = vri8
                Form32.PictureBox4.Show()
            End If


            Form32.Text = ListBox8.SelectedItem
            Dim maj6 As New WebClient
            Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/prix.txt")

            Dim maj7 As New WebClient
            Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/image.txt")
            If vri7 = 0 Then
                Form32.Button1.Hide()
            Else
                Form32.Button1.Show()
                Form32.Button1.Text = "image du Jeux"

            End If

            If nomutilisateur = Form32.nommisenligne Then
                Form32.Label1.Text = "Télécharcher: " & ListBox8.SelectedItem
                vérifilike6
            Else
                If vri6 = 0 Then
                    Form32.Label1.Text = "Télécharcher: " & ListBox8.SelectedItem
                    vérifilike6
                Else
                    vérifiachat6()
                End If
            End If
        End If
    End Sub
    Sub vérifilike6()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem & "/like/")
            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 & nomutilisateur) = True Then
                Form32.PictureBox6.Show()
                Form32.PictureBox5.Hide()
            Else
                Form32.PictureBox6.Hide()
                Form32.PictureBox5.Show()

            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

            Form32.urldl = ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString
            Form32.upurl = ipserver & "/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString
            Form32.ShowDialog()
        Catch ex As Exception

        End Try
    End Sub
    Sub vérifiachat6()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem & "/achat/")
            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 & nomutilisateur) = True Then
                Form32.Label1.Text = "télécharcher: " & ListBox8.SelectedItem
            Else
                Dim maj6 As New WebClient
                Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/prix.txt")
                Form32.prix = vri6
                Form32.Label1.Text = "acheter: " & ListBox8.SelectedItem & " pour " & vri6 & "PBs "
                Form32.Button2.Enabled = False
            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

            vérifilike6()
        Catch ex As Exception

        End Try
    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
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/auteur.txt")
            Form32.Label3.Text = "Publier par: " & vri
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
            Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
            Form32.nommisenligne = lines1(0)
            File.Delete(dostemps & "auteur.txt")
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/info.txt")
            Form32.TextBox1.Text = vri2
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/telechargement.txt")
            Form32.Label4.Text = "Nombre de téléchargement: " & vri3
            Dim maj4 As New WebClient
            Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/like.txt")
            Form32.Label2.Text = vri4
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
            Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
            Dim maj5 As New WebClient
            Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/site.txt")
            If vri5 = 0 Then
                Form32.PictureBox4.Hide()
            Else
                Dim maj8 As New WebClient
                Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/site2.txt")
                Form32.sitewebfichier = vri8
                Form32.PictureBox4.Show()
            End If


            Form32.Text = ListBox7.SelectedItem
            Dim maj6 As New WebClient
            Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/prix.txt")

            Dim maj7 As New WebClient
            Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/image.txt")
            If vri7 = 0 Then
                Form32.Button1.Hide()
            Else
                Form32.Button1.Show()
                Form32.Button1.Text = "image du serveur"

            End If

            If nomutilisateur = Form32.nommisenligne Then
                Form32.Label1.Text = "Télécharcher: " & ListBox7.SelectedItem
                vérifilike7
            Else
                If vri6 = 0 Then
                    Form32.Label1.Text = "Télécharcher: " & ListBox7.SelectedItem
                    vérifilike7
                Else
                    vérifiachat7
                End If
            End If
        End If
    End Sub
    Sub vérifilike7()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem & "/like/")
            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 & nomutilisateur) = True Then
                Form32.PictureBox6.Show()
                Form32.PictureBox5.Hide()
            Else
                Form32.PictureBox6.Hide()
                Form32.PictureBox5.Show()

            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

            Form32.urldl = ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString
            Form32.upurl = ipserver & "/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString
            Form32.ShowDialog()
        Catch ex As Exception

        End Try
    End Sub
    Sub vérifiachat7()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem & "/achat/")
            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 & nomutilisateur) = True Then
                Form32.Label1.Text = "télécharcher: " & ListBox7.SelectedItem
            Else
                Dim maj6 As New WebClient
                Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/prix.txt")
                Form32.prix = vri6
                Form32.Label1.Text = "acheter: " & ListBox7.SelectedItem & " pour " & vri6 & "PBs "
                Form32.Button2.Enabled = False
            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

            vérifilike7()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub ListBox10_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox10.SelectedIndexChanged

    End Sub

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

        Else
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/auteur.txt")
            Form32.Label3.Text = "Publier par: " & vri
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
            Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
            Form32.nommisenligne = lines1(0)
            File.Delete(dostemps & "auteur.txt")
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/info.txt")
            Form32.TextBox1.Text = vri2
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/telechargement.txt")
            Form32.Label4.Text = "Nombre de téléchargement: " & vri3
            Dim maj4 As New WebClient
            Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/like.txt")
            Form32.Label2.Text = vri4
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
            Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
            Dim maj5 As New WebClient
            Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/site.txt")
            If vri5 = 0 Then
                Form32.PictureBox4.Hide()
            Else
                Dim maj8 As New WebClient
                Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/site2.txt")
                Form32.sitewebfichier = vri8
                Form32.PictureBox4.Show()
            End If


            Form32.Text = ListBox10.SelectedItem
            Dim maj6 As New WebClient
            Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/prix.txt")

            Dim maj7 As New WebClient
            Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/image.txt")
            If vri7 = 0 Then
                Form32.Button1.Hide()
            Else
                Form32.Button1.Show()
                Form32.Button1.Text = "image du pack de texture"

            End If

            If nomutilisateur = Form32.nommisenligne Then
                Form32.Label1.Text = "Télécharcher: " & ListBox10.SelectedItem
                vérifilike8
            Else
                If vri6 = 0 Then
                    Form32.Label1.Text = "Télécharcher: " & ListBox10.SelectedItem
                    vérifilike8
                Else
                    vérifiachat8
                End If
            End If
        End If
    End Sub
    Sub vérifilike8()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem & "/like/")
            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 & nomutilisateur) = True Then
                Form32.PictureBox6.Show()
                Form32.PictureBox5.Hide()
            Else
                Form32.PictureBox6.Hide()
                Form32.PictureBox5.Show()

            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

            Form32.urldl = ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString
            Form32.upurl = ipserver & "/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString
            Form32.ShowDialog()
        Catch ex As Exception

        End Try
    End Sub
    Sub vérifiachat8()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem & "/achat/")
            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 & nomutilisateur) = True Then
                Form32.Label1.Text = "télécharcher: " & ListBox10.SelectedItem
            Else
                Dim maj6 As New WebClient
                Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/prix.txt")
                Form32.prix = vri6
                Form32.Label1.Text = "acheter: " & ListBox10.SelectedItem & " pour " & vri6 & "PBs "
                Form32.Button2.Enabled = False
            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

            vérifilike8()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub ListBox11_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox11.SelectedIndexChanged

    End Sub

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

        Else
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/auteur.txt")
            Form32.Label3.Text = "Publier par: " & vri
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
            Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
            Form32.nommisenligne = lines1(0)
            File.Delete(dostemps & "auteur.txt")
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/info.txt")
            Form32.TextBox1.Text = vri2
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/telechargement.txt")
            Form32.Label4.Text = "Nombre de téléchargement: " & vri3
            Dim maj4 As New WebClient
            Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/like.txt")
            Form32.Label2.Text = vri4
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
            Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
            Dim maj5 As New WebClient
            Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/site.txt")
            If vri5 = 0 Then
                Form32.PictureBox4.Hide()
            Else
                Dim maj8 As New WebClient
                Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/site2.txt")
                Form32.sitewebfichier = vri8
                Form32.PictureBox4.Show()
            End If


            Form32.Text = ListBox11.SelectedItem
            Dim maj6 As New WebClient
            Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/prix.txt")

            Dim maj7 As New WebClient
            Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/image.txt")
            If vri7 = 0 Then
                Form32.Button1.Hide()
            Else
                Form32.Button1.Show()
                Form32.Button1.Text = "image du shaders"

            End If

            If nomutilisateur = Form32.nommisenligne Then
                Form32.Label1.Text = "Télécharcher: " & ListBox11.SelectedItem
                vérifilike9
            Else
                If vri6 = 0 Then
                    Form32.Label1.Text = "Télécharcher: " & ListBox11.SelectedItem
                    vérifilike9
                Else
                    vérifiachat9
                End If
            End If
        End If
    End Sub
    Sub vérifilike9()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem & "/like/")
            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 & nomutilisateur) = True Then
                Form32.PictureBox6.Show()
                Form32.PictureBox5.Hide()
            Else
                Form32.PictureBox6.Hide()
                Form32.PictureBox5.Show()

            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

            Form32.urldl = ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString
            Form32.upurl = ipserver & "/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString
            Form32.ShowDialog()
        Catch ex As Exception

        End Try
    End Sub
    Sub vérifiachat9()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem & "/achat/")
            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 & nomutilisateur) = True Then
                Form32.Label1.Text = "télécharcher: " & ListBox11.SelectedItem
            Else
                Dim maj6 As New WebClient
                Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/prix.txt")
                Form32.prix = vri6
                Form32.Label1.Text = "acheter: " & ListBox11.SelectedItem & " pour " & vri6 & "PBs "
                Form32.Button2.Enabled = False
            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

            vérifilike9()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub ListBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox3.SelectedIndexChanged

    End Sub

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

        Else
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/auteur.txt")
            Form32.Label3.Text = "Publier par: " & vri
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
            Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
            Form32.nommisenligne = lines1(0)
            File.Delete(dostemps & "auteur.txt")
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/info.txt")
            Form32.TextBox1.Text = vri2
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/telechargement.txt")
            Form32.Label4.Text = "Nombre de téléchargement: " & vri3
            Dim maj4 As New WebClient
            Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/like.txt")
            Form32.Label2.Text = vri4
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
            Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
            Dim maj5 As New WebClient
            Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/site.txt")
            If vri5 = 0 Then
                Form32.PictureBox4.Hide()
            Else
                Dim maj8 As New WebClient
                Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/site2.txt")
                Form32.sitewebfichier = vri8
                Form32.PictureBox4.Show()
            End If


            Form32.Text = ListBox3.SelectedItem
            Dim maj6 As New WebClient
            Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/prix.txt")

            Dim maj7 As New WebClient
            Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/image.txt")
            If vri7 = 0 Then
                Form32.Button1.Hide()
            Else
                Form32.Button1.Show()
                Form32.Button1.Text = "image du ISO"

            End If

            If nomutilisateur = Form32.nommisenligne Then
                Form32.Label1.Text = "Télécharcher: " & ListBox3.SelectedItem
                vérifilike10
            Else
                If vri6 = 0 Then
                    Form32.Label1.Text = "Télécharcher: " & ListBox3.SelectedItem
                    vérifilike10
                Else
                    vérifiachat10
                End If
            End If
        End If
    End Sub
    Sub vérifilike10()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem & "/like/")
            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 & nomutilisateur) = True Then
                Form32.PictureBox6.Show()
                Form32.PictureBox5.Hide()
            Else
                Form32.PictureBox6.Hide()
                Form32.PictureBox5.Show()

            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

            Form32.urldl = ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString
            Form32.upurl = ipserver & "/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString
            Form32.ShowDialog()
        Catch ex As Exception

        End Try
    End Sub
    Sub vérifiachat10()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem & "/achat/")
            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 & nomutilisateur) = True Then
                Form32.Label1.Text = "télécharcher: " & ListBox3.SelectedItem
            Else
                Dim maj6 As New WebClient
                Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/prix.txt")
                Form32.prix = vri6
                Form32.Label1.Text = "acheter: " & ListBox3.SelectedItem & " pour " & vri6 & "PBs "
                Form32.Button2.Enabled = False
            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

            vérifilike10()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub ListBox9_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox9.SelectedIndexChanged

    End Sub

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

        Else
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/auteur.txt")
            Form32.Label3.Text = "Publier par: " & vri
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
            Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
            Form32.nommisenligne = lines1(0)
            File.Delete(dostemps & "auteur.txt")
            Dim maj2 As New WebClient
            Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/info.txt")
            Form32.TextBox1.Text = vri2
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/telechargement.txt")
            Form32.Label4.Text = "Nombre de téléchargement: " & vri3
            Dim maj4 As New WebClient
            Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/like.txt")
            Form32.Label2.Text = vri4
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
            Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
            Dim maj5 As New WebClient
            Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/site.txt")
            If vri5 = 0 Then
                Form32.PictureBox4.Hide()
            Else
                Dim maj8 As New WebClient
                Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/site2.txt")
                Form32.sitewebfichier = vri8
                Form32.PictureBox4.Show()
            End If


            Form32.Text = ListBox9.SelectedItem
            Dim maj6 As New WebClient
            Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/prix.txt")

            Dim maj7 As New WebClient
            Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/image.txt")
            If vri7 = 0 Then
                Form32.Button1.Hide()
            Else
                Form32.Button1.Show()
                Form32.Button1.Text = "image du fichier"

            End If

            If nomutilisateur = Form32.nommisenligne Then
                Form32.Label1.Text = "Télécharcher: " & ListBox9.SelectedItem
                vérifilike11
            Else
                If vri6 = 0 Then
                    Form32.Label1.Text = "Télécharcher: " & ListBox9.SelectedItem
                    vérifilike11
                Else
                    vérifiachat11
                End If
            End If
        End If
    End Sub
    Sub vérifilike11()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Autre/" & ListBox9.SelectedItem & "/like/")
            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 & nomutilisateur) = True Then
                Form32.PictureBox6.Show()
                Form32.PictureBox5.Hide()
            Else
                Form32.PictureBox6.Hide()
                Form32.PictureBox5.Show()

            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

            Form32.urldl = ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString
            Form32.upurl = ipserver & "/Communautaire/Autre/" & ListBox9.SelectedItem.ToString
            Form32.ShowDialog()
        Catch ex As Exception

        End Try
    End Sub
    Sub vérifiachat11()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Autre/" & ListBox9.SelectedItem & "/achat/")
            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 & nomutilisateur) = True Then
                Form32.Label1.Text = "télécharcher: " & ListBox9.SelectedItem
            Else
                Dim maj6 As New WebClient
                Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/prix.txt")
                Form32.prix = vri6
                Form32.Label1.Text = "acheter: " & ListBox9.SelectedItem & " pour " & vri6 & "PBs "
                Form32.Button2.Enabled = False
            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

            vérifilike11()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
        Form29.ShowDialog()
    End Sub
    Private Sub Panel3_Click(sender As Object, e As EventArgs) Handles Panel3.Click
        Form29.ShowDialog()
    End Sub

    Private Sub Label15_Click(sender As Object, e As EventArgs) Handles Label15.Click
        Form3.Location = Me.Location
        Form3.Show()
        Me.Visible = False
    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
        Form3.Location = Me.Location
        Form3.Show()
        Me.Visible = False
    End Sub

    Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click
        Form3.Location = Me.Location
        Form3.Show()
        Me.Visible = False
    End Sub

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

    Private Sub Panel10_Paint(sender As Object, e As PaintEventArgs) Handles Panel10.Paint

    End Sub

    Private Sub Panel10_Click(sender As Object, e As EventArgs) Handles Panel10.Click
        Close()
    End Sub

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

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

    Private Sub Label13_Click(sender As Object, e As EventArgs) Handles Label13.Click
        Form40.ShowDialog()
    End Sub

    Private Sub PictureBox20_Click(sender As Object, e As EventArgs) Handles PictureBox20.Click
        Form40.ShowDialog()
    End Sub

    Private Sub Panel5_Paint(sender As Object, e As PaintEventArgs) Handles Panel5.Paint

    End Sub

    Private Sub Panel5_Click(sender As Object, e As EventArgs) Handles Panel5.Click
        Form40.ShowDialog()
    End Sub
End Class