first commit

App.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2" />
+    </startup>
+</configuration>

Form1.Designer.vb

@@ -0,0 +1,105 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form1
+    Inherits System.Windows.Forms.Form
+
+    'Form remplace la méthode Dispose pour nettoyer la liste des composants.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Requise par le Concepteur Windows Form
+    Private components As System.ComponentModel.IContainer
+
+    'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
+    'Elle peut être modifiée à l'aide du Concepteur Windows Form.  
+    'Ne la modifiez pas à l'aide de l'éditeur de code.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
+        Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.ParamètreToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ApproposToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.RechercherUneMisAJourToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.MenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(5, 30)
+        Me.ComboBox1.Margin = New System.Windows.Forms.Padding(4)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(340, 24)
+        Me.ComboBox1.TabIndex = 0
+        '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ParamètreToolStripMenuItem, Me.ApproposToolStripMenuItem, Me.RechercherUneMisAJourToolStripMenuItem})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(352, 24)
+        Me.MenuStrip1.TabIndex = 1
+        Me.MenuStrip1.Text = "MenuStrip1"
+        '
+        'ParamètreToolStripMenuItem
+        '
+        Me.ParamètreToolStripMenuItem.Image = CType(resources.GetObject("ParamètreToolStripMenuItem.Image"), System.Drawing.Image)
+        Me.ParamètreToolStripMenuItem.Name = "ParamètreToolStripMenuItem"
+        Me.ParamètreToolStripMenuItem.Size = New System.Drawing.Size(89, 20)
+        Me.ParamètreToolStripMenuItem.Text = "Paramètre"
+        '
+        'ApproposToolStripMenuItem
+        '
+        Me.ApproposToolStripMenuItem.Image = CType(resources.GetObject("ApproposToolStripMenuItem.Image"), System.Drawing.Image)
+        Me.ApproposToolStripMenuItem.Name = "ApproposToolStripMenuItem"
+        Me.ApproposToolStripMenuItem.Size = New System.Drawing.Size(80, 20)
+        Me.ApproposToolStripMenuItem.Text = "Apropos"
+        '
+        'RechercherUneMisAJourToolStripMenuItem
+        '
+        Me.RechercherUneMisAJourToolStripMenuItem.Image = CType(resources.GetObject("RechercherUneMisAJourToolStripMenuItem.Image"), System.Drawing.Image)
+        Me.RechercherUneMisAJourToolStripMenuItem.Name = "RechercherUneMisAJourToolStripMenuItem"
+        Me.RechercherUneMisAJourToolStripMenuItem.Size = New System.Drawing.Size(172, 20)
+        Me.RechercherUneMisAJourToolStripMenuItem.Text = "Rechercher une mis a jour"
+        '
+        'Form1
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(352, 62)
+        Me.Controls.Add(Me.ComboBox1)
+        Me.Controls.Add(Me.MenuStrip1)
+        Me.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MainMenuStrip = Me.MenuStrip1
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.MaximizeBox = False
+        Me.MaximumSize = New System.Drawing.Size(368, 101)
+        Me.MinimumSize = New System.Drawing.Size(368, 101)
+        Me.Name = "Form1"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Selectioner un profil"
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents MenuStrip1 As MenuStrip
+    Friend WithEvents ParamètreToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ApproposToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents RechercherUneMisAJourToolStripMenuItem As ToolStripMenuItem
+End Class

Form1.vb

@@ -0,0 +1,136 @@
+Imports System.IO
+Imports System.Net
+Public Class Form1
+    Dim dos As String = ""
+    Dim heursa As String = ""
+    Dim notifmisaj As Integer = 0
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If Directory.Exists(dospara) = True Then
+
+        Else
+            Directory.CreateDirectory(dospara)
+        End If
+
+        If Directory.Exists(dosparalang) = True Then
+            Dim lines1() As String = File.ReadAllLines(dosparasetting.ToString & "/theme.txt")
+            If lines1(0) = 1 Then
+                themesombre()
+            Else
+                themeclaire()
+            End If
+
+        Else
+                Directory.CreateDirectory(dosparalang)
+        End If
+
+        If Directory.Exists(dosparasetting) = True Then
+
+        Else
+            Directory.CreateDirectory(dosparasetting)
+            Dim sw1 As New StreamWriter(dosparasetting.ToString & "/lang.txt")
+            sw1.WriteLine(0)
+            sw1.Close()
+            Dim sw2 As New StreamWriter(dosparasetting.ToString & "/langselect.txt")
+            sw2.WriteLine(0)
+            sw2.Close()
+            Dim sw3 As New StreamWriter(dosparasetting.ToString & "/theme.txt")
+            sw3.WriteLine(0)
+            sw3.Close()
+            Dim sw4 As New StreamWriter(dosparasetting.ToString & "/stopauto.txt")
+            sw4.WriteLine(0)
+            sw4.Close()
+        End If
+
+        If Directory.Exists(dosparaupdate) = True Then
+            Dim lines3() As String = File.ReadAllLines(dosparaupdate & "/autoupdate.txt")
+            If lines3(0) = 1 Then
+                notifmisaj = 0
+                startupdate()
+            End If
+        Else
+            Directory.CreateDirectory(dosparaupdate)
+            Dim sw1 As New StreamWriter(dosparaupdate.ToString & "/autoupdate.txt")
+            sw1.WriteLine(1)
+            sw1.Close()
+        End If
+
+        If Directory.Exists(profil) = True Then
+            ComboBox1.Items.Clear()
+            For Each fichier As String In IO.Directory.GetDirectories(profil)
+                Dim info As New IO.FileInfo(fichier)
+                ComboBox1.Items.Add(info.Name)
+            Next
+            If ComboBox1.Items.Count = 0 Then
+                Form3.opensetting = 0
+                Form3.Show()
+                Close()
+                Exit Sub
+            End If
+        Else
+            Directory.CreateDirectory(profil)
+            Form3.Show()
+            Close()
+            Exit Sub
+        End If
+    End Sub
+
+    Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
+        Form4.profilselect = ComboBox1.SelectedItem
+        Form4.Show()
+        Close()
+    End Sub
+
+    Private Sub ParamètreToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ParamètreToolStripMenuItem.Click
+        Form2.ShowDialog()
+    End Sub
+    Sub startupdate()
+        Try
+            If My.Computer.Network.Ping("www.google.com") Then
+                Dim maj1 As New WebClient
+                Dim vri1 As String = maj1.DownloadString("https://dl.dropbox.com/scl/fi/x05tq6ejtnbzvahxhxrvo/vr.txt?rlkey=eoong4ey8ctwfmol9uv1em764&st=293rp5gn&dl=0")
+                If vr = vri1 Then
+                    If notifmisaj = 1 Then
+                        MsgBox("Vous êtê a jours, version: " & vr, MsgBoxStyle.Information)
+                    End If
+                Else
+                    MsgBox("une mis a jour est dispnible, vôtre version: " & vr & " nouvelle version: " & vri1, MsgBoxStyle.Information)
+                    Dim msg = MsgBox("voulez vous télécharger la nouvelle mis a jour ?", MsgBoxStyle.YesNo)
+                    If msg = MsgBoxResult.Yes Then
+                        Dim maj2 As New WebClient
+                        Dim vri2 As String = maj2.DownloadString("https://dl.dropbox.com/scl/fi/ok6wgs1z0z2b0mq14freg/dl.txt?rlkey=lhjk97ojwrcno6u76elhxwx2n&st=wg7pm128&dl=0")
+                        Process.Start(vri2)
+                    Else
+
+                    End If
+                End If
+            End If
+        Catch ex As Exception
+            MsgBox("vous n'est pas connecter a internet", MsgBoxStyle.Exclamation)
+        End Try
+    End Sub
+
+    Private Sub RechercherUneMisAJourToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RechercherUneMisAJourToolStripMenuItem.Click
+        notifmisaj = 1
+        startupdate()
+    End Sub
+    Sub themesombre()
+        BackColor = Color.FromArgb(64, 64, 64)
+        ForeColor = Color.White
+        MenuStrip1.BackColor = BackColor
+        MenuStrip1.ForeColor = ForeColor
+        ComboBox1.BackColor = BackColor
+        ComboBox1.ForeColor = ForeColor
+    End Sub
+    Sub themeclaire()
+        BackColor = SystemColors.Control
+        ForeColor = Color.Black
+        MenuStrip1.BackColor = BackColor
+        MenuStrip1.ForeColor = ForeColor
+        ComboBox1.BackColor = BackColor
+        ComboBox1.ForeColor = ForeColor
+    End Sub
+
+    Private Sub ApproposToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ApproposToolStripMenuItem.Click
+        Form13.ShowDialog()
+    End Sub
+End Class

Form10.Designer.vb

@@ -0,0 +1,57 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form10
+    Inherits System.Windows.Forms.Form
+
+    'Form remplace la méthode Dispose pour nettoyer la liste des composants.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Requise par le Concepteur Windows Form
+    Private components As System.ComponentModel.IContainer
+
+    'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
+    'Elle peut être modifiée à l'aide du Concepteur Windows Form.  
+    'Ne la modifiez pas à l'aide de l'éditeur de code.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form10))
+        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+        Me.SuspendLayout()
+        '
+        'ProgressBar1
+        '
+        Me.ProgressBar1.Location = New System.Drawing.Point(12, 12)
+        Me.ProgressBar1.Name = "ProgressBar1"
+        Me.ProgressBar1.Size = New System.Drawing.Size(264, 23)
+        Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
+        Me.ProgressBar1.TabIndex = 0
+        '
+        'Form10
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(288, 54)
+        Me.Controls.Add(Me.ProgressBar1)
+        Me.Font = New System.Drawing.Font("Arial Narrow", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.MaximizeBox = False
+        Me.MaximumSize = New System.Drawing.Size(304, 93)
+        Me.MinimumSize = New System.Drawing.Size(304, 93)
+        Me.Name = "Form10"
+        Me.RightToLeftLayout = True
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents ProgressBar1 As ProgressBar
+End Class

Form10.vb

@@ -0,0 +1,16 @@
+Imports System.ComponentModel
+
+Public Class Form10
+    Private Sub Form10_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        BackColor = Form4.BackColor
+    End Sub
+
+    Private Sub Form10_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        If Form9.encours = 1 Then
+            e.Cancel = True
+            MsgBox("merci de pantienter pantent l'exprotation de la sauvegarde....", MsgBoxStyle.Exclamation)
+        Else
+
+        End If
+    End Sub
+End Class

Form11.Designer.vb

@@ -0,0 +1,70 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form11
+    Inherits System.Windows.Forms.Form
+
+    'Form remplace la méthode Dispose pour nettoyer la liste des composants.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Requise par le Concepteur Windows Form
+    Private components As System.ComponentModel.IContainer
+
+    'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
+    'Elle peut être modifiée à l'aide du Concepteur Windows Form.  
+    'Ne la modifiez pas à l'aide de l'éditeur de code.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form11))
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(12, 12)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(253, 24)
+        Me.ComboBox1.TabIndex = 0
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(12, 42)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(253, 25)
+        Me.Button1.TabIndex = 1
+        Me.Button1.Text = "Button1"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Form11
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(277, 78)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.ComboBox1)
+        Me.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.MaximizeBox = False
+        Me.MaximumSize = New System.Drawing.Size(293, 117)
+        Me.MinimumSize = New System.Drawing.Size(293, 117)
+        Me.Name = "Form11"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "supprimer un profil"
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents Button1 As Button
+End Class

Form11.vb

@@ -0,0 +1,55 @@
+Imports System.IO
+
+Public Class Form11
+    Private Sub Form11_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        BackColor = Form1.BackColor
+        ForeColor = Form1.ForeColor
+        Button1.BackColor = BackColor
+        ComboBox1.BackColor = BackColor
+        ComboBox1.ForeColor = ForeColor
+        ComboBox1.Items.Clear()
+        For Each fichier As String In IO.Directory.GetDirectories(profil)
+            Dim info As New IO.FileInfo(fichier)
+            ComboBox1.Items.Add(info.Name)
+        Next
+        ComboBox1.SelectedIndex = 0
+    End Sub
+
+    Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
+        Button1.Text = "supprimer le profil: " & ComboBox1.SelectedItem
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim msg = MsgBox("voulez vous supprimer le profil: " & ComboBox1.SelectedItem & " ?", MsgBoxStyle.YesNo)
+        If msg = MsgBoxResult.Yes Then
+            For Each fichier1 As String In IO.Directory.GetDirectories(profil & ComboBox1.SelectedItem & "/")
+                Dim info As New IO.FileInfo(fichier1)
+                Directory.Delete(fichier1, recursive:=True)
+            Next
+
+            For Each fichier2 As String In IO.Directory.GetFiles(profil & ComboBox1.SelectedItem & "/")
+                Dim info As New IO.FileInfo(fichier2)
+                File.Delete(fichier2)
+            Next
+            Directory.Delete(profil & ComboBox1.SelectedItem & "/")
+            ComboBox1.Items.Clear()
+            Form1.ComboBox1.Items.Clear()
+            Form2.ListBox1.Items.Clear()
+            For Each fichier As String In IO.Directory.GetDirectories(profil)
+                Dim info As New IO.FileInfo(fichier)
+                ComboBox1.Items.Add(info.Name)
+                Form1.ComboBox1.Items.Add(info.Name)
+                Form2.ListBox1.Items.Add(info.Name)
+            Next
+            MsgBox("Le profil a bien êtê supprimer", MsgBoxStyle.Information)
+            If ComboBox1.Items.Count = 0 Then
+                Form2.Button4.Hide()
+                Close()
+            Else
+                ComboBox1.SelectedIndex = 0
+            End If
+        Else
+            MsgBox("action annuler", MsgBoxStyle.Information)
+        End If
+    End Sub
+End Class

Form12.Designer.vb

@@ -0,0 +1,95 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form12
+    Inherits System.Windows.Forms.Form
+
+    'Form remplace la méthode Dispose pour nettoyer la liste des composants.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Requise par le Concepteur Windows Form
+    Private components As System.ComponentModel.IContainer
+
+    'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
+    'Elle peut être modifiée à l'aide du Concepteur Windows Form.  
+    'Ne la modifiez pas à l'aide de l'éditeur de code.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form12))
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(10, 14)
+        Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(139, 16)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Arrêt du pc dans: 120s"
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(13, 41)
+        Me.Button1.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(120, 23)
+        Me.Button1.TabIndex = 1
+        Me.Button1.Text = "Maintenant"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(141, 41)
+        Me.Button2.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(120, 23)
+        Me.Button2.TabIndex = 1
+        Me.Button2.Text = "Annuler"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Timer1
+        '
+        Me.Timer1.Interval = 1000
+        '
+        'Form12
+        '
+        Me.AccessibleRole = System.Windows.Forms.AccessibleRole.TitleBar
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(267, 72)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.Label1)
+        Me.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.MaximizeBox = False
+        Me.MaximumSize = New System.Drawing.Size(283, 111)
+        Me.MinimumSize = New System.Drawing.Size(283, 111)
+        Me.Name = "Form12"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Arrêt du PC"
+        Me.TopMost = True
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Timer1 As Timer
+End Class

Form12.vb

@@ -0,0 +1,40 @@
+Imports System.ComponentModel
+
+Public Class Form12
+    Dim time As Integer = 120
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        Label1.Text = "Arrêt du pc dans: " & time & "s"
+        If time = 0 Then
+            stoppc()
+        Else
+            time = time - 1
+        End If
+    End Sub
+    Sub stoppc()
+        Shell("shutdown /p /f")
+        End
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        stoppc()
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Close()
+    End Sub
+
+    Private Sub Form12_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        Timer1.Stop()
+        MsgBox("Sauvagarde terminer", MsgBoxStyle.Information)
+        time = 120
+    End Sub
+
+    Private Sub Form12_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        BackColor = Form4.BackColor
+        ForeColor = Form4.ForeColor
+        Button1.BackColor = BackColor
+        Button2.BackColor = BackColor
+        Timer1.Start()
+        Label1.Text = "Arrêt du pc dans: " & time & "s"
+    End Sub
+End Class

Form13.Designer.vb

@@ -0,0 +1,98 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form13
+    Inherits System.Windows.Forms.Form
+
+    'Form remplace la méthode Dispose pour nettoyer la liste des composants.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Requise par le Concepteur Windows Form
+    Private components As System.ComponentModel.IContainer
+
+    'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
+    'Elle peut être modifiée à l'aide du Concepteur Windows Form.  
+    'Ne la modifiez pas à l'aide de l'éditeur de code.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form13))
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+        Me.PictureBox1.Location = New System.Drawing.Point(12, 4)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(195, 108)
+        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox1.TabIndex = 0
+        Me.PictureBox1.TabStop = False
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(25, 137)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(173, 16)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Créer par yoann multigaming"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(86, 158)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(51, 16)
+        Me.Label2.TabIndex = 1
+        Me.Label2.Text = "version:"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(74, 115)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(74, 16)
+        Me.Label3.TabIndex = 1
+        Me.Label3.Text = "zaybackup:"
+        '
+        'Form13
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(219, 180)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.PictureBox1)
+        Me.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.MaximizeBox = False
+        Me.MaximumSize = New System.Drawing.Size(235, 219)
+        Me.MinimumSize = New System.Drawing.Size(235, 219)
+        Me.Name = "Form13"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "A propos"
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+End Class

Form13.vb

@@ -0,0 +1,7 @@
+Public Class Form13
+    Private Sub Form13_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        BackColor = Form1.BackColor
+        ForeColor = Form1.ForeColor
+        Label2.Text = "Version: " & vr
+    End Sub
+End Class

Form2.Designer.vb

@@ -0,0 +1,254 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Form2
+    Inherits System.Windows.Forms.Form
+
+    'Form remplace la méthode Dispose pour nettoyer la liste des composants.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Requise par le Concepteur Windows Form
+    Private components As System.ComponentModel.IContainer
+
+    'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
+    'Elle peut être modifiée à l'aide du Concepteur Windows Form.  
+    'Ne la modifiez pas à l'aide de l'éditeur de code.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form2))
+        Me.TabControl1 = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.ComboBox2 = New System.Windows.Forms.ComboBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.ListBox1 = New System.Windows.Forms.ListBox()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.TabControl1.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.Panel2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'TabControl1
+        '
+        Me.TabControl1.Controls.Add(Me.TabPage1)
+        Me.TabControl1.Controls.Add(Me.TabPage2)
+        Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.TabControl1.Location = New System.Drawing.Point(0, 0)
+        Me.TabControl1.Name = "TabControl1"
+        Me.TabControl1.SelectedIndex = 0
+        Me.TabControl1.Size = New System.Drawing.Size(505, 255)
+        Me.TabControl1.TabIndex = 0
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.Panel1)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 25)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(497, 226)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "paramètre général"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.Button2)
+        Me.Panel1.Controls.Add(Me.ComboBox2)
+        Me.Panel1.Controls.Add(Me.Button1)
+        Me.Panel1.Controls.Add(Me.ComboBox1)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.CheckBox2)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.CheckBox1)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel1.Location = New System.Drawing.Point(3, 3)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(491, 220)
+        Me.Panel1.TabIndex = 4
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(259, 183)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(232, 34)
+        Me.Button2.TabIndex = 2
+        Me.Button2.Text = "Remètre le paramètre par defaut"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'ComboBox2
+        '
+        Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox2.FormattingEnabled = True
+        Me.ComboBox2.Items.AddRange(New Object() {"Sombre", "Claire"})
+        Me.ComboBox2.Location = New System.Drawing.Point(77, 43)
+        Me.ComboBox2.Name = "ComboBox2"
+        Me.ComboBox2.Size = New System.Drawing.Size(185, 24)
+        Me.ComboBox2.TabIndex = 3
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(5, 183)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(232, 34)
+        Me.Button1.TabIndex = 2
+        Me.Button1.Text = "Enregister les paramètre"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Items.AddRange(New Object() {"Français"})
+        Me.ComboBox1.Location = New System.Drawing.Point(77, 4)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(185, 24)
+        Me.ComboBox1.TabIndex = 3
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(4, 7)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(67, 16)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Langauge:"
+        '
+        'CheckBox2
+        '
+        Me.CheckBox2.AutoSize = True
+        Me.CheckBox2.Location = New System.Drawing.Point(7, 104)
+        Me.CheckBox2.Name = "CheckBox2"
+        Me.CheckBox2.Size = New System.Drawing.Size(261, 20)
+        Me.CheckBox2.TabIndex = 1
+        Me.CheckBox2.Text = "Arrêter l'ordinateur après une sauvegarde"
+        Me.CheckBox2.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(21, 46)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(50, 16)
+        Me.Label2.TabIndex = 0
+        Me.Label2.Text = "Thème:"
+        '
+        'CheckBox1
+        '
+        Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.Location = New System.Drawing.Point(7, 78)
+        Me.CheckBox1.Name = "CheckBox1"
+        Me.CheckBox1.Size = New System.Drawing.Size(260, 20)
+        Me.CheckBox1.TabIndex = 1
+        Me.CheckBox1.Text = "Rechercher les mis a jour aux démarage"
+        Me.CheckBox1.UseVisualStyleBackColor = True
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.Panel2)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 25)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(497, 226)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "profil"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'Panel2
+        '
+        Me.Panel2.Controls.Add(Me.ListBox1)
+        Me.Panel2.Controls.Add(Me.Button4)
+        Me.Panel2.Controls.Add(Me.Button3)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel2.Location = New System.Drawing.Point(3, 3)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(491, 220)
+        Me.Panel2.TabIndex = 2
+        '
+        'ListBox1
+        '
+        Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.ListBox1.FormattingEnabled = True
+        Me.ListBox1.ItemHeight = 16
+        Me.ListBox1.Location = New System.Drawing.Point(0, 0)
+        Me.ListBox1.Name = "ListBox1"
+        Me.ListBox1.Size = New System.Drawing.Size(491, 180)
+        Me.ListBox1.TabIndex = 0
+        '
+        'Button4
+        '
+        Me.Button4.Location = New System.Drawing.Point(255, 191)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(233, 23)
+        Me.Button4.TabIndex = 1
+        Me.Button4.Text = "Suppimer un profil"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'Button3
+        '
+        Me.Button3.Location = New System.Drawing.Point(3, 190)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(242, 23)
+        Me.Button3.TabIndex = 1
+        Me.Button3.Text = "Créer un profil"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'Form2
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(505, 253)
+        Me.Controls.Add(Me.TabControl1)
+        Me.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.MaximizeBox = False
+        Me.MaximumSize = New System.Drawing.Size(521, 292)
+        Me.MinimumSize = New System.Drawing.Size(521, 292)
+        Me.Name = "Form2"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "paramètre"
+        Me.TabControl1.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.TabPage2.ResumeLayout(False)
+        Me.Panel2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents TabControl1 As TabControl
+    Friend WithEvents TabPage1 As TabPage
+    Friend WithEvents TabPage2 As TabPage
+    Friend WithEvents Button1 As Button
+    Friend WithEvents CheckBox2 As CheckBox
+    Friend WithEvents CheckBox1 As CheckBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents ComboBox2 As ComboBox
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents ListBox1 As ListBox
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Panel2 As Panel
+End Class

Form2.vb

@@ -0,0 +1,120 @@
+Imports System.IO
+Public Class Form2
+    Dim theme As Integer = 0
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Form3.opensetting = 1
+        Form3.ShowDialog()
+    End Sub
+
+    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Dim lines1() As String = File.ReadAllLines(dosparasetting & "/lang.txt")
+        If lines1(0) = 0 Then
+            ComboBox1.SelectedItem = "Français"
+        End If
+        Dim lines2() As String = File.ReadAllLines(dosparasetting & "/theme.txt")
+        If lines2(0) = 0 Then
+            ComboBox2.SelectedItem = "Claire"
+            theme = 0
+        Else
+            ComboBox2.SelectedItem = "Sombre"
+            theme = 1
+        End If
+        Dim lines3() As String = File.ReadAllLines(dosparaupdate & "/autoupdate.txt")
+        If lines3(0) = 0 Then
+            CheckBox1.Checked = False
+        Else
+            CheckBox1.Checked = True
+        End If
+        Dim lines4() As String = File.ReadAllLines(dosparasetting & "/stopauto.txt")
+        If lines4(0) = 0 Then
+            CheckBox2.Checked = False
+        Else
+            CheckBox2.Checked = True
+        End If
+        ListBox1.Items.Clear()
+        For Each fichier As String In IO.Directory.GetDirectories(profil)
+            Dim info As New IO.FileInfo(fichier)
+            ListBox1.Items.Add(info.Name)
+        Next
+        If ListBox1.Items.Count = 0 Then
+            Button4.Hide()
+        End If
+        themeload()
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If ComboBox1.SelectedItem = "Français" Then
+            Dim sw1 As New StreamWriter(dosparasetting.ToString & "/lang.txt")
+            sw1.WriteLine(0)
+            sw1.Close()
+            Dim sw2 As New StreamWriter(dosparasetting.ToString & "/langselect.txt")
+            sw2.WriteLine(0)
+            sw2.Close()
+        End If
+        If ComboBox2.SelectedItem = "Claire" Then
+            Dim sw1 As New StreamWriter(dosparasetting.ToString & "/theme.txt")
+            sw1.WriteLine(0)
+            sw1.Close()
+            If theme = 1 Then
+                Form1.themeclaire()
+                theme = 0
+            End If
+        Else
+            Dim sw1 As New StreamWriter(dosparasetting.ToString & "/theme.txt")
+            sw1.WriteLine(1)
+            sw1.Close()
+            If theme = 0 Then
+                Form1.themesombre()
+                theme = 1
+            End If
+        End If
+        If CheckBox1.Checked = True Then
+            Dim sw1 As New StreamWriter(dosparaupdate.ToString & "/autoupdate.txt")
+            sw1.WriteLine(1)
+            sw1.Close()
+        Else
+            Dim sw1 As New StreamWriter(dosparaupdate.ToString & "/autoupdate.txt")
+            sw1.WriteLine(0)
+            sw1.Close()
+        End If
+        If CheckBox2.Checked = True Then
+            Dim sw4 As New StreamWriter(dosparasetting.ToString & "/stopauto.txt")
+            sw4.WriteLine(1)
+            sw4.Close()
+        Else
+            Dim sw4 As New StreamWriter(dosparasetting.ToString & "/stopauto.txt")
+            sw4.WriteLine(0)
+            sw4.Close()
+        End If
+        MsgBox("La paramètre ont bien êtê enregisterer", MsgBoxStyle.Information)
+        themeload()
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        ComboBox1.SelectedItem = "français"
+        ComboBox2.SelectedItem = "Claire"
+        CheckBox1.Checked = True
+        CheckBox2.Checked = False
+        MsgBox("Le paramètre ont êtê remis par defaut merci de les enregisterer", MsgBoxStyle.Information)
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        Form11.ShowDialog()
+    End Sub
+    Sub themeload()
+        BackColor = Form1.BackColor
+        ForeColor = Form1.ForeColor
+        Panel1.BackColor = BackColor
+        Button1.BackColor = BackColor
+        Button2.BackColor = BackColor
+        ComboBox1.BackColor = BackColor
+        ComboBox2.BackColor = BackColor
+        Panel2.BackColor = BackColor
+        ListBox1.BackColor = BackColor
+        Button3.BackColor = BackColor
+        Button4.BackColor = BackColor
+        ListBox1.ForeColor = ForeColor
+        ComboBox1.ForeColor = ForeColor
+        ComboBox2.ForeColor = ForeColor
+    End Sub
+End Class

Form3.Designer.vb

@@ -0,0 +1,173 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form3
+    Inherits System.Windows.Forms.Form
+
+    'Form remplace la méthode Dispose pour nettoyer la liste des composants.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Requise par le Concepteur Windows Form
+    Private components As System.ComponentModel.IContainer
+
+    'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
+    'Elle peut être modifiée à l'aide du Concepteur Windows Form.  
+    'Ne la modifiez pas à l'aide de l'éditeur de code.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form3))
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(4, 11)
+        Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(85, 16)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "nom du profil:"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(21, 42)
+        Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(70, 16)
+        Me.Label2.TabIndex = 0
+        Me.Label2.Text = "desciption:"
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+        Me.PictureBox1.Location = New System.Drawing.Point(327, 42)
+        Me.PictureBox1.Margin = New System.Windows.Forms.Padding(4)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(124, 108)
+        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox1.TabIndex = 1
+        Me.PictureBox1.TabStop = False
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(371, 12)
+        Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(42, 16)
+        Me.Label3.TabIndex = 0
+        Me.Label3.Text = "image"
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(8, 165)
+        Me.Button1.Margin = New System.Windows.Forms.Padding(4)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(443, 28)
+        Me.Button1.TabIndex = 2
+        Me.Button1.Text = "Créer le profil:"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(105, 10)
+        Me.TextBox1.Margin = New System.Windows.Forms.Padding(4)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(213, 22)
+        Me.TextBox1.TabIndex = 3
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Location = New System.Drawing.Point(106, 40)
+        Me.TextBox2.Margin = New System.Windows.Forms.Padding(4)
+        Me.TextBox2.Multiline = True
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(213, 87)
+        Me.TextBox2.TabIndex = 3
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label4.Location = New System.Drawing.Point(13, 138)
+        Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(51, 16)
+        Me.Label4.TabIndex = 0
+        Me.Label4.Text = "version:"
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(71, 134)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(249, 24)
+        Me.ComboBox1.TabIndex = 4
+        '
+        'OpenFileDialog1
+        '
+        Me.OpenFileDialog1.Filter = "png|*.png"
+        '
+        'Form3
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(463, 206)
+        Me.Controls.Add(Me.ComboBox1)
+        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.PictureBox1)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.MaximizeBox = False
+        Me.MaximumSize = New System.Drawing.Size(479, 245)
+        Me.MinimumSize = New System.Drawing.Size(479, 245)
+        Me.Name = "Form3"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Créer un profil"
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents OpenFileDialog1 As OpenFileDialog
+End Class

Form3.vb

@@ -0,0 +1,89 @@
+Imports System.ComponentModel
+Imports System.IO
+Public Class Form3
+    Dim nomprof = ""
+    Public opensetting = 0
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
+        Button1.Text = "Créer le profil: " & TextBox1.Text & " v" & ComboBox1.SelectedItem
+    End Sub
+
+    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        BackColor = Form1.BackColor
+        ForeColor = Form1.ForeColor
+        TextBox1.BackColor = BackColor
+        TextBox2.BackColor = BackColor
+        Button1.BackColor = BackColor
+        ComboBox1.BackColor = BackColor
+        TextBox1.ForeColor = ForeColor
+        TextBox2.ForeColor = ForeColor
+        ComboBox1.ForeColor = ForeColor
+        ComboBox1.Items.Clear()
+        For index = 1 To 999
+            ComboBox1.Items.Add(index)
+        Next
+        ComboBox1.SelectedIndex = 0
+    End Sub
+
+    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+        If OpenFileDialog1.ShowDialog = 1 Then
+            PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
+        End If
+    End Sub
+    Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
+        Button1.Text = "Créer le profil: " & TextBox1.Text & " v" & ComboBox1.SelectedItem
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If TextBox1.Text = "" Then
+            MsgBox("entrer un nom pour le profil", MsgBoxStyle.Exclamation)
+        Else
+            If TextBox2.Text = "" Then
+                MsgBox("entrer une description du profil", MsgBoxStyle.Exclamation)
+            Else
+                nomprof = TextBox1.Text & " v" & ComboBox1.SelectedItem
+                If Directory.Exists(profil & "/" & nomprof) = True Then
+                    MsgBox("Le profil: " & nomprof & " exsite Déjà", MsgBoxStyle.Exclamation)
+                Else
+                    Try
+                        Directory.CreateDirectory(profil & "/" & nomprof & "/")
+                        Directory.CreateDirectory(profil & "/" & nomprof & "/serveur/")
+                        Directory.CreateDirectory(profil & "/" & nomprof & "/Backup/")
+                        Dim sw1 As New StreamWriter(profil.ToString & "/" & nomprof.ToString & "/des.txt")
+                        sw1.WriteLine(TextBox2.Text)
+                        sw1.Close()
+                        PictureBox1.Image.Save(profil & "/" & nomprof & "/icon.png")
+                        MsgBox("Le profil: " & nomprof & " a bien êtê créer", MsgBoxStyle.Information)
+                        If opensetting = 1 Then
+
+                        Else
+                            Form1.Show()
+                        End If
+                        Close()
+                    Catch ex As Exception
+                        MsgBox("une erreur est survenue", MsgBoxStyle.Critical)
+                    End Try
+                End If
+            End If
+        End If
+
+    End Sub
+
+    Private Sub Form3_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        TextBox1.Clear()
+        TextBox2.Clear()
+        ComboBox1.SelectedIndex = 0
+        PictureBox1.Image.Dispose()
+        PictureBox1.Image = My.Resources.minecraft_logo_icon_168974
+        Button1.Text = "Créer le profil:"
+        Form2.ListBox1.Items.Clear()
+        Form1.ComboBox1.Items.Clear()
+        For Each fichier As String In IO.Directory.GetDirectories(profil)
+            Dim info As New IO.FileInfo(fichier)
+            Form2.ListBox1.Items.Add(info.Name)
+        Next
+        For Each fichier As String In IO.Directory.GetDirectories(profil)
+            Dim info As New IO.FileInfo(fichier)
+            Form1.ComboBox1.Items.Add(info.Name)
+        Next
+    End Sub
+End Class

Form4.Designer.vb

@@ -0,0 +1,99 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form4
+    Inherits System.Windows.Forms.Form
+
+    'Form remplace la méthode Dispose pour nettoyer la liste des composants.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Requise par le Concepteur Windows Form
+    Private components As System.ComponentModel.IContainer
+
+    'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
+    'Elle peut être modifiée à l'aide du Concepteur Windows Form.  
+    'Ne la modifiez pas à l'aide de l'éditeur de code.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form4))
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
+        Me.SuspendLayout()
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(12, 12)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(246, 41)
+        Me.Button1.TabIndex = 0
+        Me.Button1.Text = "Mes sauvegarde"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(12, 59)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(246, 41)
+        Me.Button2.TabIndex = 1
+        Me.Button2.Text = "Sauvegarde Maintenant"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Button3
+        '
+        Me.Button3.Location = New System.Drawing.Point(12, 106)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(246, 41)
+        Me.Button3.TabIndex = 2
+        Me.Button3.Text = "Modifier le Profil"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'LinkLabel1
+        '
+        Me.LinkLabel1.ActiveLinkColor = System.Drawing.Color.Black
+        Me.LinkLabel1.AutoSize = True
+        Me.LinkLabel1.LinkColor = System.Drawing.Color.Black
+        Me.LinkLabel1.Location = New System.Drawing.Point(85, 151)
+        Me.LinkLabel1.Name = "LinkLabel1"
+        Me.LinkLabel1.Size = New System.Drawing.Size(102, 16)
+        Me.LinkLabel1.TabIndex = 3
+        Me.LinkLabel1.TabStop = True
+        Me.LinkLabel1.Text = "changer de profil"
+        Me.LinkLabel1.VisitedLinkColor = System.Drawing.Color.Black
+        '
+        'Form4
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(270, 175)
+        Me.Controls.Add(Me.LinkLabel1)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.MaximizeBox = False
+        Me.MaximumSize = New System.Drawing.Size(286, 214)
+        Me.MinimumSize = New System.Drawing.Size(286, 214)
+        Me.Name = "Form4"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Form4"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents LinkLabel1 As LinkLabel
+End Class

Form4.vb

@@ -0,0 +1,42 @@
+Imports System.Windows.Forms.VisualStyles.VisualStyleElement
+
+Public Class Form4
+    Public profilselect = ""
+    Public file = 0
+    Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        BackColor = Form1.BackColor
+        ForeColor = Form1.ForeColor
+        Button1.BackColor = BackColor
+        Button2.BackColor = BackColor
+        Button3.BackColor = BackColor
+        LinkLabel1.LinkColor = ForeColor
+        LinkLabel1.VisitedLinkColor = ForeColor
+        LinkLabel1.ActiveLinkColor = ForeColor
+        Text = profilselect
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        For Each fichier As String In IO.Directory.GetFiles(profil & "/" & profilselect & "/Backup/")
+            file = file + 1
+        Next
+        If file = 0 Then
+            MsgBox("aucune sauvegarde trouver dans le profil: " & profilselect, MsgBoxStyle.Information)
+        Else
+            Form9.ShowDialog()
+        End If
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Form5.Text = "modifier le profil: " & profilselect
+        Form5.ShowDialog()
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Form8.ShowDialog()
+    End Sub
+
+    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
+        Form1.Show()
+        Close()
+    End Sub
+End Class

Form5.Designer.vb

@@ -0,0 +1,199 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form5
+    Inherits System.Windows.Forms.Form
+
+    'Form remplace la méthode Dispose pour nettoyer la liste des composants.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Requise par le Concepteur Windows Form
+    Private components As System.ComponentModel.IContainer
+
+    'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
+    'Elle peut être modifiée à l'aide du Concepteur Windows Form.  
+    'Ne la modifiez pas à l'aide de l'éditeur de code.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form5))
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.ListBox1 = New System.Windows.Forms.ListBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(345, 99)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(164, 31)
+        Me.Button1.TabIndex = 0
+        Me.Button1.Text = "ajoutter un serveur"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(345, 136)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(164, 31)
+        Me.Button2.TabIndex = 0
+        Me.Button2.Text = "supprimer un serveur"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'ListBox1
+        '
+        Me.ListBox1.FormattingEnabled = True
+        Me.ListBox1.ItemHeight = 16
+        Me.ListBox1.Location = New System.Drawing.Point(345, 9)
+        Me.ListBox1.Name = "ListBox1"
+        Me.ListBox1.Size = New System.Drawing.Size(164, 84)
+        Me.ListBox1.TabIndex = 1
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(44, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(87, 16)
+        Me.Label1.TabIndex = 2
+        Me.Label1.Text = "Nom de profil:"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(12, 42)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(119, 16)
+        Me.Label2.TabIndex = 2
+        Me.Label2.Text = "desciption du profil:"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(550, 9)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(91, 16)
+        Me.Label3.TabIndex = 2
+        Me.Label3.Text = "image du profil"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(3, 80)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(128, 16)
+        Me.Label4.TabIndex = 2
+        Me.Label4.Text = "stockage de backup:"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(137, 9)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(45, 16)
+        Me.Label5.TabIndex = 3
+        Me.Label5.Text = "Label5"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(137, 42)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(45, 16)
+        Me.Label6.TabIndex = 3
+        Me.Label6.Text = "Label5"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(137, 80)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(45, 16)
+        Me.Label7.TabIndex = 3
+        Me.Label7.Text = "Label5"
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Location = New System.Drawing.Point(549, 28)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(100, 82)
+        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox1.TabIndex = 5
+        Me.PictureBox1.TabStop = False
+        '
+        'Button3
+        '
+        Me.Button3.Location = New System.Drawing.Point(566, 116)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(75, 23)
+        Me.Button3.TabIndex = 6
+        Me.Button3.Text = "modifier"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'OpenFileDialog1
+        '
+        Me.OpenFileDialog1.Filter = "png|*.png"
+        '
+        'Form5
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(669, 176)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.PictureBox1)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.ListBox1)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.MaximizeBox = False
+        Me.MaximumSize = New System.Drawing.Size(685, 215)
+        Me.MinimumSize = New System.Drawing.Size(685, 215)
+        Me.Name = "Form5"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Form5"
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents ListBox1 As ListBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents Button3 As Button
+    Friend WithEvents OpenFileDialog1 As OpenFileDialog
+End Class

Form5.vb

@@ -0,0 +1,79 @@
+Imports System.ComponentModel
+Imports System.IO
+Imports System.Math
+Public Class Form5
+
+    Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        BackColor = Form4.BackColor
+        ForeColor = Form4.ForeColor
+        Button1.BackColor = BackColor
+        Button2.BackColor = BackColor
+        Button3.BackColor = BackColor
+        ListBox1.BackColor = BackColor
+        ListBox1.ForeColor = ForeColor
+        Label5.Text = Form4.profilselect
+        Dim lines1() As String = File.ReadAllLines(profil & "/" & Form4.profilselect & "/des.txt")
+        Label6.Text = lines1(0)
+        PictureBox1.Image = Image.FromFile(profil & "/" & Form4.profilselect & "/icon.png")
+        For Each fichier As String In IO.Directory.GetFiles(profil & "/" & Form4.profilselect & "/serveur/")
+            Dim info As New IO.FileInfo(fichier)
+            ListBox1.Items.Add(info.Name.ToString.Replace(".txt", ""))
+        Next
+        If ListBox1.Items.Count = 0 Then
+            Button2.Hide()
+        End If
+        Dim folderSize As Long = FolderSizeCalculator.GetFolderSize(profil & "/" & Form4.profilselect & "/Backup/")
+        Dim toutlesdossier = func_RoundTaille(LaTaille:=folderSize)
+        Label7.Text = toutlesdossier
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Form6.ShowDialog()
+    End Sub
+
+    Private Sub Form5_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        PictureBox1.Image.Dispose()
+        ListBox1.Items.Clear()
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Form7.ShowDialog()
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If OpenFileDialog1.ShowDialog = 1 Then
+            PictureBox1.Image.Dispose()
+            PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
+            File.Delete(profil & "/" & Form4.profilselect & "/icon.png")
+            PictureBox1.Image.Save(profil & "/" & Form4.profilselect & "/icon.png")
+            MsgBox("L'image du profil: " & Form4.profilselect & " a bien êtê changer", MsgBoxStyle.Information)
+        End If
+    End Sub
+    Public Class FolderSizeCalculator
+        Public Shared Function GetFolderSize(ByVal folderPath As String) As Long
+            Dim size As Long = 0
+            Try
+                Dim files As String() = Directory.GetFiles(folderPath, "*.*", SearchOption.AllDirectories)
+                For Each file As String In files
+                    Dim fileInfo As New FileInfo(file)
+                    size += fileInfo.Length
+                Next
+            Catch ex As Exception
+                ' Handle any exceptions that may occur
+            End Try
+            Return size
+        End Function
+    End Class
+    Public Function func_RoundTaille(ByVal LaTaille As Long) As String
+        Select Case LaTaille
+            Case Is < 1024
+                Return Round(LaTaille) & " Octets"
+            Case Is < 1048576
+                Return Round(LaTaille / 2 ^ 10, 3) & " Ko"
+            Case Is < 1073741824
+                Return Round(LaTaille / 2 ^ 20, 3) & " Mo"
+            Case Else
+                Return Round(LaTaille / 2 ^ 30, 3) & " Go"
+        End Select
+    End Function
+End Class

Form6.Designer.vb

@@ -0,0 +1,81 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form6
+    Inherits System.Windows.Forms.Form
+
+    'Form remplace la méthode Dispose pour nettoyer la liste des composants.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Requise par le Concepteur Windows Form
+    Private components As System.ComponentModel.IContainer
+
+    'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
+    'Elle peut être modifiée à l'aide du Concepteur Windows Form.  
+    'Ne la modifiez pas à l'aide de l'éditeur de code.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form6))
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(12, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(101, 16)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Nom du serveur:"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(119, 9)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(169, 22)
+        Me.TextBox1.TabIndex = 1
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(15, 38)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(276, 29)
+        Me.Button1.TabIndex = 2
+        Me.Button1.Text = "ajoutter le serveur"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Form6
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(300, 74)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.Label1)
+        Me.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.MaximizeBox = False
+        Me.MaximumSize = New System.Drawing.Size(316, 113)
+        Me.MinimumSize = New System.Drawing.Size(316, 113)
+        Me.Name = "Form6"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "ajoutter un serveur"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label1 As Label
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Button1 As Button
+End Class

Form6.vb

@@ -0,0 +1,31 @@
+Imports System.IO
+Imports System.Windows.Forms.VisualStyles.VisualStyleElement
+
+Public Class Form6
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If File.Exists(profil & "/" & Form4.profilselect & "/serveur/" & TextBox1.Text & ".txt") = True Then
+            MsgBox("Le serveur: " & TextBox1.Text & " exsite déjà", MsgBoxStyle.Critical)
+        Else
+            Dim sw1 As New StreamWriter(profil.ToString & "/" & Form4.profilselect.ToString & "/serveur/" & TextBox1.Text & ".txt")
+            sw1.WriteLine(0)
+            sw1.Close()
+            MsgBox("Le serveur: " & TextBox1.Text & " a bien êtê ajoutter a: " & Form4.profilselect, MsgBoxStyle.Information)
+            Form5.ListBox1.Items.Clear()
+            For Each fichier As String In IO.Directory.GetFiles(profil & "/" & Form4.profilselect & "/serveur/")
+                Dim info As New IO.FileInfo(fichier)
+                Form5.ListBox1.Items.Add(info.Name.ToString.Replace(".txt", ""))
+            Next
+            TextBox1.Clear()
+            Form5.Button2.Show()
+            Close()
+        End If
+    End Sub
+
+    Private Sub Form6_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        BackColor = Form4.BackColor
+        ForeColor = Form4.ForeColor
+        TextBox1.BackColor = BackColor
+        Button1.BackColor = BackColor
+        TextBox1.ForeColor = ForeColor
+    End Sub
+End Class

Form7.Designer.vb

@@ -0,0 +1,70 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form7
+    Inherits System.Windows.Forms.Form
+
+    'Form remplace la méthode Dispose pour nettoyer la liste des composants.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Requise par le Concepteur Windows Form
+    Private components As System.ComponentModel.IContainer
+
+    'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
+    'Elle peut être modifiée à l'aide du Concepteur Windows Form.  
+    'Ne la modifiez pas à l'aide de l'éditeur de code.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form7))
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(12, 12)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(278, 24)
+        Me.ComboBox1.TabIndex = 0
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(12, 42)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(276, 29)
+        Me.Button1.TabIndex = 3
+        Me.Button1.Text = "suppimer le serveur"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Form7
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(300, 74)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.ComboBox1)
+        Me.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.MaximizeBox = False
+        Me.MaximumSize = New System.Drawing.Size(316, 113)
+        Me.MinimumSize = New System.Drawing.Size(316, 113)
+        Me.Name = "Form7"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "suppimer un serveur"
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents Button1 As Button
+End Class

Form7.vb

@@ -0,0 +1,48 @@
+Imports System.ComponentModel
+Imports System.IO
+
+Public Class Form7
+    Private Sub Form7_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        BackColor = Form4.BackColor
+        ForeColor = Form4.ForeColor
+        ComboBox1.BackColor = BackColor
+        Button1.BackColor = BackColor
+        ComboBox1.ForeColor = ForeColor
+        For Each fichier As String In IO.Directory.GetFiles(profil & "/" & Form4.profilselect & "/serveur/")
+            Dim info As New IO.FileInfo(fichier)
+            ComboBox1.Items.Add(info.Name.ToString.Replace(".txt", ""))
+        Next
+        ComboBox1.SelectedIndex = 0
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim msg = MsgBox("voulez vous supprimer: " & ComboBox1.SelectedItem & " ?", MsgBoxStyle.YesNo)
+        If msg = MsgBoxResult.Yes Then
+            File.Delete(profil & "/" & Form4.profilselect & "/serveur/" & ComboBox1.SelectedItem & ".txt")
+            MsgBox("le serveur a bien êtê supprimer", MsgBoxStyle.Information)
+            ComboBox1.Items.Clear()
+            For Each fichier As String In IO.Directory.GetFiles(profil & "/" & Form4.profilselect & "/serveur/")
+                Dim info As New IO.FileInfo(fichier)
+                ComboBox1.Items.Add(info.Name.ToString.Replace(".txt", ""))
+            Next
+            Form5.ListBox1.Items.Clear()
+            For Each fichier As String In IO.Directory.GetFiles(profil & "/" & Form4.profilselect & "/serveur/")
+                Dim info As New IO.FileInfo(fichier)
+                Form5.ListBox1.Items.Add(info.Name.ToString.Replace(".txt", ""))
+            Next
+
+            If ComboBox1.Items.Count = 0 Then
+                Form5.Button2.Hide()
+                Close()
+            Else
+                ComboBox1.SelectedIndex = 0
+            End If
+        Else
+            MsgBox("acction anuler", MsgBoxStyle.Information)
+        End If
+    End Sub
+
+    Private Sub Form7_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        ComboBox1.Items.Clear()
+    End Sub
+End Class

Form8.Designer.vb

@@ -0,0 +1,123 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form8
+    Inherits System.Windows.Forms.Form
+
+    'Form remplace la méthode Dispose pour nettoyer la liste des composants.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Requise par le Concepteur Windows Form
+    Private components As System.ComponentModel.IContainer
+
+    'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
+    'Elle peut être modifiée à l'aide du Concepteur Windows Form.  
+    'Ne la modifiez pas à l'aide de l'éditeur de code.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form8))
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+        Me.ListBox1 = New System.Windows.Forms.ListBox()
+        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
+        Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
+        Me.BackgroundWorker2 = New System.ComponentModel.BackgroundWorker()
+        Me.BackgroundWorker3 = New System.ComponentModel.BackgroundWorker()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.BackgroundWorker4 = New System.ComponentModel.BackgroundWorker()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(9, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(45, 16)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Label1"
+        '
+        'ProgressBar1
+        '
+        Me.ProgressBar1.Location = New System.Drawing.Point(12, 33)
+        Me.ProgressBar1.Name = "ProgressBar1"
+        Me.ProgressBar1.Size = New System.Drawing.Size(250, 23)
+        Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Continuous
+        Me.ProgressBar1.TabIndex = 1
+        '
+        'ListBox1
+        '
+        Me.ListBox1.FormattingEnabled = True
+        Me.ListBox1.ItemHeight = 16
+        Me.ListBox1.Location = New System.Drawing.Point(231, 8)
+        Me.ListBox1.Name = "ListBox1"
+        Me.ListBox1.Size = New System.Drawing.Size(20, 20)
+        Me.ListBox1.TabIndex = 2
+        '
+        'OpenFileDialog1
+        '
+        Me.OpenFileDialog1.Filter = "zip|*.zip"
+        '
+        'BackgroundWorker1
+        '
+        '
+        'BackgroundWorker2
+        '
+        '
+        'BackgroundWorker3
+        '
+        '
+        'CheckBox1
+        '
+        Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.Location = New System.Drawing.Point(12, 62)
+        Me.CheckBox1.Name = "CheckBox1"
+        Me.CheckBox1.Size = New System.Drawing.Size(250, 20)
+        Me.CheckBox1.TabIndex = 3
+        Me.CheckBox1.Text = "Arrêter l'ordinateur après la sauvegarde"
+        Me.CheckBox1.UseVisualStyleBackColor = True
+        '
+        'BackgroundWorker4
+        '
+        '
+        'Form8
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(269, 86)
+        Me.Controls.Add(Me.CheckBox1)
+        Me.Controls.Add(Me.ListBox1)
+        Me.Controls.Add(Me.ProgressBar1)
+        Me.Controls.Add(Me.Label1)
+        Me.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.MaximizeBox = False
+        Me.MaximumSize = New System.Drawing.Size(285, 125)
+        Me.MinimumSize = New System.Drawing.Size(285, 125)
+        Me.Name = "Form8"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Form8"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label1 As Label
+    Friend WithEvents ProgressBar1 As ProgressBar
+    Friend WithEvents ListBox1 As ListBox
+    Friend WithEvents OpenFileDialog1 As OpenFileDialog
+    Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
+    Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
+    Friend WithEvents BackgroundWorker2 As System.ComponentModel.BackgroundWorker
+    Friend WithEvents BackgroundWorker3 As System.ComponentModel.BackgroundWorker
+    Friend WithEvents CheckBox1 As CheckBox
+    Friend WithEvents BackgroundWorker4 As System.ComponentModel.BackgroundWorker
+End Class

Form8.vb

@@ -0,0 +1,705 @@
+Imports System.ComponentModel
+Imports System.IO
+
+Public Class Form8
+    Public nombredeserver As Integer = 0
+    Public servercn As Integer = 0
+    Public proselect = Form4.profilselect
+    Public selectser = ""
+    Public zip2 As Integer = 0
+    Dim heursa = ""
+    Dim import = 0
+    Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        BackColor = Form4.BackColor
+        ForeColor = Form4.ForeColor
+        Dim lines1() As String = File.ReadAllLines(dosparasetting & "/stopauto.txt")
+        If lines1(0) = 0 Then
+            CheckBox1.Checked = False
+        Else
+            CheckBox1.Checked = True
+        End If
+        CheckBox1.Hide()
+        servercn = 0
+        proselect = Form4.profilselect
+        selectser = ""
+        zip2 = 0
+        heursa = ""
+        import = 0
+        OpenFileDialog1.FileName = ""
+        FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.Desktop
+        ListBox1.Items.Clear()
+        ListBox1.Hide()
+        Text = proselect
+
+        For Each fichier As String In IO.Directory.GetFiles(profil & "/" & Form4.profilselect & "/serveur/")
+            Dim info As New IO.FileInfo(fichier)
+            ListBox1.Items.Add(info.Name.ToString.Replace(".txt", ""))
+        Next
+        If ListBox1.Items.Count = 0 Then
+            MsgBox("Aucun serveur trouver, merci de modifier le profil: " & Form4.profilselect, MsgBoxStyle.Exclamation)
+            Close()
+        Else
+            nombredeserver = ListBox1.Items.Count
+            startbc()
+        End If
+    End Sub
+    Sub startbc()
+        If servercn <= ListBox1.Items.Count - 1 Then
+            ListBox1.SelectedIndex = servercn
+            selectser = ListBox1.SelectedItem
+            Dim msg = MsgBox("le serveur: " & ListBox1.SelectedItem & " est t'il ZIPER", MsgBoxStyle.YesNoCancel)
+            If msg = MsgBoxResult.Yes Then
+                If OpenFileDialog1.ShowDialog = 1 Then
+                    import = 1
+                    Label1.Text = "importation de: " & OpenFileDialog1.SafeFileName
+                    ProgressBar1.Style = ProgressBarStyle.Marquee
+                    zip2 = 0
+                    Directory.CreateDirectory(profil & "/" & Form4.profilselect & "/tmp/" & ListBox1.SelectedItem & "/")
+                    BackgroundWorker1.RunWorkerAsync()
+                Else
+                    startbc()
+                End If
+            ElseIf msg = MsgBoxResult.No Then
+                If FolderBrowserDialog1.ShowDialog = 1 Then
+                    import = 1
+                    Label1.Text = "importation de: " & FolderBrowserDialog1.SelectedPath
+                    ProgressBar1.Style = ProgressBarStyle.Marquee
+                    zip2 = 1
+                    Directory.CreateDirectory(profil & "/" & Form4.profilselect & "/tmp/" & ListBox1.SelectedItem & "/")
+                    BackgroundWorker2.RunWorkerAsync()
+                Else
+                    startbc()
+                End If
+            Else
+                If Directory.Exists(profil & proselect & "/tmp/") = True Then
+                    For Each fichier1 As String In IO.Directory.GetDirectories(profil & proselect & "/tmp/")
+                        Dim info As New IO.FileInfo(fichier1)
+                        Directory.Delete(fichier1, recursive:=True)
+                    Next
+                    Directory.Delete(profil & proselect & "/tmp/")
+                End If
+                Close()
+            End If
+        Else
+            import = 2
+            ProgressBar1.Style = ProgressBarStyle.Marquee
+            startbcfinal()
+        End If
+    End Sub
+
+    Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
+        Compression.ZipFile.ExtractToDirectory(OpenFileDialog1.FileName, profil & proselect & "/tmp/" & selectser & "/")
+        If zip2 = 1 Then
+            File.Delete(OpenFileDialog1.FileName)
+        End If
+    End Sub
+
+    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
+        servercn = servercn + 1
+        ProgressBar1.Style = ProgressBarStyle.Continuous
+        ProgressBar1.Value = 100
+        import = 0
+        startbc()
+    End Sub
+
+    Private Sub BackgroundWorker2_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker2.DoWork
+        Compression.ZipFile.CreateFromDirectory(FolderBrowserDialog1.SelectedPath, profil & proselect & "/tmp/" & selectser & ".zip")
+    End Sub
+
+    Private Sub BackgroundWorker2_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker2.RunWorkerCompleted
+        OpenFileDialog1.FileName = profil & proselect & "/tmp/" & selectser & ".zip"
+        Directory.CreateDirectory(profil & "/" & Form4.profilselect & "/tmp/" & ListBox1.SelectedItem & "/")
+        BackgroundWorker1.RunWorkerAsync()
+    End Sub
+    Sub startbcfinal()
+        Label1.Text = "création de la sauvegarde...."
+        If TimeOfDay.Hour = "0" And TimeOfDay.Minute = "0" Then
+            heursa = "00" & "h" & "00"
+        ElseIf TimeOfDay.Hour = "0" And TimeOfDay.Minute = "1" Then
+            heursa = "00" & "h" & "01"
+        ElseIf TimeOfDay.Hour = "0" And TimeOfDay.Minute = "2" Then
+            heursa = "00" & "h" & "02"
+        ElseIf TimeOfDay.Hour = "0" And TimeOfDay.Minute = "3" Then
+            heursa = "00" & "h" & "03"
+        ElseIf TimeOfDay.Hour = "00" And TimeOfDay.Minute = "4" Then
+            heursa = "00" & "h" & "04"
+        ElseIf TimeOfDay.Hour = "00" And TimeOfDay.Minute = "5" Then
+            heursa = "00" & "h" & "05"
+        ElseIf TimeOfDay.Hour = "00" And TimeOfDay.Minute = "6" Then
+            heursa = "00" & "h" & "06"
+        ElseIf TimeOfDay.Hour = "00" And TimeOfDay.Minute = "7" Then
+            heursa = "00" & "h" & "07"
+        ElseIf TimeOfDay.Hour = "00" And TimeOfDay.Minute = "8" Then
+            heursa = "00" & "h" & "08"
+        ElseIf TimeOfDay.Hour = "00" And TimeOfDay.Minute = "9" Then
+            heursa = "00" & "h" & "09"
+        ElseIf TimeOfDay.Hour = "0" Then
+            heursa = "00" & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "0" Then
+            heursa = "01" & "h" & "00"
+        ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "1" Then
+            heursa = "01" & "h" & "01"
+        ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "2" Then
+            heursa = "01" & "h" & "02"
+        ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "3" Then
+            heursa = "01" & "h" & "03"
+        ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "4" Then
+            heursa = "01" & "h" & "04"
+        ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "5" Then
+            heursa = "01" & "h" & "05"
+        ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "6" Then
+            heursa = "01" & "h" & "06"
+        ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "7" Then
+            heursa = "01" & "h" & "07"
+        ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "8" Then
+            heursa = "01" & "h" & "08"
+        ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "9" Then
+            heursa = "01" & "h" & "09"
+        ElseIf TimeOfDay.Hour = "1" Then
+            heursa = "01" & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "0" Then
+            heursa = "02" & "h" & "00"
+        ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "1" Then
+            heursa = "02" & "h" & "01"
+        ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "2" Then
+            heursa = "02" & "h" & "02"
+        ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "3" Then
+            heursa = "02" & "h" & "03"
+        ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "4" Then
+            heursa = "02" & "h" & "04"
+        ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "5" Then
+            heursa = "02" & "h" & "05"
+        ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "6" Then
+            heursa = "02" & "h" & "06"
+        ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "7" Then
+            heursa = "02" & "h" & "07"
+        ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "8" Then
+            heursa = "02" & "h" & "08"
+        ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "9" Then
+            heursa = "02" & "h" & "09"
+        ElseIf TimeOfDay.Hour = "2" Then
+            heursa = "02" & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "0" Then
+            heursa = "03" & "h" & "00"
+        ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "1" Then
+            heursa = "03" & "h" & "01"
+        ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "2" Then
+            heursa = "03" & "h" & "02"
+        ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "3" Then
+            heursa = "03" & "h" & "03"
+        ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "4" Then
+            heursa = "03" & "h" & "04"
+        ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "5" Then
+            heursa = "03" & "h" & "05"
+        ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "6" Then
+            heursa = "03" & "h" & "06"
+        ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "7" Then
+            heursa = "03" & "h" & "07"
+        ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "8" Then
+            heursa = "03" & "h" & "08"
+        ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "9" Then
+            heursa = "03" & "h" & "09"
+        ElseIf TimeOfDay.Hour = "3" Then
+            heursa = "03" & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "0" Then
+            heursa = "04" & "h" & "00"
+        ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "1" Then
+            heursa = "04" & "h" & "01"
+        ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "2" Then
+            heursa = "04" & "h" & "02"
+        ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "3" Then
+            heursa = "04" & "h" & "03"
+        ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "4" Then
+            heursa = "04" & "h" & "04"
+        ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "5" Then
+            heursa = "04" & "h" & "05"
+        ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "6" Then
+            heursa = "04" & "h" & "06"
+        ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "7" Then
+            heursa = "04" & "h" & "07"
+        ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "8" Then
+            heursa = "04" & "h" & "08"
+        ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "9" Then
+            heursa = "04" & "h" & "09"
+        ElseIf TimeOfDay.Hour = "4" Then
+            heursa = "04" & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "0" Then
+            heursa = "05" & "h" & "00"
+        ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "1" Then
+            heursa = "05" & "h" & "01"
+        ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "2" Then
+            heursa = "05" & "h" & "02"
+        ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "3" Then
+            heursa = "05" & "h" & "03"
+        ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "4" Then
+            heursa = "05" & "h" & "04"
+        ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "5" Then
+            heursa = "05" & "h" & "05"
+        ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "6" Then
+            heursa = "05" & "h" & "06"
+        ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "7" Then
+            heursa = "05" & "h" & "07"
+        ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "8" Then
+            heursa = "05" & "h" & "08"
+        ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "9" Then
+            heursa = "05" & "h" & "09"
+        ElseIf TimeOfDay.Hour = "5" Then
+            heursa = "05" & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "0" Then
+            heursa = "06" & "h" & "00"
+        ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "1" Then
+            heursa = "06" & "h" & "01"
+        ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "2" Then
+            heursa = "06" & "h" & "02"
+        ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "3" Then
+            heursa = "06" & "h" & "03"
+        ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "4" Then
+            heursa = "06" & "h" & "04"
+        ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "5" Then
+            heursa = "06" & "h" & "05"
+        ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "6" Then
+            heursa = "06" & "h" & "06"
+        ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "7" Then
+            heursa = "06" & "h" & "07"
+        ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "8" Then
+            heursa = "06" & "h" & "08"
+        ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "9" Then
+            heursa = "06" & "h" & "09"
+        ElseIf TimeOfDay.Hour = "6" Then
+            heursa = "06" & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "0" Then
+            heursa = "07" & "h" & "00"
+        ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "1" Then
+            heursa = "07" & "h" & "01"
+        ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "2" Then
+            heursa = "07" & "h" & "02"
+        ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "3" Then
+            heursa = "07" & "h" & "03"
+        ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "4" Then
+            heursa = "07" & "h" & "04"
+        ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "5" Then
+            heursa = "07" & "h" & "05"
+        ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "6" Then
+            heursa = "07" & "h" & "06"
+        ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "7" Then
+            heursa = "07" & "h" & "07"
+        ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "8" Then
+            heursa = "07" & "h" & "08"
+        ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "9" Then
+            heursa = "07" & "h" & "09"
+        ElseIf TimeOfDay.Hour = "7" Then
+            heursa = "07" & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "0" Then
+            heursa = "08" & "h" & "00"
+        ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "1" Then
+            heursa = "08" & "h" & "01"
+        ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "2" Then
+            heursa = "08" & "h" & "02"
+        ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "3" Then
+            heursa = "08" & "h" & "03"
+        ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "4" Then
+            heursa = "08" & "h" & "04"
+        ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "5" Then
+            heursa = "08" & "h" & "05"
+        ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "6" Then
+            heursa = "08" & "h" & "06"
+        ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "7" Then
+            heursa = "08" & "h" & "07"
+        ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "8" Then
+            heursa = "08" & "h" & "08"
+        ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "9" Then
+            heursa = "08" & "h" & "09"
+        ElseIf TimeOfDay.Hour = "8" Then
+            heursa = "08" & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "0" Then
+            heursa = "09" & "h" & "00"
+        ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "1" Then
+            heursa = "09" & "h" & "01"
+        ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "2" Then
+            heursa = "09" & "h" & "02"
+        ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "3" Then
+            heursa = "09" & "h" & "03"
+        ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "4" Then
+            heursa = "09" & "h" & "04"
+        ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "5" Then
+            heursa = "09" & "h" & "05"
+        ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "6" Then
+            heursa = "09" & "h" & "06"
+        ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "7" Then
+            heursa = "09" & "h" & "07"
+        ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "8" Then
+            heursa = "09" & "h" & "08"
+        ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "9" Then
+            heursa = "09" & "h" & "09"
+        ElseIf TimeOfDay.Hour = "9" Then
+            heursa = "09" & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "00" Then
+            heursa = TimeOfDay.Hour & "h" & "00"
+        ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "1" Then
+            heursa = TimeOfDay.Hour & "h" & "01"
+        ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "2" Then
+            heursa = TimeOfDay.Hour & "h" & "02"
+        ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "3" Then
+            heursa = TimeOfDay.Hour & "h" & "03"
+        ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "4" Then
+            heursa = TimeOfDay.Hour & "h" & "04"
+        ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "5" Then
+            heursa = TimeOfDay.Hour & "h" & "05"
+        ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "6" Then
+            heursa = TimeOfDay.Hour & "h" & "06"
+        ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "7" Then
+            heursa = TimeOfDay.Hour & "h" & "07"
+        ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "8" Then
+            heursa = TimeOfDay.Hour & "h" & "08"
+        ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "9" Then
+            heursa = TimeOfDay.Hour & "h" & "09"
+        ElseIf TimeOfDay.Hour = "10" Then
+            heursa = TimeOfDay.Hour & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "0" Then
+            heursa = TimeOfDay.Hour & "h" & "00"
+        ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "1" Then
+            heursa = TimeOfDay.Hour & "h" & "01"
+        ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "2" Then
+            heursa = TimeOfDay.Hour & "h" & "02"
+        ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "3" Then
+            heursa = TimeOfDay.Hour & "h" & "03"
+        ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "4" Then
+            heursa = TimeOfDay.Hour & "h" & "04"
+        ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "5" Then
+            heursa = TimeOfDay.Hour & "h" & "05"
+        ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "6" Then
+            heursa = TimeOfDay.Hour & "h" & "06"
+        ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "7" Then
+            heursa = TimeOfDay.Hour & "h" & "07"
+        ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "8" Then
+            heursa = TimeOfDay.Hour & "h" & "08"
+        ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "9" Then
+            heursa = TimeOfDay.Hour & "h" & "09"
+        ElseIf TimeOfDay.Hour = "11" Then
+            heursa = TimeOfDay.Hour & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "0" Then
+            heursa = TimeOfDay.Hour & "h" & "00"
+        ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "1" Then
+            heursa = TimeOfDay.Hour & "h" & "01"
+        ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "2" Then
+            heursa = TimeOfDay.Hour & "h" & "02"
+        ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "3" Then
+            heursa = TimeOfDay.Hour & "h" & "03"
+        ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "4" Then
+            heursa = TimeOfDay.Hour & "h" & "04"
+        ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "5" Then
+            heursa = TimeOfDay.Hour & "h" & "05"
+        ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "6" Then
+            heursa = TimeOfDay.Hour & "h" & "06"
+        ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "7" Then
+            heursa = TimeOfDay.Hour & "h" & "07"
+        ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "8" Then
+            heursa = TimeOfDay.Hour & "h" & "08"
+        ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "9" Then
+            heursa = TimeOfDay.Hour & "h" & "09"
+        ElseIf TimeOfDay.Hour = "12" Then
+            heursa = TimeOfDay.Hour & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "0" Then
+            heursa = TimeOfDay.Hour & "h" & "00"
+        ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "1" Then
+            heursa = TimeOfDay.Hour & "h" & "01"
+        ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "2" Then
+            heursa = TimeOfDay.Hour & "h" & "02"
+        ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "3" Then
+            heursa = TimeOfDay.Hour & "h" & "03"
+        ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "4" Then
+            heursa = TimeOfDay.Hour & "h" & "04"
+        ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "5" Then
+            heursa = TimeOfDay.Hour & "h" & "05"
+        ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "6" Then
+            heursa = TimeOfDay.Hour & "h" & "06"
+        ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "7" Then
+            heursa = TimeOfDay.Hour & "h" & "07"
+        ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "8" Then
+            heursa = TimeOfDay.Hour & "h" & "08"
+        ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "9" Then
+            heursa = TimeOfDay.Hour & "h" & "09"
+        ElseIf TimeOfDay.Hour = "13" Then
+            heursa = TimeOfDay.Hour & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "0" Then
+            heursa = TimeOfDay.Hour & "h" & "00"
+        ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "1" Then
+            heursa = TimeOfDay.Hour & "h" & "01"
+        ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "2" Then
+            heursa = TimeOfDay.Hour & "h" & "02"
+        ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "3" Then
+            heursa = TimeOfDay.Hour & "h" & "03"
+        ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "4" Then
+            heursa = TimeOfDay.Hour & "h" & "04"
+        ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "5" Then
+            heursa = TimeOfDay.Hour & "h" & "05"
+        ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "6" Then
+            heursa = TimeOfDay.Hour & "h" & "06"
+        ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "7" Then
+            heursa = TimeOfDay.Hour & "h" & "07"
+        ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "8" Then
+            heursa = TimeOfDay.Hour & "h" & "08"
+        ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "9" Then
+            heursa = TimeOfDay.Hour & "h" & "09"
+        ElseIf TimeOfDay.Hour = "14" Then
+            heursa = TimeOfDay.Hour & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "0" Then
+            heursa = TimeOfDay.Hour & "h" & "00"
+        ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "1" Then
+            heursa = TimeOfDay.Hour & "h" & "01"
+        ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "2" Then
+            heursa = TimeOfDay.Hour & "h" & "02"
+        ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "3" Then
+            heursa = TimeOfDay.Hour & "h" & "03"
+        ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "4" Then
+            heursa = TimeOfDay.Hour & "h" & "04"
+        ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "5" Then
+            heursa = TimeOfDay.Hour & "h" & "05"
+        ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "6" Then
+            heursa = TimeOfDay.Hour & "h" & "06"
+        ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "7" Then
+            heursa = TimeOfDay.Hour & "h" & "07"
+        ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "8" Then
+            heursa = TimeOfDay.Hour & "h" & "08"
+        ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "9" Then
+            heursa = TimeOfDay.Hour & "h" & "09"
+        ElseIf TimeOfDay.Hour = "15" Then
+            heursa = TimeOfDay.Hour & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "0" Then
+            heursa = TimeOfDay.Hour & "h" & "00"
+        ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "1" Then
+            heursa = TimeOfDay.Hour & "h" & "01"
+        ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "2" Then
+            heursa = TimeOfDay.Hour & "h" & "02"
+        ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "3" Then
+            heursa = TimeOfDay.Hour & "h" & "03"
+        ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "4" Then
+            heursa = TimeOfDay.Hour & "h" & "04"
+        ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "5" Then
+            heursa = TimeOfDay.Hour & "h" & "05"
+        ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "6" Then
+            heursa = TimeOfDay.Hour & "h" & "06"
+        ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "7" Then
+            heursa = TimeOfDay.Hour & "h" & "07"
+        ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "8" Then
+            heursa = TimeOfDay.Hour & "h" & "08"
+        ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "9" Then
+            heursa = TimeOfDay.Hour & "h" & "09"
+        ElseIf TimeOfDay.Hour = "16" Then
+            heursa = TimeOfDay.Hour & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "0" Then
+            heursa = TimeOfDay.Hour & "h" & "00"
+        ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "1" Then
+            heursa = TimeOfDay.Hour & "h" & "01"
+        ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "2" Then
+            heursa = TimeOfDay.Hour & "h" & "02"
+        ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "3" Then
+            heursa = TimeOfDay.Hour & "h" & "03"
+        ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "4" Then
+            heursa = TimeOfDay.Hour & "h" & "04"
+        ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "5" Then
+            heursa = TimeOfDay.Hour & "h" & "05"
+        ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "6" Then
+            heursa = TimeOfDay.Hour & "h" & "06"
+        ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "7" Then
+            heursa = TimeOfDay.Hour & "h" & "07"
+        ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "8" Then
+            heursa = TimeOfDay.Hour & "h" & "08"
+        ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "9" Then
+            heursa = TimeOfDay.Hour & "h" & "09"
+        ElseIf TimeOfDay.Hour = "17" Then
+            heursa = TimeOfDay.Hour & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "0" Then
+            heursa = TimeOfDay.Hour & "h" & "00"
+        ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "1" Then
+            heursa = TimeOfDay.Hour & "h" & "01"
+        ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "2" Then
+            heursa = TimeOfDay.Hour & "h" & "02"
+        ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "3" Then
+            heursa = TimeOfDay.Hour & "h" & "03"
+        ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "4" Then
+            heursa = TimeOfDay.Hour & "h" & "04"
+        ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "5" Then
+            heursa = TimeOfDay.Hour & "h" & "05"
+        ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "6" Then
+            heursa = TimeOfDay.Hour & "h" & "06"
+        ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "7" Then
+            heursa = TimeOfDay.Hour & "h" & "07"
+        ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "8" Then
+            heursa = TimeOfDay.Hour & "h" & "08"
+        ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "9" Then
+            heursa = TimeOfDay.Hour & "h" & "09"
+        ElseIf TimeOfDay.Hour = "18" Then
+            heursa = TimeOfDay.Hour & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "0" Then
+            heursa = TimeOfDay.Hour & "h" & "00"
+        ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "1" Then
+            heursa = TimeOfDay.Hour & "h" & "01"
+        ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "2" Then
+            heursa = TimeOfDay.Hour & "h" & "02"
+        ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "3" Then
+            heursa = TimeOfDay.Hour & "h" & "03"
+        ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "4" Then
+            heursa = TimeOfDay.Hour & "h" & "04"
+        ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "5" Then
+            heursa = TimeOfDay.Hour & "h" & "05"
+        ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "6" Then
+            heursa = TimeOfDay.Hour & "h" & "06"
+        ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "7" Then
+            heursa = TimeOfDay.Hour & "h" & "07"
+        ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "8" Then
+            heursa = TimeOfDay.Hour & "h" & "08"
+        ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "9" Then
+            heursa = TimeOfDay.Hour & "h" & "09"
+        ElseIf TimeOfDay.Hour = "19" Then
+            heursa = TimeOfDay.Hour & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "0" Then
+            heursa = TimeOfDay.Hour & "h" & "00"
+        ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "1" Then
+            heursa = TimeOfDay.Hour & "h" & "01"
+        ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "2" Then
+            heursa = TimeOfDay.Hour & "h" & "02"
+        ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "3" Then
+            heursa = TimeOfDay.Hour & "h" & "03"
+        ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "4" Then
+            heursa = TimeOfDay.Hour & "h" & "04"
+        ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "5" Then
+            heursa = TimeOfDay.Hour & "h" & "05"
+        ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "6" Then
+            heursa = TimeOfDay.Hour & "h" & "06"
+        ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "7" Then
+            heursa = TimeOfDay.Hour & "h" & "07"
+        ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "8" Then
+            heursa = TimeOfDay.Hour & "h" & "08"
+        ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "9" Then
+            heursa = TimeOfDay.Hour & "h" & "09"
+        ElseIf TimeOfDay.Hour = "20" Then
+            heursa = TimeOfDay.Hour & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "0" Then
+            heursa = TimeOfDay.Hour & "h" & "00"
+        ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "1" Then
+            heursa = TimeOfDay.Hour & "h" & "01"
+        ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "2" Then
+            heursa = TimeOfDay.Hour & "h" & "02"
+        ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "3" Then
+            heursa = TimeOfDay.Hour & "h" & "03"
+        ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "4" Then
+            heursa = TimeOfDay.Hour & "h" & "04"
+        ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "5" Then
+            heursa = TimeOfDay.Hour & "h" & "05"
+        ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "6" Then
+            heursa = TimeOfDay.Hour & "h" & "06"
+        ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "7" Then
+            heursa = TimeOfDay.Hour & "h" & "07"
+        ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "8" Then
+            heursa = TimeOfDay.Hour & "h" & "08"
+        ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "9" Then
+            heursa = TimeOfDay.Hour & "h" & "09"
+        ElseIf TimeOfDay.Hour = "21" Then
+            heursa = TimeOfDay.Hour & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "0" Then
+            heursa = TimeOfDay.Hour & "h" & "00"
+        ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "1" Then
+            heursa = TimeOfDay.Hour & "h" & "01"
+        ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "2" Then
+            heursa = TimeOfDay.Hour & "h" & "02"
+        ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "3" Then
+            heursa = TimeOfDay.Hour & "h" & "03"
+        ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "4" Then
+            heursa = TimeOfDay.Hour & "h" & "04"
+        ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "5" Then
+            heursa = TimeOfDay.Hour & "h" & "05"
+        ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "6" Then
+            heursa = TimeOfDay.Hour & "h" & "06"
+        ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "7" Then
+            heursa = TimeOfDay.Hour & "h" & "07"
+        ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "8" Then
+            heursa = TimeOfDay.Hour & "h" & "08"
+        ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "9" Then
+            heursa = TimeOfDay.Hour & "h" & "09"
+        ElseIf TimeOfDay.Hour = "22" Then
+            heursa = TimeOfDay.Hour & "h" & TimeOfDay.Minute
+        ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "0" Then
+            heursa = TimeOfDay.Hour & "h" & "00"
+        ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "1" Then
+            heursa = TimeOfDay.Hour & "h" & "01"
+        ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "2" Then
+            heursa = TimeOfDay.Hour & "h" & "02"
+        ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "3" Then
+            heursa = TimeOfDay.Hour & "h" & "03"
+        ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "4" Then
+            heursa = TimeOfDay.Hour & "h" & "04"
+        ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "5" Then
+            heursa = TimeOfDay.Hour & "h" & "05"
+        ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "6" Then
+            heursa = TimeOfDay.Hour & "h" & "06"
+        ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "7" Then
+            heursa = TimeOfDay.Hour & "h" & "07"
+        ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "8" Then
+            heursa = TimeOfDay.Hour & "h" & "08"
+        ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "9" Then
+            heursa = TimeOfDay.Hour & "h" & "09"
+        ElseIf TimeOfDay.Hour = "23" Then
+            heursa = TimeOfDay.Hour & "h" & TimeOfDay.Minute
+        End If
+        CheckBox1.Show()
+        BackgroundWorker3.RunWorkerAsync()
+    End Sub
+
+    Private Sub BackgroundWorker3_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker3.DoWork
+        Compression.ZipFile.CreateFromDirectory(profil & proselect & "/tmp/", profil & proselect & "/Backup/" & proselect & " " & Today.Day & "-" & Today.Month & "-" & Today.Year & " à " & heursa & ".zip")
+    End Sub
+
+    Private Sub BackgroundWorker3_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker3.RunWorkerCompleted
+        Label1.Text = "supprétion des fichiers TEMP..."
+        BackgroundWorker4.RunWorkerAsync()
+    End Sub
+
+    Private Sub Form8_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        If import = 1 Then
+            e.Cancel = True
+            MsgBox("merci de patianter pandent l'importation", MsgBoxStyle.Exclamation)
+        ElseIf import = 2 Then
+            e.Cancel = True
+            MsgBox("merci de patianter pandent la création de la sauvegarde", MsgBoxStyle.Exclamation)
+        Else
+            nombredeserver = 0
+            servercn = 0
+            proselect = Form4.profilselect
+            selectser = ""
+            zip2 = 0
+            heursa = ""
+            import = 0
+            OpenFileDialog1.FileName = ""
+            FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.Desktop
+        End If
+
+    End Sub
+
+    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
+        MsgBox(Label1.Text, MsgBoxStyle.Information)
+    End Sub
+
+    Private Sub BackgroundWorker4_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker4.DoWork
+        For Each fichier1 As String In IO.Directory.GetDirectories(profil & proselect & "/tmp/")
+            Dim info As New IO.FileInfo(fichier1)
+            Directory.Delete(fichier1, recursive:=True)
+        Next
+        Directory.Delete(profil & proselect & "/tmp/")
+    End Sub
+
+    Private Sub BackgroundWorker4_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker4.RunWorkerCompleted
+        ProgressBar1.Style = ProgressBarStyle.Continuous
+        ProgressBar1.Value = 100
+        import = 0
+        If CheckBox1.Checked = True Then
+            CheckBox1.Hide()
+            Form12.ShowDialog()
+            Close()
+        Else
+            CheckBox1.Hide()
+            MsgBox("Sauvagarde terminer", MsgBoxStyle.Information)
+            Close()
+        End If
+    End Sub
+End Class

Form9.Designer.vb

@@ -0,0 +1,107 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form9
+    Inherits System.Windows.Forms.Form
+
+    'Form remplace la méthode Dispose pour nettoyer la liste des composants.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Requise par le Concepteur Windows Form
+    Private components As System.ComponentModel.IContainer
+
+    'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
+    'Elle peut être modifiée à l'aide du Concepteur Windows Form.  
+    'Ne la modifiez pas à l'aide de l'éditeur de code.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form9))
+        Me.ListBox1 = New System.Windows.Forms.ListBox()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ExporterVerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.SuppimerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.EnvoyerSurZaybackDriveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
+        Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'ListBox1
+        '
+        Me.ListBox1.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.ListBox1.FormattingEnabled = True
+        Me.ListBox1.ItemHeight = 16
+        Me.ListBox1.Location = New System.Drawing.Point(12, 12)
+        Me.ListBox1.Name = "ListBox1"
+        Me.ListBox1.Size = New System.Drawing.Size(290, 212)
+        Me.ListBox1.TabIndex = 0
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExporterVerToolStripMenuItem, Me.SuppimerToolStripMenuItem, Me.EnvoyerSurZaybackDriveToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(210, 70)
+        '
+        'ExporterVerToolStripMenuItem
+        '
+        Me.ExporterVerToolStripMenuItem.Image = CType(resources.GetObject("ExporterVerToolStripMenuItem.Image"), System.Drawing.Image)
+        Me.ExporterVerToolStripMenuItem.Name = "ExporterVerToolStripMenuItem"
+        Me.ExporterVerToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
+        Me.ExporterVerToolStripMenuItem.Text = "Exporter ver"
+        '
+        'SuppimerToolStripMenuItem
+        '
+        Me.SuppimerToolStripMenuItem.Image = CType(resources.GetObject("SuppimerToolStripMenuItem.Image"), System.Drawing.Image)
+        Me.SuppimerToolStripMenuItem.Name = "SuppimerToolStripMenuItem"
+        Me.SuppimerToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
+        Me.SuppimerToolStripMenuItem.Text = "Suppimer"
+        '
+        'EnvoyerSurZaybackDriveToolStripMenuItem
+        '
+        Me.EnvoyerSurZaybackDriveToolStripMenuItem.Image = CType(resources.GetObject("EnvoyerSurZaybackDriveToolStripMenuItem.Image"), System.Drawing.Image)
+        Me.EnvoyerSurZaybackDriveToolStripMenuItem.Name = "EnvoyerSurZaybackDriveToolStripMenuItem"
+        Me.EnvoyerSurZaybackDriveToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
+        Me.EnvoyerSurZaybackDriveToolStripMenuItem.Text = "Envoyer sur zayback drive"
+        '
+        'BackgroundWorker1
+        '
+        '
+        'FolderBrowserDialog1
+        '
+        '
+        'Form9
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(314, 236)
+        Me.Controls.Add(Me.ListBox1)
+        Me.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.MaximizeBox = False
+        Me.MaximumSize = New System.Drawing.Size(330, 275)
+        Me.MinimumSize = New System.Drawing.Size(330, 275)
+        Me.Name = "Form9"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Form9"
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents ListBox1 As ListBox
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents ExporterVerToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents SuppimerToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents EnvoyerSurZaybackDriveToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
+    Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
+End Class

Form9.vb

@@ -0,0 +1,78 @@
+Imports System.ComponentModel
+Imports System.IO
+
+Public Class Form9
+    Dim selct = Form4.profilselect
+    Dim listsel = ""
+    Public encours As Integer = 0
+    Private Sub Form9_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        BackColor = Form4.BackColor
+        ForeColor = Form4.ForeColor
+        ListBox1.BackColor = BackColor
+        ContextMenuStrip1.BackColor = BackColor
+        ListBox1.ForeColor = ForeColor
+        ContextMenuStrip1.ForeColor = ForeColor
+        selct = Form4.profilselect
+        listsel = ""
+        encours = 0
+        Text = "Les sauvegarde de: " & Form4.profilselect
+        ListBox1.Items.Clear()
+
+        For Each fichier As String In IO.Directory.GetFiles(profil & "/" & Form4.profilselect & "/Backup/")
+            Dim info As New IO.FileInfo(fichier)
+            ListBox1.Items.Add(info.Name.ToString.Replace(".zip", ""))
+        Next
+    End Sub
+
+    Private Sub ListBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedValueChanged
+        SuppimerToolStripMenuItem.Text = "Suppimer: " & ListBox1.SelectedItem
+    End Sub
+
+    Private Sub SuppimerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SuppimerToolStripMenuItem.Click
+        Dim msg = MsgBox("voulez vous supprimer le sauvegarde:" & ListBox1.SelectedItem & " ?", MsgBoxStyle.YesNo)
+        If msg = MsgBoxResult.Yes Then
+            File.Delete(profil & "/" & Form4.profilselect & "/Backup/" & ListBox1.SelectedItem & ".zip")
+            MsgBox("La sauvegarde: " & ListBox1.SelectedItem & " à bien êtê supprimer", MsgBoxStyle.Information)
+            recharche()
+        Else
+            MsgBox("action annuler", MsgBoxStyle.Information)
+        End If
+    End Sub
+    Sub recharche()
+        ListBox1.Items.Clear()
+        For Each fichier As String In IO.Directory.GetFiles(profil & "/" & Form4.profilselect & "/Backup/")
+            Dim info As New IO.FileInfo(fichier)
+            ListBox1.Items.Add(info.Name.ToString.Replace(".zip", ""))
+        Next
+        Form4.file = ListBox1.Items.Count
+        If ListBox1.Items.Count = 0 Then
+            Close()
+        End If
+    End Sub
+
+    Private Sub ExporterVerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExporterVerToolStripMenuItem.Click
+        If FolderBrowserDialog1.ShowDialog = 1 Then
+            encours = 1
+            listsel = ListBox1.SelectedItem
+            Form10.Text = "Exportation de la sauvegarde: " & ListBox1.SelectedItem
+            BackgroundWorker1.RunWorkerAsync()
+            Form10.ShowDialog()
+        End If
+    End Sub
+
+    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
+        File.Copy(profil.ToString & selct.ToString & "/Backup/" & listsel.ToString & ".zip", FolderBrowserDialog1.SelectedPath.ToString & "/" & listsel.ToString & ".zip")
+    End Sub
+
+    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
+        encours = 0
+        Form10.Close()
+        MsgBox("La sauvegarde: " & ListBox1.SelectedItem & " a bien êtê exporter", MsgBoxStyle.Information)
+    End Sub
+
+    Private Sub Form9_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        selct = Form4.profilselect
+        listsel = ""
+        encours = 0
+    End Sub
+End Class

Module1.vb

@@ -0,0 +1,8 @@
+Module Module1
+    Public dospara = Application.StartupPath & "/zaybackup/"
+    Public profil = dospara & "/profils/"
+    Public dosparasetting = dospara & "/settings/"
+    Public dosparaupdate = dospara & "/update/"
+    Public dosparalang = dospara & "/lang/"
+    Public vr = "1.0"
+End Module

My Project/Application.Designer.vb

@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Ce code a été généré par un outil.
+'     Version du runtime :4.0.30319.42000
+'
+'     Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
+'     le code est régénéré.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    'REMARQUE : Ce fichier étant généré automatiquement, ne le modifiez pas directement.  Pour apporter des modifications,
+    ' ou si vous rencontrez des erreurs de build dans ce fichier, accédez au Concepteur de projets
+    ' (allez dans les propriétés du projet ou double-cliquez sur le nœud My Project dans
+    ' l'Explorateur de solutions), puis apportez vos modifications sous l'onglet Application.
+    '
+    Partial Friend Class MyApplication
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Public Sub New()
+            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+            Me.IsSingleInstance = true
+            Me.EnableVisualStyles = true
+            Me.SaveMySettingsOnExit = true
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterAllFormsClose
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Sub OnCreateMainForm()
+            Me.MainForm = Global.zayback.Form1
+        End Sub
+    End Class
+End Namespace

My Project/Application.myapp

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+  <MySubMain>true</MySubMain>
+  <MainForm>Form1</MainForm>
+  <SingleInstance>true</SingleInstance>
+  <ShutdownMode>1</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Les informations générales relatives à un assembly dépendent de
+' l'ensemble d'attributs suivant. Changez les valeurs de ces attributs pour modifier les informations
+' associées à un assembly.
+
+' Vérifiez les valeurs des attributs de l'assembly
+
+<Assembly: AssemblyTitle("zayback")>
+<Assembly: AssemblyDescription("permet de faire des sauvegarde de ces serveur fasilement")>
+<Assembly: AssemblyCompany("zaynium")>
+<Assembly: AssemblyProduct("zayback")>
+<Assembly: AssemblyCopyright("Copyright ©  2024")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'Le GUID suivant est pour l'ID de la typelib si ce projet est exposé à COM
+<Assembly: Guid("e9cc4588-f908-475e-b9fd-d35a69e3a651")>
+
+' Les informations de version pour un assembly se composent des quatre valeurs suivantes :
+'
+'      Version principale
+'      Version secondaire
+'      Numéro de build
+'      Révision
+'
+' Vous pouvez spécifier toutes les valeurs ou indiquer les numéros de build et de révision par défaut
+' en utilisant '*', comme indiqué ci-dessous :
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.0.0.0")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>

My Project/Resources.Designer.vb

@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Ce code a été généré par un outil.
+'     Version du runtime :4.0.30319.42000
+'
+'     Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
+'     le code est régénéré.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'Cette classe a été générée automatiquement par la classe StronglyTypedResourceBuilder
+    'à l'aide d'un outil, tel que ResGen ou Visual Studio.
+    'Pour ajouter ou supprimer un membre, modifiez votre fichier .ResX, puis réexécutez ResGen
+    'avec l'option /str ou régénérez votre projet VS.
+    '''<summary>
+    '''  Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
+    Friend Module Resources
+        
+        Private resourceMan As Global.System.Resources.ResourceManager
+        
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+        
+        '''<summary>
+        '''  Retourne l'instance ResourceManager mise en cache utilisée par cette classe.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("zayback.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Remplace la propriété CurrentUICulture du thread actuel pour toutes
+        '''  les recherches de ressources à l'aide de cette classe de ressource fortement typée.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+        
+        '''<summary>
+        '''  Recherche une ressource localisée de type System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property minecraft_logo_icon_168974() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("minecraft_logo_icon_168974", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+    End Module
+End Namespace

My Project/Resources.resx

@@ -0,0 +1,124 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="minecraft_logo_icon_168974" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\minecraft_logo_icon_168974.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+</root>

My Project/Settings.Designer.vb

@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+        Private Shared addedHandler As Boolean
+
+        Private Shared addedHandlerLockObject As New Object
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+            If My.Application.SaveMySettingsOnExit Then
+                My.Settings.Save()
+            End If
+        End Sub
+#End If
+#End Region
+
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+
+#If _MyType = "WindowsForms" Then
+                   If Not addedHandler Then
+                        SyncLock addedHandlerLockObject
+                            If Not addedHandler Then
+                                AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                                addedHandler = True
+                            End If
+                        End SyncLock
+                    End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+    Friend Module MySettingsProperty
+
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+        Friend ReadOnly Property Settings() As Global.zayback.My.MySettings
+            Get
+                Return Global.zayback.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

My Project/Settings.settings

@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+  <Profiles>
+    <Profile Name="(Default)" />
+  </Profiles>
+  <Settings />
+</SettingsFile>

bin/Debug/zayback.exe.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2" />
+    </startup>
+</configuration>

bin/Debug/zayback.xml

@@ -0,0 +1,31 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+zayback
+</name>
+</assembly>
+<members>
+<member name="T:zayback.My.Resources.Resources">
+<summary>
+  Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées.
+</summary>
+</member>
+<member name="P:zayback.My.Resources.Resources.ResourceManager">
+<summary>
+  Retourne l'instance ResourceManager mise en cache utilisée par cette classe.
+</summary>
+</member>
+<member name="P:zayback.My.Resources.Resources.Culture">
+<summary>
+  Remplace la propriété CurrentUICulture du thread actuel pour toutes
+  les recherches de ressources à l'aide de cette classe de ressource fortement typée.
+</summary>
+</member>
+<member name="P:zayback.My.Resources.Resources.minecraft_logo_icon_168974">
+<summary>
+  Recherche une ressource localisée de type System.Drawing.Bitmap.
+</summary>
+</member>
+</members>
+</doc>

bin/Debug/zaybackup/settings/lang.txt

@@ -0,0 +1 @@
+0

bin/Debug/zaybackup/settings/langselect.txt

@@ -0,0 +1 @@
+0

bin/Debug/zaybackup/settings/stopauto.txt

@@ -0,0 +1 @@
+0

bin/Debug/zaybackup/settings/theme.txt

@@ -0,0 +1 @@
+1

bin/Debug/zaybackup/update/autoupdate.txt

@@ -0,0 +1 @@
+1

obj/Debug/.NETFramework,Version=v4.7.2.AssemblyAttributes.vb

@@ -0,0 +1,7 @@
+' <autogenerated/>
+            Option Strict Off
+            Option Explicit On
+
+            Imports System
+            Imports System.Reflection
+            <Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.7.2", FrameworkDisplayName:=".NET Framework 4.7.2")>

obj/Debug/zayback.vbproj.CoreCompileInputs.cache

@@ -0,0 +1 @@
+de7b1fd6e4330d9157199209f41bb4ff34f96fd44b79969c8d32a4fd43398911

obj/Debug/zayback.vbproj.FileListAbsolute.txt

@@ -0,0 +1,24 @@
+D:\DATA\dev\zayback\zayback\bin\Debug\zayback.exe.config
+D:\DATA\dev\zayback\zayback\bin\Debug\zayback.exe
+D:\DATA\dev\zayback\zayback\bin\Debug\zayback.pdb
+D:\DATA\dev\zayback\zayback\bin\Debug\zayback.xml
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.vbproj.AssemblyReference.cache
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.Form1.resources
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.Resources.resources
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.vbproj.GenerateResource.cache
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.vbproj.CoreCompileInputs.cache
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.exe
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.xml
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.pdb
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.Form2.resources
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.Form3.resources
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.Form4.resources
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.Form5.resources
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.Form6.resources
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.Form7.resources
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.Form8.resources
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.Form9.resources
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.Form10.resources
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.Form11.resources
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.Form12.resources
+D:\DATA\dev\zayback\zayback\obj\Debug\zayback.Form13.resources

obj/Debug/zayback.xml

@@ -0,0 +1,31 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+zayback
+</name>
+</assembly>
+<members>
+<member name="T:zayback.My.Resources.Resources">
+<summary>
+  Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées.
+</summary>
+</member>
+<member name="P:zayback.My.Resources.Resources.ResourceManager">
+<summary>
+  Retourne l'instance ResourceManager mise en cache utilisée par cette classe.
+</summary>
+</member>
+<member name="P:zayback.My.Resources.Resources.Culture">
+<summary>
+  Remplace la propriété CurrentUICulture du thread actuel pour toutes
+  les recherches de ressources à l'aide de cette classe de ressource fortement typée.
+</summary>
+</member>
+<member name="P:zayback.My.Resources.Resources.minecraft_logo_icon_168974">
+<summary>
+  Recherche une ressource localisée de type System.Drawing.Bitmap.
+</summary>
+</member>
+</members>
+</doc>

packages.config

@@ -0,0 +1,4 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+  <package id="System.IO.Compression.ZipFile" version="4.3.0" targetFramework="net472" />
+</packages>

packages/System.IO.Compression.ZipFile.4.3.0/ThirdPartyNotices.txt

@@ -0,0 +1,31 @@
+This Microsoft .NET Library may incorporate components from the projects listed
+below. Microsoft licenses these components under the Microsoft .NET Library
+software license terms. The original copyright notices and the licenses under
+which Microsoft received such components are set forth below for informational
+purposes only. Microsoft reserves all rights not expressly granted herein,
+whether by implication, estoppel or otherwise.
+
+1.	.NET Core (https://github.com/dotnet/core/)
+
+.NET Core
+Copyright (c) .NET Foundation and Contributors
+
+The MIT License (MIT)
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

packages/System.IO.Compression.ZipFile.4.3.0/dotnet_library_license.txt

@@ -0,0 +1,128 @@
+
+MICROSOFT SOFTWARE LICENSE TERMS
+
+
+MICROSOFT .NET LIBRARY 
+
+These license terms are an agreement between Microsoft Corporation (or based on where you live, one of its affiliates) and you. Please read them. They apply to the software named above, which includes the media on which you received it, if any. The terms also apply to any Microsoft
+
+·         updates,
+
+·         supplements,
+
+·         Internet-based services, and
+
+·         support services
+
+for this software, unless other terms accompany those items. If so, those terms apply.
+
+BY USING THE SOFTWARE, YOU ACCEPT THESE TERMS. IF YOU DO NOT ACCEPT THEM, DO NOT USE THE SOFTWARE.
+
+
+IF YOU COMPLY WITH THESE LICENSE TERMS, YOU HAVE THE PERPETUAL RIGHTS BELOW.
+
+1.    INSTALLATION AND USE RIGHTS. 
+
+a.    Installation and Use. You may install and use any number of copies of the software to design, develop and test your programs.
+
+b.    Third Party Programs. The software may include third party programs that Microsoft, not the third party, licenses to you under this agreement. Notices, if any, for the third party program are included for your information only.
+
+2.    ADDITIONAL LICENSING REQUIREMENTS AND/OR USE RIGHTS.
+
+a.    DISTRIBUTABLE CODE.  The software is comprised of Distributable Code. “Distributable Code” is code that you are permitted to distribute in programs you develop if you comply with the terms below.
+
+i.      Right to Use and Distribute. 
+
+·         You may copy and distribute the object code form of the software.
+
+·         Third Party Distribution. You may permit distributors of your programs to copy and distribute the Distributable Code as part of those programs.
+
+ii.    Distribution Requirements. For any Distributable Code you distribute, you must
+
+·         add significant primary functionality to it in your programs;
+
+·         require distributors and external end users to agree to terms that protect it at least as much as this agreement;
+
+·         display your valid copyright notice on your programs; and
+
+·         indemnify, defend, and hold harmless Microsoft from any claims, including attorneys’ fees, related to the distribution or use of your programs.
+
+iii.   Distribution Restrictions. You may not
+
+·         alter any copyright, trademark or patent notice in the Distributable Code;
+
+·         use Microsoft’s trademarks in your programs’ names or in a way that suggests your programs come from or are endorsed by Microsoft;
+
+·         include Distributable Code in malicious, deceptive or unlawful programs; or
+
+·         modify or distribute the source code of any Distributable Code so that any part of it becomes subject to an Excluded License. An Excluded License is one that requires, as a condition of use, modification or distribution, that
+
+·         the code be disclosed or distributed in source code form; or
+
+·         others have the right to modify it.
+
+3.    SCOPE OF LICENSE. The software is licensed, not sold. This agreement only gives you some rights to use the software. Microsoft reserves all other rights. Unless applicable law gives you more rights despite this limitation, you may use the software only as expressly permitted in this agreement. In doing so, you must comply with any technical limitations in the software that only allow you to use it in certain ways. You may not
+
+·         work around any technical limitations in the software;
+
+·         reverse engineer, decompile or disassemble the software, except and only to the extent that applicable law expressly permits, despite this limitation;
+
+·         publish the software for others to copy;
+
+·         rent, lease or lend the software;
+
+·         transfer the software or this agreement to any third party; or
+
+·         use the software for commercial software hosting services.
+
+4.    BACKUP COPY. You may make one backup copy of the software. You may use it only to reinstall the software.
+
+5.    DOCUMENTATION. Any person that has valid access to your computer or internal network may copy and use the documentation for your internal, reference purposes.
+
+6.    EXPORT RESTRICTIONS. The software is subject to United States export laws and regulations. You must comply with all domestic and international export laws and regulations that apply to the software. These laws include restrictions on destinations, end users and end use. For additional information, see www.microsoft.com/exporting.
+
+7.    SUPPORT SERVICES. Because this software is “as is,” we may not provide support services for it.
+
+8.    ENTIRE AGREEMENT. This agreement, and the terms for supplements, updates, Internet-based services and support services that you use, are the entire agreement for the software and support services.
+
+9.    APPLICABLE LAW.
+
+a.    United States. If you acquired the software in the United States, Washington state law governs the interpretation of this agreement and applies to claims for breach of it, regardless of conflict of laws principles. The laws of the state where you live govern all other claims, including claims under state consumer protection laws, unfair competition laws, and in tort.
+
+b.    Outside the United States. If you acquired the software in any other country, the laws of that country apply.
+
+10.  LEGAL EFFECT. This agreement describes certain legal rights. You may have other rights under the laws of your country. You may also have rights with respect to the party from whom you acquired the software. This agreement does not change your rights under the laws of your country if the laws of your country do not permit it to do so.
+
+11.  DISCLAIMER OF WARRANTY. THE SOFTWARE IS LICENSED “AS-IS.” YOU BEAR THE RISK OF USING IT. MICROSOFT GIVES NO EXPRESS WARRANTIES, GUARANTEES OR CONDITIONS. YOU MAY HAVE ADDITIONAL CONSUMER RIGHTS OR STATUTORY GUARANTEES UNDER YOUR LOCAL LAWS WHICH THIS AGREEMENT CANNOT CHANGE. TO THE EXTENT PERMITTED UNDER YOUR LOCAL LAWS, MICROSOFT EXCLUDES THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT.
+
+FOR AUSTRALIA – YOU HAVE STATUTORY GUARANTEES UNDER THE AUSTRALIAN CONSUMER LAW AND NOTHING IN THESE TERMS IS INTENDED TO AFFECT THOSE RIGHTS.
+
+12.  LIMITATION ON AND EXCLUSION OF REMEDIES AND DAMAGES. YOU CAN RECOVER FROM MICROSOFT AND ITS SUPPLIERS ONLY DIRECT DAMAGES UP TO U.S. $5.00. YOU CANNOT RECOVER ANY OTHER DAMAGES, INCLUDING CONSEQUENTIAL, LOST PROFITS, SPECIAL, INDIRECT OR INCIDENTAL DAMAGES.
+
+This limitation applies to
+
+·         anything related to the software, services, content (including code) on third party Internet sites, or third party programs; and
+
+·         claims for breach of contract, breach of warranty, guarantee or condition, strict liability, negligence, or other tort to the extent permitted by applicable law.
+
+It also applies even if Microsoft knew or should have known about the possibility of the damages. The above limitation or exclusion may not apply to you because your country may not allow the exclusion or limitation of incidental, consequential or other damages.
+
+Please note: As this software is distributed in Quebec, Canada, some of the clauses in this agreement are provided below in French.
+
+Remarque : Ce logiciel étant distribué au Québec, Canada, certaines des clauses dans ce contrat sont fournies ci-dessous en français.
+
+EXONÉRATION DE GARANTIE. Le logiciel visé par une licence est offert « tel quel ». Toute utilisation de ce logiciel est à votre seule risque et péril. Microsoft n’accorde aucune autre garantie expresse. Vous pouvez bénéficier de droits additionnels en vertu du droit local sur la protection des consommateurs, que ce contrat ne peut modifier. La ou elles sont permises par le droit locale, les garanties implicites de qualité marchande, d’adéquation à un usage particulier et d’absence de contrefaçon sont exclues.
+
+LIMITATION DES DOMMAGES-INTÉRÊTS ET EXCLUSION DE RESPONSABILITÉ POUR LES DOMMAGES. Vous pouvez obtenir de Microsoft et de ses fournisseurs une indemnisation en cas de dommages directs uniquement à hauteur de 5,00 $ US. Vous ne pouvez prétendre à aucune indemnisation pour les autres dommages, y compris les dommages spéciaux, indirects ou accessoires et pertes de bénéfices.
+
+Cette limitation concerne :
+
+·         tout ce qui est relié au logiciel, aux services ou au contenu (y compris le code) figurant sur des sites Internet tiers ou dans des programmes tiers ; et
+
+·         les réclamations au titre de violation de contrat ou de garantie, ou au titre de responsabilité stricte, de négligence ou d’une autre faute dans la limite autorisée par la loi en vigueur.
+
+Elle s’applique également, même si Microsoft connaissait ou devrait connaître l’éventualité d’un tel dommage. Si votre pays n’autorise pas l’exclusion ou la limitation de responsabilité pour les dommages indirects, accessoires ou de quelque nature que ce soit, il se peut que la limitation ou l’exclusion ci-dessus ne s’appliquera pas à votre égard.
+
+EFFET JURIDIQUE. Le présent contrat décrit certains droits juridiques. Vous pourriez avoir d’autres droits prévus par les lois de votre pays. Le présent contrat ne modifie pas les droits que vous confèrent les lois de votre pays si celles-ci ne le permettent pas.
+
+