Imports System.ComponentModel
Imports System.IO
Imports System.Net
Imports System.Security.Cryptography
Imports System.Text

Public Class Form1
    Dim ac As Integer = 0
    Public misdlfini = 0
    Public misdl = 0
    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        If ac = 0 Then

        Else
            If Panel1.Visible = True Then
                PictureBox1.Image = My.Resources._588a6507d06f6719692ezezea2d15
                Panel1.Hide()
                Panel2.BackColor = Color.FromArgb(32, 32, 32)
            Else
                PictureBox1.Image = My.Resources._588a6507d06f6719692a2d15
                Panel1.Show()
                Panel2.BackColor = Color.FromArgb(64, 64, 64)
            End If
        End If
    End Sub

    Private Sub Panel6_Click(sender As Object, e As EventArgs) Handles Panel6.Click
        Process.Start("https://discord.gg/9hqE5zEfvb")
    End Sub

    Private Sub Panel5_Click(sender As Object, e As EventArgs) Handles Panel5.Click
        Process.Start("https://www.extreme-downloaders.fr")
    End Sub

    Private Sub Label9_Click(sender As Object, e As EventArgs) Handles Label9.Click
        Process.Start("https://discord.gg/9hqE5zEfvb")
    End Sub

    Private Sub Label10_Click(sender As Object, e As EventArgs) Handles Label10.Click
        Process.Start("https://discord.gg/9hqE5zEfvb")
    End Sub

    Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
        Process.Start("https://discord.gg/9hqE5zEfvb")
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try
            If My.Computer.Network.Ping("www.google.com") Then
                Dim maj1 As New WebClient
                Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/moins.txt")
                Dim maj2 As New WebClient
                Dim vri2 As String = maj2.DownloadString(ipsite & "/extrème downloaders/jour.txt")
                If vri1 = 12 Then
                    PictureBox12.Show()
                    If Directory.Exists(dosrepertoire & "\calandar\") = False Then
                        Directory.CreateDirectory(dosrepertoire & "\calandar\")
                        Dim sw1 As New StreamWriter(dosrepertoire & "\calandar\" & "01.txt")
                        sw1.WriteLine(0)
                        sw1.Close()
                        Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "02.txt")
                        sw2.WriteLine(0)
                        sw2.Close()
                        Dim sw3 As New StreamWriter(dosrepertoire & "\calandar\" & "03.txt")
                        sw3.WriteLine(0)
                        sw3.Close()
                        Dim sw4 As New StreamWriter(dosrepertoire & "\calandar\" & "04.txt")
                        sw4.WriteLine(0)
                        sw4.Close()
                        Dim sw5 As New StreamWriter(dosrepertoire & "\calandar\" & "05.txt")
                        sw5.WriteLine(0)
                        sw5.Close()
                        Dim sw6 As New StreamWriter(dosrepertoire & "\calandar\" & "06.txt")
                        sw6.WriteLine(0)
                        sw6.Close()
                        Dim sw7 As New StreamWriter(dosrepertoire & "\calandar\" & "07.txt")
                        sw7.WriteLine(0)
                        sw7.Close()
                        Dim sw8 As New StreamWriter(dosrepertoire & "\calandar\" & "08.txt")
                        sw8.WriteLine(0)
                        sw8.Close()
                        Dim sw9 As New StreamWriter(dosrepertoire & "\calandar\" & "09.txt")
                        sw9.WriteLine(0)
                        sw9.Close()
                        Dim sw10 As New StreamWriter(dosrepertoire & "\calandar\" & "10.txt")
                        sw10.WriteLine(0)
                        sw10.Close()
                        Dim sw11 As New StreamWriter(dosrepertoire & "\calandar\" & "11.txt")
                        sw11.WriteLine(0)
                        sw11.Close()
                        Dim sw12 As New StreamWriter(dosrepertoire & "\calandar\" & "12.txt")
                        sw12.WriteLine(0)
                        sw12.Close()
                        Dim sw13 As New StreamWriter(dosrepertoire & "\calandar\" & "13.txt")
                        sw13.WriteLine(0)
                        sw13.Close()
                        Dim sw14 As New StreamWriter(dosrepertoire & "\calandar\" & "14.txt")
                        sw14.WriteLine(0)
                        sw14.Close()
                        Dim sw15 As New StreamWriter(dosrepertoire & "\calandar\" & "15.txt")
                        sw15.WriteLine(0)
                        sw15.Close()
                        Dim sw16 As New StreamWriter(dosrepertoire & "\calandar\" & "16.txt")
                        sw16.WriteLine(0)
                        sw16.Close()
                        Dim sw17 As New StreamWriter(dosrepertoire & "\calandar\" & "17.txt")
                        sw17.WriteLine(0)
                        sw17.Close()
                        Dim sw18 As New StreamWriter(dosrepertoire & "\calandar\" & "18.txt")
                        sw18.WriteLine(0)
                        sw18.Close()
                        Dim sw19 As New StreamWriter(dosrepertoire & "\calandar\" & "19.txt")
                        sw19.WriteLine(0)
                        sw19.Close()
                        Dim sw20 As New StreamWriter(dosrepertoire & "\calandar\" & "20.txt")
                        sw20.WriteLine(0)
                        sw20.Close()
                        Dim sw21 As New StreamWriter(dosrepertoire & "\calandar\" & "21.txt")
                        sw21.WriteLine(0)
                        sw21.Close()
                        Dim sw22 As New StreamWriter(dosrepertoire & "\calandar\" & "22.txt")
                        sw22.WriteLine(0)
                        sw22.Close()
                        Dim sw23 As New StreamWriter(dosrepertoire & "\calandar\" & "23.txt")
                        sw23.WriteLine(0)
                        sw23.Close()
                        Dim sw24 As New StreamWriter(dosrepertoire & "\calandar\" & "24.txt")
                        sw24.WriteLine(0)
                        sw24.Close()
                        Dim sw25 As New StreamWriter(dosrepertoire & "\calandar\" & "25.txt")
                        sw25.WriteLine(0)
                        sw25.Close()
                    End If
                Else
                    PictureBox12.Hide()
                    If Directory.Exists(dosrepertoire & "\calandar\") = True Then
                        For Each fichier As String In IO.Directory.GetFiles(dosrepertoire & "\calandar\")
                            Dim info As New IO.FileInfo(fichier)
                            File.Delete(dosrepertoire & "\calandar\" & info.Name)
                        Next
                        Directory.Delete(dosrepertoire & "\calandar\")
                    End If
                End If

                If vri1 = 1 And vri2 = 1 Then
                    If File.Exists(dosparamètre & "1janvier.txt") = True Then

                    Else
                        Dim sw1 As New StreamWriter(dosparamètre & "1janvier.txt")
                        sw1.WriteLine(0)
                        sw1.Close()
                        Form45.ShowDialog()

                    End If
                Else
                    If File.Exists(dosparamètre & "1janvier.txt") = True Then
                        File.Delete(dosparamètre & "1janvier.txt")
                    End If
                End If

            End If
        Catch ex As Exception
            MsgBox("imposible de se connecter au serveur d'extrême downloaders", MsgBoxStyle.Critical)
            End
        End Try


        Form6.Show()

        If Directory.Exists(dosrepertoire) = False Then
            Directory.CreateDirectory(dosrepertoire)
        End If

        If Directory.Exists(dostemps) = False Then
            Directory.CreateDirectory(dostemps)
        End If

        If Directory.Exists(dosparamètre) = False Then
            Directory.CreateDirectory(dosparamètre)
        End If

        If Directory.Exists(dosmisajour) = False Then
            Directory.CreateDirectory(dosmisajour)
        End If

        Try
            For Each fichier As String In IO.Directory.GetFiles(dosmisajour)
                Dim info As New IO.FileInfo(fichier)
                File.Delete(dosmisajour & info.Name)
            Next
        Catch ex As Exception

        End Try


        If Directory.Exists(doscompte) = False Then
            Directory.CreateDirectory(doscompte)
        End If

        If File.Exists(doscompte & "photo.png") = True Then
            File.Delete(doscompte & "photo.png")
        End If

        If File.Exists(setting) = False Then
            Dim sw1 As New StreamWriter(setting)
            sw1.WriteLine(0)
            sw1.WriteLine(1)
            sw1.WriteLine(0)
            sw1.WriteLine(0)
            sw1.Close()
        End If

        If File.Exists(setting2) = False Then
            Dim sw1 As New StreamWriter(setting2)
            sw1.WriteLine(0)
            sw1.Close()
        End If

        If File.Exists(setting3) = False Then
            Dim sw1 As New StreamWriter(setting3)
            sw1.WriteLine(1)
            sw1.Close()
        End If

        Dim Resultatbytes() As Byte = Convert.FromBase64String("NOOZ3iewUOgTFUSQ6DG1Ug==")
        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é)
        passftp = a7
        ipserver = "ftp://extremedownloaders:" & passftp & "@logiciels.extreme-downloaders.fr:21/"

        If dev = 1 Then
            ipserver = "ftp://extremedownloaders:" & passftp & "@192.168.1.37:21/"
            ipsite = "http://192.168.1.37:81/"
        End If

        If File.Exists(dosrepertoire & "\logo.png") = True Then
            File.Delete(dosrepertoire & "\logo.png")
        End If

        If File.Exists(compte) = False Then
            Dim sw1 As New StreamWriter(compte)
            sw1.WriteLine(0)
            sw1.Close()
        End If

        Dim lines3() As String = File.ReadAllLines(setting)
        If lines3(1) = 1 Then
            Timer2.Start()
        End If

        Dim lines4() As String = File.ReadAllLines(setting2)
        If lines4(0) = 1 Then
            dldos = lines4(1)
        End If

        If File.Exists(startpage) = True Then
            File.Delete(startpage)
            Timer5.Start()
        End If


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

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

        For Each fichier As String In IO.Directory.GetDirectories(doscompte)
            Dim info As New IO.FileInfo(fichier)
            Directory.Delete(doscompte & info.Name)
        Next

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

        If File.Exists(connecter) = False Then
            Dim sw1 As New StreamWriter(connecter)
            sw1.WriteLine(0)
            sw1.Close()
        Else
            Dim lines1() As String = File.ReadAllLines(connecter)
            If lines1(0) = 1 Then
                Dim lines2() As String = File.ReadAllLines(compte)
                nomutilisateur = lines2(0)
                Label18.Text = nomutilisateur
                Dim maj4 As New WebClient
                Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/admin.txt")
                If vri4 = 1 Then
                    Panel15.Show()
                Else
                    Panel15.Hide()
                End If
                loadco()
            Else
                Try
                    If My.Computer.Network.Ping("www.google.fr") = True Then

                    End If
                Catch ex As Exception
                    MsgBox("vous êtê pas connecter a internet, relancer Extrème Downloaders plus tard", MsgBoxStyle.Exclamation)
                    NotifyIcon1.Visible = False
                    End
                End Try
                Try
                    MsgBox("ok")
                    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, relancer Extrème Downloaders plus tard", MsgBoxStyle.Exclamation)
                        NotifyIcon1.Visible = False
                        End
                    Else

                    End If
                Catch ex As Exception
                    MsgBox("imposible de se connecter au serveur d'extrême downloaders", MsgBoxStyle.Critical)
                End Try
            End If
        End If

    End Sub

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

    Private Sub Panel3_MouseLeave(sender As Object, e As EventArgs) Handles Panel3.MouseLeave
        Panel3.BackColor = Color.FromArgb(32, 32, 32)
    End Sub
    Private Sub PictureBox2_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox2.MouseLeave
        Panel3.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

    Private Sub PictureBox2_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox2.MouseEnter
        Panel3.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub Label3_MouseEnter(sender As Object, e As EventArgs) Handles Label3.MouseEnter
        Panel3.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub Label3_MouseLeave(sender As Object, e As EventArgs) Handles Label3.MouseLeave
        Panel3.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

    Private Sub Label4_MouseEnter(sender As Object, e As EventArgs) Handles Label4.MouseEnter
        Panel3.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub Label4_MouseLeave(sender As Object, e As EventArgs) Handles Label4.MouseLeave
        Panel3.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

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

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

    Private Sub PictureBox3_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox3.MouseEnter
        Panel4.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub PictureBox3_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox3.MouseLeave
        Panel4.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

    Private Sub Label6_MouseEnter(sender As Object, e As EventArgs) Handles Label6.MouseEnter
        Panel4.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub Label6_MouseLeave(sender As Object, e As EventArgs) Handles Label6.MouseLeave
        Panel4.BackColor = Color.FromArgb(32, 32, 32)
    End Sub
    Private Sub Label5_MouseEnter(sender As Object, e As EventArgs) Handles Label5.MouseEnter
        Panel4.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub Label5_MouseLeave(sender As Object, e As EventArgs) Handles Label5.MouseLeave
        Panel4.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

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

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

    Private Sub PictureBox4_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox4.MouseEnter
        Panel5.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub PictureBox4_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox4.MouseLeave
        Panel5.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

    Private Sub Label8_MouseEnter(sender As Object, e As EventArgs) Handles Label8.MouseEnter
        Panel5.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub Label8_MouseLeave(sender As Object, e As EventArgs) Handles Label8.MouseLeave
        Panel5.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

    Private Sub Label7_MouseEnter(sender As Object, e As EventArgs) Handles Label7.MouseEnter
        Panel5.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub Label7_MouseLeave(sender As Object, e As EventArgs) Handles Label7.MouseLeave
        Panel5.BackColor = Color.FromArgb(32, 32, 32)
    End Sub
    Private Sub Panel6_MouseEnter(sender As Object, e As EventArgs) Handles Panel6.MouseEnter
        Panel6.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

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

    Private Sub PictureBox5_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox5.MouseEnter
        Panel6.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub PictureBox5_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox5.MouseLeave
        Panel6.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

    Private Sub Label10_MouseEnter(sender As Object, e As EventArgs) Handles Label10.MouseEnter
        Panel6.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub Label10_MouseLeave(sender As Object, e As EventArgs) Handles Label10.MouseLeave
        Panel6.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

    Private Sub Label9_MouseEnter(sender As Object, e As EventArgs) Handles Label9.MouseEnter
        Panel6.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub Label9_MouseLeave(sender As Object, e As EventArgs) Handles Label9.MouseLeave
        Panel6.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

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

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

    Private Sub PictureBox6_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox6.MouseEnter
        Panel7.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub PictureBox6_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox6.MouseLeave
        Panel7.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

    Private Sub Label12_MouseEnter(sender As Object, e As EventArgs) Handles Label12.MouseEnter
        Panel7.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub Label12_MouseLeave(sender As Object, e As EventArgs) Handles Label12.MouseLeave
        Panel7.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

    Private Sub Label11_MouseEnter(sender As Object, e As EventArgs) Handles Label11.MouseEnter
        Panel7.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub Label11_MouseLeave(sender As Object, e As EventArgs) Handles Label11.MouseLeave
        Panel7.BackColor = Color.FromArgb(32, 32, 32)
    End Sub
    Private Sub Panel8_MouseEnter(sender As Object, e As EventArgs) Handles Panel8.MouseEnter
        Panel8.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

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

    Private Sub PictureBox7_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox7.MouseEnter
        Panel8.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub PictureBox7_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox7.MouseLeave
        Panel8.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

    Private Sub Label14_MouseEnter(sender As Object, e As EventArgs) Handles Label14.MouseEnter
        Panel8.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub Label14_MouseLeave(sender As Object, e As EventArgs) Handles Label14.MouseLeave
        Panel8.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

    Private Sub Label13_MouseEnter(sender As Object, e As EventArgs) Handles Label13.MouseEnter
        Panel8.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub Label13_MouseLeave(sender As Object, e As EventArgs) Handles Label13.MouseLeave
        Panel8.BackColor = Color.FromArgb(32, 32, 32)
    End Sub
    Private Sub Panel8_Click(sender As Object, e As EventArgs) Handles Panel8.Click
        Form2.Location = Me.Location
        Form2.Show()
        Me.Visible = False
    End Sub

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

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

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

    Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
        Form2.Location = Me.Location
        Form2.Show()
        Me.Visible = False
    End Sub

    Private Sub Label14_Click(sender As Object, e As EventArgs) Handles Label14.Click
        Form2.Location = Me.Location
        Form2.Show()
        Me.Visible = False
    End Sub

    Private Sub Label13_Click(sender As Object, e As EventArgs) Handles Label13.Click
        Form2.Location = Me.Location
        Form2.Show()
        Me.Visible = False
    End Sub
    Private Sub Panel3_Click(sender As Object, e As EventArgs) Handles Panel3.Click
        Form3.Location = Me.Location
        Form3.Show()
        Me.Visible = False
    End Sub
    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
        Form3.Location = Me.Location
        Form3.Show()
        Me.Visible = False
    End Sub

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

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

    Private Sub Panel9_Click(sender As Object, e As EventArgs) Handles Panel9.Click
        Form2.Location = Me.Location
        Form2.ChromeTabcontrol1.SelectedTab = Form2.TabPage5
        Form2.Show()
        Me.Visible = False
    End Sub

    Private Sub Label18_Click(sender As Object, e As EventArgs) Handles Label18.Click
        Form2.Location = Me.Location
        Form2.ChromeTabcontrol1.SelectedTab = Form2.TabPage5
        Form2.Show()
        Me.Visible = False
    End Sub

    Private Sub PictureBox11_Click(sender As Object, e As EventArgs) Handles PictureBox11.Click
        Form2.Location = Me.Location
        Form2.ChromeTabcontrol1.SelectedTab = Form2.TabPage5
        Form2.Show()
        Me.Visible = False
    End Sub
    Sub loadco()
        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, relancer Extrème Downloaders plus tard", MsgBoxStyle.Exclamation)
                    NotifyIcon1.Visible = False
                    End
                Else
                    loadco2()
                End If
            End If
        Catch ex As Exception
            MsgBox("vous êtê pas connecter a internet, relancer Extrème Downloaders plus tard", MsgBoxStyle.Exclamation)
            NotifyIcon1.Visible = False
            End
        End Try
    End Sub
    Sub loadco2()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/photo.png", doscompte & "\photo.png")
            PictureBox11.Image = Image.FromFile(doscompte & "\photo.png")
            vérifico
        Catch ex As Exception
            Timer1.Stop()
        End Try
    End Sub

    Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        If misdl = 1 Then
            e.Cancel = True
            MsgBox("le télécharement d'une mis jour est en cours" & vbNewLine & "merci de patienter", MsgBoxStyle.Exclamation)
        Else
            If misdlfini = 1 Then
                Try
                    Process.Start(dosmisajour & "\Extrème downloaders update.exe")
                    NotifyIcon1.Visible = False
                    NotifyIcon2.Visible = False
                    End
                Catch ex As Exception
                    e.Cancel = True
                    MsgBox("merci de clique sur oui pour effectuer la mise a jours", MsgBoxStyle.Critical)
                    Timer3.Start()
                End Try
            Else
                Dim lines1() As String = File.ReadAllLines(setting)
                If lines1(3) = 1 Then
                    Dim msg = MsgBox("voulez vous vraiment quitter ?", MsgBoxStyle.YesNo)
                    If msg = MsgBoxResult.Yes Then
                        If nomutilisateur = "" Then
                            NotifyIcon1.Visible = False
                            NotifyIcon2.Visible = False
                        Else
                            NotifyIcon1.Visible = False
                            NotifyIcon2.Visible = False
                            PictureBox11.Image.Dispose()
                            File.Delete(doscompte & "\photo.png")
                        End If
                    Else
                        e.Cancel = True
                    End If
                Else
                    If nomutilisateur = "" Then
                        NotifyIcon1.Visible = False
                        NotifyIcon2.Visible = False
                    Else
                        NotifyIcon1.Visible = False
                        NotifyIcon2.Visible = False
                        PictureBox11.Image.Dispose()
                        File.Delete(doscompte & "\photo.png")
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub Panel9_MouseEnter(sender As Object, e As EventArgs) Handles Panel9.MouseEnter
        If nomutilisateur = "" Then

        Else
            Dim maj As New WebClient
            Dim vri As String = maj.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 & "/money.txt")

            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/XP.txt")

            Dim maj4 As New WebClient
            Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/up.txt")

            Label19.Text = "vos PB's: " & vri2
            Label20.Text = "votre niveaux: " & vri
            Label21.Text = "vôtre XP: " & vri3
            Label22.Text = "Fichier en ligne: " & vri4
            Panel14.Show()
        End If


    End Sub
    Private Sub Panel9_MouseLeave(sender As Object, e As EventArgs) Handles Panel9.MouseLeave
        If nomutilisateur = "" Then

        Else
            Panel14.Hide()
        End If
    End Sub

    Private Sub Label18_MouseEnter(sender As Object, e As EventArgs) Handles Label18.MouseEnter
        If nomutilisateur = "" Then

        Else
            Dim maj As New WebClient
            Dim vri As String = maj.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 & "/money.txt")

            Label19.Text = "vos PB's: " & vri2
            Label20.Text = "votre niveaux: " & vri

            Panel14.Show()
        End If
    End Sub

    Private Sub Label18_MouseLeave(sender As Object, e As EventArgs) Handles Label18.MouseLeave
        If nomutilisateur = "" Then

        Else
            Panel14.Hide()
        End If
    End Sub

    Private Sub PictureBox11_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox11.MouseEnter
        If nomutilisateur = "" Then

        Else
            Dim maj As New WebClient
            Dim vri As String = maj.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 & "/money.txt")

            Label19.Text = "vos PB's: " & vri2
            Label20.Text = "votre niveaux: " & vri

            Panel14.Show()
        End If
    End Sub

    Private Sub PictureBox11_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox11.MouseLeave
        If nomutilisateur = "" Then

        Else
            Panel14.Hide()
        End If
    End Sub
    Private Sub Panel10_Click(sender As Object, e As EventArgs) Handles Panel10.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
        Form3.Location = Me.Location
        Form3.Show()
        Me.Visible = False
    End Sub

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

    Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click
        Process.Start("https://www.extreme-downloaders.fr/")
    End Sub

    Private Sub Label8_Click(sender As Object, e As EventArgs) Handles Label8.Click
        Process.Start("https://www.extreme-downloaders.fr/")
    End Sub

    Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
        Process.Start("https://www.extreme-downloaders.fr/")
    End Sub

    Private Sub Panel7_Click(sender As Object, e As EventArgs) Handles Panel7.Click
        Form11.ShowDialog()
    End Sub

    Private Sub Label12_Click(sender As Object, e As EventArgs) Handles Label12.Click
        Form11.ShowDialog()
    End Sub

    Private Sub Label11_Click(sender As Object, e As EventArgs) Handles Label11.Click
        Form11.ShowDialog()
    End Sub

    Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
        Form11.ShowDialog()
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Timer2.Stop()
        Dim lines1() As String = File.ReadAllLines(setting)
        If lines1(2) = 1 Then
            vérifimisdl
        Else
            vérifimis()
        End If

    End Sub
    Sub vérifimis()
        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

                Else
                    NotifyIcon2.Visible = True
                    NotifyIcon2.BalloonTipTitle = "mis a jour"
                    NotifyIcon2.BalloonTipText = "une mis a jour de Extrème downloaders est disponible"
                    NotifyIcon2.ShowBalloonTip(1)
                End If
            Else
                NotifyIcon1.BalloonTipTitle = "mis a jour"
                NotifyIcon1.BalloonTipText = "imposible de trouver le mis a jours, vérifier votre connection"
                NotifyIcon1.ShowBalloonTip(1)
            End If
        Catch ex As Exception
            NotifyIcon1.BalloonTipTitle = "mis a jour"
            NotifyIcon1.BalloonTipText = "imposible de trouver le mis a jours, vérifier votre connection"
            NotifyIcon1.ShowBalloonTip(1)
        End Try
    End Sub

    Private Sub NotifyIcon2_Click(sender As Object, e As EventArgs) Handles NotifyIcon2.Click
        Form14.ShowDialog()
    End Sub

    Private Sub NotifyIcon2_BalloonTipClicked(sender As Object, e As EventArgs) Handles NotifyIcon2.BalloonTipClicked
        Form14.ShowDialog()
    End Sub
    Sub vérifimisdl()
        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

                Else
                    NotifyIcon1.BalloonTipTitle = "mis a jour:"
                    NotifyIcon1.BalloonTipText = "debut de téléchargement de la mis a jours"
                    NotifyIcon1.ShowBalloonTip(1)
                    Form15.Show()
                End If
            Else
                NotifyIcon1.BalloonTipTitle = "mis a jour"
                NotifyIcon1.BalloonTipText = "imposible de trouver le mis a jours, vérifier votre connection"
                NotifyIcon1.ShowBalloonTip(1)
            End If
        Catch ex As Exception
            NotifyIcon1.BalloonTipTitle = "mis a jour"
            NotifyIcon1.BalloonTipText = "imposible de trouver le mis a jours, vérifier votre connection"
            NotifyIcon1.ShowBalloonTip(1)
        End Try
    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Timer3.Stop()
        Try
            Process.Start(dosmisajour & "\Extrème downloaders update.exe")
            End
        Catch ex As Exception
            MsgBox("merci de clique sur oui pour effectuer la mise a jours", MsgBoxStyle.Critical)
            Timer3.Start()
        End Try
    End Sub
    Sub deco()
        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")
        PictureBox11.Image.Dispose()
        PictureBox11.Image = My.Resources._1040005
        File.Delete(doscompte & "photo.png")
        NotifyIcon1.BalloonTipTitle = "déconnection"
        NotifyIcon1.BalloonTipText = "vous avez êtê deconnecter du compte " & nomutilisateur
        NotifyIcon1.ShowBalloonTip(1)
        Label18.Text = "se connecter"
        nomutilisateur = ""
        Panel15.Hide()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/photo.png", doscompte & "\photo.png")
            PictureBox11.Image = Image.FromFile(doscompte & "\photo.png")
            vérifico()
        Catch ex As Exception
            Timer1.Stop()
        End Try
    End Sub
    Sub vérifico()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/pass.txt", doscompte & "\pass.txt")
            Dim lines1() As String = File.ReadAllLines(doscompte & "\pass.txt")
            Dim lines2() As String = File.ReadAllLines(doscompte & "\passtemps.txt")
            If lines1(0) = lines2(0) Then
                File.Delete(doscompte & "\pass.txt")
            Else
                File.Delete(doscompte & "\pass.txt")
                deco()
            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
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/pass.txt", doscompte & "\pass.txt")
            Dim lines1() As String = File.ReadAllLines(doscompte & "\pass.txt")
            Dim lines2() As String = File.ReadAllLines(doscompte & "\passtemps.txt")
            If lines2(0) = lines1(0) Then
                File.Delete(doscompte & "\pass.txt")
            Else
                File.Delete(doscompte & "\pass.txt")
                deco()
            End If
        Catch ex As Exception
            Timer4.Start()
        End Try
    End Sub

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

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

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

    Private Sub Panel4_Paint(sender As Object, e As PaintEventArgs) Handles Panel4.Paint

    End Sub

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

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

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

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

    Private Sub Panel14_Paint(sender As Object, e As PaintEventArgs) Handles Panel14.Paint

    End Sub

    Private Sub Panel3_Enter(sender As Object, e As EventArgs) Handles Panel3.Enter

    End Sub

    Private Sub PictureBox12_Click(sender As Object, e As EventArgs) Handles PictureBox12.Click
        If nomutilisateur = "" Then
            MsgBox("vous devez être connecter pour accéder au calendrier de l'avent", MsgBoxStyle.Exclamation)
        Else
            Form38.ShowDialog()
        End If
    End Sub

    Private Sub Panel9_Paint(sender As Object, e As PaintEventArgs) Handles Panel9.Paint

    End Sub

    Private Sub Panel15_Paint(sender As Object, e As PaintEventArgs) Handles Panel15.Paint

    End Sub

    Private Sub Panel15_Click(sender As Object, e As EventArgs) Handles Panel15.Click
        Form42.ShowDialog()
    End Sub

    Private Sub Label23_Click(sender As Object, e As EventArgs) Handles Label23.Click
        Form42.ShowDialog()
    End Sub

    Private Sub PictureBox13_Click(sender As Object, e As EventArgs) Handles PictureBox13.Click
        Form42.ShowDialog()
    End Sub

    Private Sub Panel14_Click(sender As Object, e As EventArgs) Handles Panel14.Click

    End Sub

    Private Sub Panel14_MouseEnter(sender As Object, e As EventArgs) Handles Panel14.MouseEnter

    End Sub

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

    End Sub
End Class