Imports System.Collections.ObjectModel
Imports System.ComponentModel
Imports System.IO
Imports System.Net
Imports System.Net.Mail
Imports System.Reflection
Imports System.Security.Cryptography
Imports System.Text
Imports System.Windows
Imports System.Windows.Forms.VisualStyles.VisualStyleElement

Public Class Form2
    Public startpara As Integer = 0
    Dim startwin = 0
    Dim startupdate = 0
    Dim startdlupdate = 0
    Dim dosier = 0
    Dim confirmclose = 0
    Dim dosier2 As String = ""
    Public vérification As Integer = 0
    Dim set2 As Integer = 0
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Label8.Text = "votre version de extrème downloaders: " & version
        ComboBox2.SelectedItem = "@gmail.com"
        Try
            If My.Computer.Network.Ping("www.google.fr") = True Then
                Dim maj As New WebClient
                Dim vri As String = maj.DownloadString("http://logiciels2.extreme-downloaders.fr/extreme downloaders/server temps.txt")
                If vri = 1 Then
                    MsgBox("les serveur de extrème downloaders sont en maintenance", MsgBoxStyle.Exclamation)
                Else
                    Dim lines1() As String = File.ReadAllLines(connecter)
                    If lines1(0) = 1 Then
                        Panel2.Show()
                        Panel3.Show()
                        Label15.Text = "compte de: " & nomutilisateur
                        loadco()
                    Else
                        ChromeTabcontrol1.TabPages.Remove(TabPage6)
                        finiload()
                    End If
                End If
            Else
                Form1.NotifyIcon1.BalloonTipTitle = "compte"
                Form1.NotifyIcon1.BalloonTipText = "vous n'êtes pas connectera internet"
                Form1.NotifyIcon1.ShowBalloonTip(1)
            End If
        Catch ex As Exception
            Form1.NotifyIcon1.BalloonTipTitle = "compte"
            Form1.NotifyIcon1.BalloonTipText = "vous n'êtes pas connectera internet"
            Form1.NotifyIcon1.ShowBalloonTip(1)
        End Try
    End Sub

    Private Sub Form2_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        Dim msg = MsgBox("voulez vous enregister ?", MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then

            Dim registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
            Dim mer As Integer = 0
            Dim key As Microsoft.Win32.RegistryKey = registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
            Dim vreg = Nothing

            If key.GetValue(Application.ProductName) Is Nothing Then
                vreg = 0
            Else
                vreg = 1
            End If

            If ChromeCheckbox1.Checked = True Then
                startwin = 1
                If vreg = 0 Then
                    key.SetValue(Application.ProductName, Application.ExecutablePath, Microsoft.Win32.RegistryValueKind.String)
                End If
            Else
                startwin = 0
                If vreg = 1 Then
                    key.DeleteValue(Application.ProductName)
                End If
            End If

            If ChromeCheckbox2.Checked = True Then
                startupdate = 1
            Else
                startupdate = 0
            End If

            If ChromeCheckbox3.Checked = True Then
                startdlupdate = 1
            Else
                startdlupdate = 0
            End If

            If ChromeCheckbox5.Checked = True Then
                confirmclose = 1
            Else
                confirmclose = 0
            End If

            Dim sw1 As New StreamWriter(setting)
            sw1.WriteLine(startwin)
            sw1.WriteLine(startupdate)
            sw1.WriteLine(startdlupdate)
            sw1.WriteLine(confirmclose)
            sw1.Close()

            If dosier = 0 Then
                Dim sw2 As New StreamWriter(setting2)
                sw2.WriteLine(0)
                sw2.Close()
                dldos = ""
            Else
                Dim sw3 As New StreamWriter(setting2)
                sw3.WriteLine(1)
                sw3.WriteLine(dosier2)
                sw3.Close()
                dldos = dosier2
            End If

            Dim sw4 As New StreamWriter(setting3)
            sw4.WriteLine(set2)
            sw4.Close()


            MsgBox("les paramètre ont bien êtê enregister", MsgBoxStyle.Information)
            If startpara = 0 Then
                Form1.Visible = True
            ElseIf startpara = 2 Then
                Form1.Visible = False
                Form28.Visible = True
                startpara = 0
            Else
                Form1.Visible = False
                Form3.Visible = True
                startpara = 0
            End If
        Else
            If startpara = 0 Then
                Form1.Visible = True
            ElseIf startpara = 2 Then
                Form1.Visible = False
                Form28.Visible = True
                startpara = 0
            Else
                Form1.Visible = False
                Form3.Visible = True
                startpara = 0
            End If
        End If
    End Sub

    Private Sub Form2_LocationChanged(sender As Object, e As EventArgs) Handles MyBase.LocationChanged
        If startpara = 0 Then
            Form1.Location = Me.Location
        Else
            Form3.Location = Me.Location
        End If
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        Close()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Button8.Text = "rechercher des mis a jours"
        Button8.Enabled = True
    End Sub
    Sub vérificompte()
        Try
            If My.Computer.Network.Ping("www.google.fr") = True Then
                Dim maj As New WebClient
                Dim vri As String = maj.DownloadString("http://logiciels2.extreme-downloaders.fr/extreme downloaders/server temps.txt")
                If vri = 1 Then
                    MsgBox("les serveur de extrème downloaders sont en maintenance", MsgBoxStyle.Exclamation)
                Else
                    vérificompte2()
                End If
            Else
                MsgBox("vous être pas connect a internet", MsgBoxStyle.Critical)
            End If
        Catch ex As Exception
            MsgBox("vous être pas connect a internet", MsgBoxStyle.Critical)
        End Try
    End Sub
    Sub vérificompte2()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "utilisateur/")
            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
                MsgBox("Le pseudo: " & TextBox10.Text & " est dêjâ utiliser", MsgBoxStyle.Critical)
                For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(dostemps & info.Name)
                Next
            Else
                For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(dostemps & info.Name)
                Next
                créercompte3()
            End If
        Catch ex As Exception
            Timer2.Start()
        End Try
    End Sub
    Sub créercompte()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "utilisateur/" & TextBox10.Text), System.Net.FtpWebRequest)
            Dim ftpStream As Stream = Nothing

            MaRequete.Credentials = New System.Net.NetworkCredential("extremedownloaders", passftp)
            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
            ftpStream = response.GetResponseStream
            ftpStream.Close()
            response.Close()
            créercompte10()
        Catch ex As Exception
            Timer3.Start()
        End Try
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Timer2.Stop()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "utilisateur/")
            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
                For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(dostemps & info.Name)
                Next
                MsgBox("Le pseudo: " & TextBox10.Text & " est dêjâ utiliser", MsgBoxStyle.Critical)
            Else
                For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(dostemps & info.Name)
                Next
                créercompte3()
            End If
        Catch ex As Exception
            Timer2.Start()
        End Try
    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Timer3.Stop()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "utilisateur/" & TextBox10.Text), System.Net.FtpWebRequest)
            Dim ftpStream As Stream = Nothing

            MaRequete.Credentials = New System.Net.NetworkCredential("extremedownloaders", passftp)
            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
            ftpStream = response.GetResponseStream
            ftpStream.Close()
            response.Close()
            créercompte10()
        Catch ex As Exception
            Timer3.Start()
        End Try
    End Sub
    Sub créercompte2()
        Dim sw1 As New StreamWriter(dostemps & "index.php")
        sw1.WriteLine("<?php")
        sw1.WriteLine("echo ""Erreur 404 page non trouvez"";")
        sw1.WriteLine("?>")
        sw1.Close()
        Dim sw2 As New StreamWriter(dostemps & "admin.txt")
        sw2.WriteLine("0")
        sw2.Close()
        Dim sw3 As New StreamWriter(dostemps & "vérification.txt")
        sw3.WriteLine("0")
        sw3.Close()
        Dim sw4 As New StreamWriter(dostemps & "money.txt")
        sw4.WriteLine("0")
        sw4.Close()
        Dim sw7 As New StreamWriter(dostemps & "level.txt")
        sw7.WriteLine("0")
        sw7.Close()
        Dim sw8 As New StreamWriter(dostemps & "XP.txt")
        sw8.WriteLine("0")
        sw8.Close()
        Dim sw9 As New StreamWriter(dostemps & "up.txt")
        sw9.WriteLine("0")
        sw9.Close()
        Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(TextBox11.Text)
        Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
        Dim Crypto As New DESCryptoServiceProvider()
        Crypto.Key = keyBytes
        Crypto.IV = keyBytes
        Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
        Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
        Dim passecrypt = Convert.ToBase64String(Resultatbytes)

        If TextBox14.Visible = True Then
            Dim texteEnBytes2() As Byte = Encoding.UTF8.GetBytes(TextBox13.Text & TextBox14.Text)
            Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
            Dim Crypto2 As New DESCryptoServiceProvider()
            Crypto.Key = keyBytes
            Crypto.IV = keyBytes
            Dim Icrypto2 As ICryptoTransform = Crypto.CreateEncryptor
            Dim Resultatbytes2() As Byte = Icrypto.TransformFinalBlock(texteEnBytes2, 0, texteEnBytes2.Length)
            Dim mailcrypte = Convert.ToBase64String(Resultatbytes2)
            Dim sw6 As New StreamWriter(dostemps & "mail.txt")
            sw6.WriteLine(mailcrypte)
            sw6.Close()
        Else
            Dim texteEnBytes2() As Byte = Encoding.UTF8.GetBytes(TextBox13.Text & ComboBox2.Text)
            Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
            Dim Crypto2 As New DESCryptoServiceProvider()
            Crypto.Key = keyBytes
            Crypto.IV = keyBytes
            Dim Icrypto2 As ICryptoTransform = Crypto.CreateEncryptor
            Dim Resultatbytes2() As Byte = Icrypto.TransformFinalBlock(texteEnBytes2, 0, texteEnBytes2.Length)
            Dim mailcrypte = Convert.ToBase64String(Resultatbytes2)
            Dim sw6 As New StreamWriter(dostemps & "mail.txt")
            sw6.WriteLine(mailcrypte)
            sw6.Close()
        End If

        Dim sw5 As New StreamWriter(dostemps & "pass.txt")
        sw5.WriteLine(passecrypt)
        sw5.Close()

        PictureBox7.Image.Save(dostemps & "\photo.png")


        intexup()
    End Sub
    Sub créercompte3()
        Try
            Directory.CreateDirectory(dostemps & TextBox10.Text)
            Directory.Delete(dostemps & TextBox10.Text)
            Me.UseWaitCursor = True
            Panel2.Enabled = False
            créercompte()
        Catch ex As Exception
            MsgBox("votre pseudo contient des caratère interdi", MsgBoxStyle.Exclamation)
        End Try
    End Sub
    Sub intexup()
        Try
            My.Computer.Network.UploadFile(dostemps & "index.php", ipserver & "utilisateur/" & TextBox10.Text & "/index.php")
            File.Delete(dostemps & "index.php")
            adminup()
        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
            My.Computer.Network.UploadFile(dostemps & "index.php", ipserver & "utilisateur/" & TextBox10.Text & "/index.php")
            File.Delete(dostemps & "index.php")
            adminup()
        Catch ex As Exception
            Timer4.Start()
        End Try
    End Sub
    Sub adminup()
        Try
            My.Computer.Network.UploadFile(dostemps & "admin.txt", ipserver & "utilisateur/" & TextBox10.Text & "/admin.txt")
            File.Delete(dostemps & "admin.txt")
            vérificationup()
        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
            My.Computer.Network.UploadFile(dostemps & "admin.txt", ipserver & "utilisateur/" & TextBox10.Text & "/admin.txt")
            File.Delete(dostemps & "admin.txt")
            vérificationup()
        Catch ex As Exception
            Timer5.Start()
        End Try
    End Sub
    Sub vérificationup()
        Try
            My.Computer.Network.UploadFile(dostemps & "vérification.txt", ipserver & "utilisateur/" & TextBox10.Text & "/vérification.txt")
            File.Delete(dostemps & "vérification.txt")
            moneyup()
        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
            My.Computer.Network.UploadFile(dostemps & "vérification.txt", ipserver & "utilisateur/" & TextBox10.Text & "/vérification.txt")
            File.Delete(dostemps & "vérification.txt")
            moneyup()
        Catch ex As Exception
            Timer6.Start()
        End Try
    End Sub
    Sub moneyup()
        Try
            My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "utilisateur/" & TextBox10.Text & "/money.txt")
            File.Delete(dostemps & "money.txt")
            passup()
        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
            My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "utilisateur/" & TextBox10.Text & "/money.txt")
            File.Delete(dostemps & "money.txt")
            passup()
        Catch ex As Exception
            Timer7.Start()
        End Try
    End Sub
    Sub passup()
        Try
            My.Computer.Network.UploadFile(dostemps & "pass.txt", ipserver & "utilisateur/" & TextBox10.Text & "/pass.txt")
            File.Delete(dostemps & "pass.txt")
            mailup()
        Catch ex As Exception
            Timer8.Start()
        End Try
    End Sub

    Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
        Timer8.Stop()
        Try
            My.Computer.Network.UploadFile(dostemps & "pass.txt", ipserver & "utilisateur/" & TextBox10.Text & "/pass.txt")
            File.Delete(dostemps & "pass.txt")
            mailup()
        Catch ex As Exception
            Timer8.Start()
        End Try
    End Sub
    Sub mailup()
        Try
            My.Computer.Network.UploadFile(dostemps & "mail.txt", ipserver & "utilisateur/" & TextBox10.Text & "/mail.txt")
            File.Delete(dostemps & "mail.txt")
            photoup()
        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
            My.Computer.Network.UploadFile(dostemps & "mail.txt", ipserver & "utilisateur/" & TextBox10.Text & "/mail.txt")
            File.Delete(dostemps & "mail.txt")
            photoup()
        Catch ex As Exception
            Timer9.Start()
        End Try
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Button8.Enabled = False
        Form1.NotifyIcon2.Visible = False
        Try
            If My.Computer.Network.Ping("www.google.fr") = True Then
                Dim maj As New WebClient
                Dim vri As String = maj.DownloadString("http://logiciels2.extreme-downloaders.fr" & "/extr%C3%A8me%20downloaders/version.txt")
                If version = vri Then
                    Button8.Text = "vous êtes a jours"
                    Timer1.Start()
                Else
                    Button8.Text = "rechercher des mis a jours"
                    Button8.Enabled = True
                    Form14.ShowDialog()
                End If
            Else
                Button8.Enabled = True
                MsgBox("vous être pas connecter a internet", MsgBoxStyle.Critical)
            End If
        Catch ex As Exception
            Button8.Enabled = True
            MsgBox("vous être pas connecter a internet", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Form4.ShowDialog()
    End Sub

    Private Sub TextBox8_TextChanged(sender As Object, e As EventArgs) Handles TextBox8.TextChanged
        If TextBox8.Text = "" Then
            Button11.Text = "connection"
        Else
            Button11.Text = "connection a " & TextBox8.Text
        End If
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Panel2.Visible = True
    End Sub

    Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
        Panel2.Visible = False
    End Sub
    Private Sub ComboBox2_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedValueChanged
        If ComboBox2.SelectedItem = "autre" Then
            ComboBox2.Hide()
            TextBox14.Show()
        End If
    End Sub

    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        If OpenFileDialog1.ShowDialog = 1 Then
            PictureBox7.Image = Image.FromFile(OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        If TextBox10.Text = "" Then
            MsgBox("merci d'entrer un pseudo", MsgBoxStyle.Critical)
        Else
            If TextBox11.Text = "" Then
                MsgBox("merci d'entrer un mots de passe", MsgBoxStyle.Critical)
            Else
                If TextBox12.Text = "" Then
                    MsgBox("merci de confirmer votre mots de passe", MsgBoxStyle.Critical)
                Else
                    If TextBox13.Text = "" Then
                        MsgBox("merci d'entrer un mail", MsgBoxStyle.Critical)
                    Else
                        If TextBox13.Text.Contains("@") Then
                            MsgBox("merci d'entrer le debut de l'addre mail", MsgBoxStyle.Critical)
                        Else
                            If TextBox14.Visible = True And TextBox14.Text = "" And TextBox14.Text = "@" Then
                                MsgBox("merci d'entrer la fin de l'addre mail", MsgBoxStyle.Critical)
                            Else
                                If TextBox14.Visible = True And TextBox14.Text.Contains("@") And TextBox14.Text.Contains(".") Then
                                    If TextBox11.Text = TextBox12.Text Then
                                        If CheckBox2.Checked = True Then
                                            vérificompte()
                                        Else
                                            MsgBox("vous devez accpeter le condition d'utilisation", MsgBoxStyle.Critical)
                                        End If
                                    Else
                                        MsgBox("Les mots de passe ne correspond pas", MsgBoxStyle.Critical)
                                    End If
                                Else
                                    If TextBox14.Visible = True Then
                                        MsgBox("merci d'entrer la fin de l'addre mail", MsgBoxStyle.Critical)
                                    Else
                                        If TextBox11.Text = TextBox12.Text Then
                                            If CheckBox2.Checked = True Then
                                                vérificompte()
                                            Else
                                                MsgBox("vous devez accpeter le condition d'utilisation", MsgBoxStyle.Critical)
                                            End If
                                        Else
                                            MsgBox("Les mots de passe ne correspond pas", MsgBoxStyle.Critical)
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End Sub
    Sub photoup()
        Try
            My.Computer.Network.UploadFile(dostemps & "photo.png", ipserver & "utilisateur/" & TextBox10.Text & "/photo.png")
            File.Delete(dostemps & "photo.png")
            levelup()
        Catch ex As Exception
            Timer10.Start()
        End Try
    End Sub
    Sub créercomtpefini()
        Dim NumRandom As Integer
        Dim Rand As Random = New Random
        Dim NumStr As String
        Dim code As String = ""

        NumRandom = (Rand.Next(1, 999999))
        NumStr = Strings.Right("" & NumRandom.ToString(), 6)
        code = "ED-" & NumStr & "-" & TextBox10.Text

        Dim t4 = dostemps & "code 1 de récupération " & TextBox10.Text & ".txt"
        Dim sw4 As New StreamWriter(t4)
        sw4.WriteLine(TextBox4.Text & code & "-code1")
        sw4.Close()

        Dim NumRandom2 As Integer
        Dim Rand2 As Random = New Random
        Dim NumStr2 As String
        Dim code2 As String = ""

        NumRandom2 = (Rand2.Next(1, 999999))
        NumStr2 = Strings.Right("" & NumRandom2.ToString(), 6)
        code2 = "ED-" & NumStr2 & "-" & TextBox10.Text

        Dim t5 = dostemps & "code 2 de récupération " & TextBox10.Text & ".txt"
        Dim sw5 As New StreamWriter(t5)
        sw5.WriteLine(TextBox4.Text & code2 & "-code2")
        sw5.Close()

        Dim NumRandom3 As Integer
        Dim Rand3 As Random = New Random
        Dim NumStr3 As String
        Dim code3 As String = ""

        NumRandom3 = (Rand3.Next(1, 999999))
        NumStr3 = Strings.Right("" & NumRandom3.ToString(), 6)
        code3 = "ED-" & NumStr3 & "-" & TextBox10.Text

        Dim t6 = dostemps & "code 3 de récupération " & TextBox10.Text & ".txt"
        Dim sw6 As New StreamWriter(t6)
        sw6.WriteLine(TextBox4.Text & code3 & "-code3")
        sw6.Close()
        mailcréer()
    End Sub

    Private Sub Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick
        Timer10.Stop()
        Try
            My.Computer.Network.UploadFile(dostemps & "photo.png", ipserver & "utilisateur/" & TextBox10.Text & "/photo.png")
            File.Delete(dostemps & "photo.png")
            levelup()
        Catch ex As Exception
            Timer10.Start()
        End Try
    End Sub

    Private Sub TextBox10_TextChanged(sender As Object, e As EventArgs) Handles TextBox10.TextChanged
        If TextBox10.Text = "" Then
            Button14.Text = "céer le compte"
        Else
            Button14.Text = "céer le compte: " & TextBox10.Text
        End If
    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        If TextBox8.Text = "" Then
            MsgBox("merci d'entrer un pseudo", MsgBoxStyle.Critical)
        Else
            If TextBox9.Text = "" Then
                MsgBox("merci d'entrer le mots de passe", MsgBoxStyle.Critical)
            Else
                covérifi()
            End If
        End If
    End Sub
    Sub covérifi()
        Try
            If My.Computer.Network.Ping("www.google.fr") = True Then
                Dim maj As New WebClient
                Dim vri As String = maj.DownloadString("http://logiciels2.extreme-downloaders.fr/extreme downloaders/server temps.txt")
                If vri = 1 Then
                    MsgBox("les serveur de extrème downloaders sont en maintenance", MsgBoxStyle.Exclamation)
                Else
                    covérifi2()
                End If
            Else
                MsgBox("vous être pas connect a internet", MsgBoxStyle.Critical)
            End If
        Catch ex As Exception
            MsgBox("vous être pas connect a internet", MsgBoxStyle.Critical)
        End Try
    End Sub
    Sub covérifi2()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "utilisateur/")
            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
                co1()

                For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(dostemps & info.Name)
                Next
            Else
                For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(dostemps & info.Name)
                Next
                MsgBox("Le pseudo: " & TextBox8.Text & " exsite pas", MsgBoxStyle.Critical)
            End If
        Catch ex As Exception
            Timer11.Start()
        End Try
    End Sub
    Sub co1()
        Dim maj As New WebClient
        Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/pass.txt")
        Dim Resultatbytes() As Byte = Convert.FromBase64String(vri)
        Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
        Dim Crypto As New DESCryptoServiceProvider()
        Crypto.Key = keyBytes
        Crypto.IV = keyBytes
        Dim Icrypto As ICryptoTransform = Crypto.CreateDecryptor()
        Dim donné() As Byte = Icrypto.TransformFinalBlock(Resultatbytes, 0, Resultatbytes.Length)
        Dim a7 = Encoding.UTF8.GetString(donné)
        If TextBox9.Text = a7 Then
            co2()
        Else
            MsgBox("mots de passe incorect", MsgBoxStyle.Critical)
        End If
    End Sub

    Private Sub Timer11_Tick(sender As Object, e As EventArgs) Handles Timer11.Tick
        Timer11.Stop()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "utilisateur/")
            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
                co1()
                For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(dostemps & info.Name)
                Next
            Else
                For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(dostemps & info.Name)
                Next
                MsgBox("Le pseudo: " & TextBox8.Text & " exsite pas", MsgBoxStyle.Critical)
            End If
        Catch ex As Exception
            Timer11.Start()
        End Try
    End Sub
    Sub co2()
        Dim maj As New WebClient
        Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/vérification.txt")
        If vri = 1 Then
            Form16.ShowDialog()
        Else
            co3()
        End If
    End Sub
    Sub co3()
        vérification = 0
        Dim maj As New WebClient
        Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/pass.txt")
        Dim sw1 As New StreamWriter(compte)
        sw1.WriteLine(TextBox8.Text)
        sw1.Close()
        Dim sw2 As New StreamWriter(connecter)
        sw2.WriteLine(1)
        sw2.Close()
        Dim sw3 As New StreamWriter(doscompte & "passtemps.txt")
        sw3.WriteLine(vri)
        sw3.Close()
        co5()
    End Sub
    Sub co4()
        Panel2.Show()
        Panel3.Show()
        Label15.Text = "compte de: " & TextBox8.Text
        Form1.NotifyIcon1.BalloonTipTitle = "compte"
        Form1.NotifyIcon1.BalloonTipText = "vous êtes connecter un compte: " & TextBox8.Text
        Form1.NotifyIcon1.ShowBalloonTip(1)
        nomutilisateur = TextBox8.Text
        Form1.Label18.Text = nomutilisateur
        ChromeTabcontrol1.TabPages.Add(TabPage6)
        MsgBox("vous êtes connecter au compte de: " & TextBox8.Text, MsgBoxStyle.Information)
        Dim maj1 As New WebClient
        Dim vri1 As String = maj1.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/admin.txt")
        If vri1 = 1 Then
            Form1.Panel15.Show()
        Else
            Form1.Panel15.Hide()
        End If
        mailco()
    End Sub
    Sub co5()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/photo.png", doscompte & "photo.png")
            Form1.PictureBox11.Image = Image.FromFile(doscompte & "\photo.png")
            PictureBox8.Image = Form1.PictureBox11.Image
            co4()
        Catch ex As Exception
            Timer12.Start()
        End Try
    End Sub

    Private Sub Timer12_Tick(sender As Object, e As EventArgs) Handles Timer12.Tick
        Timer12.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/photo.png", doscompte & "\photo.png")
            Form1.PictureBox11.Image = Image.FromFile(doscompte & "\photo.png")
            PictureBox8.Image = Form1.PictureBox11.Image
            co4()
        Catch ex As Exception
            Timer12.Start()
        End Try
    End Sub
    Sub loadco()
        PictureBox8.Image = Form1.PictureBox11.Image
        Dim maj As New WebClient
        Dim vri As String = maj.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/vérification.txt")
        If vri = 1 Then
            ChromeCheckbox4.Checked = True
        End If
        loadco2()
    End Sub
    Sub levelup()
        Try
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "utilisateur/" & TextBox10.Text & "/level.txt")
            File.Delete(dostemps & "level.txt")
            XPup()
        Catch ex As Exception
            Timer14.Start()
        End Try
    End Sub

    Private Sub Timer14_Tick(sender As Object, e As EventArgs) Handles Timer14.Tick
        Timer14.Stop()
        Try
            My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "utilisateur/" & TextBox10.Text & "/level.txt")
            File.Delete(dostemps & "level.txt")
            XPup()
        Catch ex As Exception
            Timer14.Start()
        End Try
    End Sub

    Private Sub ChromeCheckbox2_Click(sender As Object, e As EventArgs) Handles ChromeCheckbox2.Click
        If ChromeCheckbox2.Checked = True Then
            ChromeCheckbox3.Visible = True
        Else
            ChromeCheckbox3.Visible = False
        End If
    End Sub
    Sub finiload()
        Dim lines1() As String = File.ReadAllLines(setting)
        If lines1(0) = 1 Then
            ChromeCheckbox1.Checked = True
        End If
        If lines1(1) = 1 Then
            ChromeCheckbox3.Visible = True
            ChromeCheckbox2.Checked = True
        End If

        If lines1(2) = 1 Then
            ChromeCheckbox3.Checked = True
            ChromeCheckbox3.Visible = True
        End If

        If lines1(3) = 1 Then
            ChromeCheckbox5.Checked = True
        End If

        Dim lines2() As String = File.ReadAllLines(setting2)
        If lines2(0) = 0 Then
            ComboBox3.SelectedItem = "Toujour me le demander"
        Else
            FolderBrowserDialog1.SelectedPath = (lines2(1))
            ComboBox3.Items.Add(lines2(1))
            ComboBox3.SelectedItem = (lines2(1))
        End If


        Dim lines3() As String = File.ReadAllLines(setting3)
        If lines3(0) = 1 Then
            ComboBox5.SelectedItem = "Ne rien faire"
        ElseIf lines3(0) = 2 Then
            ComboBox5.SelectedItem = "Ouvrir le dossier de destination"
        ElseIf lines3(0) = 3 Then
            ComboBox5.SelectedItem = "verrouiller la session"
        ElseIf lines3(0) = 4 Then
            ComboBox5.SelectedItem = "Fermer extrème downloaders"
        ElseIf lines3(0) = 5 Then
            ComboBox5.SelectedItem = "Arrêter l'ordinateur"
        End If
    End Sub

    Private Sub ComboBox3_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedValueChanged
        If ComboBox3.SelectedItem = "Pacourir" Then
            If FolderBrowserDialog1.ShowDialog = 1 Then
                ComboBox3.Items.Clear()
                ComboBox3.Items.Add("Toujour me le demander")
                ComboBox3.Items.Add("Pacourir")
                dosier2 = FolderBrowserDialog1.SelectedPath
                ComboBox3.Items.Add(FolderBrowserDialog1.SelectedPath)
                ComboBox3.SelectedItem = FolderBrowserDialog1.SelectedPath
                dosier = 1
            Else
                ComboBox3.SelectedItem = "Toujour me le demander"
                dosier = 0
            End If
        ElseIf ComboBox3.SelectedItem = "Toujour me le demander" Then
            dosier = 0
        Else
            dosier2 = FolderBrowserDialog1.SelectedPath
            dosier = 1
        End If
    End Sub
    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
        Dim sw1 As New StreamWriter(compte)
        sw1.WriteLine(0)
        sw1.Close()
        Dim sw2 As New StreamWriter(connecter)
        sw2.WriteLine(0)
        sw2.Close()
        File.Delete(doscompte & "passtemps.txt")
        Panel3.Hide()
        Panel2.Hide()
        ChromeTabcontrol1.TabPages.Remove(TabPage6)
        PictureBox8.Image.Dispose()
        Form1.PictureBox11.Image.Dispose()
        Form1.PictureBox11.Image = My.Resources._1040005
        File.Delete(doscompte & "photo.png")
        Form1.NotifyIcon1.BalloonTipTitle = "déconnection"
        Form1.NotifyIcon1.BalloonTipText = "vous avez êtê deconnecter du compte " & nomutilisateur
        Form1.NotifyIcon1.ShowBalloonTip(1)
        MsgBox("vous êtes bien deconnecter du compte: " & nomutilisateur, MsgBoxStyle.Information)
        Form1.Label18.Text = "se connecter"
        nomutilisateur = ""
        Form1.Panel15.Hide()
    End Sub

    Private Sub ChromeCheckbox4_Click(sender As Object, e As EventArgs) Handles ChromeCheckbox4.Click
        If ChromeCheckbox4.Checked = True And vérification = 0 Then
            Dim sw2 As New StreamWriter(dostemps & "vérification.txt")
            sw2.WriteLine(1)
            sw2.Close()
            upvérificationchange()
        ElseIf ChromeCheckbox4.Checked = False And vérification = 0 Then
            Dim sw2 As New StreamWriter(dostemps & "vérification.txt")
            sw2.WriteLine(0)
            sw2.Close()
            upvérificationchange()
        End If
    End Sub
    Sub upvérificationchange()
        Try
            My.Computer.Network.UploadFile(dostemps & "vérification.txt", ipserver & "utilisateur/" & nomutilisateur & "/vérification.txt")
            upvérificationchangefini()
        Catch ex As Exception
            Timer15.Start()
        End Try
    End Sub

    Private Sub Timer15_Tick(sender As Object, e As EventArgs) Handles Timer15.Tick
        Timer15.Stop()
        Try
            My.Computer.Network.UploadFile(dostemps & "vérification.txt", ipserver & "utilisateur/" & nomutilisateur & "/vérification.txt")
            upvérificationchangefini()
        Catch ex As Exception
            Timer15.Start()
        End Try
    End Sub
    Sub upvérificationchangefini()
        Dim lines1() As String = File.ReadAllLines(dostemps & "vérification.txt")
        If lines1(0) = 1 Then
            File.Delete(dostemps & "vérification.txt")
            MsgBox("La double vérification est maintant activez", MsgBoxStyle.Information)
        Else
            File.Delete(dostemps & "vérification.txt")
            MsgBox("La double vérification est maintant désactivez", MsgBoxStyle.Information)
        End If
    End Sub

    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        If OpenFileDialog2.ShowDialog = 1 Then
            Form1.PictureBox11.Image.Dispose()
            File.Delete(doscompte & "photo.png")
            PictureBox8.Image = Image.FromFile(OpenFileDialog2.FileName)
            PictureBox8.Image.Save(doscompte & "photo.png")
            Form1.PictureBox11.Image = Image.FromFile(doscompte & "photo.png")
            Try
                My.Computer.Network.UploadFile(doscompte & "photo.png", ipserver & "utilisateur/" & nomutilisateur & "/photo.png")
                MsgBox("votre photo de profil est bien êtê modifier", MsgBoxStyle.Information)
            Catch ex As Exception
                Timer16.Start()
            End Try
        End If
    End Sub

    Private Sub Timer16_Tick(sender As Object, e As EventArgs) Handles Timer16.Tick
        Timer16.Stop()
        If OpenFileDialog2.ShowDialog = 1 Then
            Form1.PictureBox11.Image.Dispose()
            File.Delete(doscompte & "photo.png")
            PictureBox8.Image = Image.FromFile(OpenFileDialog2.FileName)
            PictureBox8.Image.Save(doscompte & "photo.png")
            Form1.PictureBox11.Image = Image.FromFile(doscompte & "photo.png")
            Try
                My.Computer.Network.UploadFile(doscompte & "photo.png", ipserver & "utilisateur/" & nomutilisateur & "/photo.png")
                MsgBox("votre photo de profil est bien êtê modifier", MsgBoxStyle.Information)
            Catch ex As Exception
                Timer16.Start()
            End Try
        End If
    End Sub

    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
        Form17.ShowDialog()
    End Sub
    Sub créercompte10()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "utilisateur/" & TextBox10.Text & "/liste"), System.Net.FtpWebRequest)
            Dim ftpStream As Stream = Nothing

            MaRequete.Credentials = New System.Net.NetworkCredential("extremedownloaders", passftp)
            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
            ftpStream = response.GetResponseStream
            ftpStream.Close()
            response.Close()
            créercompte11()
        Catch ex As Exception
            Timer17.Start()
        End Try
    End Sub
    Sub créercompte11()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "utilisateur/" & TextBox10.Text & "/code de récupération/"), System.Net.FtpWebRequest)
            Dim ftpStream As Stream = Nothing

            MaRequete.Credentials = New System.Net.NetworkCredential("extremedownloaders", passftp)
            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
            ftpStream = response.GetResponseStream
            ftpStream.Close()
            response.Close()
            créercompte2()
        Catch ex As Exception
            Timer18.Start()
        End Try
    End Sub

    Private Sub Timer17_Tick(sender As Object, e As EventArgs) Handles Timer17.Tick
        Timer17.Stop()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "utilisateur/" & TextBox10.Text & "/liste"), System.Net.FtpWebRequest)
            Dim ftpStream As Stream = Nothing

            MaRequete.Credentials = New System.Net.NetworkCredential("extremedownloaders", passftp)
            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
            ftpStream = response.GetResponseStream
            ftpStream.Close()
            response.Close()
            créercompte11()
        Catch ex As Exception
            Timer17.Start()
        End Try
    End Sub

    Private Sub Timer18_Tick(sender As Object, e As EventArgs) Handles Timer18.Tick
        Timer18.Stop()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "utilisateur/" & TextBox10.Text & "/code de récupération"), System.Net.FtpWebRequest)
            Dim ftpStream As Stream = Nothing

            MaRequete.Credentials = New System.Net.NetworkCredential("extremedownloaders", passftp)
            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
            ftpStream = response.GetResponseStream
            ftpStream.Close()
            response.Close()
            créercompte2()
        Catch ex As Exception
            Timer18.Start()
        End Try
    End Sub
    Sub mailcréer()
        If TextBox14.Visible = True Then
            Dim MyMailMessage As New MailMessage()
            Dim SMTPServer As New SmtpClient("mail51.lwspanel.com")
            Dim mail = TextBox13.Text & TextBox14.Text
            Dim message = "Bonjour, " & TextBox10.Text & vbNewLine & vbNewLine & "Bienvenue sur Extrème downloaders, vôtre compte a bien êtê créer !!! grâce a ce compte vous pourrez télécharger et publier des fichiers etc ... " & vbNewLine & vbNewLine & "vôtre nom d'utilisateur est: " & TextBox10.Text & vbNewLine & vbNewLine & "vôtre mots de passe est: " & TextBox11.Text & vbNewLine & vbNewLine & "lien de téléchargement de: Extrème downloaders" & vbNewLine & "http://Extreme-downloaders.fr/" & vbNewLine & vbNewLine & "Vous pouvez retrouvez en pièce jointe vos code de récupération qui vous permettras de récuperer votre compte en cas de probléme." & vbNewLine & vbNewLine & "Nous vous souhaitons une bonne journée."
            MyMailMessage.From = New MailAddress("noreply@extreme-downloaders.fr")
            MyMailMessage.To.Add(mail)
            MyMailMessage.Subject = ("compte Extrème downloaders")
            MyMailMessage.Body = (message)

            SMTPServer.Port = ("587") 'Port
            SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@extreme-downloaders.fr", "yR9$sGrjZDwDMdA")
            SMTPServer.EnableSsl = True

            Dim data = New Net.Mail.Attachment(dostemps & "code 1 de récupération " & TextBox10.Text & ".txt")
            Dim data2 = New Net.Mail.Attachment(dostemps & "code 2 de récupération " & TextBox10.Text & ".txt")
            Dim data3 = New Net.Mail.Attachment(dostemps & "code 3 de récupération " & TextBox10.Text & ".txt")
            MyMailMessage.Attachments.Add(data)
            MyMailMessage.Attachments.Add(data2)
            MyMailMessage.Attachments.Add(data3)
            SMTPServer.Send(MyMailMessage) 'Envoi
            MyMailMessage.Attachments.Dispose()
            cryptecode()
        Else
            Dim MyMailMessage As New MailMessage()
            Dim SMTPServer As New SmtpClient("mail51.lwspanel.com")
            Dim mail = TextBox13.Text & ComboBox2.SelectedItem
            Dim message = "Bonjour, " & TextBox10.Text & vbNewLine & vbNewLine & "Bienvenue sur Extrème downloaders, vôtre compte a bien êtê créer !!! grâce a ce compte vous pourrez télécharger et publier des fichiers etc ... " & vbNewLine & vbNewLine & "vôtre nom d'utilisateur est: " & TextBox10.Text & vbNewLine & vbNewLine & "vôtre mots de passe est: " & TextBox11.Text & vbNewLine & vbNewLine & "lien de téléchargement de: Extrème downloaders" & vbNewLine & "http://Extreme-downloaders.fr/" & vbNewLine & vbNewLine & "Vous pouvez retrouvez en pièce jointe vos code de récupération qui vous permettras de récuperer votre compte en cas de probléme." & vbNewLine & vbNewLine & "Nous vous souhaitons une bonne journée."
            MyMailMessage.From = New MailAddress("noreply@extreme-downloaders.fr")
            MyMailMessage.To.Add(mail)
            MyMailMessage.Subject = ("compte Extrème downloaders")
            MyMailMessage.Body = (message)

            SMTPServer.Port = ("587") 'Port
            SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@extreme-downloaders.fr", "yR9$sGrjZDwDMdA")
            SMTPServer.EnableSsl = True

            Dim data = New Net.Mail.Attachment(dostemps & "code 1 de récupération " & TextBox10.Text & ".txt")
            Dim data2 = New Net.Mail.Attachment(dostemps & "code 2 de récupération " & TextBox10.Text & ".txt")
            Dim data3 = New Net.Mail.Attachment(dostemps & "code 3 de récupération " & TextBox10.Text & ".txt")
            MyMailMessage.Attachments.Add(data)
            MyMailMessage.Attachments.Add(data2)
            MyMailMessage.Attachments.Add(data3)
            SMTPServer.Send(MyMailMessage) 'Envoi
            MyMailMessage.Attachments.Dispose()
            cryptecode()
        End If
    End Sub
    Sub cryptecode()
        Dim lines1() As String = File.ReadAllLines(dostemps & "code 1 de récupération " & TextBox10.Text & ".txt")
        Dim lines2() As String = File.ReadAllLines(dostemps & "code 2 de récupération " & TextBox10.Text & ".txt")
        Dim lines3() As String = File.ReadAllLines(dostemps & "code 3 de récupération " & TextBox10.Text & ".txt")
        Dim code1 As String = lines1(0)
        Dim code2 As String = lines2(0)
        Dim code3 As String = lines3(0)
        For Each fichier As String In IO.Directory.GetFiles(dostemps)
            Dim info As New IO.FileInfo(fichier)
            File.Delete(dostemps & info.Name)
        Next

        Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(code1.ToString)
        Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
        Dim Crypto As New DESCryptoServiceProvider()
        Crypto.Key = keyBytes
        Crypto.IV = keyBytes
        Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
        Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
        Dim code1crypt = Convert.ToBase64String(Resultatbytes)

        Dim t1 = dostemps & "code 1 de récupération " & TextBox10.Text & ".txt"
        Dim sw1 As New StreamWriter(dostemps & "code 1 de récupération " & TextBox10.Text & ".txt")
        sw1.WriteLine(code1crypt)
        sw1.Close()

        Dim texteEnBytes2() As Byte = Encoding.UTF8.GetBytes(code2.ToString)
        Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
        Dim Crypto2 As New DESCryptoServiceProvider()
        Crypto2.Key = keyBytes2
        Crypto2.IV = keyBytes2
        Dim Icrypto2 As ICryptoTransform = Crypto2.CreateEncryptor
        Dim Resultatbytes2() As Byte = Icrypto2.TransformFinalBlock(texteEnBytes2, 0, texteEnBytes2.Length)
        Dim code1crypt2 = Convert.ToBase64String(Resultatbytes2)

        Dim t2 = dostemps & "code 2 de récupération " & TextBox10.Text & ".txt"
        Dim sw2 As New StreamWriter(dostemps & "code 2 de récupération " & TextBox10.Text & ".txt")
        sw2.WriteLine(code1crypt2)
        sw2.Close()

        Dim texteEnBytes3() As Byte = Encoding.UTF8.GetBytes(code3.ToString)
        Dim keyBytes3() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
        Dim Crypto3 As New DESCryptoServiceProvider()
        Crypto3.Key = keyBytes3
        Crypto3.IV = keyBytes3
        Dim Icrypto3 As ICryptoTransform = Crypto3.CreateEncryptor
        Dim Resultatbytes3() As Byte = Icrypto3.TransformFinalBlock(texteEnBytes3, 0, texteEnBytes3.Length)
        Dim code1crypt3 = Convert.ToBase64String(Resultatbytes3)

        Dim t3 = dostemps & "code 3 de récupération " & TextBox10.Text & ".txt"
        Dim sw3 As New StreamWriter(dostemps & "code 3 de récupération " & TextBox10.Text & ".txt")
        sw3.WriteLine(code1crypt3)
        sw3.Close()
        upcode()

    End Sub
    Sub upcode()
        Try
            For Each fichier As String In IO.Directory.GetFiles(dostemps)
                Dim info As New IO.FileInfo(fichier)
                My.Computer.Network.UploadFile(dostemps & info.Name, ipserver & "utilisateur/" & TextBox10.Text & "/code de récupération/" & info.Name)
            Next
            créercomtpefini2()
        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
            For Each fichier As String In IO.Directory.GetFiles(dostemps)
                Dim info As New IO.FileInfo(fichier)
                My.Computer.Network.UploadFile(dostemps & info.Name, ipserver & "utilisateur/" & TextBox10.Text & "/code de récupération/" & info.Name)
            Next
            créercomtpefini2()
        Catch ex As Exception
            Timer19.Start()
        End Try
    End Sub
    Sub créercomtpefini2()
        For Each fichier As String In IO.Directory.GetFiles(dostemps)
            Dim info As New IO.FileInfo(fichier)
            File.Delete(dostemps & info.Name)
        Next
        Panel2.Enabled = True
        Me.UseWaitCursor = False
        MsgBox("le comtpe: " & TextBox10.Text & " a bien êtê créer", MsgBoxStyle.Information)
        Panel2.Hide()
    End Sub

    Private Sub LinkLabel3_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
        If TextBox8.Text = "" Then
            MsgBox("merci d'entrer un pseudo", MsgBoxStyle.Critical)
        Else
            vifificomptemail()
        End If
    End Sub
    Sub mailpassoubli()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/mail.txt", dostemps & "mail.txt")
            mailpassoubli2()
        Catch ex As Exception
            Timer21.Start()
        End Try
    End Sub

    Private Sub Timer20_Tick(sender As Object, e As EventArgs) Handles Timer20.Tick
        Timer20.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/pass.txt", dostemps & "pass.txt")
            mailpassoubli()
        Catch ex As Exception
            Timer20.Start()
        End Try
    End Sub

    Private Sub Timer21_Tick(sender As Object, e As EventArgs) Handles Timer21.Tick
        Timer21.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/mail.txt", dostemps & "mail.txt")
            mailpassoubli2()
        Catch ex As Exception
            Timer21.Start()
        End Try
    End Sub
    Sub mailpassoubli2()
        Dim lines1() As String = File.ReadAllLines(dostemps & "pass.txt")
        Dim lines2() As String = File.ReadAllLines(dostemps & "mail.txt")


        Dim Resultatbytes() As Byte = Convert.FromBase64String(lines1(0))
        Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
        Dim Crypto As New DESCryptoServiceProvider()
        Crypto.Key = keyBytes
        Crypto.IV = keyBytes
        Dim Icrypto As ICryptoTransform = Crypto.CreateDecryptor()
        Dim donné() As Byte = Icrypto.TransformFinalBlock(Resultatbytes, 0, Resultatbytes.Length)
        Dim passdecrypte = Encoding.UTF8.GetString(donné)

        Dim Resultatbytes2() As Byte = Convert.FromBase64String(lines2(0))
        Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
        Dim Crypto2 As New DESCryptoServiceProvider()
        Crypto2.Key = keyBytes2
        Crypto2.IV = keyBytes2
        Dim Icrypto2 As ICryptoTransform = Crypto2.CreateDecryptor()
        Dim donné2() As Byte = Icrypto2.TransformFinalBlock(Resultatbytes2, 0, Resultatbytes2.Length)
        Dim maildecrypte = Encoding.UTF8.GetString(donné2)

        Dim MyMailMessage As New MailMessage()
        Dim SMTPServer As New SmtpClient("mail51.lwspanel.com")
        Dim mail = maildecrypte
        Dim message = "Bonjour, " & TextBox8.Text & vbNewLine & vbNewLine & "vous avez demmander votre mots de passe" & vbNewLine & vbNewLine & "votre mots de passe est: " & passdecrypte
        MyMailMessage.From = New MailAddress("noreply@extreme-downloaders.fr")
        MyMailMessage.To.Add(mail)
        MyMailMessage.Subject = ("mots de passe oublier")
        MyMailMessage.Body = (message)

        SMTPServer.Port = ("587") 'Port
        SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@extreme-downloaders.fr", "yR9$sGrjZDwDMdA")
        SMTPServer.EnableSsl = True

        SMTPServer.Send(MyMailMessage)

        For Each fichier As String In IO.Directory.GetFiles(dostemps)
            Dim info As New IO.FileInfo(fichier)
            File.Delete(dostemps & info.Name)
        Next

        MsgBox("le mots de passe vous a êtê envoyer par mail", MsgBoxStyle.Information)

    End Sub
    Sub vifificomptemail()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "utilisateur/")
            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
                vifificomptemail2()

                For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(dostemps & info.Name)
                Next
            Else
                For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(dostemps & info.Name)
                Next
                MsgBox("Le pseudo: " & TextBox8.Text & " exsite pas", MsgBoxStyle.Critical)
            End If
        Catch ex As Exception
            Timer22.Start()
        End Try
    End Sub
    Sub vifificomptemail2()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/pass.txt", dostemps & "pass.txt")
            mailpassoubli()
        Catch ex As Exception
            Timer20.Start()
        End Try
    End Sub

    Private Sub Timer22_Tick(sender As Object, e As EventArgs) Handles Timer22.Tick
        Timer22.Stop()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "utilisateur/")
            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
                vifificomptemail2()

                For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(dostemps & info.Name)
                Next
            Else
                For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(dostemps & info.Name)
                Next
                MsgBox("Le pseudo: " & TextBox8.Text & " exsite pas", MsgBoxStyle.Critical)
            End If
        Catch ex As Exception
            Timer22.Start()
        End Try
    End Sub

    Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
        If TextBox8.Text = "" Then
            MsgBox("merci d'entrer un pseudo", MsgBoxStyle.Critical)
        Else
            Try
                Dim fwr As FtpWebRequest
                fwr = FtpWebRequest.Create(ipserver & "utilisateur/")
                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
                    Form18.ShowDialog()

                    For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(dostemps & info.Name)
                    Next
                Else
                    For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(dostemps & info.Name)
                    Next
                    MsgBox("Le pseudo: " & TextBox8.Text & " exsite pas", MsgBoxStyle.Critical)
                End If
            Catch ex As Exception
                Timer23.Start()
            End Try
        End If
    End Sub

    Private Sub Timer23_Tick(sender As Object, e As EventArgs) Handles Timer23.Tick
        Timer23.Stop()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "utilisateur/")
            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
                Form18.ShowDialog()

                For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(dostemps & info.Name)
                Next
            Else
                For Each fichier As String In IO.Directory.GetDirectories(dostemps)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(dostemps & info.Name)
                Next
                MsgBox("Le pseudo: " & TextBox8.Text & " exsite pas", MsgBoxStyle.Critical)
            End If
        Catch ex As Exception
            Timer23.Start()
        End Try
    End Sub
    Sub loadco2()
        ComboBox4.Items.Clear()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "utilisateur/" & nomutilisateur & "/liste/")
            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


                ComboBox4.Items.Add(str)

                str = sr.ReadLine()

            End While
            sr.Close()

            If ComboBox4.Items.Count = 0 Then
                Button22.Hide()
                Label18.Hide()
                ComboBox4.Hide()
                TextBox15.Hide()
                PictureBox9.Hide()
                finiload()
            Else
                ComboBox4.SelectedIndex = 0
                finiload()
            End If



        Catch ex As Exception
            Timer24.Start()
        End Try
    End Sub

    Private Sub Timer24_Tick(sender As Object, e As EventArgs) Handles Timer24.Tick
        Timer24.Stop()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "utilisateur/" & nomutilisateur & "/liste/")
            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


                ComboBox4.Items.Add(str)

                str = sr.ReadLine()

            End While
            sr.Close()

            If ComboBox4.Items.Count = 0 Then
                ComboBox4.Hide()
                TextBox15.Hide()
                PictureBox9.Hide()
                finiload()
            Else
                ComboBox4.SelectedIndex = 0
                finiload()
            End If



        Catch ex As Exception
            Timer24.Start()
        End Try
    End Sub

    Private Sub ComboBox4_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedValueChanged
        ListBox1.Items.Clear()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "utilisateur/" & nomutilisateur & "/liste/" & 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


                ListBox1.Items.Add(str)

                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox1.Items.Count = 0 Then
                Label18.Text = "aucun fichier trouver dans: " & ComboBox4.SelectedItem
                Label18.Show()
            Else
                Label18.Hide()
            End If
            TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem

        Catch ex As Exception
            Timer25.Start()
        End Try
    End Sub

    Private Sub Timer25_Tick(sender As Object, e As EventArgs) Handles Timer25.Tick
        Timer25.Stop()
        ListBox1.Items.Clear()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "utilisateur/" & nomutilisateur & "/liste/" & 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


                ListBox1.Items.Add(str)

                str = sr.ReadLine()

            End While
            sr.Close()

            If ListBox1.Items.Count = 0 Then
                Label18.Text = "aucun fichier trouver dans: " & ComboBox4.SelectedItem
                Label18.Show()
            Else
                Label18.Hide()

            End If
            TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem

        Catch ex As Exception
            Timer25.Start()
        End Try
    End Sub

    Private Sub TextBox15_Click(sender As Object, e As EventArgs) Handles TextBox15.Click
        TextBox15.Clear()
    End Sub

    Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click
        If ListBox1.Items.Count = 0 Then
            TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem
            MsgBox("aucun fichier trouvez dans " & ComboBox4.SelectedItem, MsgBoxStyle.Information)
            Timer25.Start()
        Else
            If TextBox15.Text = "" Or TextBox15.Text = " " Or TextBox15.Text = "  " Or TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem Then
                TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem
                Timer25.Start()
            Else
                Try
                    ListBox1.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "utilisateur/" & nomutilisateur & "/liste/" & 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 & TextBox15.Text) = True Then
                        ListBox1.Items.Add(TextBox15.Text)
                        TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem
                    Else
                        MsgBox("Le fichier: " & TextBox15.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer25.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
                    Timer26.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub Timer26_Tick(sender As Object, e As EventArgs) Handles Timer26.Tick
        Timer26.Stop()
        If ListBox1.Items.Count = 0 Then
            TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem
            MsgBox("aucun fichier trouvez dans " & ComboBox4.SelectedItem, MsgBoxStyle.Information)
            Timer25.Start()
        Else
            If TextBox15.Text = "" Or TextBox15.Text = " " Or TextBox15.Text = "  " Or TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem Then
                TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem
                Timer25.Start()
            Else
                Try
                    ListBox1.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "utilisateur/" & nomutilisateur & "/liste/" & 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 & TextBox15.Text) = True Then
                        ListBox1.Items.Add(TextBox15.Text)
                        TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem
                    Else
                        MsgBox("Le fichier: " & TextBox15.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
                        Timer25.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
                    Timer26.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
        Form21.ShowDialog()
    End Sub
    Sub mailco()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/mail.txt", dostemps & "mail.txt")
            Dim lines1() As String = File.ReadAllLines(dostemps & "mail.txt")
            Dim Resultatbytes() As Byte = Convert.FromBase64String(lines1(0))
            Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
            Dim Crypto As New DESCryptoServiceProvider()
            Crypto.Key = keyBytes
            Crypto.IV = keyBytes
            Dim Icrypto As ICryptoTransform = Crypto.CreateDecryptor()
            Dim donné() As Byte = Icrypto.TransformFinalBlock(Resultatbytes, 0, Resultatbytes.Length)
            Dim a7 = Encoding.UTF8.GetString(donné)

            Dim MyMailMessage As New MailMessage()
            Dim SMTPServer As New SmtpClient("mail51.lwspanel.com")
            Dim mail = a7
            Dim message = "Bonjour, " & TextBox8.Text & vbNewLine & vbNewLine & "une nouvelle connection a votre compte a êtê détecter" & vbNewLine & vbNewLine & "nom de la machine: " & My.Computer.Name & vbNewLine & vbNewLine & "sytème d'exploitation: " & My.Computer.Info.OSFullName & vbNewLine & vbNewLine & vbNewLine & "si vous n'êtes pas a l'origine de cette connecter merci de modifier votre mots de passe"
            MyMailMessage.From = New MailAddress("noreply@extreme-downloaders.fr")
            MyMailMessage.To.Add(mail)
            MyMailMessage.Subject = ("nouvelle connection")
            MyMailMessage.Body = (message)

            SMTPServer.Port = ("587") 'Port
            SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@extreme-downloaders.fr", "yR9$sGrjZDwDMdA")
            SMTPServer.EnableSsl = True

            SMTPServer.Send(MyMailMessage)

            File.Delete(dostemps & "mail.txt")
            loadco2()
        Catch ex As Exception
            Timer27.Start()
        End Try
    End Sub

    Private Sub PictureBox10_Click(sender As Object, e As EventArgs) Handles PictureBox10.Click
        If TextBox9.UseSystemPasswordChar = True Then
            TextBox9.UseSystemPasswordChar = False
        Else
            TextBox9.UseSystemPasswordChar = True
        End If
    End Sub

    Private Sub Timer27_Tick(sender As Object, e As EventArgs) Handles Timer27.Tick
        Timer27.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/mail.txt", dostemps & "mail.txt")
            Dim lines1() As String = File.ReadAllLines(dostemps & "mail.txt")
            Dim Resultatbytes() As Byte = Convert.FromBase64String(lines1(0))
            Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
            Dim Crypto As New DESCryptoServiceProvider()
            Crypto.Key = keyBytes
            Crypto.IV = keyBytes
            Dim Icrypto As ICryptoTransform = Crypto.CreateDecryptor()
            Dim donné() As Byte = Icrypto.TransformFinalBlock(Resultatbytes, 0, Resultatbytes.Length)
            Dim a7 = Encoding.UTF8.GetString(donné)

            Dim MyMailMessage As New MailMessage()
            Dim SMTPServer As New SmtpClient("mail51.lwspanel.com")
            Dim mail = a7
            Dim message = "Bonjour, " & TextBox8.Text & vbNewLine & vbNewLine & "une nouvelle connection a votre compte a êtê détecter" & vbNewLine & vbNewLine & "nom de la machine: " & My.Computer.Name & vbNewLine & vbNewLine & "sytème d'exploitation: " & My.Computer.Info.OSFullName & vbNewLine & vbNewLine & vbNewLine & "si vous n'êtes pas a l'origine de cette connecter merci de modifier votre mots de passe"
            MyMailMessage.From = New MailAddress("noreply@extreme-downloaders.fr")
            MyMailMessage.To.Add(mail)
            MyMailMessage.Subject = ("nouvelle connection")
            MyMailMessage.Body = (message)

            SMTPServer.Port = ("587") 'Port
            SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@extreme-downloaders.fr", "yR9$sGrjZDwDMdA")
            SMTPServer.EnableSsl = True

            SMTPServer.Send(MyMailMessage)

            File.Delete(dostemps & "mail.txt")

            loadco2()
        Catch ex As Exception
            Timer27.Start()
        End Try
    End Sub

    Private Sub TéléchargerLeFichierSelectionnezToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TéléchargerLeFichierSelectionnezToolStripMenuItem.Click

        If ListBox1.SelectedItem = "" Then
            MsgBox("merci de selectionnez un fichier", MsgBoxStyle.Exclamation)
        Else
            Form25.ShowDialog()
        End If
    End Sub

    Private Sub PictureBox11_Click(sender As Object, e As EventArgs) Handles PictureBox11.Click
        If TextBox11.UseSystemPasswordChar = True Then
            TextBox11.UseSystemPasswordChar = False
        Else
            TextBox11.UseSystemPasswordChar = True
        End If
    End Sub

    Private Sub PictureBox12_Click(sender As Object, e As EventArgs) Handles PictureBox12.Click
        If TextBox12.UseSystemPasswordChar = True Then
            TextBox12.UseSystemPasswordChar = False
        Else
            TextBox12.UseSystemPasswordChar = True
        End If
    End Sub

    Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Process.Start("http://kryptons.duckdns.org/?page_id=40")
    End Sub

    Private Sub SupprimerLeFichierSelectionnezToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SupprimerLeFichierSelectionnezToolStripMenuItem.Click
        If ListBox1.SelectedItem = "" Then
            MsgBox("merci de selectionnez un fichier", MsgBoxStyle.Exclamation)
        Else
            Dim msg = MsgBox("voulez vous vraiment supprimer: " & ListBox1.SelectedItem & "?", MsgBoxStyle.YesNo)
            If msg = MsgBoxResult.Yes Then
                delfichierliste()
            Else
                MsgBox("action annuler", MsgBoxStyle.Information)
            End If
        End If
    End Sub
    Sub delfichierliste()
        Try
            Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & nomutilisateur & "/liste/" & ComboBox4.SelectedItem & "/" & ListBox1.SelectedItem & "/download.txt")
            ftreq.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq.Credentials = New NetworkCredential("extremedownloaders", passftp)
            Dim ftpresp As FtpWebResponse = ftreq.GetResponse
            delfichierliste2
        Catch ex As Exception
            Timer28.Start()
        End Try

    End Sub
    Sub delfichierliste2()
        Try
            Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & nomutilisateur & "/liste/" & ComboBox4.SelectedItem & "/" & ListBox1.SelectedItem & "/")
            ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
            ftreq.Credentials = New NetworkCredential("extremedownloaders", passftp)
            Dim ftpresp As FtpWebResponse = ftreq.GetResponse
            MsgBox("Le fichier: " & ListBox1.SelectedItem & " a êtê supprimer de la liste: " & ComboBox4.SelectedItem, MsgBoxStyle.Information)
            loadco2()
        Catch ex As Exception
            Timer29.Start()
        End Try

    End Sub

    Private Sub Timer28_Tick(sender As Object, e As EventArgs) Handles Timer28.Tick
        Timer28.Stop()
        Try
            Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & nomutilisateur & "/liste/" & ComboBox4.SelectedItem & "/" & ListBox1.SelectedItem & "/" & ListBox1.SelectedItem & ".zip")
            ftreq.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq.Credentials = New NetworkCredential("extremedownloaders", passftp)
            Dim ftpresp As FtpWebResponse = ftreq.GetResponse
            delfichierliste2()
        Catch ex As Exception
            Timer28.Start()
        End Try
    End Sub

    Private Sub Timer29_Tick(sender As Object, e As EventArgs) Handles Timer29.Tick
        Timer29.Stop()
        Try
            Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & nomutilisateur & "/liste/" & ComboBox4.SelectedItem & "/" & ListBox1.SelectedItem & "/")
            ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
            ftreq.Credentials = New NetworkCredential("extremedownloaders", passftp)
            Dim ftpresp As FtpWebResponse = ftreq.GetResponse
            MsgBox("Le fichier: " & ListBox1.SelectedItem & " a êtê supprimer de la liste: " & ComboBox4.SelectedItem, MsgBoxStyle.Information)
            loadco2()
        Catch ex As Exception
            Timer29.Start()
        End Try
    End Sub

    Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
        Dim msg = MsgBox("voulez vous vraiment supprimer Extrème downloaders ?", MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then

            PictureBox8.Image.Dispose()
            Form1.PictureBox11.Image.Dispose()

            For Each fichier1 As String In IO.Directory.GetDirectories(dosrepertoire)
                Dim info As New IO.FileInfo(fichier1)
                Directory.Delete(fichier1, recursive:=True)
            Next
            Directory.Delete(dosrepertoire)
            MsgBox("Les donnés de Extrème downloaders on êtê supprimer il vous reste plus qu'a supprimer Extrème downloaders.exe il se trouve: " & vbNewLine & vbNewLine & Application.StartupPath, MsgBoxStyle.Information)
            Process.Start(Application.StartupPath)
            End
        Else
            MsgBox("action annuler", MsgBoxStyle.Information)
        End If
    End Sub

    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        Form26.ShowDialog()
    End Sub

    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
        Dim msg = MsgBox("voulez vous vraiment supprimer votre compte ?", MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then
            Dim sw1 As New StreamWriter(compte)
            sw1.WriteLine(0)
            sw1.Close()
            Dim sw2 As New StreamWriter(connecter)
            sw2.WriteLine(0)
            sw2.Close()
            File.Delete(doscompte & "passtemps.txt")
            Panel3.Hide()
            Panel2.Hide()
            ChromeTabcontrol1.TabPages.Remove(TabPage6)
            PictureBox8.Image.Dispose()
            Form1.PictureBox11.Image.Dispose()
            Form1.PictureBox11.Image = My.Resources._1040005
            File.Delete(doscompte & "photo.png")
            Form1.Label18.Text = "se connecter"
            Dim nom = "Le compte: " & nomutilisateur & " souhaite supprimer sont compte."

            Dim Message As String = nom

            Dim MyMailMessage As New MailMessage()
            Dim SMTPServer As New SmtpClient("mail51.lwspanel.com")

            MyMailMessage.From = New MailAddress("noreply@extreme-downloaders.fr")
            MyMailMessage.To.Add("contact@extreme-downloaders.fr")
            MyMailMessage.To.Add("yoannmultigamig@gmail.com")
            MyMailMessage.To.Add("adamnoah1511@yahoo.com")

            MyMailMessage.Subject = ("suppression de compte")
            MyMailMessage.Body = (Message)

            SMTPServer.Port = ("587") 'Port
            SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@extreme-downloaders.fr", "yR9$sGrjZDwDMdA")
            SMTPServer.EnableSsl = True

            SMTPServer.Send(MyMailMessage) 'Envoi

            nomutilisateur = ""

            MsgBox("Une demmannde de suppression de compte a êtê envoyer a l'équipe de Extrème downloaders", MsgBoxStyle.Information)
            MsgBox("La suppression de compte peux prendre plusieur jours", MsgBoxStyle.Information)
        Else
            MsgBox("action annuler", MsgBoxStyle.Information)
        End If


    End Sub

    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
        Form27.ShowDialog()
    End Sub

    Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
        Dim msg = MsgBox("voulez vous vraiment supprimer la liste: " & ComboBox4.SelectedItem, MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then
            Try
                Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "utilisateur/" & nomutilisateur & "/liste/" & ComboBox4.SelectedItem & "/"), System.Net.FtpWebRequest)
                Dim ftpStream As Stream = Nothing

                MaRequete.Credentials = New System.Net.NetworkCredential("extremedownloaders", passftp)
                MaRequete.Method = System.Net.WebRequestMethods.Ftp.RemoveDirectory

                Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
                ftpStream = response.GetResponseStream
                ftpStream.Close()
                response.Close()
                MsgBox("La liste: " & ComboBox4.SelectedItem & " a bien êtê supprimer", MsgBoxStyle.Information)
                If ComboBox4.Items.Count = 1 Then
                    ComboBox4.Items.Remove(ComboBox4.SelectedItem)
                    Button22.Hide()
                    ComboBox4.Hide()
                    TextBox15.Hide()
                    PictureBox9.Hide()
                    Label18.Hide()
                Else
                    ComboBox4.Items.Remove(ComboBox4.SelectedItem)
                    ComboBox4.SelectedIndex = 0
                End If

            Catch ex As Exception
                MsgBox("merci de supprimer tout le fichier dans la liste: " & ComboBox4.SelectedItem, MsgBoxStyle.Exclamation)
            End Try
        Else
            MsgBox("acction annuler", MsgBoxStyle.Information)
        End If
    End Sub
    Private Sub ComboBox5_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedValueChanged
        If ComboBox5.SelectedItem = "Ne rien faire" Then
            set2 = 1
        ElseIf ComboBox5.SelectedItem = "Ouvrir le dossier de destination" Then
            set2 = 2
        ElseIf ComboBox5.SelectedItem = "verrouiller la session" Then
            set2 = 3
        ElseIf ComboBox5.SelectedItem = "Fermer extrème downloaders" Then
            set2 = 4
        ElseIf ComboBox5.SelectedItem = "Arrêter l'ordinateur" Then
            set2 = 5
        End If
    End Sub
    Sub XPup()
        Try
            My.Computer.Network.UploadFile(dostemps & "XP.txt", ipserver & "utilisateur/" & TextBox10.Text & "/XP.txt")
            File.Delete(dostemps & "XP.txt")
            upup()
        Catch ex As Exception
            Timer13.Start()
        End Try
    End Sub
    Sub upup()
        Try
            My.Computer.Network.UploadFile(dostemps & "up.txt", ipserver & "utilisateur/" & TextBox10.Text & "/up.txt")
            File.Delete(dostemps & "up.txt")
            créercomtpefini()
        Catch ex As Exception
            Timer30.Start()
        End Try
    End Sub

    Private Sub Timer13_Tick(sender As Object, e As EventArgs) Handles Timer13.Tick
        Timer13.Stop()
        Try
            My.Computer.Network.UploadFile(dostemps & "XP.txt", ipserver & "utilisateur/" & TextBox10.Text & "/XP.txt")
            File.Delete(dostemps & "XP.txt")
            upup()
        Catch ex As Exception
            Timer13.Start()
        End Try
    End Sub

    Private Sub Timer30_Tick(sender As Object, e As EventArgs) Handles Timer30.Tick
        Timer30.Stop()
        Try
            My.Computer.Network.UploadFile(dostemps & "up.txt", ipserver & "utilisateur/" & TextBox10.Text & "/up.txt")
            File.Delete(dostemps & "up.txt")
            créercomtpefini()
        Catch ex As Exception
            Timer30.Start()
        End Try
    End Sub

    Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
        Dim maj1 As New WebClient
        Dim vri1 As String = maj1.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt")
        If vri1 = 0 Then
            MsgBox("vos n'avez pas de PB's", MsgBoxStyle.Exclamation)
        Else
            Form46.ShowDialog()
        End If
    End Sub

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

    End Sub

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

    End Sub
End Class