6789 lines
317 KiB
VB.net
6789 lines
317 KiB
VB.net
Imports System.ComponentModel
|
||
Imports System.IO
|
||
Imports System.Net
|
||
Imports System.Net.Mail
|
||
Imports AxWMPLib
|
||
Imports System.Text
|
||
Imports System.Security.Cryptography
|
||
Imports System.Math
|
||
Imports System.Diagnostics.Eventing.Reader
|
||
|
||
Public Class Form3
|
||
Dim settings1 As String = repertoire & "settings1.txt"
|
||
Dim thémetemps As Integer = 0
|
||
Dim volume As Integer = 0
|
||
Dim radiov As Integer = 0
|
||
Dim mis As Integer = 0
|
||
Dim profilnomtemps As String = ""
|
||
Dim démarage As Integer = 0
|
||
Dim notif As Integer = 1
|
||
Dim théme2 As Integer = 0
|
||
Dim letterchange As Integer = 0
|
||
|
||
Dim lockop As Integer = 0
|
||
Dim lockradio As Integer = 0
|
||
Dim lockapp As Integer = 0
|
||
Dim lockhistorique As Integer = 0
|
||
Dim lockfilm As Integer = 0
|
||
Dim rtf As String = 0
|
||
Dim confirm As Integer = 0
|
||
Dim minivolume As Integer = 0
|
||
Dim plan As Integer = 0
|
||
Dim miniradio As Integer = 0
|
||
Dim kara As Integer = 0
|
||
Dim playlistvolume As Integer = 0
|
||
Dim vch As Integer = 0
|
||
Dim vmp As Integer = 0
|
||
Dim plans As Integer = 0
|
||
Dim chh As Integer = 0
|
||
Dim dlcn As Integer = 0
|
||
Public chh2 As Integer = 0
|
||
Dim marquerauto As Integer = 0
|
||
Dim marquerautotemps As Integer = 0
|
||
Dim closea As Integer = 0
|
||
Public passeincor As Integer = 0
|
||
Dim parchange As Integer = 0
|
||
Dim marqueurtempsa As Integer = 0
|
||
Dim couleurtemps As Integer = 0
|
||
Dim misauto As Integer = 0
|
||
Dim checkreini As Integer = 0
|
||
Dim Chemin = repertoire.ToString
|
||
Dim v, TailleTotale As Double
|
||
Public profpasstemps As String = ""
|
||
Dim changernomprof As Integer = 0
|
||
Dim ergister As Integer = 0
|
||
Dim ergister2 As Integer = 0
|
||
Dim Dossiers, Fichiers, Dossier
|
||
Dim dosSYNC As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\lecteur média SYNC\"
|
||
Dim thémetempsperso As String = ""
|
||
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
|
||
If CheckBox1.Checked = False Then
|
||
ComboBox1.Text = " "
|
||
ComboBox1.Enabled = False
|
||
Else
|
||
ComboBox1.Enabled = True
|
||
ComboBox1.SelectedItem = "50"
|
||
End If
|
||
End Sub
|
||
Dim dl As Integer = 0
|
||
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||
Dim lines47a() As String = File.ReadAllLines(dosparamètres & "/autostop.txt")
|
||
If lines47a(0) = 0 Then
|
||
ComboBox20.SelectedItem = "Désactivée"
|
||
ElseIf lines47a(0) = 1 Then
|
||
ComboBox20.SelectedItem = "1 heurs"
|
||
ElseIf lines47a(0) = 2 Then
|
||
ComboBox20.SelectedItem = "2 heurs"
|
||
ElseIf lines47a(0) = 3 Then
|
||
ComboBox20.SelectedItem = "3 heurs"
|
||
ElseIf lines47a(0) = 4 Then
|
||
ComboBox20.SelectedItem = "4 heurs"
|
||
ElseIf lines47a(0) = 5 Then
|
||
ComboBox20.SelectedItem = "5 heurs"
|
||
ElseIf lines47a(0) = 6 Then
|
||
ComboBox20.SelectedItem = "6 heurs"
|
||
ElseIf lines47a(0) = 7 Then
|
||
ComboBox20.SelectedItem = "7 heurs"
|
||
ElseIf lines47a(0) = 8 Then
|
||
ComboBox20.SelectedItem = "8 heurs"
|
||
ElseIf lines47a(0) = 9 Then
|
||
ComboBox20.SelectedItem = "9 heurs"
|
||
ElseIf lines47a(0) = 10 Then
|
||
ComboBox20.SelectedItem = "10 heurs"
|
||
End If
|
||
|
||
|
||
For Each fichier As String In IO.Directory.GetDirectories(dostheme)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
ComboBox3.Items.Add(info.Name)
|
||
Next
|
||
|
||
If File.Exists(doscontroleparantal & "active.txt") = True Then
|
||
Button43.Show()
|
||
Button42.Text = "Désactivée"
|
||
Else
|
||
Button43.Hide()
|
||
Button42.Text = "Activer"
|
||
End If
|
||
|
||
Dim lines46a() As String = File.ReadAllLines(Form1.settingfilm)
|
||
If lines46a(0) = 1 Then
|
||
GunaGoogleSwitch18.Checked = True
|
||
GunaLabel29.Text = "Activer"
|
||
Else
|
||
GunaGoogleSwitch18.Checked = False
|
||
GunaLabel29.Text = "Désactivée"
|
||
End If
|
||
|
||
Dim lines45a() As String = File.ReadAllLines(Form1.settingseries)
|
||
If lines45a(0) = 1 Then
|
||
ComboBox17.SelectedItem = "Effet sonore"
|
||
ElseIf lines45a(0) = 0 Then
|
||
ComboBox17.SelectedItem = "Ne rien faire"
|
||
ElseIf lines45a(0) = 2 Then
|
||
ComboBox17.SelectedItem = "Verrouiller la session"
|
||
ElseIf lines45a(0) = 3 Then
|
||
ComboBox17.SelectedItem = "Fermer la session"
|
||
ElseIf lines45a(0) = 4 Then
|
||
ComboBox17.SelectedItem = "Mettre en veille prolonger"
|
||
ElseIf lines45a(0) = 5 Then
|
||
ComboBox17.SelectedItem = "Arrêter l'ordinateur"
|
||
End If
|
||
|
||
If lines45a(1) = 0 Then
|
||
GunaGoogleSwitch17.Checked = False
|
||
GunaLabel13.Text = "Désactivée"
|
||
Else
|
||
GunaGoogleSwitch17.Checked = True
|
||
GunaLabel13.Text = "Activer"
|
||
End If
|
||
|
||
Dim lines45() As String = File.ReadAllLines(fichiermisajourdev)
|
||
If lines45(0) = 1 Then
|
||
ComboBox19.SelectedItem = "Bêta"
|
||
Else
|
||
ComboBox19.SelectedItem = "Stable"
|
||
End If
|
||
|
||
If vrportable = 1 Then
|
||
GunaLabel28.Hide()
|
||
ComboBox19.Hide()
|
||
ChromeButton1.Hide()
|
||
End If
|
||
|
||
Label43.Text = "Nombre de profils: " & coutprofils
|
||
|
||
If vrportable = 1 Then
|
||
Dim folderSize As Long = FolderSizeCalculator.GetFolderSize(Application.StartupPath)
|
||
Dim toutlesdossier = func_RoundTaille(LaTaille:=folderSize)
|
||
Label49.Text = toutlesdossier
|
||
Dim folderSize2 As Long = FolderSizeCalculator.GetFolderSize(repertoirebacup)
|
||
Dim backupdossier = func_RoundTaille(LaTaille:=folderSize2)
|
||
Label48.Text = backupdossier
|
||
Dim bc = folderSize2 / folderSize * 100
|
||
CircularProgressBar1.Value = bc
|
||
CircularProgressBar1.Text = CircularProgressBar1.Value & "%"
|
||
Dim folderSize3 As Long = FolderSizeCalculator.GetFolderSize(repertoireavis)
|
||
Dim datadossier = func_RoundTaille(LaTaille:=folderSize3)
|
||
Label39.Text = datadossier
|
||
Dim bc2 = folderSize3 / folderSize * 100
|
||
CircularProgressBar3.Value = bc2
|
||
CircularProgressBar3.Text = CircularProgressBar3.Value & "%"
|
||
Dim folderSize4 As Long = FolderSizeCalculator.GetFolderSize(film)
|
||
Dim filmdossier = func_RoundTaille(LaTaille:=folderSize4)
|
||
Label44.Text = filmdossier
|
||
Dim bc3 = folderSize4 / folderSize * 100
|
||
CircularProgressBar4.Value = bc3
|
||
CircularProgressBar4.Text = CircularProgressBar4.Value & "%"
|
||
Dim folderSize5 As Long = FolderSizeCalculator.GetFolderSize(dossérie)
|
||
Dim sériesdossier = func_RoundTaille(LaTaille:=folderSize5)
|
||
Label45.Text = sériesdossier
|
||
Dim bc4 = folderSize5 / folderSize * 100
|
||
CircularProgressBar5.Value = bc4
|
||
CircularProgressBar5.Text = CircularProgressBar5.Value & "%"
|
||
Dim folderSize6 As Long = FolderSizeCalculator.GetFolderSize(discté)
|
||
Dim disctédossier = func_RoundTaille(LaTaille:=folderSize6)
|
||
Label47.Text = disctédossier
|
||
Dim bc5 = folderSize6 / folderSize * 100
|
||
CircularProgressBar7.Value = bc5
|
||
CircularProgressBar7.Text = CircularProgressBar7.Value & "%"
|
||
Dim folderSize7 As Long = FolderSizeCalculator.GetFolderSize(dosplaylist)
|
||
Dim playlistossier = func_RoundTaille(LaTaille:=folderSize7)
|
||
Label46.Text = playlistossier
|
||
Dim bc6 = folderSize7 / folderSize * 100
|
||
CircularProgressBar6.Value = bc6
|
||
CircularProgressBar6.Text = CircularProgressBar6.Value & "%"
|
||
Dim folderSize8 = folderSize - folderSize2 - folderSize4 - folderSize5 - folderSize6 - folderSize7
|
||
Dim autredossier = func_RoundTaille(LaTaille:=folderSize8)
|
||
Label57.Text = autredossier
|
||
Dim bc7 = folderSize8 / folderSize * 100
|
||
CircularProgressBar8.Value = bc7
|
||
CircularProgressBar8.Text = CircularProgressBar8.Value & "%"
|
||
Else
|
||
Dim fsize As Long
|
||
For Each file As String In My.Computer.FileSystem.GetFiles(mesbacup)
|
||
Dim finnfo As New System.IO.FileInfo(file)
|
||
fsize += finnfo.Length
|
||
Next
|
||
|
||
Dim fsize2 As Long
|
||
For Each file2 As String In My.Computer.FileSystem.GetFiles(Application.StartupPath)
|
||
Dim finnfo2 As New System.IO.FileInfo(file2)
|
||
fsize2 += finnfo2.Length
|
||
Next
|
||
|
||
Dim folderSize As Long = FolderSizeCalculator.GetFolderSize(repertoireavis)
|
||
|
||
Dim folderSize2 As Long = FolderSizeCalculator.GetFolderSize(film)
|
||
|
||
Dim folderSize3 As Long = FolderSizeCalculator.GetFolderSize(dossérie)
|
||
|
||
Dim folderSize4 As Long = FolderSizeCalculator.GetFolderSize(dosplaylist)
|
||
|
||
Dim folderSize5 As Long = FolderSizeCalculator.GetFolderSize(Application.StartupPath)
|
||
|
||
Dim folderSize7 As Long = FolderSizeCalculator.GetFolderSize(discté)
|
||
|
||
Dim folderSize6 As Long = FolderSizeCalculator.GetFolderSize(repertoirebacup)
|
||
|
||
Dim test23 = folderSize6 + folderSize5 + folderSize
|
||
|
||
Dim test31 = folderSize - folderSize7 - folderSize4 - folderSize3 - folderSize2
|
||
|
||
Dim test24 = folderSize6 / test23 * 100
|
||
|
||
Dim test26 = folderSize / test23 * 100
|
||
|
||
Dim test27 = folderSize2 / test23 * 100
|
||
|
||
Dim test28 = folderSize3 / test23 * 100
|
||
|
||
Dim test29 = folderSize4 / test23 * 100
|
||
|
||
Dim test30 = folderSize7 / test23 * 100
|
||
|
||
Dim test32 = test31 / test23 * 100
|
||
|
||
CircularProgressBar1.Value = test24
|
||
CircularProgressBar1.Text = CircularProgressBar1.Value & "%"
|
||
|
||
CircularProgressBar3.Value = test26
|
||
CircularProgressBar3.Text = CircularProgressBar3.Value & "%"
|
||
|
||
CircularProgressBar4.Value = test27
|
||
CircularProgressBar4.Text = CircularProgressBar4.Value & "%"
|
||
|
||
CircularProgressBar5.Value = test28
|
||
CircularProgressBar5.Text = CircularProgressBar5.Value & "%"
|
||
|
||
CircularProgressBar6.Value = test29
|
||
CircularProgressBar6.Text = CircularProgressBar6.Value & "%"
|
||
|
||
CircularProgressBar7.Value = test30
|
||
CircularProgressBar7.Text = CircularProgressBar7.Value & "%"
|
||
|
||
CircularProgressBar8.Value = test32
|
||
CircularProgressBar8.Text = CircularProgressBar8.Value & "%"
|
||
|
||
Dim azaz = func_RoundTaille(LaTaille:=folderSize)
|
||
|
||
Label39.Text = azaz
|
||
|
||
Dim azaz2 = func_RoundTaille(LaTaille:=folderSize2)
|
||
|
||
Label44.Text = azaz2
|
||
|
||
Dim azaz3 = func_RoundTaille(LaTaille:=test23)
|
||
|
||
Label49.Text = azaz3
|
||
|
||
Dim azaz4 = func_RoundTaille(LaTaille:=folderSize6)
|
||
|
||
Label48.Text = azaz4
|
||
|
||
Dim azaz5 = func_RoundTaille(LaTaille:=folderSize3)
|
||
|
||
Label45.Text = azaz5
|
||
|
||
Dim azaz6 = func_RoundTaille(LaTaille:=folderSize7)
|
||
|
||
Label47.Text = azaz6
|
||
|
||
Dim azaz7 = func_RoundTaille(LaTaille:=folderSize4)
|
||
|
||
Label46.Text = azaz7
|
||
|
||
Dim azaz8 = func_RoundTaille(LaTaille:=test31)
|
||
|
||
Label57.Text = azaz8
|
||
End If
|
||
|
||
Dim lines44() As String = File.ReadAllLines(dosprofils & "/" & nomprofils & "/default.txt")
|
||
If lines44(0) = 1 Then
|
||
Button40.Enabled = False
|
||
Else
|
||
ChromeTabcontrol6.TabPages.Remove(TabPage12)
|
||
End If
|
||
|
||
Label42.Text = "Nom de votre profil: " & nomprofils
|
||
GunaCirclePictureBox1.Image = Image.FromFile(dosprofils & "/" & nomprofils & "/photo.png")
|
||
|
||
Timer9.Stop()
|
||
|
||
LinkLabel3.Hide()
|
||
checkreini = 0
|
||
|
||
ComboBox2.SelectedItem = "Tout le lecteur média"
|
||
ListBox5.Items.Clear()
|
||
ListBox6.Items.Clear()
|
||
|
||
For Each fichier As String In IO.Directory.GetFiles(mesbacup)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
ListBox5.Items.Add(info.Name)
|
||
Next
|
||
|
||
For Each fichier As String In IO.Directory.GetFiles(dosentère)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
ListBox6.Items.Add(info.Name)
|
||
Next
|
||
|
||
Button10.Show()
|
||
Button23.Hide()
|
||
TabPage21.BackColor = Color.FromArgb(64, 64, 64)
|
||
Dim lines4() As String = File.ReadAllLines(théme)
|
||
thémetemps = lines4(0)
|
||
If lines4(0) = 1 Then
|
||
ComboBox3.SelectedItem = "Clair"
|
||
ElseIf lines4(0) = 2 Then
|
||
ComboBox3.SelectedItem = "Sombre"
|
||
noir()
|
||
ElseIf lines4(0) = 3 Then
|
||
Dim lines1() As String = File.ReadAllLines(themeselect)
|
||
ComboBox3.SelectedItem = lines1(0)
|
||
thémetempsperso = lines1(0)
|
||
GunaLabel30.ForeColor = Form1.ForeColor
|
||
ComboBox20.BackColor = Form1.BackColor
|
||
ComboBox20.ForeColor = Form1.ForeColor
|
||
Button48.BackColor = Form1.BackColor
|
||
Button48.ForeColor = Form1.ForeColor
|
||
Label24.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label60.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label61.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label62.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label63.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label64.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel29.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel13.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox17.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox17.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button43.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button46.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button47.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button42.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button45.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button43.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button42.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button45.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button46.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button47.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label39.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label44.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label45.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label46.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label47.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label48.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label49.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label50.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label51.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label52.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label53.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label54.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label55.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label56.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label57.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label58.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button44.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button44.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CircularProgressBar1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CircularProgressBar2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CircularProgressBar3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CircularProgressBar4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CircularProgressBar5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CircularProgressBar6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CircularProgressBar7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CircularProgressBar8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel28.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox27.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button41.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button41.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button40.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button40.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button38.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button39.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button38.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button39.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button36.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button36.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button37.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button37.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button35.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button35.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button34.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button34.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
TextBox13.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
TextBox13.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaCirclePictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label42.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label42.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label43.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label43.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
LinkLabel1.LinkColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
LinkLabel2.LinkColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
LinkLabel3.LinkColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Panel21.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Panel1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Panel2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CheckBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CheckBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CheckBox4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CheckBox5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CheckBox6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CheckBox13.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CheckBox14.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CheckBox15.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CheckBox16.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CheckBox17.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CheckBox18.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CheckBox19.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CheckBox20.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CheckBox21.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CheckBox22.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CheckBox24.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CheckBox25.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CheckBox26.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button11.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button12.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button13.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button14.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button15.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button16.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button17.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button18.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button19.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button20.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button21.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button22.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button23.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button24.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button25.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button26.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button27.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button28.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button29.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button30.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button31.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button32.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button33.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ChromeButton1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ChromeButton2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label11.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label12.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label13.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label14.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label15.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label16.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label17.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label18.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label19.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label20.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label21.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label22.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label23.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label25.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label26.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label27.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label28.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label29.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label30.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label31.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label32.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label33.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label34.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label35.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label36.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label37.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label38.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaGoogleSwitch1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaGoogleSwitch2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaGoogleSwitch3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaGoogleSwitch4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaGoogleSwitch5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaGoogleSwitch6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaGoogleSwitch7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaGoogleSwitch8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaGoogleSwitch9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaGoogleSwitch10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaGoogleSwitch11.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaGoogleSwitch12.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaGoogleSwitch13.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaGoogleSwitch14.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaGoogleSwitch15.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel11.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel12.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel14.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel15.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel16.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel17.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel18.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel19.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel20.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel21.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel22.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel23.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel24.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel25.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel26.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel27.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PictureBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PictureBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PictureBox4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PictureBox5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PictureBox6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PictureBox7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PictureBox8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PictureBox9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PictureBox10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
LinkLabel1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
LinkLabel2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
LinkLabel3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
TextBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
TextBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
TextBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
TextBox4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
TextBox5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
TextBox6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
TextBox7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
TextBox8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
TextBox9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
TextBox10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
TextBox11.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
TextBox12.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ComboBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ComboBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ComboBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ComboBox4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ComboBox5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ComboBox6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ComboBox7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ComboBox8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ComboBox9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ComboBox10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ComboBox11.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ComboBox12.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ComboBox13.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ComboBox14.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ComboBox15.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ComboBox16.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ComboBox18.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ListBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ListBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ListBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ListBox4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ListBox5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ListBox6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Panel20.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label9.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label10.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label11.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label12.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label13.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label14.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label15.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label16.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label17.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label18.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label19.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label20.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label21.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label22.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label23.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label25.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label26.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label27.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label28.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label29.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label30.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label31.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label32.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label33.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label34.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label35.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label36.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label37.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label38.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label40.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label41.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label40.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label41.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaLabel1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel9.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel10.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel11.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel12.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel14.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel15.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel16.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel17.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel18.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel19.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel20.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel21.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel22.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel23.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel24.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel25.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel26.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
GunaLabel27.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button9.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button10.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button11.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button12.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button13.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button14.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button15.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button16.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button17.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button18.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button19.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button20.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button21.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button22.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button23.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button24.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button25.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button26.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button27.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button28.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button29.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button30.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button31.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button32.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button33.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ListBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ListBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ListBox3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ListBox4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ListBox5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ListBox6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
LinkLabel1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
LinkLabel2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
LinkLabel3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
TextBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
TextBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
TextBox3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
TextBox4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
TextBox5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
TextBox6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
TextBox7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
TextBox8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
TextBox9.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
TextBox10.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
TextBox11.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
TextBox12.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox9.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox10.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox11.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox12.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox13.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox14.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox15.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox16.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ComboBox18.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox13.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox14.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox15.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox16.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox17.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox18.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox19.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox20.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox21.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox22.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox24.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox25.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CheckBox26.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
LinkLabel1.LinkColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
LinkLabel2.LinkColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label65.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
End If
|
||
|
||
Dim lines5() As String = File.ReadAllLines(fichierconfigbackup)
|
||
If lines5(0) = 1 Or 2 Then
|
||
Button26.Visible = True
|
||
Button31.Visible = True
|
||
ElseIf lines5(0) = 0 Then
|
||
Button26.Visible = False
|
||
Button31.Hide()
|
||
End If
|
||
|
||
If lines5(0) = 1 Then
|
||
Label37.Text = "Type: tous les jours"
|
||
Button25.Text = "Modifier la sauvegarde"
|
||
Button26.Show()
|
||
Label38.Text = "Heurs: " & lines5(1) & "h" & lines5(2)
|
||
Label37.Show()
|
||
Label38.Show()
|
||
Label40.Hide()
|
||
ElseIf lines5(0) = 2 Then
|
||
Button26.Show()
|
||
Button25.Text = "Modifier la sauvegarde"
|
||
Label37.Text = "Type: par moins"
|
||
Label38.Text = "Heurs: " & lines5(1) & "h" & lines5(2)
|
||
Label40.Text = "Le jours: " & lines5(3)
|
||
Label37.Show()
|
||
Label38.Show()
|
||
Label40.Show()
|
||
Else
|
||
Button26.Visible = False
|
||
Button31.Visible = False
|
||
End If
|
||
|
||
Dim lines6() As String = File.ReadAllLines(lastedbackup)
|
||
If lines6(0) = 1 Then
|
||
Label41.Text = "Dernière sauvegarde: Le " & lines6(1) & "/" & lines6(2) & "/" & lines6(3) & " a " & lines6(4) & "h" & lines6(5)
|
||
Label41.Show()
|
||
Else
|
||
Label41.Hide()
|
||
End If
|
||
|
||
Dim nb As Integer = Directory.GetFiles(marqueur).Length
|
||
If nb >= 2 Then
|
||
Button24.Show()
|
||
Else
|
||
Button24.Hide()
|
||
End If
|
||
|
||
ComboBox15.Items.Add("Part default")
|
||
ComboBox15.Items.Add("Parcourir")
|
||
|
||
ComboBox16.Items.Add("Part default")
|
||
ComboBox16.Items.Add("Parcourir")
|
||
|
||
If File.Exists(compte & "co.zip") = True Then
|
||
File.Delete(compte & "co.zip")
|
||
End If
|
||
|
||
For Each fichier As String In IO.Directory.GetFiles(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
|
||
If File.Exists(compte & "photo.png") = True Then
|
||
File.Delete(compte & "photo.png")
|
||
End If
|
||
|
||
Dim date1 As Integer = 1900
|
||
|
||
While True
|
||
If date1 = 2061 Then
|
||
Exit While
|
||
Else
|
||
ComboBox13.Items.Add(date1)
|
||
date1 = date1 + 1
|
||
End If
|
||
End While
|
||
Try
|
||
If My.Computer.Network.Ping("www.google.com") = True Then
|
||
Dim maj As New WebClient
|
||
Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt")
|
||
If vri = 1 Then
|
||
Form1.NotifyIcon1.BalloonTipTitle = "serveur"
|
||
Form1.NotifyIcon1.BalloonTipText = "le serveur de lecteur média est indisponnible !!!"
|
||
Form1.NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning
|
||
Form1.NotifyIcon1.ShowBalloonTip(0)
|
||
Form1.NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
|
||
ChromeTabcontrol1.TabPages.Remove(TabPage2)
|
||
finiload()
|
||
Else
|
||
Dim lines1() As String = File.ReadAllLines(comtpeco2)
|
||
If lines1(0) = 1 Then
|
||
loadco()
|
||
Else
|
||
Label17.Show()
|
||
Label18.Show()
|
||
TextBox7.Show()
|
||
TextBox8.Show()
|
||
Button12.Show()
|
||
Button11.Show()
|
||
Panel1.Show()
|
||
Panel2.Hide()
|
||
PictureBox4.Hide()
|
||
finiload()
|
||
End If
|
||
End If
|
||
Else
|
||
ChromeTabcontrol1.TabPages.Remove(TabPage2)
|
||
finiload()
|
||
End If
|
||
Catch ex As Exception
|
||
Form1.NotifyIcon1.BalloonTipTitle = "internet"
|
||
Form1.NotifyIcon1.BalloonTipText = "vous n'êtes pas connecter a internet"
|
||
Form1.NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning
|
||
Form1.NotifyIcon1.ShowBalloonTip(0)
|
||
Form1.NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
|
||
ChromeTabcontrol1.TabPages.Remove(TabPage2)
|
||
ChromeTabcontrol1.TabPages.Remove(TabPage20)
|
||
finiload()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Button2_Click(sender As Object, e As EventArgs)
|
||
Dim volume As Integer = 0
|
||
Dim radiov As Integer = 1
|
||
Dim mis As Integer = 0
|
||
Dim démarage As Integer = 0
|
||
Dim registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
|
||
Dim key As Microsoft.Win32.RegistryKey = registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
|
||
ComboBox1.Show()
|
||
If File.Exists(settings1) Then
|
||
Dim lines2() As String = File.ReadAllLines(settings1)
|
||
|
||
If lines2(3) = 1 Then
|
||
key.DeleteValue(Application.ProductName)
|
||
End If
|
||
End If
|
||
CheckBox1.Checked = False
|
||
Dim sw As New StreamWriter(settings1)
|
||
sw.WriteLine(volume)
|
||
sw.WriteLine(radiov)
|
||
sw.WriteLine(mis)
|
||
sw.WriteLine(démarage)
|
||
sw.Close()
|
||
volume = 0
|
||
radiov = 0
|
||
mis = 0
|
||
démarage = 0
|
||
Me.Close()
|
||
End Sub
|
||
Private Sub Form3_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
|
||
ListBox1.Items.Clear()
|
||
ListBox2.Items.Clear()
|
||
End Sub
|
||
|
||
Private Sub Button6_Click(sender As Object, e As EventArgs)
|
||
Dim lines3() As String = File.ReadAllLines(notification)
|
||
If lines3(0) = 0 Then
|
||
nonotif()
|
||
ElseIf lines3(0) = 1 Then
|
||
lang1()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
||
ListBox1.ContextMenuStrip.Enabled = False
|
||
Button1.Enabled = False
|
||
If ListBox1.Items.Count = 0 Then
|
||
MsgBox("Aucun Favori a été trouvez", MsgBoxStyle.Exclamation)
|
||
Else
|
||
Dim t1 = ListBox1.SelectedItem
|
||
Dim t2 = Favoris1 & t1 & "\flux.txt"
|
||
Dim t3 = Favoris1 & t1
|
||
File.Delete(t2)
|
||
Directory.Delete(t3)
|
||
|
||
MsgBox("Le Favori: " & ListBox1.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)
|
||
|
||
ListBox1.Items.Clear()
|
||
|
||
For Each fichier As String In IO.Directory.GetDirectories(Favoris1)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
ListBox1.Items.Add(info.Name)
|
||
Next
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||
Dim sw4 As New StreamWriter(Favoris1)
|
||
ListBox1.Items.Clear()
|
||
For Each item In ListBox1.Items
|
||
sw4.WriteLine(item)
|
||
Next
|
||
sw4.Close()
|
||
End Sub
|
||
|
||
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
||
Dim sw As New StreamWriter(historique)
|
||
sw.WriteLine(0)
|
||
sw.Close()
|
||
ListBox2.Items.Clear()
|
||
End Sub
|
||
Sub nonotif()
|
||
Dim t1 = ListBox1.SelectedItem
|
||
Dim t2 = Favoris1 & t1 & "\flux.txt"
|
||
Dim lines1() As String = File.ReadAllLines(t2)
|
||
TextBox3.Text = lines1(0)
|
||
If TextBox3.Text.EndsWith(".mp4") Or TextBox3.Text.EndsWith(".avi") Or TextBox3.Text.EndsWith(".mkv") Or TextBox3.Text.EndsWith(".mov") Or TextBox3.Text.EndsWith(".wmv") Then
|
||
Form1.AxWindowsMediaPlayer1.URL = lines1(0)
|
||
Form1.AjoutéAuFavorisToolStripMenuItem.Enabled = True
|
||
Dim sw4 As New StreamWriter(historique)
|
||
Form1.ComboBox1.Text = " "
|
||
Form1.TextBox1.Text = Form1.AxWindowsMediaPlayer1.URL
|
||
Form1.PictureBox2.Hide()
|
||
Form1.PictureBox7.Hide()
|
||
Form1.PictureBox1.Hide()
|
||
Form1.PictureBox4.Show()
|
||
Form1.VitesseToolStripMenuItem.Enabled = True
|
||
Form1.AllaiAToolStripMenuItem.Enabled = True
|
||
Form1.PictureBox5.Enabled = True
|
||
Form1.PictureBox6.Enabled = True
|
||
Form1.PictureBox7.Enabled = True
|
||
Form1.PauseToolStripMenuItem.Enabled = True
|
||
Form1.StopToolStripMenuItem.Enabled = True
|
||
Form1.PleinToolStripMenuItem.Enabled = True
|
||
Form1.Text = "lecteur média" & ": " & Form1.AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.ListBox1.Items.Add(Form1.AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)
|
||
|
||
For Each item In ListBox1.Items
|
||
sw4.WriteLine(item)
|
||
Next
|
||
sw4.Close()
|
||
ElseIf TextBox3.Text.EndsWith(".mp3") Then
|
||
Form1.AxWindowsMediaPlayer1.URL = (ListBox1.SelectedItem)
|
||
Form1.AjoutéAuFavorisToolStripMenuItem.Enabled = True
|
||
Dim sw4 As New StreamWriter(historique)
|
||
Form1.TextBox1.Text = Form1.AxWindowsMediaPlayer1.URL
|
||
Form1.ListBox1.Items.Add(Form1.AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)
|
||
|
||
For Each item In ListBox1.Items
|
||
sw4.WriteLine(item)
|
||
Next
|
||
sw4.Close()
|
||
Form1.PictureBox7.Hide()
|
||
Form1.PictureBox2.Show()
|
||
Form1.PictureBox1.Hide()
|
||
Form1.PictureBox4.Show()
|
||
Form1.VitesseToolStripMenuItem.Enabled = False
|
||
Form1.AllaiAToolStripMenuItem.Enabled = False
|
||
Form1.PictureBox5.Enabled = True
|
||
Form1.PictureBox6.Enabled = True
|
||
Form1.PictureBox7.Enabled = True
|
||
Form1.PleinToolStripMenuItem.Enabled = False
|
||
Form1.PauseToolStripMenuItem.Enabled = True
|
||
Form1.StopToolStripMenuItem.Enabled = True
|
||
Form1.Text = "lecteur média" & ": " & Form1.AxWindowsMediaPlayer1.currentMedia.name
|
||
End If
|
||
Close()
|
||
End Sub
|
||
Sub lang1()
|
||
fr1()
|
||
End Sub
|
||
Sub fr1()
|
||
Dim t1 = ListBox1.SelectedItem
|
||
Dim t2 = Favoris1 & t1 & "\flux.txt"
|
||
Dim lines1() As String = File.ReadAllLines(t2)
|
||
TextBox3.Text = lines1(0)
|
||
If TextBox3.Text.EndsWith(".mp4") Or TextBox3.Text.EndsWith(".avi") Or TextBox3.Text.EndsWith(".mkv") Or TextBox3.Text.EndsWith(".mov") Or TextBox3.Text.EndsWith(".wmv") Then
|
||
Form1.AxWindowsMediaPlayer1.URL = lines1(0)
|
||
Form1.AjoutéAuFavorisToolStripMenuItem.Enabled = True
|
||
Dim sw4 As New StreamWriter(historique)
|
||
Form1.ComboBox1.Text = " "
|
||
Form1.TextBox1.Text = Form1.AxWindowsMediaPlayer1.URL
|
||
Form1.PictureBox2.Hide()
|
||
Form1.PictureBox7.Hide()
|
||
Form1.PictureBox1.Hide()
|
||
Form1.PictureBox4.Show()
|
||
Form1.VitesseToolStripMenuItem.Enabled = True
|
||
Form1.AllaiAToolStripMenuItem.Enabled = True
|
||
Form1.PictureBox5.Enabled = True
|
||
Form1.PictureBox6.Enabled = True
|
||
Form1.PictureBox7.Enabled = True
|
||
Form1.PauseToolStripMenuItem.Enabled = True
|
||
Form1.StopToolStripMenuItem.Enabled = True
|
||
Form1.PleinToolStripMenuItem.Enabled = True
|
||
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
||
Form1.NotifyIcon1.BalloonTipText = "vous regarder:" & " " & Form1.AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.NotifyIcon1.ShowBalloonTip(1)
|
||
Form1.Text = "lecteur média" & ": " & Form1.AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.ListBox1.Items.Add(Form1.AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)
|
||
|
||
For Each item In ListBox1.Items
|
||
sw4.WriteLine(item)
|
||
Next
|
||
sw4.Close()
|
||
ElseIf TextBox3.Text.EndsWith(".mp3") Then
|
||
Form1.AxWindowsMediaPlayer1.URL = lines1(0)
|
||
Form1.AjoutéAuFavorisToolStripMenuItem.Enabled = True
|
||
Dim sw4 As New StreamWriter(historique)
|
||
Form1.TextBox1.Text = Form1.AxWindowsMediaPlayer1.URL
|
||
Form1.ListBox1.Items.Add(Form1.AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)
|
||
|
||
For Each item In ListBox1.Items
|
||
sw4.WriteLine(item)
|
||
Next
|
||
sw4.Close()
|
||
Form1.PictureBox7.Hide()
|
||
Form1.PictureBox2.Show()
|
||
Form1.PictureBox1.Hide()
|
||
Form1.PictureBox4.Show()
|
||
Form1.VitesseToolStripMenuItem.Enabled = False
|
||
Form1.AllaiAToolStripMenuItem.Enabled = False
|
||
Form1.PictureBox5.Enabled = True
|
||
Form1.PictureBox6.Enabled = True
|
||
Form1.PictureBox7.Enabled = True
|
||
Form1.PleinToolStripMenuItem.Enabled = False
|
||
Form1.PauseToolStripMenuItem.Enabled = True
|
||
Form1.StopToolStripMenuItem.Enabled = True
|
||
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
||
Form1.NotifyIcon1.BalloonTipText = "vous écouter:" & " " & Form1.AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.NotifyIcon1.ShowBalloonTip(1)
|
||
Form1.Text = "lecteur média" & ": " & Form1.AxWindowsMediaPlayer1.currentMedia.name
|
||
End If
|
||
Close()
|
||
End Sub
|
||
Private Sub LireToolStripMenuItem_Click(sender As Object, e As EventArgs)
|
||
Dim lines3() As String = File.ReadAllLines(notification)
|
||
If lines3(0) = 0 Then
|
||
nonotif()
|
||
ElseIf lines3(0) = 1 Then
|
||
lang1()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub SupprimerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SupprimerToolStripMenuItem.Click
|
||
ListBox1.ContextMenuStrip.Enabled = False
|
||
Button1.Enabled = False
|
||
If ListBox1.Items.Count = 0 Then
|
||
MsgBox("Aucun Favori a été trouvez", MsgBoxStyle.Exclamation)
|
||
Else
|
||
Dim t1 = ListBox1.SelectedItem
|
||
Dim t2 = Favoris1 & t1 & "\flux.txt"
|
||
Dim t3 = Favoris1 & t1
|
||
File.Delete(t2)
|
||
Directory.Delete(t3)
|
||
|
||
MsgBox("Le Favori: " & ListBox1.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)
|
||
|
||
ListBox1.Items.Clear()
|
||
|
||
For Each fichier As String In IO.Directory.GetDirectories(Favoris1)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
ListBox1.Items.Add(info.Name)
|
||
Next
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub ToutSupprimerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToutSupprimerToolStripMenuItem.Click
|
||
Dim sw4 As New StreamWriter(Favoris1)
|
||
ListBox1.Items.Remove(ListBox1.SelectedItem)
|
||
For Each item In ListBox1.Items
|
||
sw4.WriteLine(item)
|
||
Next
|
||
sw4.Close()
|
||
End Sub
|
||
|
||
Private Sub Form3_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
||
letterchange = 0
|
||
ComboBox5.Items.Clear()
|
||
ComboBox6.Items.Clear()
|
||
ComboBox9.Items.Clear()
|
||
PictureBox11.Hide()
|
||
Dim lines1001() As String = File.ReadAllLines(imgmusique)
|
||
Dim lines1005() As String = File.ReadAllLines(ettt)
|
||
Dim msg = MsgBox("Voulez-vous enregistrer ?", MsgBoxStyle.YesNo)
|
||
If msg = MsgBoxResult.Yes Then
|
||
|
||
If ComboBox20.SelectedItem = "Désactivée" Then
|
||
Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
|
||
sw4.WriteLine(0)
|
||
sw4.Close()
|
||
Form1.min = "-1"
|
||
Form1.minmax = "-1"
|
||
ElseIf ComboBox20.SelectedItem = "1 heurs" Then
|
||
Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
|
||
sw4.WriteLine(1)
|
||
sw4.Close()
|
||
Form1.min = "60"
|
||
Form1.minmax = "60"
|
||
ElseIf ComboBox20.SelectedItem = "2 heurs" Then
|
||
Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
|
||
sw4.WriteLine(2)
|
||
sw4.Close()
|
||
Form1.min = "120"
|
||
Form1.minmax = "120"
|
||
ElseIf ComboBox20.SelectedItem = "3 heurs" Then
|
||
Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
|
||
sw4.WriteLine(3)
|
||
sw4.Close()
|
||
Form1.min = "180"
|
||
Form1.minmax = "180"
|
||
ElseIf ComboBox20.SelectedItem = "4 heurs" Then
|
||
Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
|
||
sw4.WriteLine(4)
|
||
sw4.Close()
|
||
Form1.min = "240"
|
||
Form1.minmax = "240"
|
||
ElseIf ComboBox20.SelectedItem = "5 heurs" Then
|
||
Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
|
||
sw4.WriteLine(5)
|
||
sw4.Close()
|
||
Form1.min = "300"
|
||
Form1.minmax = "300"
|
||
ElseIf ComboBox20.SelectedItem = "6 heurs" Then
|
||
Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
|
||
sw4.WriteLine(6)
|
||
sw4.Close()
|
||
Form1.min = "360"
|
||
Form1.minmax = "360"
|
||
ElseIf ComboBox20.SelectedItem = "7 heurs" Then
|
||
Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
|
||
sw4.WriteLine(7)
|
||
sw4.Close()
|
||
Form1.min = "420"
|
||
Form1.minmax = "420"
|
||
ElseIf ComboBox20.SelectedItem = "8 heurs" Then
|
||
Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
|
||
sw4.WriteLine(8)
|
||
sw4.Close()
|
||
Form1.min = "480"
|
||
Form1.minmax = "480"
|
||
ElseIf ComboBox20.SelectedItem = "9 heurs" Then
|
||
Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
|
||
sw4.WriteLine(9)
|
||
sw4.Close()
|
||
Form1.min = "540"
|
||
Form1.minmax = "540"
|
||
ElseIf ComboBox20.SelectedItem = "10 heurs" Then
|
||
Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
|
||
sw4.WriteLine(10)
|
||
sw4.Close()
|
||
Form1.min = "600"
|
||
Form1.minmax = "600"
|
||
End If
|
||
|
||
Dim activelastpagesseries As Integer = 0
|
||
If GunaGoogleSwitch17.Checked = True Then
|
||
activelastpagesseries = 1
|
||
Else
|
||
activelastpagesseries = 0
|
||
End If
|
||
|
||
Dim activelastpagesfilm As Integer = 0
|
||
If GunaGoogleSwitch18.Checked = True Then
|
||
activelastpagesfilm = 1
|
||
Else
|
||
activelastpagesfilm = 0
|
||
End If
|
||
|
||
Dim sw17 As New StreamWriter(Form1.settingfilm)
|
||
sw17.WriteLine(activelastpagesfilm)
|
||
sw17.WriteLine(activelastpagesseries)
|
||
sw17.Close()
|
||
|
||
If ComboBox17.SelectedItem = "Ne rien faire" Then
|
||
Dim sw1 As New StreamWriter(Form1.settingseries)
|
||
sw1.WriteLine(0)
|
||
sw1.WriteLine(activelastpagesseries)
|
||
sw1.Close()
|
||
ElseIf ComboBox17.SelectedItem = "Effet sonore" Then
|
||
Dim sw1 As New StreamWriter(Form1.settingseries)
|
||
sw1.WriteLine(1)
|
||
sw1.WriteLine(activelastpagesseries)
|
||
sw1.Close()
|
||
ElseIf ComboBox17.SelectedItem = "Verrouiller la session" Then
|
||
Dim sw1 As New StreamWriter(Form1.settingseries)
|
||
sw1.WriteLine(2)
|
||
sw1.WriteLine(activelastpagesseries)
|
||
sw1.Close()
|
||
ElseIf ComboBox17.SelectedItem = "Fermer la session" Then
|
||
Dim sw1 As New StreamWriter(Form1.settingseries)
|
||
sw1.WriteLine(3)
|
||
sw1.WriteLine(activelastpagesseries)
|
||
sw1.Close()
|
||
ElseIf ComboBox17.SelectedItem = "Mettre en veille prolonger" Then
|
||
Dim sw1 As New StreamWriter(Form1.settingseries)
|
||
sw1.WriteLine(4)
|
||
sw1.WriteLine(activelastpagesseries)
|
||
sw1.Close()
|
||
ElseIf ComboBox17.SelectedItem = "Arrêter l'ordinateur" Then
|
||
Dim sw1 As New StreamWriter(Form1.settingseries)
|
||
sw1.WriteLine(5)
|
||
sw1.WriteLine(activelastpagesseries)
|
||
sw1.Close()
|
||
End If
|
||
|
||
If ComboBox19.SelectedItem = "Stable" Then
|
||
Dim sw1 As New StreamWriter(fichiermisajourdev)
|
||
sw1.WriteLine(0)
|
||
sw1.Close()
|
||
canalmis = 0
|
||
Else
|
||
Dim sw1 As New StreamWriter(fichiermisajourdev)
|
||
sw1.WriteLine(1)
|
||
sw1.Close()
|
||
canalmis = 1
|
||
End If
|
||
|
||
If CheckBox27.Checked = True Then
|
||
Dim lines1011() As String = File.ReadAllLines(compte & "\passtemps.txt")
|
||
Dim sw141 As New StreamWriter(dosprofils & nomprofils & "\passe.txt")
|
||
sw141.WriteLine(lines1011(0))
|
||
sw141.Close()
|
||
Else
|
||
|
||
End If
|
||
|
||
If profpasstemps = "" Then
|
||
|
||
Else
|
||
Dim sw141 As New StreamWriter(dosprofils & nomprofils & "\passe.txt")
|
||
sw141.WriteLine(profpasstemps)
|
||
sw141.Close()
|
||
End If
|
||
|
||
Dim sw14 As New StreamWriter(marqueurtemp)
|
||
sw14.WriteLine(marqueurtempsa)
|
||
sw14.Close()
|
||
|
||
Dim sw15 As New StreamWriter(couleur)
|
||
sw15.WriteLine(couleurtemps)
|
||
sw15.Close()
|
||
|
||
|
||
If ComboBox16.SelectedItem = "Part default" Then
|
||
Dim sw9 As New StreamWriter(ettt)
|
||
sw9.WriteLine(0)
|
||
sw9.WriteLine(0)
|
||
sw9.WriteLine(0)
|
||
sw9.Close()
|
||
Else
|
||
Dim sw9 As New StreamWriter(ettt)
|
||
sw9.WriteLine(1)
|
||
sw9.WriteLine(OpenFileDialog3.SafeFileName)
|
||
sw9.WriteLine(OpenFileDialog3.FileName)
|
||
sw9.Close()
|
||
Form21.Process1.StartInfo.FileName = OpenFileDialog3.FileName
|
||
End If
|
||
|
||
|
||
If ComboBox15.SelectedItem = "Part default" Then
|
||
If File.Exists(lines1001(2)) = True Then
|
||
Form1.PictureBox2.Image.Dispose()
|
||
PictureBox6.Image.Dispose()
|
||
Form1.PictureBox2.Image = My.Resources.cropped_note_radomisol_musique
|
||
PictureBox6.Dispose()
|
||
PictureBox6.Image = My.Resources.cropped_note_radomisol_musique
|
||
File.Delete(lines1001(2))
|
||
Dim sw9 As New StreamWriter(imgmusique)
|
||
sw9.WriteLine(0)
|
||
sw9.WriteLine(0)
|
||
sw9.WriteLine(0)
|
||
sw9.Close()
|
||
Else
|
||
Form1.PictureBox2.Image.Dispose()
|
||
Form1.PictureBox2.Image = My.Resources.cropped_note_radomisol_musique
|
||
PictureBox6.Dispose()
|
||
PictureBox6.Image = My.Resources.cropped_note_radomisol_musique
|
||
File.Delete(lines1001(2))
|
||
Dim sw9 As New StreamWriter(imgmusique)
|
||
sw9.WriteLine(0)
|
||
sw9.WriteLine(0)
|
||
sw9.WriteLine(0)
|
||
sw9.Close()
|
||
End If
|
||
|
||
ElseIf ComboBox15.SelectedItem = lines1001(1) Then
|
||
|
||
Else
|
||
Form1.PictureBox2.Image.Dispose()
|
||
Try
|
||
PictureBox6.Image.Dispose()
|
||
Catch ex As Exception
|
||
|
||
End Try
|
||
Dim sw9 As New StreamWriter(imgmusique)
|
||
sw9.WriteLine(1)
|
||
sw9.WriteLine(OpenFileDialog2.SafeFileName)
|
||
sw9.WriteLine(repertoire & OpenFileDialog2.SafeFileName)
|
||
sw9.Close()
|
||
FileCopy(OpenFileDialog2.FileName, repertoire & OpenFileDialog2.SafeFileName)
|
||
If File.Exists(lines1001(2)) = True Then
|
||
Dim lines1002() As String = File.ReadAllLines(imgmusique)
|
||
Form1.PictureBox2.Image.Dispose()
|
||
PictureBox6.Image.Dispose()
|
||
Form1.PictureBox2.Image = My.Resources.cropped_note_radomisol_musique
|
||
File.Delete(lines1002(2))
|
||
Form1.PictureBox2.Image = Image.FromFile(lines1002(2))
|
||
PictureBox6.Image = Image.FromFile(lines1002(2))
|
||
Else
|
||
Dim lines1003() As String = File.ReadAllLines(imgmusique)
|
||
Form1.PictureBox2.Image = Image.FromFile(lines1003(2))
|
||
PictureBox6.Image = Image.FromFile(lines1003(2))
|
||
End If
|
||
End If
|
||
|
||
Dim lines426() As String = File.ReadAllLines(settings1)
|
||
If lines426(5) = 1 Then
|
||
Timer25.Stop
|
||
End If
|
||
|
||
If marquerautotemps = 1 Then
|
||
Form1.Timer25.Interval = 60000
|
||
Form1.Timer25.Start()
|
||
ElseIf marquerautotemps = 3 Then
|
||
Form1.Timer25.Interval = 180000
|
||
Form1.Timer25.Start()
|
||
ElseIf marquerautotemps = 5 Then
|
||
Form1.Timer25.Interval = 300000
|
||
Form1.Timer25.Start()
|
||
ElseIf marquerautotemps = 10 Then
|
||
Form1.Timer25.Interval = 600000
|
||
Form1.Timer25.Start()
|
||
ElseIf marquerautotemps = 15 Then
|
||
Form1.Timer25.Interval = 900000
|
||
Form1.Timer25.Start()
|
||
ElseIf marquerautotemps = 20 Then
|
||
Form1.Timer25.Interval = 1200000
|
||
Form1.Timer25.Start()
|
||
ElseIf marquerautotemps = 25 Then
|
||
Form1.Timer25.Interval = 1500000
|
||
Form1.Timer25.Start()
|
||
ElseIf marquerautotemps = 30 Then
|
||
Form1.Timer25.Interval = 1800000
|
||
Form1.Timer25.Start()
|
||
ElseIf marquerautotemps = 35 Then
|
||
Form1.Timer25.Interval = 2100000
|
||
Form1.Timer25.Start()
|
||
ElseIf marquerautotemps = 40 Then
|
||
Form1.Timer25.Interval = 2400000
|
||
Form1.Timer25.Start()
|
||
ElseIf marquerautotemps = 45 Then
|
||
Form1.Timer25.Interval = 2700000
|
||
Form1.Timer25.Start()
|
||
ElseIf marquerautotemps = 50 Then
|
||
Form1.Timer25.Interval = 3000000
|
||
Form1.Timer25.Start()
|
||
ElseIf marquerautotemps = 55 Then
|
||
Form1.Timer25.Interval = 3300000
|
||
Form1.Timer25.Start()
|
||
ElseIf marquerautotemps = 60 Then
|
||
Form1.Timer25.Interval = 3600000
|
||
Form1.Timer25.Start()
|
||
End If
|
||
|
||
If GunaGoogleSwitch1.Checked = True Then
|
||
mis = 1
|
||
Else
|
||
mis = 0
|
||
End If
|
||
|
||
If GunaGoogleSwitch2.Checked = True Then
|
||
démarage = 1
|
||
Else
|
||
démarage = 0
|
||
End If
|
||
|
||
If GunaGoogleSwitch3.Checked = True Then
|
||
confirm = 1
|
||
Else
|
||
confirm = 0
|
||
End If
|
||
|
||
If GunaGoogleSwitch15.Checked = True Then
|
||
misauto = 1
|
||
Else
|
||
misauto = 0
|
||
End If
|
||
|
||
Label10.Hide()
|
||
Label11.Hide()
|
||
Button9.Hide()
|
||
Button10.Hide()
|
||
Button8.Text = "Tester la radio"
|
||
ComboBox6.Items.Clear()
|
||
ComboBox5.Items.Clear()
|
||
TextBox1.Clear()
|
||
TextBox2.Clear()
|
||
Label6.Hide()
|
||
Label7.Hide()
|
||
Dim st5 As New StreamWriter(settings4)
|
||
Dim st6 As New StreamWriter(settings5)
|
||
If Directory.Exists(repertoire) = False Then
|
||
Directory.CreateDirectory(repertoire)
|
||
End If
|
||
|
||
If ComboBox4.SelectedItem = "Ne rien faire" Then
|
||
st5.WriteLine(0)
|
||
st5.Close()
|
||
st6.WriteLine(0)
|
||
st6.Close()
|
||
ElseIf ComboBox4.SelectedItem = "Effet sonore" Then
|
||
st5.WriteLine(1)
|
||
st5.Close()
|
||
st6.WriteLine(0)
|
||
st6.Close()
|
||
ElseIf ComboBox4.SelectedItem = "Verrouiller la session" Then
|
||
st5.WriteLine(2)
|
||
st5.Close()
|
||
st6.WriteLine(2)
|
||
st6.Close()
|
||
ElseIf ComboBox4.SelectedItem = "Fermer la session" Then
|
||
st5.WriteLine(2)
|
||
st5.Close()
|
||
st6.WriteLine(1)
|
||
st6.Close()
|
||
ElseIf ComboBox4.SelectedItem = "Arrêter l'ordinateur" Then
|
||
st5.WriteLine(2)
|
||
st5.Close()
|
||
st6.WriteLine(3)
|
||
st6.Close()
|
||
ElseIf ComboBox4.SelectedItem = "Mettre en veille prolonger" Then
|
||
st5.WriteLine(2)
|
||
st5.Close()
|
||
st6.WriteLine(4)
|
||
st6.Close()
|
||
End If
|
||
|
||
If CheckBox1.Checked = True Then
|
||
volume = ComboBox1.Text.ToString
|
||
End If
|
||
|
||
If GunaGoogleSwitch4.Checked = True Then
|
||
radiov = 1
|
||
Form1.ComboBox1.Show()
|
||
Form1.Button3.Show()
|
||
Else
|
||
Form1.ComboBox1.Hide()
|
||
Form1.Button3.Hide()
|
||
End If
|
||
|
||
|
||
If GunaGoogleSwitch5.Checked = True Then
|
||
notif = 1
|
||
Else
|
||
notif = 0
|
||
End If
|
||
|
||
Dim registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
|
||
Dim mer As Integer = 0
|
||
Dim key As Microsoft.Win32.RegistryKey = registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
|
||
Dim vreg = Nothing
|
||
|
||
If key.GetValue(Application.ProductName) Is Nothing Then
|
||
vreg = 0
|
||
Else
|
||
vreg = 1
|
||
End If
|
||
|
||
If démarage = 1 Then
|
||
If vreg = 0 Then
|
||
key.SetValue(Application.ProductName, Application.ExecutablePath, Microsoft.Win32.RegistryValueKind.String)
|
||
End If
|
||
Else
|
||
If vreg = 1 Then
|
||
key.DeleteValue(Application.ProductName)
|
||
End If
|
||
End If
|
||
|
||
If ComboBox3.SelectedItem = "Sombre" Then
|
||
théme2 = 2
|
||
Dim sw1 As New StreamWriter(themeselect)
|
||
sw1.WriteLine("")
|
||
sw1.Close()
|
||
ElseIf ComboBox3.SelectedItem = "Clair" Then
|
||
théme2 = 1
|
||
Dim sw1 As New StreamWriter(themeselect)
|
||
sw1.WriteLine("")
|
||
sw1.Close()
|
||
Else
|
||
théme2 = 3
|
||
Dim sw1 As New StreamWriter(themeselect)
|
||
sw1.WriteLine(ComboBox3.SelectedItem)
|
||
sw1.Close()
|
||
End If
|
||
|
||
If CheckBox13.Checked = True Then
|
||
rtf = 1
|
||
Else
|
||
rtf = 0
|
||
End If
|
||
|
||
Dim sw13 As New StreamWriter(setting)
|
||
sw13.WriteLine(rtf)
|
||
sw13.Close()
|
||
|
||
|
||
Dim sw16 As New StreamWriter(fichiermisauto)
|
||
sw16.WriteLine(misauto)
|
||
sw16.Close()
|
||
|
||
|
||
Dim sw As New StreamWriter(settings1)
|
||
sw.WriteLine(volume)
|
||
sw.WriteLine(radiov)
|
||
sw.WriteLine(mis)
|
||
sw.WriteLine(démarage)
|
||
sw.WriteLine(confirm)
|
||
sw.WriteLine(marquerauto)
|
||
sw.WriteLine(marquerautotemps)
|
||
sw.Close()
|
||
volume = 0
|
||
radiov = 0
|
||
mis = 0
|
||
démarage = 0
|
||
Dim sw2 As New StreamWriter(notification)
|
||
sw2.WriteLine(notif)
|
||
sw2.Close()
|
||
Dim sw3 As New StreamWriter(théme)
|
||
sw3.WriteLine(théme2)
|
||
sw3.Close()
|
||
|
||
If CheckBox15.Checked = True Then
|
||
minivolume = ComboBox7.Text.ToString
|
||
End If
|
||
|
||
Dim sw10 As New StreamWriter(settings2)
|
||
sw10.WriteLine(minivolume)
|
||
sw10.WriteLine(plan)
|
||
sw10.WriteLine(miniradio)
|
||
sw10.Close()
|
||
|
||
|
||
Dim sw11 As New StreamWriter(musiquepar)
|
||
sw11.WriteLine(kara)
|
||
sw11.Close()
|
||
|
||
If CheckBox19.Checked = True Then
|
||
playlistvolume = ComboBox8.Text.ToString
|
||
End If
|
||
|
||
Dim sw12 As New StreamWriter(settings3)
|
||
sw12.WriteLine(playlistvolume)
|
||
sw12.WriteLine(vch)
|
||
sw12.WriteLine(vmp)
|
||
sw12.WriteLine(plans)
|
||
sw12.Close()
|
||
|
||
|
||
MsgBox("Les paramètres ont bien été enregistrer", MsgBoxStyle.Information)
|
||
|
||
If profilnomtemps = "" Then
|
||
|
||
Else
|
||
Form1.Timer14.Stop()
|
||
My.Computer.FileSystem.RenameDirectory(dosprofils & nomprofils, profilnomtemps)
|
||
nomprofils = profilnomtemps
|
||
Form152.ShowDialog()
|
||
End If
|
||
|
||
If Button26.Visible = True Then
|
||
Form1.Timer19.Start()
|
||
Else
|
||
Form1.Timer19.Stop()
|
||
End If
|
||
|
||
|
||
ComboBox15.Items.Clear()
|
||
passeincor = 0
|
||
ComboBox9.Items.Clear()
|
||
ComboBox16.Items.Clear()
|
||
|
||
If théme2 = thémetemps Then
|
||
If théme2 = 3 Then
|
||
If thémetempsperso = ComboBox3.SelectedItem Then
|
||
|
||
Else
|
||
Form152.ShowDialog()
|
||
End If
|
||
Else
|
||
|
||
End If
|
||
Else
|
||
Form152.ShowDialog()
|
||
End If
|
||
|
||
For Each fichier As String In IO.Directory.GetDirectories(dostheme)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
ComboBox3.Items.Remove(info.Name)
|
||
Next
|
||
End If
|
||
|
||
If Button26.Visible = True Then
|
||
Form1.Timer19.Start()
|
||
Else
|
||
Form1.Timer19.Stop()
|
||
End If
|
||
|
||
Dim lines429() As String = File.ReadAllLines(couleur)
|
||
If lines429(0) = 0 Then
|
||
GunaGoogleSwitch1.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch1.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch2.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch2.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch3.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch3.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch4.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch4.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch5.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch5.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch6.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch6.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch7.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch7.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch8.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch8.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch9.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch9.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch10.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch10.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch11.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch11.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch12.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch12.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch13.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch13.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch14.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch14.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
ChromeTabcontrol1.SquareColor = Color.FromArgb(255, 128, 0)
|
||
ChromeTabcontrol2.SquareColor = Color.FromArgb(255, 128, 0)
|
||
ChromeTabcontrol3.SquareColor = Color.FromArgb(255, 128, 0)
|
||
ChromeTabcontrol4.SquareColor = Color.FromArgb(255, 128, 0)
|
||
ChromeTabcontrol5.SquareColor = Color.FromArgb(255, 128, 0)
|
||
ChromeTabcontrol6.SquareColor = Color.FromArgb(255, 128, 0)
|
||
PictureBox7.Image = My.Resources.orange_sel
|
||
PictureBox8.Image = My.Resources.vert
|
||
PictureBox9.Image = My.Resources.bleu
|
||
PictureBox10.Image = My.Resources.rouge
|
||
ElseIf lines429(0) = 1 Then
|
||
GunaGoogleSwitch1.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch1.FillColor = Color.Green
|
||
GunaGoogleSwitch2.FillColor = Color.Green
|
||
GunaGoogleSwitch2.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch3.FillColor = Color.Green
|
||
GunaGoogleSwitch3.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch4.FillColor = Color.Green
|
||
GunaGoogleSwitch4.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch5.FillColor = Color.Green
|
||
GunaGoogleSwitch5.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch6.FillColor = Color.Green
|
||
GunaGoogleSwitch6.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch7.FillColor = Color.Green
|
||
GunaGoogleSwitch7.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch8.FillColor = Color.Green
|
||
GunaGoogleSwitch8.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch9.FillColor = Color.Green
|
||
GunaGoogleSwitch9.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch10.FillColor = Color.Green
|
||
GunaGoogleSwitch10.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch11.FillColor = Color.Green
|
||
GunaGoogleSwitch11.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch12.FillColor = Color.Green
|
||
GunaGoogleSwitch12.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch13.FillColor = Color.Green
|
||
GunaGoogleSwitch13.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch14.FillColor = Color.Green
|
||
GunaGoogleSwitch14.CheckedOnColor = Color.Green
|
||
ChromeTabcontrol1.SquareColor = Color.Green
|
||
ChromeTabcontrol2.SquareColor = Color.Green
|
||
ChromeTabcontrol3.SquareColor = Color.Green
|
||
ChromeTabcontrol4.SquareColor = Color.Green
|
||
ChromeTabcontrol5.SquareColor = Color.Green
|
||
ChromeTabcontrol6.SquareColor = Color.Green
|
||
PictureBox7.Image = My.Resources.orange
|
||
PictureBox8.Image = My.Resources.vert_sel
|
||
PictureBox9.Image = My.Resources.bleu
|
||
PictureBox10.Image = My.Resources.rouge
|
||
ElseIf lines429(0) = 2 Then
|
||
GunaGoogleSwitch1.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch1.FillColor = Color.Blue
|
||
GunaGoogleSwitch2.FillColor = Color.Blue
|
||
GunaGoogleSwitch2.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch3.FillColor = Color.Blue
|
||
GunaGoogleSwitch3.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch4.FillColor = Color.Blue
|
||
GunaGoogleSwitch4.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch5.FillColor = Color.Blue
|
||
GunaGoogleSwitch5.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch6.FillColor = Color.Blue
|
||
GunaGoogleSwitch6.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch7.FillColor = Color.Blue
|
||
GunaGoogleSwitch7.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch8.FillColor = Color.Blue
|
||
GunaGoogleSwitch8.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch9.FillColor = Color.Blue
|
||
GunaGoogleSwitch9.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch10.FillColor = Color.Blue
|
||
GunaGoogleSwitch10.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch11.FillColor = Color.Blue
|
||
GunaGoogleSwitch11.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch12.FillColor = Color.Blue
|
||
GunaGoogleSwitch12.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch13.FillColor = Color.Blue
|
||
GunaGoogleSwitch13.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch14.FillColor = Color.Blue
|
||
GunaGoogleSwitch14.CheckedOnColor = Color.Blue
|
||
ChromeTabcontrol1.SquareColor = Color.Blue
|
||
ChromeTabcontrol2.SquareColor = Color.Blue
|
||
ChromeTabcontrol3.SquareColor = Color.Blue
|
||
ChromeTabcontrol4.SquareColor = Color.Green
|
||
ChromeTabcontrol5.SquareColor = Color.Green
|
||
ChromeTabcontrol6.SquareColor = Color.Green
|
||
PictureBox7.Image = My.Resources.orange
|
||
PictureBox8.Image = My.Resources.vert
|
||
PictureBox9.Image = My.Resources.bleu_sel
|
||
PictureBox10.Image = My.Resources.rouge
|
||
ElseIf lines429(0) = 3 Then
|
||
GunaGoogleSwitch1.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch1.FillColor = Color.Red
|
||
GunaGoogleSwitch2.FillColor = Color.Red
|
||
GunaGoogleSwitch2.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch3.FillColor = Color.Red
|
||
GunaGoogleSwitch3.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch4.FillColor = Color.Red
|
||
GunaGoogleSwitch4.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch5.FillColor = Color.Red
|
||
GunaGoogleSwitch5.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch6.FillColor = Color.Red
|
||
GunaGoogleSwitch6.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch7.FillColor = Color.Red
|
||
GunaGoogleSwitch7.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch8.FillColor = Color.Red
|
||
GunaGoogleSwitch8.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch9.FillColor = Color.Red
|
||
GunaGoogleSwitch9.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch10.FillColor = Color.Red
|
||
GunaGoogleSwitch10.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch11.FillColor = Color.Red
|
||
GunaGoogleSwitch11.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch12.FillColor = Color.Red
|
||
GunaGoogleSwitch12.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch13.FillColor = Color.Red
|
||
GunaGoogleSwitch13.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch14.FillColor = Color.Red
|
||
GunaGoogleSwitch14.CheckedOnColor = Color.Red
|
||
ChromeTabcontrol1.SquareColor = Color.Red
|
||
ChromeTabcontrol2.SquareColor = Color.Red
|
||
ChromeTabcontrol3.SquareColor = Color.Red
|
||
ChromeTabcontrol4.SquareColor = Color.Green
|
||
ChromeTabcontrol5.SquareColor = Color.Green
|
||
ChromeTabcontrol6.SquareColor = Color.Green
|
||
PictureBox7.Image = My.Resources.orange
|
||
PictureBox8.Image = My.Resources.vert
|
||
PictureBox9.Image = My.Resources.bleu
|
||
PictureBox10.Image = My.Resources.rouge_sel
|
||
End If
|
||
|
||
Dim lines1() As String = File.ReadAllLines(comtpeco2)
|
||
If lines1(0) = 1 Then
|
||
closea = 1
|
||
Else
|
||
closea = 0
|
||
End If
|
||
|
||
If closea = 1 Then
|
||
Try
|
||
Dim maj As New WebClient
|
||
Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt")
|
||
If vri = 1 Then
|
||
|
||
Else
|
||
PictureBox2.Image.Dispose()
|
||
File.Delete(compte & "photo.png")
|
||
closea = 0
|
||
End If
|
||
Catch ex As Exception
|
||
closea = 0
|
||
End Try
|
||
|
||
ElseIf closea = 2 Then
|
||
e.Cancel = True
|
||
closea = 0
|
||
Exit Sub
|
||
Else
|
||
passeincor = 0
|
||
LinkLabel1.Hide()
|
||
LinkLabel2.Hide()
|
||
LinkLabel3.Hide()
|
||
GunaCirclePictureBox1.Image.Dispose()
|
||
For Each fichier As String In IO.Directory.GetDirectories(dostheme)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
ComboBox3.Items.Remove(info.Name)
|
||
Next
|
||
End If
|
||
For Each fichier As String In IO.Directory.GetDirectories(dostheme)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
ComboBox3.Items.Remove(info.Name)
|
||
Next
|
||
End Sub
|
||
|
||
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
||
Dim t7 = TextBox1.Text
|
||
Dim t8 = radio
|
||
Dim t9 = t8 & t7
|
||
Dim t10 = t9 & "\flux.txt"
|
||
|
||
If TextBox1.Text = "" Then
|
||
MsgBox("Merci d’entrer un nom pour a radio", MsgBoxStyle.Exclamation)
|
||
Exit Sub
|
||
End If
|
||
If TextBox1.Text.Contains("/") Or TextBox1.Text.Contains("\") Or TextBox1.Text.Contains(":") Or TextBox1.Text.Contains("*") Or TextBox1.Text.Contains("?") Or TextBox1.Text.Contains("""") Or TextBox1.Text.Contains("<") Or TextBox1.Text.Contains(">") Then
|
||
MsgBox("les caratère /\ : * <> """" et ? sont interdit", MsgBoxStyle.Exclamation)
|
||
Exit Sub
|
||
End If
|
||
|
||
If TextBox1.Text = "RFM" Or TextBox1.Text = "RMC" Or TextBox1.Text = "Chérie" Or TextBox1.Text = "Nostalgie France" Or TextBox1.Text = "NRJ France" Or TextBox1.Text = "Rire & Chansons" Or TextBox1.Text = "France Info" Or TextBox1.Text = "Fun Radio France" Or TextBox1.Text = "RTL" Or TextBox1.Text = "Ouï FM" Then
|
||
MsgBox("La radio: " & t7 & " existes déjà", MsgBoxStyle.Exclamation)
|
||
Exit Sub
|
||
End If
|
||
|
||
If TextBox2.Text = "" Then
|
||
MsgBox("Merci d’entrer une URL ou un flux", MsgBoxStyle.Exclamation)
|
||
Exit Sub
|
||
Else
|
||
If Directory.Exists(t9) = True Then
|
||
MsgBox("La radio: " & t7 & " existes déjà", MsgBoxStyle.Exclamation)
|
||
Else
|
||
Directory.CreateDirectory(t9)
|
||
Dim sw13 As New StreamWriter(t10)
|
||
sw13.WriteLine(TextBox2.Text)
|
||
sw13.Close()
|
||
PictureBox12.Image.Save(t9 & "/photo.png")
|
||
TextBox1.Clear()
|
||
TextBox2.Clear()
|
||
AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
||
Label7.Text = "00:00"
|
||
Label6.Text = "00:00"
|
||
Label6.Hide()
|
||
Label7.Hide()
|
||
PictureBox12.Image = My.Resources.radioimg
|
||
MsgBox("La radio: " & t7 & " a bien été ajouter", MsgBoxStyle.Information)
|
||
For Each fichier As String In IO.Directory.GetDirectories(radio)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Form1.ComboBox1.Items.Remove(info.Name)
|
||
Form8.ComboBox1.Items.Remove(info.Name)
|
||
ComboBox6.Items.Clear()
|
||
ComboBox5.Items.Clear()
|
||
Next
|
||
For Each fichier As String In IO.Directory.GetDirectories(radio)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Form1.ComboBox1.Items.Add(info.Name)
|
||
Form8.ComboBox1.Items.Add(info.Name)
|
||
ComboBox6.Items.Add(info.Name)
|
||
ComboBox5.Items.Add(info.Name)
|
||
Next
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
|
||
Try
|
||
If My.Computer.Network.Ping("www.Google.com") Then
|
||
inernet()
|
||
End If
|
||
Catch ex As Exception
|
||
MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information, "Hors connexion")
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub AxWindowsMediaPlayer1_MediaError(sender As Object, e As _WMPOCXEvents_MediaErrorEvent) Handles AxWindowsMediaPlayer1.MediaError
|
||
MsgBox("L’URL / le flux n'est pas valide ou expirés", MsgBoxStyle.Information)
|
||
AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
||
Label6.Hide()
|
||
Label7.Hide()
|
||
Button8.Text = "Tester la radio"
|
||
End Sub
|
||
|
||
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
||
Label7.Text = AxWindowsMediaPlayer1.status
|
||
Label6.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString
|
||
End Sub
|
||
Private Sub ComboBox6_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedValueChanged
|
||
Label10.Show()
|
||
Label11.Show()
|
||
Button9.Show()
|
||
Button10.Show()
|
||
Button23.Show()
|
||
PictureBox11.Show()
|
||
Dim t1 = radio
|
||
Dim t2 = ComboBox6.SelectedItem
|
||
Dim t3 = t1 & t2 & "\flux.txt"
|
||
Dim lines1() As String = File.ReadAllLines(t3)
|
||
Label10.Text = "Nom: " & ComboBox6.SelectedItem
|
||
Label11.Text = "URL / Flux: " & lines1(0)
|
||
If File.Exists(t1 & t2 & "/photo.png") = True Then
|
||
PictureBox11.Image = Image.FromFile(t1 & t2 & "/photo.png")
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Label11_Click(sender As Object, e As EventArgs) Handles Label11.Click
|
||
Dim t1 = radio
|
||
Dim t2 = ComboBox6.SelectedItem
|
||
Dim t3 = t1 & t2 & "\flux.txt"
|
||
Dim lines1() As String = File.ReadAllLines(t3)
|
||
MsgBox(lines1(0))
|
||
End Sub
|
||
|
||
Private Sub Label10_Click(sender As Object, e As EventArgs) Handles Label10.Click
|
||
MsgBox(ComboBox6.SelectedItem)
|
||
End Sub
|
||
|
||
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
|
||
renomer_la_radio.ShowDialog()
|
||
End Sub
|
||
|
||
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
|
||
Form85.ShowDialog()
|
||
End Sub
|
||
Private Sub ComboBox5_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedValueChanged
|
||
Button1.Show()
|
||
End Sub
|
||
|
||
Private Sub Button1_Click_(sender As Object, e As EventArgs) Handles Button1.Click
|
||
Label10.Hide()
|
||
Label11.Hide()
|
||
Button9.Hide()
|
||
Button10.Hide()
|
||
Dim t1 = radio
|
||
Dim t2 = ComboBox5.SelectedItem
|
||
Dim t4 = t1 & t2
|
||
Dim t3 = t1 & t2 & "\flux.txt"
|
||
File.Delete(t3)
|
||
File.Delete(t4 & "/photo.png")
|
||
Directory.Delete(t4)
|
||
Form1.ComboBox1.Items.Remove(ComboBox5.SelectedItem)
|
||
Form8.ComboBox1.Items.Remove(ComboBox5.SelectedItem)
|
||
ComboBox6.Items.Remove(ComboBox5.SelectedItem)
|
||
ComboBox5.Items.Remove(ComboBox5.SelectedItem)
|
||
If ComboBox5.Items.Count = 0 Then
|
||
Button1.Hide()
|
||
End If
|
||
MsgBox("La radio: " & t2 & " a été supprimer", MsgBoxStyle.Information)
|
||
End Sub
|
||
Sub inernet()
|
||
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsUndefined Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsReady Then
|
||
If TextBox2.Text = "" Then
|
||
MsgBox("Merci enter une URL ou un flux", MsgBoxStyle.Exclamation)
|
||
Else
|
||
Try
|
||
AxWindowsMediaPlayer1.URL = TextBox2.Text
|
||
Button8.Text = "Arrêter le test de la radio"
|
||
Timer1.Start()
|
||
Label6.Show()
|
||
Label7.Show()
|
||
Catch ex As Exception
|
||
MsgBox("Merci entrer une URL ou un flux valide", MsgBoxStyle.Exclamation)
|
||
End Try
|
||
End If
|
||
Else
|
||
Button8.Text = "Tester la radio"
|
||
AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
||
Timer1.Stop()
|
||
Label6.Hide()
|
||
Label7.Hide()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub ListBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedValueChanged
|
||
Button5.Enabled = True
|
||
ListBox1.ContextMenuStrip.Enabled = True
|
||
End Sub
|
||
|
||
Private Sub CheckBox15_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox15.CheckedChanged
|
||
If CheckBox15.Checked = True Then
|
||
ComboBox7.Enabled = True
|
||
Else
|
||
ComboBox7.Enabled = False
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub CheckBox19_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox19.CheckedChanged
|
||
If CheckBox19.Checked = True Then
|
||
ComboBox8.Enabled = True
|
||
Else
|
||
ComboBox8.Enabled = False
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
|
||
If ComboBox9.SelectedItem = "" Then
|
||
MsgBox("Merci de sélectionner un marqueur", MsgBoxStyle.Information)
|
||
Exit Sub
|
||
Else
|
||
Dim t1 = ComboBox9.SelectedItem
|
||
Dim t2 = marqueur
|
||
File.Delete(t2 & t1 & ".txt")
|
||
MsgBox("Le marqueur: " & ComboBox9.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)
|
||
ComboBox9.Items.Remove(ComboBox9.SelectedItem)
|
||
If ComboBox9.Items.Count = 0 Then
|
||
Button2.Hide()
|
||
Button24.Hide()
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub ChromeButton1_Click(sender As Object, e As EventArgs) Handles ChromeButton1.Click
|
||
Form97.ShowDialog()
|
||
End Sub
|
||
|
||
Private Sub Button6_Click_1(sender As Object, e As EventArgs) Handles Button6.Click
|
||
If TextBox4.Text = "" Then
|
||
MsgBox("Merci entrer un nom utilisateur", MsgBoxStyle.Critical)
|
||
Else
|
||
Try
|
||
Directory.CreateDirectory(compte & TextBox4.Text)
|
||
If TextBox5.Text = "" Then
|
||
Directory.Delete(compte & TextBox4.Text)
|
||
MsgBox("Merci entrer un mot de passe", MsgBoxStyle.Critical)
|
||
Exit Sub
|
||
Else
|
||
Directory.Delete(compte & TextBox4.Text)
|
||
If TextBox12.Text = "" Then
|
||
MsgBox("Merci de confirmer votre mot de passe", MsgBoxStyle.Critical)
|
||
Exit Sub
|
||
Else
|
||
If TextBox12.Text <> TextBox5.Text Then
|
||
MsgBox("Les mots de correspondent pas", MsgBoxStyle.Critical)
|
||
Exit Sub
|
||
Else
|
||
If TextBox6.Text = "" Then
|
||
MsgBox("Merci entrer une adresse mail", MsgBoxStyle.Critical)
|
||
Exit Sub
|
||
Else
|
||
If CheckBox24.Checked = False Then
|
||
MsgBox("Vous devez accepter les conditions d'utilisation pour créer le compte", MsgBoxStyle.Information)
|
||
Exit Sub
|
||
Else
|
||
If TextBox6.Text.Contains("@") Then
|
||
MsgBox("Merci entrer le début de l'adresse mail", MsgBoxStyle.Exclamation)
|
||
Exit Sub
|
||
Else
|
||
Try
|
||
Dim fwr As FtpWebRequest
|
||
fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/")
|
||
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
||
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
||
|
||
Dim str As String = sr.ReadLine()
|
||
While Not str Is Nothing
|
||
|
||
Directory.CreateDirectory(cozip & str)
|
||
|
||
|
||
str = sr.ReadLine()
|
||
|
||
End While
|
||
|
||
sr.Close()
|
||
|
||
If Directory.Exists(cozip & TextBox4.Text) = True Then
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Directory.Delete(cozip & info.Name)
|
||
Next
|
||
MsgBox("Le nom: " & TextBox4.Text & " est déjà utiliser", MsgBoxStyle.Critical)
|
||
Else
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Directory.Delete(cozip & info.Name)
|
||
Next
|
||
ftp()
|
||
End If
|
||
|
||
Catch ex As Exception
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Directory.Delete(cozip & info.Name)
|
||
Next
|
||
Timer9.Start()
|
||
End Try
|
||
End If
|
||
End If
|
||
End If
|
||
End If
|
||
End If
|
||
End If
|
||
Catch ex As Exception
|
||
MsgBox("les caratère /\ : * <> """" et ? sont interdit", MsgBoxStyle.Exclamation)
|
||
End Try
|
||
End If
|
||
End Sub
|
||
Sub ftp()
|
||
'création de dosier du compte'
|
||
Try
|
||
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & TextBox4.Text), System.Net.FtpWebRequest)
|
||
Dim ftpStream As Stream = Nothing
|
||
|
||
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
||
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
||
|
||
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
||
ftpStream = response.GetResponseStream
|
||
ftpStream.Close()
|
||
response.Close()
|
||
ftp7()
|
||
Catch ex As Exception
|
||
Timer10.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
|
||
If File.Exists(compte & "temp.txt") = True Then
|
||
Dim lines1() As String = File.ReadAllLines(compte & "temp.txt")
|
||
MsgBox("Vous avez été bloquer," & vbNewLine & "Vous ne pouvez plus vous connecter." & vbNewLine & vbNewLine & " merci de patienter: " & lines1(0) & " minute", MsgBoxStyle.Critical)
|
||
Else
|
||
If passeincor = 2 Then
|
||
LinkLabel3.Show()
|
||
LinkLabel2.Show()
|
||
co1()
|
||
ElseIf passeincor = 4 Then
|
||
Dim sw1 As New StreamWriter(compte & "temp.txt")
|
||
sw1.WriteLine(15)
|
||
sw1.Close()
|
||
Form1.Timer17.Start()
|
||
MsgBox("Vous avez été bloquer," & vbNewLine & "Vous ne pouvez plus vous connecter." & vbNewLine & vbNewLine & " merci de patienter 15 minutes", MsgBoxStyle.Critical)
|
||
Else
|
||
co1()
|
||
End If
|
||
End If
|
||
End Sub
|
||
Sub ftp2()
|
||
'cryter le donné'
|
||
Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(TextBox5.Text)
|
||
Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
||
Dim Crypto As New DESCryptoServiceProvider()
|
||
Crypto.Key = keyBytes
|
||
Crypto.IV = keyBytes
|
||
Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
|
||
Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
|
||
Dim passecrypt = Convert.ToBase64String(Resultatbytes)
|
||
|
||
Dim texteEnBytes2() As Byte = Encoding.UTF8.GetBytes(TextBox6.Text & ComboBox10.Text)
|
||
Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
||
Dim Crypto2 As New DESCryptoServiceProvider()
|
||
Crypto.Key = keyBytes
|
||
Crypto.IV = keyBytes
|
||
Dim Icrypto2 As ICryptoTransform = Crypto.CreateEncryptor
|
||
Dim Resultatbytes2() As Byte = Icrypto.TransformFinalBlock(texteEnBytes2, 0, texteEnBytes2.Length)
|
||
Dim mailcrypte = Convert.ToBase64String(Resultatbytes2)
|
||
|
||
'création des fichier'
|
||
|
||
'fichier mots de passe'
|
||
Dim t1 = cozip & "pass.txt"
|
||
Dim sw1 As New StreamWriter(t1)
|
||
sw1.WriteLine(passecrypt)
|
||
sw1.Close()
|
||
'fichier mail'
|
||
Dim t2 = cozip & "mail.txt"
|
||
Dim sw7 As New StreamWriter(t2)
|
||
sw7.WriteLine(mailcrypte)
|
||
sw7.Close()
|
||
'fichier settings'
|
||
Dim t4 = cozip & "setting.txt"
|
||
Dim sw4 As New StreamWriter(t4)
|
||
sw4.WriteLine(0)
|
||
sw4.WriteLine(0)
|
||
sw4.Close()
|
||
'fichier vérification'
|
||
Dim t6 = cozip & "vérification.txt"
|
||
Dim sw6 As New StreamWriter(t6)
|
||
sw6.WriteLine(0)
|
||
sw6.Close()
|
||
'fichier index'
|
||
Dim t5 = compte & "index.php"
|
||
Dim sw5 As New StreamWriter(t5)
|
||
sw5.WriteLine("<?php")
|
||
sw5.WriteLine("echo ""Erreur 404 page non trouvez"";")
|
||
sw5.WriteLine("?>")
|
||
sw5.Close()
|
||
'fichier photo'
|
||
PictureBox1.Image.Save(compte & "photo.png")
|
||
Dim t3 = compte & "photo.png"
|
||
passup()
|
||
End Sub
|
||
Sub ftp3()
|
||
'création dosier drive'
|
||
Try
|
||
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/" & "Dirve"), System.Net.FtpWebRequest)
|
||
Dim ftpStream As Stream = Nothing
|
||
|
||
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
||
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
||
|
||
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
||
ftpStream = response.GetResponseStream
|
||
ftpStream.Close()
|
||
response.Close()
|
||
ftp2()
|
||
Catch ex As Exception
|
||
Timer25.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
|
||
Label17.Hide()
|
||
Label18.Hide()
|
||
TextBox7.Hide()
|
||
TextBox8.Hide()
|
||
Button12.Hide()
|
||
Button11.Hide()
|
||
LinkLabel2.Hide()
|
||
LinkLabel3.Hide()
|
||
PictureBox4.Show()
|
||
PictureBox3.Hide()
|
||
Panel1.Show()
|
||
Panel2.Show()
|
||
End Sub
|
||
Sub mail()
|
||
Dim t1 = cozip & "mail.txt"
|
||
Dim t2 = cozip & "pass.txt"
|
||
Dim lines() As String = File.ReadAllLines(t1)
|
||
Dim lines2() As String = File.ReadAllLines(t2)
|
||
|
||
Dim Resultatbytes() As Byte = Convert.FromBase64String(lines(0))
|
||
Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
||
Dim Crypto As New DESCryptoServiceProvider()
|
||
Crypto.Key = keyBytes
|
||
Crypto.IV = keyBytes
|
||
Dim Icrypto As ICryptoTransform = Crypto.CreateDecryptor()
|
||
Dim donné() As Byte = Icrypto.TransformFinalBlock(Resultatbytes, 0, Resultatbytes.Length)
|
||
Dim maildecrypt = Encoding.UTF8.GetString(donné)
|
||
|
||
|
||
Dim Resultatbytes2() As Byte = Convert.FromBase64String(lines2(0))
|
||
Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
||
Dim Crypto2 As New DESCryptoServiceProvider()
|
||
Crypto2.Key = keyBytes2
|
||
Crypto2.IV = keyBytes2
|
||
Dim Icrypto2 As ICryptoTransform = Crypto2.CreateDecryptor()
|
||
Dim donné2() As Byte = Icrypto2.TransformFinalBlock(Resultatbytes2, 0, Resultatbytes2.Length)
|
||
Dim passdecrypt = Encoding.UTF8.GetString(donné2)
|
||
|
||
Try
|
||
|
||
Dim MyMailMessage As New MailMessage()
|
||
Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
|
||
Dim mail = maildecrypt
|
||
Dim message = "Votre mot de passe de compte lecteur média est: " & passdecrypt & vbNewLine & vbNewLine & "si lecteur vous dis mot de passe incorrect avec le mot de passe de ce mail," & vbNewLine & "merci de redémarrer le lecteur"
|
||
MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
|
||
MyMailMessage.To.Add(mail)
|
||
MyMailMessage.Subject = ("Mot de passe lecteur média")
|
||
MyMailMessage.Body = (message)
|
||
SMTPServer.Port = ("587") 'Port
|
||
SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", "pC1*zzU9-qtZjdT")
|
||
SMTPServer.EnableSsl = True
|
||
|
||
SMTPServer.Send(MyMailMessage) 'Envoi
|
||
|
||
MsgBox("Un message avec votre mot de passe a été envoyé à l'adresse mail", MsgBoxStyle.Information)
|
||
suprezip()
|
||
Catch ex As Exception
|
||
mail()
|
||
End Try
|
||
End Sub
|
||
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
|
||
PictureBox2.Image.Dispose()
|
||
File.Delete(compte & "photo.png")
|
||
Panel2.Hide()
|
||
Panel1.Hide()
|
||
Form1.DriveToolStripMenuItem.Visible = False
|
||
Label17.Show()
|
||
Label18.Show()
|
||
TextBox7.Show()
|
||
TextBox8.Show()
|
||
Button12.Show()
|
||
Button11.Show()
|
||
Me.Enabled = False
|
||
Form1.deco789()
|
||
End Sub
|
||
|
||
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
|
||
Dim t4 As String
|
||
Dim msg = MsgBox("Voulez-vous vraiment supprimer le compte: " & Label21.Text & " ?", MsgBoxStyle.YesNo)
|
||
If msg = MsgBoxResult.Yes Then
|
||
supprimer()
|
||
Else
|
||
MsgBox("Le compte: " & Label21.Text & "n'a pas été supprimer", MsgBoxStyle.Information)
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
|
||
If Button16.Text = "Afficher" Then
|
||
TextBox5.UseSystemPasswordChar = False
|
||
Button16.Text = "Cacher"
|
||
Else
|
||
TextBox5.UseSystemPasswordChar = True
|
||
Button16.Text = "Afficher"
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
|
||
If Button15.Text = "Afficher" Then
|
||
TextBox12.UseSystemPasswordChar = False
|
||
Button15.Text = "Cacher"
|
||
Else
|
||
TextBox12.UseSystemPasswordChar = True
|
||
Button15.Text = "Afficher"
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
|
||
TextBox5.UseSystemPasswordChar = True
|
||
Button16.Text = "Afficher"
|
||
End Sub
|
||
|
||
Private Sub TextBox12_TextChanged(sender As Object, e As EventArgs) Handles TextBox12.TextChanged
|
||
TextBox12.UseSystemPasswordChar = True
|
||
Button15.Text = "Afficher"
|
||
End Sub
|
||
|
||
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
|
||
condition_d_utilisation.ShowDialog()
|
||
End Sub
|
||
|
||
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
|
||
If OpenFileDialog1.ShowDialog = 1 Then
|
||
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
|
||
Photo.ShowDialog()
|
||
End Sub
|
||
|
||
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
|
||
If OpenFileDialog1.ShowDialog = 1 Then
|
||
photo1()
|
||
End If
|
||
End Sub
|
||
Sub photo1()
|
||
PictureBox2.Image.Dispose()
|
||
File.Delete(compte & "photo.png")
|
||
PictureBox2.Image = Image.FromFile(OpenFileDialog1.FileName)
|
||
PictureBox2.Refresh()
|
||
PictureBox2.Image.Save(compte & "photo.png")
|
||
Try
|
||
My.Computer.Network.UploadFile(compte & "photo.png", ipserver & "/utilisateur/" & Label21.Text & "/photo.png")
|
||
MsgBox("Vôtre photo de profile a bien été modifier", MsgBoxStyle.Information)
|
||
Catch ex As Exception
|
||
Timer18.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
|
||
passe.ShowDialog()
|
||
End Sub
|
||
|
||
Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
|
||
Label17.Show()
|
||
Label18.Show()
|
||
TextBox7.Show()
|
||
TextBox8.Show()
|
||
Button12.Show()
|
||
Button11.Show()
|
||
Panel1.Show()
|
||
Panel2.Hide()
|
||
PictureBox4.Hide()
|
||
End Sub
|
||
Sub finiload()
|
||
Button5.Enabled = False
|
||
ComboBox7.Enabled = False
|
||
ComboBox8.Enabled = False
|
||
ListBox1.ContextMenuStrip.Enabled = False
|
||
Button1.Hide()
|
||
Label10.Hide()
|
||
Label11.Hide()
|
||
Button9.Hide()
|
||
Button10.Hide()
|
||
|
||
Dim lines102() As String = File.ReadAllLines(couleur)
|
||
If lines102(0) = 0 Then
|
||
couleurtemps = 0
|
||
GunaGoogleSwitch16.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch17.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch18.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch19.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch16.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch17.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch18.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch19.FillColor = Color.FromArgb(255, 128, 0)
|
||
CircularProgressBar1.ProgressColor = Color.FromArgb(255, 128, 0)
|
||
CircularProgressBar2.ProgressColor = Color.FromArgb(255, 128, 0)
|
||
CircularProgressBar3.ProgressColor = Color.FromArgb(255, 128, 0)
|
||
CircularProgressBar4.ProgressColor = Color.FromArgb(255, 128, 0)
|
||
CircularProgressBar5.ProgressColor = Color.FromArgb(255, 128, 0)
|
||
CircularProgressBar6.ProgressColor = Color.FromArgb(255, 128, 0)
|
||
CircularProgressBar7.ProgressColor = Color.FromArgb(255, 128, 0)
|
||
CircularProgressBar8.ProgressColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch1.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch1.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch2.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch2.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch3.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch3.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch4.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch4.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch5.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch5.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch6.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch6.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch7.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch7.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch8.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch8.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch9.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch9.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch10.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch10.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch11.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch11.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch12.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch12.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch13.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch13.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch14.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch14.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
ChromeTabcontrol1.SquareColor = Color.FromArgb(255, 128, 0)
|
||
ChromeTabcontrol2.SquareColor = Color.FromArgb(255, 128, 0)
|
||
ChromeTabcontrol3.SquareColor = Color.FromArgb(255, 128, 0)
|
||
ChromeTabcontrol4.SquareColor = Color.FromArgb(255, 128, 0)
|
||
ChromeTabcontrol5.SquareColor = Color.FromArgb(255, 128, 0)
|
||
ChromeTabcontrol6.SquareColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch15.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch15.FillColor = Color.FromArgb(255, 128, 0)
|
||
PictureBox7.Image = My.Resources.orange_sel
|
||
PictureBox8.Image = My.Resources.vert
|
||
PictureBox9.Image = My.Resources.bleu
|
||
PictureBox10.Image = My.Resources.rouge
|
||
ElseIf lines102(0) = 1 Then
|
||
couleurtemps = 1
|
||
GunaGoogleSwitch16.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch17.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch18.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch19.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch16.FillColor = Color.Green
|
||
GunaGoogleSwitch17.FillColor = Color.Green
|
||
GunaGoogleSwitch18.FillColor = Color.Green
|
||
GunaGoogleSwitch19.FillColor = Color.Green
|
||
CircularProgressBar1.ProgressColor = Color.Green
|
||
CircularProgressBar2.ProgressColor = Color.Green
|
||
CircularProgressBar3.ProgressColor = Color.Green
|
||
CircularProgressBar4.ProgressColor = Color.Green
|
||
CircularProgressBar5.ProgressColor = Color.Green
|
||
CircularProgressBar6.ProgressColor = Color.Green
|
||
CircularProgressBar7.ProgressColor = Color.Green
|
||
CircularProgressBar8.ProgressColor = Color.Green
|
||
GunaGoogleSwitch1.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch1.FillColor = Color.Green
|
||
GunaGoogleSwitch2.FillColor = Color.Green
|
||
GunaGoogleSwitch2.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch3.FillColor = Color.Green
|
||
GunaGoogleSwitch3.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch4.FillColor = Color.Green
|
||
GunaGoogleSwitch4.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch5.FillColor = Color.Green
|
||
GunaGoogleSwitch5.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch6.FillColor = Color.Green
|
||
GunaGoogleSwitch6.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch7.FillColor = Color.Green
|
||
GunaGoogleSwitch7.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch8.FillColor = Color.Green
|
||
GunaGoogleSwitch8.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch9.FillColor = Color.Green
|
||
GunaGoogleSwitch9.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch10.FillColor = Color.Green
|
||
GunaGoogleSwitch10.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch11.FillColor = Color.Green
|
||
GunaGoogleSwitch11.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch12.FillColor = Color.Green
|
||
GunaGoogleSwitch12.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch13.FillColor = Color.Green
|
||
GunaGoogleSwitch13.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch14.FillColor = Color.Green
|
||
GunaGoogleSwitch14.CheckedOnColor = Color.Green
|
||
ChromeTabcontrol1.SquareColor = Color.Green
|
||
ChromeTabcontrol2.SquareColor = Color.Green
|
||
ChromeTabcontrol3.SquareColor = Color.Green
|
||
ChromeTabcontrol4.SquareColor = Color.Green
|
||
ChromeTabcontrol5.SquareColor = Color.Green
|
||
ChromeTabcontrol6.SquareColor = Color.Green
|
||
GunaGoogleSwitch15.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch15.FillColor = Color.Green
|
||
PictureBox7.Image = My.Resources.orange
|
||
PictureBox8.Image = My.Resources.vert_sel
|
||
PictureBox9.Image = My.Resources.bleu
|
||
PictureBox10.Image = My.Resources.rouge
|
||
ElseIf lines102(0) = 2 Then
|
||
couleurtemps = 2
|
||
GunaGoogleSwitch16.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch17.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch18.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch19.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch16.FillColor = Color.Blue
|
||
GunaGoogleSwitch17.FillColor = Color.Blue
|
||
GunaGoogleSwitch18.FillColor = Color.Blue
|
||
GunaGoogleSwitch19.FillColor = Color.Blue
|
||
CircularProgressBar1.ProgressColor = Color.Blue
|
||
CircularProgressBar2.ProgressColor = Color.Blue
|
||
CircularProgressBar3.ProgressColor = Color.Blue
|
||
CircularProgressBar4.ProgressColor = Color.Blue
|
||
CircularProgressBar5.ProgressColor = Color.Blue
|
||
CircularProgressBar6.ProgressColor = Color.Blue
|
||
CircularProgressBar7.ProgressColor = Color.Blue
|
||
CircularProgressBar8.ProgressColor = Color.Blue
|
||
GunaGoogleSwitch1.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch1.FillColor = Color.Blue
|
||
GunaGoogleSwitch2.FillColor = Color.Blue
|
||
GunaGoogleSwitch2.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch3.FillColor = Color.Blue
|
||
GunaGoogleSwitch3.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch4.FillColor = Color.Blue
|
||
GunaGoogleSwitch4.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch5.FillColor = Color.Blue
|
||
GunaGoogleSwitch5.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch6.FillColor = Color.Blue
|
||
GunaGoogleSwitch6.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch7.FillColor = Color.Blue
|
||
GunaGoogleSwitch7.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch8.FillColor = Color.Blue
|
||
GunaGoogleSwitch8.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch9.FillColor = Color.Blue
|
||
GunaGoogleSwitch9.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch10.FillColor = Color.Blue
|
||
GunaGoogleSwitch10.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch11.FillColor = Color.Blue
|
||
GunaGoogleSwitch11.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch12.FillColor = Color.Blue
|
||
GunaGoogleSwitch12.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch13.FillColor = Color.Blue
|
||
GunaGoogleSwitch13.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch14.FillColor = Color.Blue
|
||
GunaGoogleSwitch14.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch15.FillColor = Color.Blue
|
||
GunaGoogleSwitch15.CheckedOnColor = Color.Blue
|
||
ChromeTabcontrol1.SquareColor = Color.Blue
|
||
ChromeTabcontrol2.SquareColor = Color.Blue
|
||
ChromeTabcontrol3.SquareColor = Color.Blue
|
||
ChromeTabcontrol4.SquareColor = Color.Blue
|
||
ChromeTabcontrol5.SquareColor = Color.Blue
|
||
ChromeTabcontrol6.SquareColor = Color.Blue
|
||
PictureBox7.Image = My.Resources.orange
|
||
PictureBox8.Image = My.Resources.vert
|
||
PictureBox9.Image = My.Resources.bleu_sel
|
||
PictureBox10.Image = My.Resources.rouge
|
||
ElseIf lines102(0) = 3 Then
|
||
couleurtemps = 3
|
||
GunaGoogleSwitch16.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch17.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch18.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch19.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch16.FillColor = Color.Red
|
||
GunaGoogleSwitch17.FillColor = Color.Red
|
||
GunaGoogleSwitch18.FillColor = Color.Red
|
||
GunaGoogleSwitch19.FillColor = Color.Red
|
||
CircularProgressBar1.ProgressColor = Color.Red
|
||
CircularProgressBar2.ProgressColor = Color.Red
|
||
CircularProgressBar3.ProgressColor = Color.Red
|
||
CircularProgressBar4.ProgressColor = Color.Red
|
||
CircularProgressBar5.ProgressColor = Color.Red
|
||
CircularProgressBar6.ProgressColor = Color.Red
|
||
CircularProgressBar7.ProgressColor = Color.Red
|
||
CircularProgressBar8.ProgressColor = Color.Red
|
||
GunaGoogleSwitch1.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch1.FillColor = Color.Red
|
||
GunaGoogleSwitch2.FillColor = Color.Red
|
||
GunaGoogleSwitch2.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch3.FillColor = Color.Red
|
||
GunaGoogleSwitch3.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch4.FillColor = Color.Red
|
||
GunaGoogleSwitch4.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch5.FillColor = Color.Red
|
||
GunaGoogleSwitch5.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch6.FillColor = Color.Red
|
||
GunaGoogleSwitch6.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch7.FillColor = Color.Red
|
||
GunaGoogleSwitch7.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch8.FillColor = Color.Red
|
||
GunaGoogleSwitch8.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch9.FillColor = Color.Red
|
||
GunaGoogleSwitch9.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch10.FillColor = Color.Red
|
||
GunaGoogleSwitch10.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch11.FillColor = Color.Red
|
||
GunaGoogleSwitch11.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch12.FillColor = Color.Red
|
||
GunaGoogleSwitch12.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch13.FillColor = Color.Red
|
||
GunaGoogleSwitch13.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch14.FillColor = Color.Red
|
||
GunaGoogleSwitch14.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch15.FillColor = Color.Red
|
||
GunaGoogleSwitch15.CheckedOnColor = Color.Red
|
||
ChromeTabcontrol1.SquareColor = Color.Red
|
||
ChromeTabcontrol2.SquareColor = Color.Red
|
||
ChromeTabcontrol3.SquareColor = Color.Red
|
||
ChromeTabcontrol4.SquareColor = Color.Red
|
||
ChromeTabcontrol5.SquareColor = Color.Red
|
||
ChromeTabcontrol6.SquareColor = Color.Red
|
||
PictureBox7.Image = My.Resources.orange
|
||
PictureBox8.Image = My.Resources.vert
|
||
PictureBox9.Image = My.Resources.bleu
|
||
PictureBox10.Image = My.Resources.rouge_sel
|
||
End If
|
||
|
||
Dim lines101() As String = File.ReadAllLines(marqueurtemp)
|
||
If lines101(0) = 3 Then
|
||
ComboBox18.SelectedItem = "3 marqueur"
|
||
marqueurtempsa = 3
|
||
ElseIf lines101(0) = 5 Then
|
||
ComboBox18.SelectedItem = "5 marqueur"
|
||
marqueurtempsa = 5
|
||
ElseIf lines101(0) = 10 Then
|
||
ComboBox18.SelectedItem = "10 marqueur"
|
||
marqueurtempsa = 10
|
||
ElseIf lines101(0) = 15 Then
|
||
ComboBox18.SelectedItem = "15 marqueur"
|
||
marqueurtempsa = 15
|
||
ElseIf lines101(0) = 20 Then
|
||
ComboBox18.SelectedItem = "20 marqueur"
|
||
marqueurtempsa = 20
|
||
ElseIf lines101(0) = 25 Then
|
||
ComboBox18.SelectedItem = "25 marqueur"
|
||
marqueurtempsa = 25
|
||
ElseIf lines101(0) = 30 Then
|
||
ComboBox18.SelectedItem = "30 marqueur"
|
||
marqueurtempsa = 30
|
||
ElseIf lines101(0) = 35 Then
|
||
ComboBox18.SelectedItem = "35 marqueur"
|
||
marqueurtempsa = 35
|
||
ElseIf lines101(0) = 40 Then
|
||
ComboBox18.SelectedItem = "40 marqueur"
|
||
marqueurtempsa = 40
|
||
ElseIf lines101(0) = 45 Then
|
||
ComboBox18.SelectedItem = "45 marqueur"
|
||
marqueurtempsa = 45
|
||
ElseIf lines101(0) = 50 Then
|
||
ComboBox18.SelectedItem = "50 marqueur"
|
||
marqueurtempsa = 50
|
||
ElseIf lines101(0) = 55 Then
|
||
ComboBox18.SelectedItem = "55 marqueur"
|
||
marqueurtempsa = 55
|
||
ElseIf lines101(0) = 60 Then
|
||
ComboBox18.SelectedItem = "60 marqueur"
|
||
marqueurtempsa = 60
|
||
End If
|
||
|
||
Dim lines100() As String = File.ReadAllLines(imgmusique)
|
||
If lines100(0) = 1 Then
|
||
ComboBox15.Items.Add(lines100(1))
|
||
ComboBox15.SelectedItem = lines100(1)
|
||
PictureBox13.Image = Image.FromFile(lines100(2))
|
||
PictureBox13.Show()
|
||
Else
|
||
ComboBox15.SelectedItem = "Part default"
|
||
End If
|
||
|
||
Dim lines1002() As String = File.ReadAllLines(ettt)
|
||
If lines1002(0) = 1 Then
|
||
ComboBox16.Items.Add(lines1002(1))
|
||
ComboBox16.SelectedItem = lines1002(1)
|
||
OpenFileDialog3.FileName = lines1002(2)
|
||
|
||
Else
|
||
ComboBox16.SelectedItem = "Part default"
|
||
|
||
End If
|
||
|
||
For Each fichier As String In IO.Directory.GetDirectories(Favoris1)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
ListBox1.Items.Add(info.Name)
|
||
Next
|
||
|
||
For Each fichier As String In IO.Directory.GetFiles(marqueur)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
ComboBox9.Items.Add(info.Name.Replace(".txt", ""))
|
||
Next
|
||
|
||
If ComboBox9.Items.Count = 0 Then
|
||
Button2.Hide()
|
||
End If
|
||
|
||
|
||
For Each fichier As String In IO.Directory.GetDirectories(radio)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
ComboBox6.Items.Add(info.Name)
|
||
ComboBox5.Items.Add(info.Name)
|
||
Next
|
||
AxWindowsMediaPlayer1.Hide()
|
||
Label6.Hide()
|
||
Label7.Hide()
|
||
|
||
Dim sr As New StreamReader(historique)
|
||
While (sr.Peek >= 0)
|
||
ListBox2.Items.Add(sr.ReadLine)
|
||
End While
|
||
sr.Close()
|
||
|
||
Dim lines50() As String = File.ReadAllLines(fichiermisauto)
|
||
If lines50(0) = 1 Then
|
||
GunaGoogleSwitch15.Checked = True
|
||
Else
|
||
GunaGoogleSwitch15.Checked = False
|
||
End If
|
||
|
||
|
||
If CheckBox1.Checked = False Then
|
||
ComboBox1.Enabled = False
|
||
Else
|
||
ComboBox1.Enabled = True
|
||
End If
|
||
|
||
If File.Exists(settings1) Then
|
||
|
||
Dim lines() As String = File.ReadAllLines(settings1)
|
||
|
||
If lines(0) <> 0 Then
|
||
CheckBox1.Checked = True
|
||
ComboBox1.Text = lines(0)
|
||
End If
|
||
|
||
If lines(5) = 0 Then
|
||
GunaGoogleSwitch8.Checked = False
|
||
Else
|
||
GunaGoogleSwitch8.Checked = True
|
||
If lines(6) = 1 Then
|
||
ComboBox14.SelectedItem = "1 minute"
|
||
ElseIf lines(6) = 3 Then
|
||
ComboBox14.SelectedItem = "3 minute"
|
||
ElseIf lines(6) = 5 Then
|
||
ComboBox14.SelectedItem = "5 minute"
|
||
ElseIf lines(6) = 10 Then
|
||
ComboBox14.SelectedItem = "10 minute"
|
||
ElseIf lines(6) = 15 Then
|
||
ComboBox14.SelectedItem = "15 minute"
|
||
ElseIf lines(6) = 20 Then
|
||
ComboBox14.SelectedItem = "20 minute"
|
||
ElseIf lines(6) = 25 Then
|
||
ComboBox14.SelectedItem = "25 minute"
|
||
ElseIf lines(6) = 30 Then
|
||
ComboBox14.SelectedItem = "30 minute"
|
||
ElseIf lines(6) = 35 Then
|
||
ComboBox14.SelectedItem = "35 minute"
|
||
ElseIf lines(6) = 40 Then
|
||
ComboBox14.SelectedItem = "40 minute"
|
||
ElseIf lines(6) = 45 Then
|
||
ComboBox14.SelectedItem = "45 minute"
|
||
ElseIf lines(6) = 50 Then
|
||
ComboBox14.SelectedItem = "50 minute"
|
||
ElseIf lines(6) = 55 Then
|
||
ComboBox14.SelectedItem = "55 minute"
|
||
ElseIf lines(6) = 60 Then
|
||
ComboBox14.SelectedItem = "1 heurs "
|
||
End If
|
||
End If
|
||
|
||
If lines(1) = 1 Then
|
||
GunaGoogleSwitch4.Checked = True
|
||
End If
|
||
|
||
If lines(2) = 1 Then
|
||
GunaGoogleSwitch1.Checked = True
|
||
GunaLabel26.Show()
|
||
GunaGoogleSwitch15.Show()
|
||
GunaLabel27.Show()
|
||
Else
|
||
GunaLabel26.Hide()
|
||
GunaGoogleSwitch15.Hide()
|
||
GunaLabel27.Hide()
|
||
End If
|
||
|
||
|
||
If lines(3) = 1 Then
|
||
GunaGoogleSwitch2.Checked = True
|
||
End If
|
||
|
||
If lines(4) = 1 Then
|
||
GunaGoogleSwitch3.Checked = True
|
||
End If
|
||
End If
|
||
|
||
Dim lines2() As String = File.ReadAllLines(notification)
|
||
If File.Exists(notification) Then
|
||
If lines2(0) = 1 Then
|
||
GunaGoogleSwitch5.Checked = True
|
||
End If
|
||
End If
|
||
|
||
Dim lines3() As String = File.ReadAllLines(théme)
|
||
If lines3(0) = 1 Then
|
||
ComboBox3.SelectedItem = "Clair"
|
||
ElseIf lines3(0) = 2 Then
|
||
ComboBox3.SelectedItem = "Sombre"
|
||
End If
|
||
|
||
Dim lines5() As String = File.ReadAllLines(setting)
|
||
If lines5(0) = 1 Then
|
||
CheckBox13.Checked = True
|
||
Else
|
||
CheckBox13.Checked = False
|
||
End If
|
||
|
||
Dim lines51() As String = File.ReadAllLines(settings4)
|
||
If lines51(0) = 0 Then
|
||
ComboBox4.SelectedItem = "Ne rien faire"
|
||
ElseIf lines51(0) = 1 Then
|
||
ComboBox4.SelectedItem = "Effet sonore"
|
||
End If
|
||
|
||
Dim lines52() As String = File.ReadAllLines(settings5)
|
||
If lines52(0) = 1 Then
|
||
ComboBox4.SelectedItem = "Fermer la session"
|
||
ElseIf lines52(0) = 2 Then
|
||
ComboBox4.SelectedItem = "Verrouiller la session"
|
||
ElseIf lines52(0) = 3 Then
|
||
ComboBox4.SelectedItem = "Arrêter l'ordinateur"
|
||
ElseIf lines52(0) = 4 Then
|
||
ComboBox4.SelectedItem = "Mettre en veille prolonger"
|
||
End If
|
||
|
||
Dim lines7() As String = File.ReadAllLines(settings2)
|
||
|
||
If lines7(0) <> 0 Then
|
||
CheckBox15.Checked = True
|
||
ComboBox7.Text = lines7(0)
|
||
Else
|
||
CheckBox15.Checked = False
|
||
End If
|
||
|
||
If lines7(1) = 1 Then
|
||
GunaGoogleSwitch9.Checked = True
|
||
End If
|
||
|
||
If lines7(2) = 1 Then
|
||
GunaGoogleSwitch10.Checked = True
|
||
End If
|
||
|
||
Dim lines8() As String = File.ReadAllLines(musiquepar)
|
||
|
||
If lines8(0) = 1 Then
|
||
GunaGoogleSwitch11.Checked = True
|
||
End If
|
||
|
||
Dim lines9() As String = File.ReadAllLines(settings3)
|
||
|
||
If lines9(0) <> 0 Then
|
||
CheckBox19.Checked = True
|
||
ComboBox8.Text = lines9(0)
|
||
Else
|
||
CheckBox19.Checked = False
|
||
End If
|
||
|
||
If lines9(1) = 1 Then
|
||
GunaGoogleSwitch12.Checked = True
|
||
End If
|
||
|
||
If lines9(2) = 1 Then
|
||
GunaGoogleSwitch13.Checked = True
|
||
End If
|
||
|
||
If lines9(3) = 1 Then
|
||
GunaGoogleSwitch14.Checked = True
|
||
End If
|
||
|
||
Try
|
||
Dim lines444() As String = File.ReadAllLines(dosprofils & "/" & nomprofils & "/passe.txt")
|
||
Dim lines445() As String = File.ReadAllLines(compte & "passtemps.txt")
|
||
If lines444(0) = lines445(0) Then
|
||
CheckBox27.Checked = True
|
||
Button39.Enabled = False
|
||
Else
|
||
CheckBox27.Checked = False
|
||
If File.Exists(dosprofils & nomprofils & "/passe.txt") = True Then
|
||
Button38.Text = "Modifier votre mots de passe"
|
||
Button39.Enabled = True
|
||
CheckBox27.Enabled = False
|
||
Else
|
||
|
||
End If
|
||
End If
|
||
Catch ex As Exception
|
||
CheckBox27.Checked = False
|
||
If File.Exists(dosprofils & nomprofils & "/passe.txt") = True Then
|
||
Button38.Text = "Modifier votre mots de passe"
|
||
Button39.Enabled = True
|
||
CheckBox27.Enabled = False
|
||
Else
|
||
|
||
End If
|
||
End Try
|
||
End Sub
|
||
Sub mail2()
|
||
If TextBox7.Text = "" Then
|
||
MsgBox("Merci d'entrer un nom utilisateur", MsgBoxStyle.Critical)
|
||
Exit Sub
|
||
Else
|
||
Try
|
||
Dim fwr As FtpWebRequest
|
||
fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/")
|
||
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
||
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
||
|
||
Dim str As String = sr.ReadLine()
|
||
While Not str Is Nothing
|
||
|
||
Directory.CreateDirectory(cozip & str)
|
||
|
||
|
||
str = sr.ReadLine()
|
||
|
||
End While
|
||
|
||
sr.Close()
|
||
|
||
If Directory.Exists(cozip & TextBox7.Text) = True Then
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Directory.Delete(cozip & info.Name)
|
||
Next
|
||
mail6()
|
||
Else
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Directory.Delete(cozip & info.Name)
|
||
Next
|
||
MsgBox("Le compte: " & TextBox7.Text & " n'existe pas", MsgBoxStyle.Critical)
|
||
End If
|
||
Catch ex As Exception
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Directory.Delete(cozip & info.Name)
|
||
Next
|
||
Timer51.Start()
|
||
End Try
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub GunaGoogleSwitch1_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch1.CheckedChanged
|
||
If GunaGoogleSwitch1.Checked = True Then
|
||
GunaLabel2.Text = "Activer"
|
||
GunaLabel26.Show()
|
||
GunaGoogleSwitch15.Show()
|
||
GunaLabel27.Show()
|
||
Else
|
||
GunaLabel2.Text = "Désactivée"
|
||
GunaLabel26.Hide()
|
||
GunaGoogleSwitch15.Hide()
|
||
GunaLabel27.Hide()
|
||
End If
|
||
End Sub
|
||
Private Sub GunaGoogleSwitch2_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch2.CheckedChanged
|
||
If GunaGoogleSwitch2.Checked = True Then
|
||
GunaLabel4.Text = "Activer"
|
||
Else
|
||
GunaLabel4.Text = "Désactivée"
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub GunaGoogleSwitch3_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch3.CheckedChanged
|
||
If GunaGoogleSwitch3.Checked = True Then
|
||
GunaLabel6.Text = "Activer"
|
||
Else
|
||
GunaLabel6.Text = "Désactivée"
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub GunaGoogleSwitch4_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch4.CheckedChanged
|
||
If GunaGoogleSwitch4.Checked = True Then
|
||
GunaLabel7.Text = "Activer"
|
||
Else
|
||
GunaLabel7.Text = "Désactivée"
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub GunaGoogleSwitch5_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch5.CheckedChanged
|
||
If GunaGoogleSwitch5.Checked = True Then
|
||
GunaLabel10.Text = "Activer"
|
||
Else
|
||
GunaLabel10.Text = "Désactivée"
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
|
||
Dim sw As New StreamWriter(date1)
|
||
sw.WriteLine(ComboBox11.SelectedItem)
|
||
sw.WriteLine(ComboBox12.SelectedItem)
|
||
sw.WriteLine(ComboBox13.SelectedItem)
|
||
sw.Close()
|
||
My.Computer.Network.UploadFile(date1, ipserver & "/utilisateur/" & Label21.Text & "/date.txt")
|
||
File.Delete(date1)
|
||
Dim sw1 As New StreamWriter(settingcompte)
|
||
sw1.WriteLine(1)
|
||
sw1.Close()
|
||
MsgBox("votre date de naisence a bien été enregister", MsgBoxStyle.Information)
|
||
End Sub
|
||
|
||
Private Sub GunaGoogleSwitch6_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch6.CheckedChanged
|
||
If GunaGoogleSwitch6.Checked = True And chh = 0 Then
|
||
syhistorique()
|
||
ElseIf GunaGoogleSwitch6.Checked = False And chh = 0 Then
|
||
syhistorique2()
|
||
Else
|
||
chh = 0
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub GunaGoogleSwitch7_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch7.CheckedChanged
|
||
If GunaGoogleSwitch7.Checked = True And chh2 = 0 Then
|
||
Label32.Text = "Activer"
|
||
Dim sw1 As New StreamWriter(cozip & "vérification.txt")
|
||
sw1.WriteLine(1)
|
||
sw1.Close()
|
||
Try
|
||
My.Computer.Network.UploadFile(cozip & "vérification.txt", ipserver & "utilisateur/" & Label21.Text & "/vérification.txt")
|
||
File.Delete(cozip & "vérification.txt")
|
||
MsgBox("La double vérification est activée", MsgBoxStyle.Information)
|
||
Catch ex As Exception
|
||
Timer48.Start()
|
||
End Try
|
||
ElseIf GunaGoogleSwitch7.Checked = False And chh2 = 0 Then
|
||
Label32.Text = "Désactivée"
|
||
Dim sw1 As New StreamWriter(cozip & "vérification.txt")
|
||
sw1.WriteLine(0)
|
||
sw1.Close()
|
||
Try
|
||
My.Computer.Network.UploadFile(cozip & "vérification.txt", ipserver & "utilisateur/" & Label21.Text & "/vérification.txt")
|
||
File.Delete(cozip & "vérification.txt")
|
||
MsgBox("La double vérification est désactivée", MsgBoxStyle.Information)
|
||
Catch ex As Exception
|
||
Timer49.Start()
|
||
End Try
|
||
Else
|
||
Label32.Text = "Activer"
|
||
End If
|
||
chh2 = 0
|
||
End Sub
|
||
Sub mail3()
|
||
Try
|
||
If My.Computer.Network.Ping("www.google.com") Then
|
||
mail4()
|
||
End If
|
||
Catch ex As Exception
|
||
TextBox4.Clear()
|
||
TextBox5.Clear()
|
||
TextBox6.Clear()
|
||
TextBox12.Clear()
|
||
Exit Sub
|
||
End Try
|
||
End Sub
|
||
Sub mail4()
|
||
Dim NumRandom As Integer
|
||
Dim Rand As Random = New Random
|
||
Dim NumStr As String
|
||
Dim code As String = ""
|
||
|
||
NumRandom = (Rand.Next(1, 999999))
|
||
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
||
code = "LM-" & NumStr
|
||
|
||
Dim t4 = cozip & "code 1 de récupération " & TextBox4.Text & ".txt"
|
||
Dim sw4 As New StreamWriter(t4)
|
||
sw4.WriteLine(TextBox4.Text & code & "code1")
|
||
sw4.Close()
|
||
|
||
Dim NumRandom2 As Integer
|
||
Dim Rand2 As Random = New Random
|
||
Dim NumStr2 As String
|
||
Dim code2 As String = ""
|
||
|
||
NumRandom2 = (Rand2.Next(1, 999999))
|
||
NumStr2 = Strings.Right("" & NumRandom2.ToString(), 6)
|
||
code2 = "LM-" & NumStr2
|
||
|
||
Dim t5 = cozip & "code 2 de récupération " & TextBox4.Text & ".txt"
|
||
Dim sw5 As New StreamWriter(t5)
|
||
sw5.WriteLine(TextBox4.Text & code2 & "code2")
|
||
sw5.Close()
|
||
|
||
Dim NumRandom3 As Integer
|
||
Dim Rand3 As Random = New Random
|
||
Dim NumStr3 As String
|
||
Dim code3 As String = ""
|
||
|
||
NumRandom3 = (Rand3.Next(1, 999999))
|
||
NumStr3 = Strings.Right("" & NumRandom3.ToString(), 6)
|
||
code3 = "LM-" & NumStr3
|
||
|
||
Dim t6 = cozip & "code 3 de récupération " & TextBox4.Text & ".txt"
|
||
Dim sw6 As New StreamWriter(t6)
|
||
sw6.WriteLine(TextBox4.Text & code3 & "code3")
|
||
sw6.Close()
|
||
|
||
Timer7.Start()
|
||
|
||
End Sub
|
||
Sub passup()
|
||
'envoie co.zip'
|
||
Try
|
||
For Each fichier As String In IO.Directory.GetFiles(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
My.Computer.Network.UploadFile(cozip & info.Name, ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/" & info.Name)
|
||
Next
|
||
photoup()
|
||
Catch ex As Exception
|
||
Timer3.Start()
|
||
End Try
|
||
End Sub
|
||
Sub photoup()
|
||
For Each fichier As String In IO.Directory.GetFiles(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(cozip & info.Name)
|
||
Next
|
||
|
||
'envoie photo'
|
||
Try
|
||
My.Computer.Network.UploadFile(compte & "photo.png", ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/" & "photo.png")
|
||
intexup()
|
||
Catch ex As Exception
|
||
Timer4.Start()
|
||
End Try
|
||
End Sub
|
||
Sub intexup()
|
||
'envoie index'
|
||
Try
|
||
My.Computer.Network.UploadFile(compte & "index.php", ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/" & "index.php")
|
||
intexup2()
|
||
Catch ex As Exception
|
||
Timer8.Start()
|
||
End Try
|
||
End Sub
|
||
Sub intexup2()
|
||
Try
|
||
My.Computer.Network.UploadFile(compte & "index.php", ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/dirve/" & "index.php")
|
||
intexup3()
|
||
Catch ex As Exception
|
||
Timer32.Start()
|
||
End Try
|
||
End Sub
|
||
Sub intexup3()
|
||
Try
|
||
My.Computer.Network.UploadFile(compte & "index.php", ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/pc/" & "index.php")
|
||
File.Delete(compte & "index.php")
|
||
File.Delete(compte & "photo.png")
|
||
ft5()
|
||
Catch ex As Exception
|
||
Timer34.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
|
||
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
|
||
Try
|
||
For Each fichier As String In IO.Directory.GetFiles(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
My.Computer.Network.UploadFile(cozip & info.Name, ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/" & info.Name)
|
||
Next
|
||
photoup()
|
||
Catch ex As Exception
|
||
Timer3.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
|
||
Try
|
||
Timer4.Stop()
|
||
My.Computer.Network.UploadFile(compte & "photo.png", ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/" & "photo.png")
|
||
intexup()
|
||
Catch ex As Exception
|
||
Timer4.Start()
|
||
End Try
|
||
End Sub
|
||
Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
|
||
Try
|
||
Timer8.Stop()
|
||
My.Computer.Network.UploadFile(compte & "index.php", ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/" & "index.php")
|
||
intexup2()
|
||
Catch ex As Exception
|
||
Timer8.Start()
|
||
End Try
|
||
End Sub
|
||
Sub co1()
|
||
If TextBox7.Text = "" Then
|
||
MsgBox("Merci entrer un nom utilisateur", MsgBoxStyle.Critical)
|
||
Exit Sub
|
||
Else
|
||
If TextBox8.Text = "" Then
|
||
MsgBox("Merci entrer un mot de passe", MsgBoxStyle.Critical)
|
||
Exit Sub
|
||
Else
|
||
Timer35.Start()
|
||
End If
|
||
End If
|
||
End Sub
|
||
Sub co2()
|
||
For Each fichier As String In IO.Directory.GetFiles(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(cozip & info.Name)
|
||
Next
|
||
|
||
If File.Exists(compte & "/co.zip") = True Then
|
||
File.Delete(compte & "/co.zip")
|
||
End If
|
||
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & TextBox7.Text & "/pass.txt", cozip & "pass.txt")
|
||
Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(TextBox8.Text)
|
||
Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
||
Dim Crypto As New DESCryptoServiceProvider()
|
||
Crypto.Key = keyBytes
|
||
Crypto.IV = keyBytes
|
||
Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
|
||
Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
|
||
Dim passecrypt = Convert.ToBase64String(Resultatbytes)
|
||
|
||
Dim lines1() As String = File.ReadAllLines(cozip & "pass.txt")
|
||
|
||
If lines1(0) = passecrypt Then
|
||
co3()
|
||
Else
|
||
File.Delete(cozip & "pass.txt")
|
||
passeincor += 1
|
||
TextBox8.Clear()
|
||
MsgBox("Mot de passe incorrect", MsgBoxStyle.Exclamation)
|
||
End If
|
||
Catch ex As Exception
|
||
Timer44.Start()
|
||
End Try
|
||
|
||
End Sub
|
||
Sub co3()
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & TextBox7.Text & "/vérification.txt", cozip & "vérification.txt")
|
||
Dim lines() As String = File.ReadAllLines(cozip & "vérification.txt")
|
||
If lines(0) = 1 Then
|
||
File.Delete(cozip & "vérification.txt")
|
||
chh2 = 1
|
||
GunaGoogleSwitch7.Checked = True
|
||
Label32.Text = "Activer"
|
||
chh2 = 0
|
||
Form141.ShowDialog()
|
||
Exit Sub
|
||
Else
|
||
File.Delete(cozip & "vérification.txt")
|
||
chh2 = 1
|
||
GunaGoogleSwitch7.Checked = False
|
||
Label32.Text = "Désactivée"
|
||
chh2 = 0
|
||
co7()
|
||
End If
|
||
Catch ex As Exception
|
||
Timer45.Start()
|
||
End Try
|
||
End Sub
|
||
Sub co4()
|
||
Me.Cursor = DefaultCursor
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipserver & "/Utilisateur/" & "/" & TextBox7.Text & "/" & "photo.png", compte & "photo.png")
|
||
Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(compte & "photo.png")
|
||
Dim TailleFichier As Integer = FichierInfo.Length
|
||
If TailleFichier = 0 Then
|
||
File.Delete(compte & "photo.png")
|
||
Timer13.Start()
|
||
Exit Sub
|
||
Else
|
||
PictureBox2.Image = Image.FromFile(compte & "photo.png")
|
||
Form1.DriveToolStripMenuItem.Visible = True
|
||
co5()
|
||
End If
|
||
Catch ex As Exception
|
||
Timer13.Start()
|
||
End Try
|
||
End Sub
|
||
Sub co5()
|
||
Dim sw100 As New StreamWriter(compteco)
|
||
sw100.WriteLine(TextBox7.Text)
|
||
sw100.Close()
|
||
Dim sw101 As New StreamWriter(comtpeco2)
|
||
sw101.WriteLine(1)
|
||
sw101.Close()
|
||
Panel2.Show()
|
||
Label21.Text = TextBox7.Text
|
||
TextBox8.Clear()
|
||
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & TextBox7.Text & "/setting.txt", cozip & "setting.txt")
|
||
Dim lines() As String = File.ReadAllLines(cozip & "setting.txt")
|
||
If lines(0) = 1 Then
|
||
chh = 1
|
||
GunaGoogleSwitch6.Checked = True
|
||
Label29.Text = "Activer"
|
||
co6()
|
||
Else
|
||
chh = 2
|
||
GunaGoogleSwitch6.Checked = False
|
||
co6()
|
||
End If
|
||
|
||
Catch ex As Exception
|
||
Timer46.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer13_Tick(sender As Object, e As EventArgs) Handles Timer13.Tick
|
||
Timer13.Stop()
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipserver & "/Utilisateur/" & "/" & TextBox7.Text & "/" & "photo.png", compte & "photo.png")
|
||
Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(compte & "photo.png")
|
||
Dim TailleFichier As Integer = FichierInfo.Length
|
||
If TailleFichier = 0 Then
|
||
File.Delete(compte & "photo.png")
|
||
Timer13.Start()
|
||
Exit Sub
|
||
Else
|
||
PictureBox2.Image = Image.FromFile(compte & "photo.png")
|
||
Form1.DriveToolStripMenuItem.Visible = True
|
||
co5()
|
||
End If
|
||
Catch ex As Exception
|
||
Timer13.Start()
|
||
End Try
|
||
End Sub
|
||
Sub loadco()
|
||
If dl = 0 Then
|
||
ComboBox10.SelectedItem = "@gmail.com"
|
||
Dim lines55() As String = File.ReadAllLines(comtpeco2)
|
||
If lines55(0) = 1 Then
|
||
Label17.Hide()
|
||
Label18.Hide()
|
||
TextBox7.Hide()
|
||
TextBox8.Hide()
|
||
Button12.Hide()
|
||
Button11.Hide()
|
||
Dim lines57() As String = File.ReadAllLines(compteco)
|
||
Label21.Text = lines57(0)
|
||
Try
|
||
Dim maj As New WebClient
|
||
Dim vri As String = maj.DownloadString(ipsite & "/newletter/" & Label21.Text & ".txt")
|
||
GunaGoogleSwitch19.Checked = True
|
||
Label64.Text = "Oui"
|
||
letterchange = 1
|
||
Catch ex As Exception
|
||
GunaGoogleSwitch19.Checked = False
|
||
Label64.Text = "Non"
|
||
letterchange = 1
|
||
End Try
|
||
|
||
Try
|
||
CheckBox27.Visible = True
|
||
My.Computer.Network.DownloadFile(ipserver & "/Utilisateur/" & lines57(0) & "/photo.png", compte & "photo.png")
|
||
Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(compte & "photo.png")
|
||
Dim TailleFichier As Integer = FichierInfo.Length
|
||
If TailleFichier = 0 Then
|
||
File.Delete(compte & "photo.png")
|
||
Timer15.Start()
|
||
Else
|
||
PictureBox2.Image = Image.FromFile(compte & "photo.png")
|
||
Panel2.Show()
|
||
Panel1.Hide()
|
||
load7()
|
||
End If
|
||
Catch ex As Exception
|
||
Timer15.Start()
|
||
End Try
|
||
Else
|
||
finiload()
|
||
Panel1.Hide()
|
||
Panel2.Hide()
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Timer15_Tick(sender As Object, e As EventArgs) Handles Timer15.Tick
|
||
Timer15.Stop()
|
||
If dl = 0 Then
|
||
ComboBox10.SelectedItem = "@gmail.com"
|
||
Dim lines55() As String = File.ReadAllLines(comtpeco2)
|
||
If lines55(0) = 1 Then
|
||
Dim lines57() As String = File.ReadAllLines(compteco)
|
||
Label21.Text = lines57(0)
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipserver & "/Utilisateur/" & "/" & lines57(0) & "/" & "photo.png", compte & "photo.png")
|
||
Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(compte & "photo.png")
|
||
Dim TailleFichier As Integer = FichierInfo.Length
|
||
If TailleFichier = 0 Then
|
||
File.Delete(compte & "photo.png")
|
||
Timer15.Start()
|
||
Else
|
||
PictureBox2.Image = Image.FromFile(compte & "photo.png")
|
||
Panel2.Show()
|
||
Panel1.Hide()
|
||
load7()
|
||
End If
|
||
Catch ex As Exception
|
||
Timer15.Start()
|
||
End Try
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Timer18_Tick(sender As Object, e As EventArgs) Handles Timer18.Tick
|
||
Try
|
||
Timer18.Stop()
|
||
My.Computer.Network.UploadFile(compte & "photo.png", ipserver & "/utilisateur/" & Label21.Text & "/photo.png")
|
||
MsgBox("Vôtre photo de profile a bien été modifier", MsgBoxStyle.Information)
|
||
Catch ex As Exception
|
||
Timer18.Start()
|
||
End Try
|
||
End Sub
|
||
Sub syhistorique()
|
||
Dim lines428() As String = File.ReadAllLines(compteco)
|
||
Dim tcon = lines428(0)
|
||
Dim sw1 As New StreamWriter(cozip & "setting.txt")
|
||
sw1.WriteLine(0)
|
||
sw1.WriteLine(1)
|
||
sw1.Close()
|
||
Try
|
||
My.Computer.Network.UploadFile(historique, ipserver & "/utilisateur/" & tcon & "/historique.txt")
|
||
My.Computer.Network.UploadFile(cozip & "setting.txt", ipserver & "/utilisateur/" & tcon & "/setting.txt")
|
||
File.Delete(cozip & "setting.txt")
|
||
Label29.Text = "Activer"
|
||
MsgBox("La synchronisation de l'historique est activée", MsgBoxStyle.Information)
|
||
Catch ex As Exception
|
||
Timer19.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer19_Tick(sender As Object, e As EventArgs) Handles Timer19.Tick
|
||
Timer19.Stop()
|
||
Dim lines428() As String = File.ReadAllLines(compteco)
|
||
Dim tcon = lines428(0)
|
||
Try
|
||
My.Computer.Network.UploadFile(historique, ipserver & "/utilisateur/" & tcon & "/historique.txt")
|
||
My.Computer.Network.UploadFile(cozip & "setting.txt", ipserver & "/utilisateur/" & tcon & "/setting.txt")
|
||
File.Delete(cozip & "setting.txt")
|
||
Label29.Text = "Activer"
|
||
MsgBox("La synchronisation de l'historique est activée", MsgBoxStyle.Information)
|
||
Catch ex As Exception
|
||
Timer19.Start()
|
||
End Try
|
||
End Sub
|
||
Sub syhistorique2()
|
||
Dim lines428() As String = File.ReadAllLines(compteco)
|
||
Dim tcon = lines428(0)
|
||
Dim sw1 As New StreamWriter(cozip & "setting.txt")
|
||
sw1.WriteLine(0)
|
||
sw1.WriteLine(0)
|
||
sw1.Close()
|
||
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & tcon & "/historique.txt")
|
||
ftreq.Method = WebRequestMethods.Ftp.DeleteFile
|
||
ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
||
Label29.Text = "Désactivée"
|
||
Try
|
||
My.Computer.Network.UploadFile(cozip & "setting.txt", ipserver & "utilisateur/" & Label21.Text & "/setting.txt")
|
||
File.Delete(cozip & "setting.txt")
|
||
MsgBox("La synchronisation de l'historique est Désactivé", MsgBoxStyle.Information)
|
||
Catch ex As Exception
|
||
Timer50.Start()
|
||
End Try
|
||
End Sub
|
||
Sub co6()
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & TextBox7.Text & "/mail.txt", cozip & "mail.txt")
|
||
Catch ex As Exception
|
||
Timer43.Start()
|
||
End Try
|
||
mail5()
|
||
End Sub
|
||
Sub mail5()
|
||
If ergister2 = 1 Then
|
||
|
||
Else
|
||
Try
|
||
Dim lines1() As String = File.ReadAllLines(cozip & "mail.txt")
|
||
Dim Resultatbytes() As Byte = Convert.FromBase64String(lines1(0))
|
||
Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
||
Dim Crypto As New DESCryptoServiceProvider()
|
||
Crypto.Key = keyBytes
|
||
Crypto.IV = keyBytes
|
||
Dim Icrypto As ICryptoTransform = Crypto.CreateDecryptor()
|
||
Dim donné() As Byte = Icrypto.TransformFinalBlock(Resultatbytes, 0, Resultatbytes.Length)
|
||
Dim maildcrypt = Encoding.UTF8.GetString(donné)
|
||
Dim MyMailMessage As New MailMessage()
|
||
Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
|
||
Dim mail = maildcrypt
|
||
Dim message = "Une nouvelle connexion à votre compte a été détecté !!! " & vbNewLine & vbNewLine & "IPV4/IPV6: " & MyIP & vbNewLine & vbNewLine & "nom de pc: " & My.Computer.Name & vbNewLine & vbNewLine & "OS (systeme dexploitation): " & My.Computer.Info.OSFullName & vbNewLine & vbNewLine & "Si vous n'être pas a l'origine de cette connection, merci de changer immédiatement votre mots de passe."
|
||
|
||
MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
|
||
MyMailMessage.To.Add(mail)
|
||
MyMailMessage.Subject = ("nouvelle connexion")
|
||
MyMailMessage.Body = (message)
|
||
|
||
SMTPServer.Port = ("587") 'Port
|
||
SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", "pC1*zzU9-qtZjdT")
|
||
SMTPServer.EnableSsl = True
|
||
|
||
SMTPServer.Send(MyMailMessage) 'Envoi
|
||
|
||
ergister2 = 1
|
||
finico()
|
||
Catch ex As Exception
|
||
Timer6.Start()
|
||
End Try
|
||
End If
|
||
|
||
End Sub
|
||
Function MyIP_WinHTTP()
|
||
Try
|
||
Dim objHTTP, strURL
|
||
MyIP_WinHTTP = "0.0.0.0"
|
||
strURL = "http://tools.feron.it/php/ip.php"
|
||
objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
|
||
objHTTP.Open("GET", strURL)
|
||
objHTTP.Send()
|
||
If objHTTP.Status = 200 Then MyIP_WinHTTP = objHTTP.ResponseText
|
||
objHTTP = Nothing
|
||
Catch ex As Exception
|
||
Exit Function
|
||
End Try
|
||
End Function
|
||
Dim MyIP As String = MyIP_WinHTTP()
|
||
|
||
Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
|
||
Form142.ShowDialog()
|
||
End Sub
|
||
Sub mail6()
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipserver & "/Utilisateur/" & "/" & TextBox7.Text & "/" & "mail.txt", cozip & "mail.txt")
|
||
My.Computer.Network.DownloadFile(ipserver & "/Utilisateur/" & "/" & TextBox7.Text & "/" & "pass.txt", cozip & "pass.txt")
|
||
mail7()
|
||
Catch ex As Exception
|
||
Timer26.Start()
|
||
End Try
|
||
End Sub
|
||
Sub mail7()
|
||
mail()
|
||
End Sub
|
||
Private Sub Timer26_Tick(sender As Object, e As EventArgs) Handles Timer26.Tick
|
||
Timer26.Stop()
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipserver & "/Utilisateur/" & "/" & TextBox7.Text & "/" & "mail.txt", cozip & "mail.txt")
|
||
My.Computer.Network.DownloadFile(ipserver & "/Utilisateur/" & "/" & TextBox7.Text & "/" & "pass.txt", cozip & "pass.txt")
|
||
mail7()
|
||
Catch ex As Exception
|
||
Timer26.Start()
|
||
End Try
|
||
End Sub
|
||
Sub supprimer()
|
||
Label17.Show()
|
||
Label18.Show()
|
||
TextBox7.Show()
|
||
TextBox8.Show()
|
||
Button12.Show()
|
||
Button11.Show()
|
||
Try
|
||
Dim MyMailMessage As New MailMessage()
|
||
Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
|
||
Dim mail = "contact@lecteur-media.fr"
|
||
Dim message = "le compte: " & Label21.Text & "souhaite supprimer son compte"
|
||
|
||
MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
|
||
MyMailMessage.To.Add(mail)
|
||
MyMailMessage.Subject = ("supprétion de compte")
|
||
MyMailMessage.Body = (message)
|
||
|
||
SMTPServer.Port = ("587") 'Port
|
||
SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", "pC1*zzU9-qtZjdT")
|
||
SMTPServer.EnableSsl = True
|
||
|
||
SMTPServer.Send(MyMailMessage) 'Envoi
|
||
Me.Enabled = False
|
||
Form1.deco()
|
||
MsgBox("Un message a été envoyé au développer, votre compte: " & Label21.Text & " sera supprimer bientôt", MsgBoxStyle.Information)
|
||
Catch ex As Exception
|
||
Timer1.Start()
|
||
End Try
|
||
End Sub
|
||
Sub co7()
|
||
co8()
|
||
End Sub
|
||
Sub co8()
|
||
co9()
|
||
End Sub
|
||
Sub deco()
|
||
deco2()
|
||
End Sub
|
||
|
||
Private Sub Timer30_Tick(sender As Object, e As EventArgs) Handles Timer30.Tick
|
||
Timer30.Stop()
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipserver & "/utilisateur/" & Label21.Text & "/co.zip", compte & "co.zip")
|
||
Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(compte & "co.zip")
|
||
Dim TailleFichier As Integer = FichierInfo.Length
|
||
If TailleFichier = 0 Then
|
||
File.Delete(compte & "co.zip")
|
||
Timer30.Start()
|
||
Else
|
||
System.IO.Compression.ZipFile.ExtractToDirectory(compte & "co.zip", cozip)
|
||
File.Delete(compte & "co.zip")
|
||
Dim lines1() As String = File.ReadAllLines(cozip & "infoco.txt")
|
||
Dim t1 = lines1(0)
|
||
Dim sw6 As New StreamWriter(cozip & "infoco.txt")
|
||
sw6.WriteLine(t1 - 1)
|
||
sw6.Close()
|
||
deco2()
|
||
End If
|
||
Catch ex As Exception
|
||
Timer30.Start()
|
||
End Try
|
||
End Sub
|
||
Sub co9()
|
||
FileCopy(cozip & "pass.txt", compte & "passtemps.txt")
|
||
ListBox4.Items.Clear()
|
||
Timer39.Start()
|
||
End Sub
|
||
Sub co9b()
|
||
If Directory.Exists(cozip & My.Computer.Name) = True Then
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.DirectoryInfo(fichier)
|
||
Directory.Delete(info.FullName)
|
||
Next
|
||
co10b()
|
||
Else
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.DirectoryInfo(fichier)
|
||
Directory.Delete(info.FullName)
|
||
Next
|
||
co9a()
|
||
End If
|
||
End Sub
|
||
Sub co10b()
|
||
Try
|
||
Dim fwr As FtpWebRequest
|
||
fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & TextBox7.Text & "/pc/" & My.Computer.Name)
|
||
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
||
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
||
|
||
Dim str As String = sr.ReadLine()
|
||
While Not str Is Nothing
|
||
|
||
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & TextBox7.Text & "/pc/" & str)
|
||
ftreq.Method = WebRequestMethods.Ftp.DeleteFile
|
||
ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
||
|
||
str = sr.ReadLine()
|
||
|
||
End While
|
||
|
||
sr.Close()
|
||
|
||
coco9b()
|
||
|
||
Catch ex As Exception
|
||
Timer40.Start()
|
||
End Try
|
||
End Sub
|
||
Sub coco9b()
|
||
Try
|
||
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & TextBox7.Text & "/pc/" & My.Computer.Name)
|
||
ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
|
||
ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
||
co9a()
|
||
Catch ex As Exception
|
||
Timer40.Start()
|
||
End Try
|
||
|
||
End Sub
|
||
|
||
Sub co9a()
|
||
Try
|
||
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & TextBox7.Text & "/pc/" & My.Computer.Name), System.Net.FtpWebRequest)
|
||
Dim ftpStream As Stream = Nothing
|
||
|
||
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
||
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
||
|
||
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
||
ftpStream = response.GetResponseStream
|
||
ftpStream.Close()
|
||
co11()
|
||
Catch ex As Exception
|
||
Timer36.Start()
|
||
End Try
|
||
End Sub
|
||
Sub co11()
|
||
Dim sw1 As New StreamWriter(cozip & "index.php")
|
||
sw1.WriteLine("<?php")
|
||
sw1.WriteLine("echo ""Erreur 404 page non trouvez"";")
|
||
sw1.WriteLine("?>")
|
||
sw1.Close()
|
||
Dim sw2 As New StreamWriter(cozip & "info.txt")
|
||
sw2.WriteLine("Nom du pc: " & My.Computer.Name)
|
||
sw2.WriteLine("OS: " & My.Computer.Info.OSFullName)
|
||
sw2.Close()
|
||
co12()
|
||
End Sub
|
||
Sub co12()
|
||
Try
|
||
My.Computer.Network.UploadFile(cozip & "index.php", ipserver & "/utilisateur/" & TextBox7.Text & "/pc/" & My.Computer.Name & "/index.php")
|
||
File.Delete(cozip & "index.php")
|
||
co14()
|
||
Catch ex As Exception
|
||
Timer37.Start()
|
||
End Try
|
||
End Sub
|
||
Sub co14()
|
||
Try
|
||
My.Computer.Network.UploadFile(cozip & "info.txt", ipserver & "/utilisateur/" & TextBox7.Text & "/pc/" & My.Computer.Name & "/info.txt")
|
||
File.Delete(cozip & "info.txt")
|
||
co10()
|
||
Catch ex As Exception
|
||
Timer38.Start()
|
||
End Try
|
||
End Sub
|
||
Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
|
||
pcinfo.ShowDialog()
|
||
End Sub
|
||
Sub deco2()
|
||
Try
|
||
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/info.txt")
|
||
ftreq.Method = WebRequestMethods.Ftp.DeleteFile
|
||
ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
||
deco1a()
|
||
Catch ex As Exception
|
||
Timer17.Start()
|
||
End Try
|
||
End Sub
|
||
Sub deco1a()
|
||
Try
|
||
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/co.txt")
|
||
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
||
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
||
deco2a()
|
||
Catch ex As Exception
|
||
Timer20.Start()
|
||
End Try
|
||
End Sub
|
||
Sub deco2a()
|
||
MsgBox(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/index.php")
|
||
Try
|
||
MsgBox(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/index.php")
|
||
Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/index.php")
|
||
ftreq3.Method = WebRequestMethods.Ftp.DeleteFile
|
||
ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
|
||
deco3a()
|
||
Catch ex As Exception
|
||
Timer21.Start()
|
||
End Try
|
||
End Sub
|
||
Sub deco3a()
|
||
Try
|
||
Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/")
|
||
ftreq4.Method = WebRequestMethods.Ftp.RemoveDirectory
|
||
ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
|
||
|
||
Catch ex As Exception
|
||
Timer22.Start()
|
||
End Try
|
||
For Each fichier As String In IO.Directory.GetFiles(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
decofini()
|
||
End Sub
|
||
Sub co10()
|
||
co4()
|
||
End Sub
|
||
Sub ft5()
|
||
mail3()
|
||
End Sub
|
||
Sub ftp7()
|
||
Try
|
||
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & TextBox4.Text & "/Dictée/"), System.Net.FtpWebRequest)
|
||
Dim ftpStream As Stream = Nothing
|
||
|
||
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
||
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
||
|
||
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
||
ftpStream = response.GetResponseStream
|
||
ftpStream.Close()
|
||
response.Close()
|
||
ftppc()
|
||
Catch ex As Exception
|
||
Timer23.Start()
|
||
End Try
|
||
End Sub
|
||
Sub ftppc()
|
||
Try
|
||
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & TextBox4.Text & "/pc/"), System.Net.FtpWebRequest)
|
||
Dim ftpStream As Stream = Nothing
|
||
|
||
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
||
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
||
|
||
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
||
ftpStream = response.GetResponseStream
|
||
ftpStream.Close()
|
||
response.Close()
|
||
ftp3()
|
||
Catch ex As Exception
|
||
Timer24.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub TextBox7_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox7.KeyDown
|
||
If e.KeyData = Keys.Enter Then
|
||
TextBox8.Focus()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub TextBox8_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox8.KeyDown
|
||
If e.KeyData = Keys.Enter Then
|
||
If File.Exists(compte & "temp.txt") = True Then
|
||
Dim lines1() As String = File.ReadAllLines(compte & "temp.txt")
|
||
MsgBox("Vous avez été bloquer," & vbNewLine & "Vous ne pouvez plus vous connecter." & vbNewLine & vbNewLine & " merci de patienter: " & lines1(0) & " minute", MsgBoxStyle.Critical)
|
||
Else
|
||
If passeincor = 2 Then
|
||
LinkLabel2.Show()
|
||
LinkLabel3.Show()
|
||
co1()
|
||
ElseIf passeincor = 4 Then
|
||
MsgBox("Vous avez été bloquer," & vbNewLine & "Vous ne pouvez plus vous connecter." & vbNewLine & vbNewLine & " merci de patienter 15 minutes", MsgBoxStyle.Critical)
|
||
If File.Exists(compte & "temp.txt") = True Then
|
||
|
||
Else
|
||
Dim sw1 As New StreamWriter(compte & "temp.txt")
|
||
sw1.WriteLine(15)
|
||
sw1.Close()
|
||
Form1.Timer17.Start()
|
||
End If
|
||
Else
|
||
co1()
|
||
End If
|
||
End If
|
||
End If
|
||
End Sub
|
||
Sub finico()
|
||
finico2()
|
||
End Sub
|
||
Sub finico2()
|
||
Form1.TchatEnLigneToolStripMenuItem.Visible = True
|
||
Me.Enabled = True
|
||
Me.UseWaitCursor = False
|
||
Dim lines428() As String = File.ReadAllLines(compteco)
|
||
Dim tcon = lines428(0)
|
||
For Each fichier As String In IO.Directory.GetFiles(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(cozip & info.Name)
|
||
Next
|
||
Form1.NotifyIcon1.BalloonTipTitle = ("Compte")
|
||
Form1.NotifyIcon1.BalloonTipText = ("Vous être connecter au compte: " & tcon)
|
||
Form1.NotifyIcon1.ShowBalloonTip(0)
|
||
LinkLabel2.Hide()
|
||
LinkLabel3.Hide()
|
||
Panel2.Show()
|
||
Panel1.Hide()
|
||
Label17.Hide()
|
||
Label18.Hide()
|
||
TextBox7.Hide()
|
||
TextBox8.Hide()
|
||
Button12.Hide()
|
||
Button11.Hide()
|
||
MsgBox("Vous été connecter au compte: " & Label21.Text, MsgBoxStyle.Information)
|
||
End Sub
|
||
Private Sub GunaGoogleSwitch8_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch8.CheckedChanged
|
||
If GunaGoogleSwitch8.Checked = True Then
|
||
ComboBox14.SelectedItem = "5 minute"
|
||
marquerauto = 1
|
||
ComboBox14.Show()
|
||
GunaLabel11.Text = "Activer"
|
||
Else
|
||
marquerauto = 0
|
||
marquerautotemps = 0
|
||
ComboBox14.Hide()
|
||
GunaLabel11.Text = "Désactivée"
|
||
End If
|
||
End Sub
|
||
Private Sub ComboBox14_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox14.SelectedValueChanged
|
||
If ComboBox14.SelectedItem = "1 minute" Then
|
||
marquerautotemps = 1
|
||
ElseIf ComboBox14.SelectedItem = "3 minute" Then
|
||
marquerautotemps = 3
|
||
ElseIf ComboBox14.SelectedItem = "5 minute" Then
|
||
marquerautotemps = 5
|
||
ElseIf ComboBox14.SelectedItem = "10 minute" Then
|
||
marquerautotemps = 10
|
||
ElseIf ComboBox14.SelectedItem = "15 minute" Then
|
||
marquerautotemps = 15
|
||
ElseIf ComboBox14.SelectedItem = "20 minute" Then
|
||
marquerautotemps = 20
|
||
ElseIf ComboBox14.SelectedItem = "25 minute" Then
|
||
marquerautotemps = 25
|
||
ElseIf ComboBox14.SelectedItem = "30 minute" Then
|
||
marquerautotemps = 30
|
||
ElseIf ComboBox14.SelectedItem = "35 minute" Then
|
||
marquerautotemps = 35
|
||
ElseIf ComboBox14.SelectedItem = "40 minute" Then
|
||
marquerautotemps = 40
|
||
ElseIf ComboBox14.SelectedItem = "45 minute" Then
|
||
marquerautotemps = 45
|
||
ElseIf ComboBox14.SelectedItem = "50 minute" Then
|
||
marquerautotemps = 50
|
||
ElseIf ComboBox14.SelectedItem = "55 minute" Then
|
||
marquerautotemps = 55
|
||
ElseIf ComboBox14.SelectedItem = "1 heurs " Then
|
||
marquerautotemps = 60
|
||
End If
|
||
End Sub
|
||
Sub suprezip()
|
||
For Each fichier As String In IO.Directory.GetFiles(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
End Sub
|
||
Sub savesync()
|
||
Try
|
||
If My.Computer.Network.Ping("google.fr") = True Then
|
||
Dim maj As New WebClient
|
||
Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt")
|
||
If vri = 1 Then
|
||
MsgBox("Les paramètres ont bien été enregistrer", MsgBoxStyle.Information)
|
||
|
||
If profilnomtemps = "" Then
|
||
|
||
Else
|
||
Form1.Timer14.Stop()
|
||
My.Computer.FileSystem.RenameDirectory(dosprofils & nomprofils, profilnomtemps)
|
||
nomprofils = profilnomtemps
|
||
Form152.ShowDialog()
|
||
End If
|
||
closea = 1
|
||
Close()
|
||
Else
|
||
savessync2()
|
||
End If
|
||
Else
|
||
MsgBox("Les paramètres ont bien été enregistrer", MsgBoxStyle.Information)
|
||
If profilnomtemps = "" Then
|
||
|
||
Else
|
||
Form1.Timer14.Stop()
|
||
My.Computer.FileSystem.RenameDirectory(dosprofils & nomprofils, profilnomtemps)
|
||
nomprofils = profilnomtemps
|
||
Form152.ShowDialog()
|
||
End If
|
||
closea = 1
|
||
Close()
|
||
End If
|
||
Catch ex As Exception
|
||
Timer14.Start()
|
||
End Try
|
||
End Sub
|
||
Sub savessync2()
|
||
File.Delete(compte & "/co.zip")
|
||
Try
|
||
IO.Compression.ZipFile.CreateFromDirectory(cozip, compte & "co.zip")
|
||
Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(compte & "co.zip")
|
||
Dim TailleFichier As Integer = FichierInfo.Length
|
||
If TailleFichier = 0 Then
|
||
Timer42.Start()
|
||
Else
|
||
savessync3()
|
||
End If
|
||
Catch ex As Exception
|
||
Timer42.Start()
|
||
End Try
|
||
|
||
End Sub
|
||
|
||
Private Sub Timer33_Tick(sender As Object, e As EventArgs) Handles Timer33.Tick
|
||
Timer33.Stop()
|
||
Try
|
||
My.Computer.Network.UploadFile(compte & "co.zip", ipserver & "/utilisateur/" & Label21.Text & "/co.zip")
|
||
savessync4()
|
||
Catch ex As Exception
|
||
Timer33.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Sub load7()
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipserver & "/utilisateur/" & Label21.Text & "/setting.txt", cozip & "setting.txt")
|
||
Dim lines10() As String = File.ReadAllLines(cozip & "setting.txt")
|
||
|
||
If lines10(1) = 1 Then
|
||
File.Delete(cozip & "setting.txt")
|
||
Label29.Text = "Activer"
|
||
chh = 1
|
||
GunaGoogleSwitch6.Checked = True
|
||
Else
|
||
File.Delete(cozip & "setting.txt")
|
||
Label29.Text = "Désactivée"
|
||
chh = 2
|
||
GunaGoogleSwitch6.Checked = False
|
||
End If
|
||
load8()
|
||
Catch ex As Exception
|
||
Timer57.Start()
|
||
End Try
|
||
End Sub
|
||
Sub decofini()
|
||
File.Delete(compte & "co.zip")
|
||
Form1.NotifyIcon1.BalloonTipTitle = "Déconnection"
|
||
Form1.NotifyIcon1.BalloonTipText = "Vous être bien déconnecter du compte: " & Label21.Text
|
||
Form1.NotifyIcon1.ShowBalloonTip(0)
|
||
MsgBox("Vous être bien déconnecter du compte: " & Label21.Text, MsgBoxStyle.Information)
|
||
End Sub
|
||
|
||
Private Sub Timer58_Tick(sender As Object, e As EventArgs) Handles Timer58.Tick
|
||
Timer58.Stop()
|
||
Try
|
||
My.Computer.Network.UploadFile(compte & "co.zip", ipserver & "/utilisateur/" & Label21.Text & "/co.zip")
|
||
File.Delete(compte & "co.zip")
|
||
Form1.NotifyIcon1.BalloonTipTitle = "Déconnection"
|
||
Form1.NotifyIcon1.BalloonTipText = "Vous être bien déconnecter du compte: " & Label21.Text
|
||
Form1.NotifyIcon1.ShowBalloonTip(0)
|
||
MsgBox("Vous être bien déconnecter du compte: " & Label21.Text, MsgBoxStyle.Information)
|
||
Catch ex As Exception
|
||
Timer58.Start()
|
||
End Try
|
||
End Sub
|
||
Sub deco7()
|
||
deco()
|
||
End Sub
|
||
Private Sub ComboBox15_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox15.SelectedValueChanged
|
||
If ComboBox15.SelectedItem = "Parcourir" Then
|
||
If OpenFileDialog2.ShowDialog = 1 Then
|
||
If OpenFileDialog2.FileName.EndsWith(".gif") Then
|
||
MsgBox("Attention les images GIF peux altérer le bon fonctionnement de lecteur média" & vbNewLine & "Merci de votre compréhension", MsgBoxStyle.Information)
|
||
ComboBox15.Items.Add(OpenFileDialog2.SafeFileName)
|
||
ComboBox15.SelectedItem = OpenFileDialog2.SafeFileName
|
||
PictureBox6.Image = Image.FromFile(OpenFileDialog2.FileName)
|
||
PictureBox6.Show()
|
||
Else
|
||
ComboBox15.Items.Add(OpenFileDialog2.SafeFileName)
|
||
ComboBox15.SelectedItem = OpenFileDialog2.SafeFileName
|
||
PictureBox6.Image = Image.FromFile(OpenFileDialog2.FileName)
|
||
PictureBox6.Show()
|
||
End If
|
||
End If
|
||
ElseIf ComboBox15.SelectedItem = "Part default" Then
|
||
PictureBox6.Hide()
|
||
End If
|
||
End Sub
|
||
Private Sub ComboBox16_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox16.SelectedValueChanged
|
||
If ComboBox16.SelectedItem = "Parcourir" Then
|
||
If OpenFileDialog3.ShowDialog = 1 Then
|
||
ComboBox16.Items.Add(OpenFileDialog3.SafeFileName)
|
||
ComboBox16.SelectedItem = OpenFileDialog3.SafeFileName
|
||
Else
|
||
ComboBox16.SelectedItem = "Part default"
|
||
End If
|
||
Else
|
||
|
||
End If
|
||
End Sub
|
||
Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
|
||
Try
|
||
If My.Computer.Network.Ping("google.com") Then
|
||
mail2()
|
||
Else
|
||
MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information)
|
||
End If
|
||
Catch ex As Exception
|
||
MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information)
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipserver & "/utilisateur/" & Label21.Text & "/co.zip", compte & "co.zip")
|
||
Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(compte & "co.zip")
|
||
Dim TailleFichier As Integer = FichierInfo.Length
|
||
If TailleFichier = 0 Then
|
||
File.Delete(compte & "co.zip")
|
||
Timer5.Start()
|
||
Else
|
||
deco7()
|
||
End If
|
||
Catch ex As Exception
|
||
Timer5.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
|
||
Dim msg = MsgBox("Voulez-vous vraiment supprimer tous les marqueurs", MsgBoxStyle.YesNo)
|
||
If msg = MsgBoxResult.Yes Then
|
||
For Each fichier As String In IO.Directory.GetFiles(marqueur)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
Button24.Hide()
|
||
Button2.Hide()
|
||
ComboBox9.Items.Clear()
|
||
MsgBox("Tous les marqueurs ont bien été supprimer", MsgBoxStyle.Information)
|
||
Else
|
||
MsgBox("Aucun marqueur a bien été supprimer", MsgBoxStyle.Information)
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub ComboBox18_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox18.SelectedValueChanged
|
||
If ComboBox18.SelectedItem = "3 marqueur" Then
|
||
marqueurtempsa = 3
|
||
ElseIf ComboBox18.SelectedItem = "5 marqueur" Then
|
||
marqueurtempsa = 5
|
||
ElseIf ComboBox18.SelectedItem = "10 marqueur" Then
|
||
marqueurtempsa = 10
|
||
ElseIf ComboBox18.SelectedItem = "15 marqueur" Then
|
||
marqueurtempsa = 15
|
||
ElseIf ComboBox18.SelectedItem = "20 marqueur" Then
|
||
marqueurtempsa = 20
|
||
ElseIf ComboBox18.SelectedItem = "25 marqueur" Then
|
||
marqueurtempsa = 25
|
||
ElseIf ComboBox18.SelectedItem = "30 marqueur" Then
|
||
marqueurtempsa = 30
|
||
ElseIf ComboBox18.SelectedItem = "35 marqueur" Then
|
||
marqueurtempsa = 35
|
||
ElseIf ComboBox18.SelectedItem = "40 marqueur" Then
|
||
marqueurtempsa = 40
|
||
ElseIf ComboBox18.SelectedItem = "45 marqueur" Then
|
||
marqueurtempsa = 45
|
||
ElseIf ComboBox18.SelectedItem = "50 marqueur" Then
|
||
marqueurtempsa = 50
|
||
ElseIf ComboBox18.SelectedItem = "55 marqueur" Then
|
||
marqueurtempsa = 55
|
||
ElseIf ComboBox18.SelectedItem = "60 marqueur" Then
|
||
marqueurtempsa = 60
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub GunaGoogleSwitch9_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch9.CheckedChanged
|
||
If GunaGoogleSwitch9.Checked = True Then
|
||
plan = 1
|
||
GunaLabel14.Text = "Activer"
|
||
Else
|
||
plan = 0
|
||
GunaLabel14.Text = "Désactivée"
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub GunaGoogleSwitch10_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch10.CheckedChanged
|
||
If GunaGoogleSwitch10.Checked = True Then
|
||
miniradio = 1
|
||
GunaLabel16.Text = "Activer"
|
||
Else
|
||
miniradio = 0
|
||
GunaLabel16.Text = "Désactivée"
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub GunaGoogleSwitch11_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch11.CheckedChanged
|
||
If GunaGoogleSwitch11.Checked = True Then
|
||
GunaLabel18.Text = "Activer"
|
||
Form76.GunaGoogleSwitch5.Checked = True
|
||
kara = 1
|
||
Else
|
||
GunaLabel18.Text = "Désactivée"
|
||
kara = 0
|
||
Form76.GunaGoogleSwitch5.Checked = False
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub GunaGoogleSwitch12_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch12.CheckedChanged
|
||
If GunaGoogleSwitch12.Checked = True Then
|
||
vch = 1
|
||
GunaLabel20.Text = "Activer"
|
||
Else
|
||
vch = 0
|
||
GunaLabel20.Text = "Désactivée"
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub GunaGoogleSwitch13_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch13.CheckedChanged
|
||
If GunaGoogleSwitch13.Checked = True Then
|
||
vmp = 1
|
||
GunaLabel22.Text = "Activer"
|
||
Else
|
||
vmp = 0
|
||
GunaLabel22.Text = "Désactivée"
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub GunaGoogleSwitch14_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch14.CheckedChanged
|
||
If GunaGoogleSwitch14.Checked = True Then
|
||
plans = 1
|
||
GunaLabel24.Text = "Activer"
|
||
Else
|
||
plans = 0
|
||
GunaLabel24.Text = "Désactivée"
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
|
||
couleurtemps = 0
|
||
GunaGoogleSwitch16.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch17.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch18.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch19.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch16.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch17.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch18.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch19.FillColor = Color.FromArgb(255, 128, 0)
|
||
CircularProgressBar1.ProgressColor = Color.FromArgb(255, 128, 0)
|
||
CircularProgressBar2.ProgressColor = Color.FromArgb(255, 128, 0)
|
||
CircularProgressBar3.ProgressColor = Color.FromArgb(255, 128, 0)
|
||
CircularProgressBar4.ProgressColor = Color.FromArgb(255, 128, 0)
|
||
CircularProgressBar5.ProgressColor = Color.FromArgb(255, 128, 0)
|
||
CircularProgressBar6.ProgressColor = Color.FromArgb(255, 128, 0)
|
||
CircularProgressBar7.ProgressColor = Color.FromArgb(255, 128, 0)
|
||
CircularProgressBar8.ProgressColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch1.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch1.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch2.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch2.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch3.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch3.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch4.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch4.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch5.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch5.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch6.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch6.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch7.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch7.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch8.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch8.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch9.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch9.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch10.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch10.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch11.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch11.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch12.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch12.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch13.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch13.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch14.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch14.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
ChromeTabcontrol1.SquareColor = Color.FromArgb(255, 128, 0)
|
||
ChromeTabcontrol2.SquareColor = Color.FromArgb(255, 128, 0)
|
||
ChromeTabcontrol3.SquareColor = Color.FromArgb(255, 128, 0)
|
||
ChromeTabcontrol4.SquareColor = Color.FromArgb(255, 128, 0)
|
||
ChromeTabcontrol5.SquareColor = Color.FromArgb(255, 128, 0)
|
||
ChromeTabcontrol6.SquareColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch15.FillColor = Color.FromArgb(255, 128, 0)
|
||
GunaGoogleSwitch15.CheckedOnColor = Color.FromArgb(255, 128, 0)
|
||
PictureBox7.Image = My.Resources.orange_sel
|
||
PictureBox8.Image = My.Resources.vert
|
||
PictureBox9.Image = My.Resources.bleu
|
||
PictureBox10.Image = My.Resources.rouge
|
||
End Sub
|
||
|
||
Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click
|
||
couleurtemps = 1
|
||
GunaGoogleSwitch16.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch17.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch18.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch19.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch16.FillColor = Color.Green
|
||
GunaGoogleSwitch17.FillColor = Color.Green
|
||
GunaGoogleSwitch18.FillColor = Color.Green
|
||
GunaGoogleSwitch19.FillColor = Color.Green
|
||
CircularProgressBar1.ProgressColor = Color.Green
|
||
CircularProgressBar2.ProgressColor = Color.Green
|
||
CircularProgressBar3.ProgressColor = Color.Green
|
||
CircularProgressBar4.ProgressColor = Color.Green
|
||
CircularProgressBar5.ProgressColor = Color.Green
|
||
CircularProgressBar6.ProgressColor = Color.Green
|
||
CircularProgressBar7.ProgressColor = Color.Green
|
||
CircularProgressBar8.ProgressColor = Color.Green
|
||
GunaGoogleSwitch1.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch1.FillColor = Color.Green
|
||
GunaGoogleSwitch2.FillColor = Color.Green
|
||
GunaGoogleSwitch2.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch3.FillColor = Color.Green
|
||
GunaGoogleSwitch3.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch4.FillColor = Color.Green
|
||
GunaGoogleSwitch4.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch5.FillColor = Color.Green
|
||
GunaGoogleSwitch5.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch6.FillColor = Color.Green
|
||
GunaGoogleSwitch6.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch7.FillColor = Color.Green
|
||
GunaGoogleSwitch7.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch8.FillColor = Color.Green
|
||
GunaGoogleSwitch8.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch9.FillColor = Color.Green
|
||
GunaGoogleSwitch9.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch10.FillColor = Color.Green
|
||
GunaGoogleSwitch10.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch11.FillColor = Color.Green
|
||
GunaGoogleSwitch11.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch12.FillColor = Color.Green
|
||
GunaGoogleSwitch12.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch13.FillColor = Color.Green
|
||
GunaGoogleSwitch13.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch14.FillColor = Color.Green
|
||
GunaGoogleSwitch14.CheckedOnColor = Color.Green
|
||
GunaGoogleSwitch15.FillColor = Color.Green
|
||
GunaGoogleSwitch15.CheckedOnColor = Color.Green
|
||
ChromeTabcontrol1.SquareColor = Color.Green
|
||
ChromeTabcontrol2.SquareColor = Color.Green
|
||
ChromeTabcontrol3.SquareColor = Color.Green
|
||
ChromeTabcontrol4.SquareColor = Color.Green
|
||
ChromeTabcontrol5.SquareColor = Color.Green
|
||
ChromeTabcontrol6.SquareColor = Color.Green
|
||
PictureBox7.Image = My.Resources.orange
|
||
PictureBox8.Image = My.Resources.vert_sel
|
||
PictureBox9.Image = My.Resources.bleu
|
||
PictureBox10.Image = My.Resources.rouge
|
||
End Sub
|
||
|
||
Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click
|
||
couleurtemps = 2
|
||
GunaGoogleSwitch16.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch17.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch18.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch19.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch16.FillColor = Color.Blue
|
||
GunaGoogleSwitch17.FillColor = Color.Blue
|
||
GunaGoogleSwitch18.FillColor = Color.Blue
|
||
GunaGoogleSwitch19.FillColor = Color.Blue
|
||
CircularProgressBar1.ProgressColor = Color.Blue
|
||
CircularProgressBar2.ProgressColor = Color.Blue
|
||
CircularProgressBar3.ProgressColor = Color.Blue
|
||
CircularProgressBar4.ProgressColor = Color.Blue
|
||
CircularProgressBar5.ProgressColor = Color.Blue
|
||
CircularProgressBar6.ProgressColor = Color.Blue
|
||
CircularProgressBar7.ProgressColor = Color.Blue
|
||
CircularProgressBar8.ProgressColor = Color.Blue
|
||
GunaGoogleSwitch1.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch1.FillColor = Color.Blue
|
||
GunaGoogleSwitch2.FillColor = Color.Blue
|
||
GunaGoogleSwitch2.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch3.FillColor = Color.Blue
|
||
GunaGoogleSwitch3.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch4.FillColor = Color.Blue
|
||
GunaGoogleSwitch4.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch5.FillColor = Color.Blue
|
||
GunaGoogleSwitch5.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch6.FillColor = Color.Blue
|
||
GunaGoogleSwitch6.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch7.FillColor = Color.Blue
|
||
GunaGoogleSwitch7.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch8.FillColor = Color.Blue
|
||
GunaGoogleSwitch8.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch9.FillColor = Color.Blue
|
||
GunaGoogleSwitch9.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch10.FillColor = Color.Blue
|
||
GunaGoogleSwitch10.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch11.FillColor = Color.Blue
|
||
GunaGoogleSwitch11.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch12.FillColor = Color.Blue
|
||
GunaGoogleSwitch12.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch13.FillColor = Color.Blue
|
||
GunaGoogleSwitch13.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch14.FillColor = Color.Blue
|
||
GunaGoogleSwitch14.CheckedOnColor = Color.Blue
|
||
GunaGoogleSwitch15.FillColor = Color.Blue
|
||
GunaGoogleSwitch15.CheckedOnColor = Color.Blue
|
||
ChromeTabcontrol1.SquareColor = Color.Blue
|
||
ChromeTabcontrol2.SquareColor = Color.Blue
|
||
ChromeTabcontrol3.SquareColor = Color.Blue
|
||
ChromeTabcontrol4.SquareColor = Color.Blue
|
||
ChromeTabcontrol5.SquareColor = Color.Blue
|
||
ChromeTabcontrol6.SquareColor = Color.Blue
|
||
PictureBox7.Image = My.Resources.orange
|
||
PictureBox8.Image = My.Resources.vert
|
||
PictureBox9.Image = My.Resources.bleu_sel
|
||
PictureBox10.Image = My.Resources.rouge
|
||
End Sub
|
||
|
||
Private Sub PictureBox10_Click(sender As Object, e As EventArgs) Handles PictureBox10.Click
|
||
couleurtemps = 3
|
||
GunaGoogleSwitch16.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch17.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch18.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch19.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch16.FillColor = Color.Red
|
||
GunaGoogleSwitch17.FillColor = Color.Red
|
||
GunaGoogleSwitch18.FillColor = Color.Red
|
||
GunaGoogleSwitch19.FillColor = Color.Red
|
||
CircularProgressBar1.ProgressColor = Color.Red
|
||
CircularProgressBar2.ProgressColor = Color.Red
|
||
CircularProgressBar3.ProgressColor = Color.Red
|
||
CircularProgressBar4.ProgressColor = Color.Red
|
||
CircularProgressBar5.ProgressColor = Color.Red
|
||
CircularProgressBar6.ProgressColor = Color.Red
|
||
CircularProgressBar7.ProgressColor = Color.Red
|
||
CircularProgressBar8.ProgressColor = Color.Red
|
||
GunaGoogleSwitch1.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch1.FillColor = Color.Red
|
||
GunaGoogleSwitch2.FillColor = Color.Red
|
||
GunaGoogleSwitch2.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch3.FillColor = Color.Red
|
||
GunaGoogleSwitch3.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch4.FillColor = Color.Red
|
||
GunaGoogleSwitch4.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch5.FillColor = Color.Red
|
||
GunaGoogleSwitch5.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch6.FillColor = Color.Red
|
||
GunaGoogleSwitch6.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch7.FillColor = Color.Red
|
||
GunaGoogleSwitch7.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch8.FillColor = Color.Red
|
||
GunaGoogleSwitch8.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch9.FillColor = Color.Red
|
||
GunaGoogleSwitch9.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch10.FillColor = Color.Red
|
||
GunaGoogleSwitch10.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch11.FillColor = Color.Red
|
||
GunaGoogleSwitch11.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch12.FillColor = Color.Red
|
||
GunaGoogleSwitch12.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch13.FillColor = Color.Red
|
||
GunaGoogleSwitch13.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch14.FillColor = Color.Red
|
||
GunaGoogleSwitch14.CheckedOnColor = Color.Red
|
||
GunaGoogleSwitch15.FillColor = Color.Red
|
||
GunaGoogleSwitch15.CheckedOnColor = Color.Red
|
||
ChromeTabcontrol1.SquareColor = Color.Red
|
||
ChromeTabcontrol2.SquareColor = Color.Red
|
||
ChromeTabcontrol3.SquareColor = Color.Red
|
||
ChromeTabcontrol4.SquareColor = Color.Red
|
||
ChromeTabcontrol5.SquareColor = Color.Red
|
||
ChromeTabcontrol6.SquareColor = Color.Red
|
||
PictureBox7.Image = My.Resources.orange
|
||
PictureBox8.Image = My.Resources.vert
|
||
PictureBox9.Image = My.Resources.bleu
|
||
PictureBox10.Image = My.Resources.rouge_sel
|
||
End Sub
|
||
Sub noir()
|
||
GunaLabel30.ForeColor = Form1.ForeColor
|
||
ComboBox20.BackColor = Form1.BackColor
|
||
ComboBox20.ForeColor = Form1.ForeColor
|
||
Button48.BackColor = Form1.BackColor
|
||
Button48.ForeColor = Form1.ForeColor
|
||
Label64.ForeColor = Color.White
|
||
Label65.ForeColor = Color.White
|
||
Label60.ForeColor = Color.White
|
||
Label61.ForeColor = Color.White
|
||
Label62.ForeColor = Color.White
|
||
Label63.ForeColor = Color.White
|
||
Label24.ForeColor = Color.White
|
||
GunaLabel13.ForeColor = Color.White
|
||
GunaLabel29.ForeColor = Color.White
|
||
ComboBox17.BackColor = Color.FromArgb(64, 64, 64)
|
||
ComboBox17.ForeColor = Color.White
|
||
Button43.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button42.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button45.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button46.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button47.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button43.ForeColor = Color.White
|
||
Button42.ForeColor = Color.White
|
||
Button45.ForeColor = Color.White
|
||
Button46.ForeColor = Color.White
|
||
Button47.ForeColor = Color.White
|
||
Label39.ForeColor = Color.White
|
||
Label44.ForeColor = Color.White
|
||
Label45.ForeColor = Color.White
|
||
Label46.ForeColor = Color.White
|
||
Label47.ForeColor = Color.White
|
||
Label48.ForeColor = Color.White
|
||
Label49.ForeColor = Color.White
|
||
Label50.ForeColor = Color.White
|
||
Label51.ForeColor = Color.White
|
||
Label52.ForeColor = Color.White
|
||
Label53.ForeColor = Color.White
|
||
Label54.ForeColor = Color.White
|
||
Label55.ForeColor = Color.White
|
||
Label56.ForeColor = Color.White
|
||
Label57.ForeColor = Color.White
|
||
Label58.ForeColor = Color.White
|
||
Button44.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button44.ForeColor = Color.White
|
||
CircularProgressBar1.ForeColor = Color.White
|
||
CircularProgressBar2.ForeColor = Color.White
|
||
CircularProgressBar3.ForeColor = Color.White
|
||
CircularProgressBar4.ForeColor = Color.White
|
||
CircularProgressBar5.ForeColor = Color.White
|
||
CircularProgressBar6.ForeColor = Color.White
|
||
CircularProgressBar7.ForeColor = Color.White
|
||
CircularProgressBar8.ForeColor = Color.White
|
||
GunaLabel28.ForeColor = Color.White
|
||
CheckBox27.ForeColor = Color.White
|
||
Button41.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button41.ForeColor = Color.White
|
||
Button40.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button40.ForeColor = Color.White
|
||
Button38.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button39.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button38.ForeColor = Color.White
|
||
Button39.ForeColor = Color.White
|
||
Button36.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button36.ForeColor = Color.White
|
||
Button37.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button37.ForeColor = Color.White
|
||
Button35.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button35.ForeColor = Color.White
|
||
Button34.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button34.ForeColor = Color.White
|
||
TextBox13.BackColor = Color.FromArgb(64, 64, 64)
|
||
TextBox13.ForeColor = Color.White
|
||
GunaCirclePictureBox1.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label42.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label42.ForeColor = Color.White
|
||
Label43.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label43.ForeColor = Color.White
|
||
LinkLabel1.LinkColor = Color.White
|
||
LinkLabel2.LinkColor = Color.White
|
||
LinkLabel3.LinkColor = Color.White
|
||
Panel21.BackColor = Color.FromArgb(64, 64, 64)
|
||
Panel1.BackColor = Color.FromArgb(64, 64, 64)
|
||
Panel2.BackColor = Color.FromArgb(64, 64, 64)
|
||
CheckBox1.BackColor = Color.FromArgb(64, 64, 64)
|
||
CheckBox2.BackColor = Color.FromArgb(64, 64, 64)
|
||
CheckBox4.BackColor = Color.FromArgb(64, 64, 64)
|
||
CheckBox5.BackColor = Color.FromArgb(64, 64, 64)
|
||
CheckBox6.BackColor = Color.FromArgb(64, 64, 64)
|
||
CheckBox13.BackColor = Color.FromArgb(64, 64, 64)
|
||
CheckBox14.BackColor = Color.FromArgb(64, 64, 64)
|
||
CheckBox15.BackColor = Color.FromArgb(64, 64, 64)
|
||
CheckBox16.BackColor = Color.FromArgb(64, 64, 64)
|
||
CheckBox17.BackColor = Color.FromArgb(64, 64, 64)
|
||
CheckBox18.BackColor = Color.FromArgb(64, 64, 64)
|
||
CheckBox19.BackColor = Color.FromArgb(64, 64, 64)
|
||
CheckBox20.BackColor = Color.FromArgb(64, 64, 64)
|
||
CheckBox21.BackColor = Color.FromArgb(64, 64, 64)
|
||
CheckBox22.BackColor = Color.FromArgb(64, 64, 64)
|
||
CheckBox24.BackColor = Color.FromArgb(64, 64, 64)
|
||
CheckBox25.BackColor = Color.FromArgb(64, 64, 64)
|
||
CheckBox26.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button1.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button2.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button3.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button4.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button5.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button6.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button7.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button8.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button9.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button10.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button11.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button12.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button13.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button14.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button15.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button16.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button17.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button18.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button19.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button20.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button21.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button22.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button23.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button24.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button25.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button26.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button27.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button28.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button29.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button30.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button31.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button32.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button33.BackColor = Color.FromArgb(64, 64, 64)
|
||
ChromeButton1.BackColor = Color.FromArgb(64, 64, 64)
|
||
ChromeButton2.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label1.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label2.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label3.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label4.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label5.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label6.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label7.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label8.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label9.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label10.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label11.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label12.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label13.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label14.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label15.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label16.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label17.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label18.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label19.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label20.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label21.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label22.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label23.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label25.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label26.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label27.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label28.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label29.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label30.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label31.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label32.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label33.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label34.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label35.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label36.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label37.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label38.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaGoogleSwitch1.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaGoogleSwitch2.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaGoogleSwitch3.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaGoogleSwitch4.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaGoogleSwitch5.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaGoogleSwitch6.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaGoogleSwitch7.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaGoogleSwitch8.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaGoogleSwitch9.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaGoogleSwitch10.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaGoogleSwitch11.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaGoogleSwitch12.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaGoogleSwitch13.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaGoogleSwitch14.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaGoogleSwitch15.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel1.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel2.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel3.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel4.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel5.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel6.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel7.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel8.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel9.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel10.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel11.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel12.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel14.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel15.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel16.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel17.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel18.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel19.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel20.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel21.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel22.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel23.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel24.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel25.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel26.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel27.BackColor = Color.FromArgb(64, 64, 64)
|
||
PictureBox1.BackColor = Color.FromArgb(64, 64, 64)
|
||
PictureBox2.BackColor = Color.FromArgb(64, 64, 64)
|
||
PictureBox3.BackColor = Color.FromArgb(64, 64, 64)
|
||
PictureBox4.BackColor = Color.FromArgb(64, 64, 64)
|
||
PictureBox5.BackColor = Color.FromArgb(64, 64, 64)
|
||
PictureBox6.BackColor = Color.FromArgb(64, 64, 64)
|
||
PictureBox7.BackColor = Color.FromArgb(64, 64, 64)
|
||
PictureBox8.BackColor = Color.FromArgb(64, 64, 64)
|
||
PictureBox9.BackColor = Color.FromArgb(64, 64, 64)
|
||
PictureBox10.BackColor = Color.FromArgb(64, 64, 64)
|
||
LinkLabel1.BackColor = Color.FromArgb(64, 64, 64)
|
||
LinkLabel2.BackColor = Color.FromArgb(64, 64, 64)
|
||
LinkLabel3.BackColor = Color.FromArgb(64, 64, 64)
|
||
TextBox1.BackColor = Color.FromArgb(64, 64, 64)
|
||
TextBox2.BackColor = Color.FromArgb(64, 64, 64)
|
||
TextBox3.BackColor = Color.FromArgb(64, 64, 64)
|
||
TextBox4.BackColor = Color.FromArgb(64, 64, 64)
|
||
TextBox5.BackColor = Color.FromArgb(64, 64, 64)
|
||
TextBox6.BackColor = Color.FromArgb(64, 64, 64)
|
||
TextBox7.BackColor = Color.FromArgb(64, 64, 64)
|
||
TextBox8.BackColor = Color.FromArgb(64, 64, 64)
|
||
TextBox9.BackColor = Color.FromArgb(64, 64, 64)
|
||
TextBox10.BackColor = Color.FromArgb(64, 64, 64)
|
||
TextBox11.BackColor = Color.FromArgb(64, 64, 64)
|
||
TextBox12.BackColor = Color.FromArgb(64, 64, 64)
|
||
ComboBox1.BackColor = Color.FromArgb(64, 64, 64)
|
||
ComboBox2.BackColor = Color.FromArgb(64, 64, 64)
|
||
ComboBox3.BackColor = Color.FromArgb(64, 64, 64)
|
||
ComboBox4.BackColor = Color.FromArgb(64, 64, 64)
|
||
ComboBox5.BackColor = Color.FromArgb(64, 64, 64)
|
||
ComboBox6.BackColor = Color.FromArgb(64, 64, 64)
|
||
ComboBox7.BackColor = Color.FromArgb(64, 64, 64)
|
||
ComboBox8.BackColor = Color.FromArgb(64, 64, 64)
|
||
ComboBox9.BackColor = Color.FromArgb(64, 64, 64)
|
||
ComboBox10.BackColor = Color.FromArgb(64, 64, 64)
|
||
ComboBox11.BackColor = Color.FromArgb(64, 64, 64)
|
||
ComboBox12.BackColor = Color.FromArgb(64, 64, 64)
|
||
ComboBox13.BackColor = Color.FromArgb(64, 64, 64)
|
||
ComboBox14.BackColor = Color.FromArgb(64, 64, 64)
|
||
ComboBox15.BackColor = Color.FromArgb(64, 64, 64)
|
||
ComboBox16.BackColor = Color.FromArgb(64, 64, 64)
|
||
ComboBox18.BackColor = Color.FromArgb(64, 64, 64)
|
||
ListBox1.BackColor = Color.FromArgb(64, 64, 64)
|
||
ListBox2.BackColor = Color.FromArgb(64, 64, 64)
|
||
ListBox3.BackColor = Color.FromArgb(64, 64, 64)
|
||
ListBox4.BackColor = Color.FromArgb(64, 64, 64)
|
||
ListBox5.BackColor = Color.FromArgb(64, 64, 64)
|
||
ListBox6.BackColor = Color.FromArgb(64, 64, 64)
|
||
Panel20.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label1.ForeColor = Color.White
|
||
Label2.ForeColor = Color.White
|
||
Label3.ForeColor = Color.White
|
||
Label4.ForeColor = Color.White
|
||
Label5.ForeColor = Color.White
|
||
Label6.ForeColor = Color.White
|
||
Label7.ForeColor = Color.White
|
||
Label8.ForeColor = Color.White
|
||
Label9.ForeColor = Color.White
|
||
Label10.ForeColor = Color.White
|
||
Label11.ForeColor = Color.White
|
||
Label12.ForeColor = Color.White
|
||
Label13.ForeColor = Color.White
|
||
Label14.ForeColor = Color.White
|
||
Label15.ForeColor = Color.White
|
||
Label16.ForeColor = Color.White
|
||
Label17.ForeColor = Color.White
|
||
Label18.ForeColor = Color.White
|
||
Label19.ForeColor = Color.White
|
||
Label20.ForeColor = Color.White
|
||
Label21.ForeColor = Color.White
|
||
Label22.ForeColor = Color.White
|
||
Label23.ForeColor = Color.White
|
||
Label25.ForeColor = Color.White
|
||
Label26.ForeColor = Color.White
|
||
Label27.ForeColor = Color.White
|
||
Label28.ForeColor = Color.White
|
||
Label29.ForeColor = Color.White
|
||
Label30.ForeColor = Color.White
|
||
Label31.ForeColor = Color.White
|
||
Label32.ForeColor = Color.White
|
||
Label33.ForeColor = Color.White
|
||
Label34.ForeColor = Color.White
|
||
Label35.ForeColor = Color.White
|
||
Label36.ForeColor = Color.White
|
||
Label37.ForeColor = Color.White
|
||
Label38.ForeColor = Color.White
|
||
Label40.ForeColor = Color.White
|
||
Label41.ForeColor = Color.White
|
||
Label40.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label41.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaLabel1.ForeColor = Color.White
|
||
GunaLabel2.ForeColor = Color.White
|
||
GunaLabel3.ForeColor = Color.White
|
||
GunaLabel4.ForeColor = Color.White
|
||
GunaLabel5.ForeColor = Color.White
|
||
GunaLabel6.ForeColor = Color.White
|
||
GunaLabel7.ForeColor = Color.White
|
||
GunaLabel8.ForeColor = Color.White
|
||
GunaLabel9.ForeColor = Color.White
|
||
GunaLabel10.ForeColor = Color.White
|
||
GunaLabel11.ForeColor = Color.White
|
||
GunaLabel12.ForeColor = Color.White
|
||
GunaLabel14.ForeColor = Color.White
|
||
GunaLabel15.ForeColor = Color.White
|
||
GunaLabel16.ForeColor = Color.White
|
||
GunaLabel17.ForeColor = Color.White
|
||
GunaLabel18.ForeColor = Color.White
|
||
GunaLabel19.ForeColor = Color.White
|
||
GunaLabel20.ForeColor = Color.White
|
||
GunaLabel21.ForeColor = Color.White
|
||
GunaLabel22.ForeColor = Color.White
|
||
GunaLabel23.ForeColor = Color.White
|
||
GunaLabel24.ForeColor = Color.White
|
||
GunaLabel25.ForeColor = Color.White
|
||
GunaLabel26.ForeColor = Color.White
|
||
GunaLabel27.ForeColor = Color.White
|
||
Button1.ForeColor = Color.White
|
||
Button2.ForeColor = Color.White
|
||
Button3.ForeColor = Color.White
|
||
Button4.ForeColor = Color.White
|
||
Button5.ForeColor = Color.White
|
||
Button6.ForeColor = Color.White
|
||
Button7.ForeColor = Color.White
|
||
Button8.ForeColor = Color.White
|
||
Button9.ForeColor = Color.White
|
||
Button10.ForeColor = Color.White
|
||
Button11.ForeColor = Color.White
|
||
Button12.ForeColor = Color.White
|
||
Button13.ForeColor = Color.White
|
||
Button14.ForeColor = Color.White
|
||
Button15.ForeColor = Color.White
|
||
Button16.ForeColor = Color.White
|
||
Button17.ForeColor = Color.White
|
||
Button18.ForeColor = Color.White
|
||
Button19.ForeColor = Color.White
|
||
Button20.ForeColor = Color.White
|
||
Button21.ForeColor = Color.White
|
||
Button22.ForeColor = Color.White
|
||
Button23.ForeColor = Color.White
|
||
Button24.ForeColor = Color.White
|
||
Button25.ForeColor = Color.White
|
||
Button26.ForeColor = Color.White
|
||
Button27.ForeColor = Color.White
|
||
Button28.ForeColor = Color.White
|
||
Button29.ForeColor = Color.White
|
||
Button30.ForeColor = Color.White
|
||
Button31.ForeColor = Color.White
|
||
Button32.ForeColor = Color.White
|
||
Button33.ForeColor = Color.White
|
||
ListBox1.ForeColor = Color.White
|
||
ListBox2.ForeColor = Color.White
|
||
ListBox3.ForeColor = Color.White
|
||
ListBox4.ForeColor = Color.White
|
||
ListBox5.ForeColor = Color.White
|
||
ListBox6.ForeColor = Color.White
|
||
LinkLabel1.ForeColor = Color.White
|
||
LinkLabel2.ForeColor = Color.White
|
||
LinkLabel3.ForeColor = Color.White
|
||
TextBox1.ForeColor = Color.White
|
||
TextBox2.ForeColor = Color.White
|
||
TextBox3.ForeColor = Color.White
|
||
TextBox4.ForeColor = Color.White
|
||
TextBox5.ForeColor = Color.White
|
||
TextBox6.ForeColor = Color.White
|
||
TextBox7.ForeColor = Color.White
|
||
TextBox8.ForeColor = Color.White
|
||
TextBox9.ForeColor = Color.White
|
||
TextBox10.ForeColor = Color.White
|
||
TextBox11.ForeColor = Color.White
|
||
TextBox12.ForeColor = Color.White
|
||
ComboBox1.ForeColor = Color.White
|
||
ComboBox2.ForeColor = Color.White
|
||
ComboBox3.ForeColor = Color.White
|
||
ComboBox4.ForeColor = Color.White
|
||
ComboBox5.ForeColor = Color.White
|
||
ComboBox6.ForeColor = Color.White
|
||
ComboBox7.ForeColor = Color.White
|
||
ComboBox8.ForeColor = Color.White
|
||
ComboBox9.ForeColor = Color.White
|
||
ComboBox10.ForeColor = Color.White
|
||
ComboBox11.ForeColor = Color.White
|
||
ComboBox12.ForeColor = Color.White
|
||
ComboBox13.ForeColor = Color.White
|
||
ComboBox14.ForeColor = Color.White
|
||
ComboBox15.ForeColor = Color.White
|
||
ComboBox16.ForeColor = Color.White
|
||
ComboBox18.ForeColor = Color.White
|
||
CheckBox1.ForeColor = Color.White
|
||
CheckBox2.ForeColor = Color.White
|
||
CheckBox4.ForeColor = Color.White
|
||
CheckBox5.ForeColor = Color.White
|
||
CheckBox6.ForeColor = Color.White
|
||
CheckBox13.ForeColor = Color.White
|
||
CheckBox14.ForeColor = Color.White
|
||
CheckBox15.ForeColor = Color.White
|
||
CheckBox16.ForeColor = Color.White
|
||
CheckBox17.ForeColor = Color.White
|
||
CheckBox18.ForeColor = Color.White
|
||
CheckBox19.ForeColor = Color.White
|
||
CheckBox20.ForeColor = Color.White
|
||
CheckBox21.ForeColor = Color.White
|
||
CheckBox22.ForeColor = Color.White
|
||
CheckBox24.ForeColor = Color.White
|
||
CheckBox25.ForeColor = Color.White
|
||
CheckBox26.ForeColor = Color.White
|
||
LinkLabel1.LinkColor = Color.White
|
||
LinkLabel2.LinkColor = Color.White
|
||
End Sub
|
||
Private Sub GunaGoogleSwitch15_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch15.CheckedChanged
|
||
If GunaGoogleSwitch15.Checked = True Then
|
||
GunaLabel27.Text = "Activer"
|
||
Else
|
||
GunaLabel27.Text = "Désactivée"
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
|
||
Timer6.Stop()
|
||
If ergister2 = 1 Then
|
||
|
||
Else
|
||
Try
|
||
Dim lines1() As String = File.ReadAllLines(cozip & "mail.txt")
|
||
Dim Resultatbytes() As Byte = Convert.FromBase64String(lines1(0))
|
||
Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
||
Dim Crypto As New DESCryptoServiceProvider()
|
||
Crypto.Key = keyBytes
|
||
Crypto.IV = keyBytes
|
||
Dim Icrypto As ICryptoTransform = Crypto.CreateDecryptor()
|
||
Dim donné() As Byte = Icrypto.TransformFinalBlock(Resultatbytes, 0, Resultatbytes.Length)
|
||
Dim maildcrypt = Encoding.UTF8.GetString(donné)
|
||
Dim MyMailMessage As New MailMessage()
|
||
Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
|
||
Dim mail = maildcrypt
|
||
Dim message = "Une nouvelle connexion à votre compte a été détecté !!! " & vbNewLine & vbNewLine & "IPV4/IPV6:" & MyIP & vbNewLine & vbNewLine & "nom de pc: " & My.Computer.Name & vbNewLine & vbNewLine & "OS (systeme dexploitation): " & My.Computer.Info.OSFullName & vbNewLine & vbNewLine & "Si vous n'être pas a l'origine de cette connection, merci de changer immédiatement votre mots de passe."
|
||
|
||
MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
|
||
MyMailMessage.To.Add(mail)
|
||
MyMailMessage.Subject = ("nouvelle connexion")
|
||
MyMailMessage.Body = (message)
|
||
|
||
SMTPServer.Port = ("587") 'Port
|
||
SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", "pC1*zzU9-qtZjdT")
|
||
SMTPServer.EnableSsl = True
|
||
|
||
SMTPServer.Send(MyMailMessage) 'Envoi
|
||
|
||
ergister2 = 1
|
||
finico()
|
||
Catch ex As Exception
|
||
Timer6.Start()
|
||
End Try
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
|
||
Timer7.Stop()
|
||
Try
|
||
Dim MyMailMessage As New MailMessage()
|
||
Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
|
||
Dim mail = TextBox6.Text & ComboBox10.Text
|
||
Dim message = "Bonjour, " & TextBox4.Text & vbNewLine & vbNewLine & "Bienvenue sur lecteur média, vôtre compte a bien êtê créer !!! grâce à ce compte vous avez un drive est des fonctionnalités supplémentaires." & vbNewLine & vbNewLine & "vôtre nom d'utilisateur est: " & TextBox4.Text & vbNewLine & vbNewLine & "vôtre mots de passe est: " & TextBox5.Text & vbNewLine & vbNewLine & "lient de téléchargement du lecteur: " & vbNewLine & "http://lecteur-media.fr/" & vbNewLine & vbNewLine & "Vous pouvez retrouvez en pièce jointe vos code de récupération qui vous permettras de récuperer votre compte en cas de probléme." & vbNewLine & vbNewLine & "Nous vous souhaitons une bonne journée."
|
||
MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
|
||
MyMailMessage.To.Add(mail)
|
||
MyMailMessage.Subject = ("compte Lecteur média")
|
||
MyMailMessage.Body = (message)
|
||
|
||
SMTPServer.Port = ("587") 'Port
|
||
SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", "pC1*zzU9-qtZjdT")
|
||
SMTPServer.EnableSsl = True
|
||
|
||
Dim data = New Net.Mail.Attachment(cozip & "code 1 de récupération " & TextBox4.Text & ".txt")
|
||
Dim data2 = New Net.Mail.Attachment(cozip & "code 2 de récupération " & TextBox4.Text & ".txt")
|
||
Dim data3 = New Net.Mail.Attachment(cozip & "code 3 de récupération " & TextBox4.Text & ".txt")
|
||
MyMailMessage.Attachments.Add(data)
|
||
MyMailMessage.Attachments.Add(data2)
|
||
MyMailMessage.Attachments.Add(data3)
|
||
SMTPServer.Send(MyMailMessage) 'Envoi
|
||
MyMailMessage.Attachments.Dispose()
|
||
Catch ex As Exception
|
||
Timer7.Start()
|
||
End Try
|
||
codecrypt()
|
||
End Sub
|
||
|
||
Private Sub ChromeButton2_Click(sender As Object, e As EventArgs) Handles ChromeButton2.Click
|
||
If FolderBrowserDialog2.ShowDialog = 1 Then
|
||
exporterconfig = FolderBrowserDialog2.SelectedPath
|
||
Form175.ShowDialog()
|
||
Else
|
||
MsgBox("Merci de sélectionné un dossier de destination", MsgBoxStyle.Exclamation)
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub ChromeButton3_Click(sender As Object, e As EventArgs)
|
||
If OpenFileDialog4.ShowDialog = 1 Then
|
||
importconfig = OpenFileDialog4.FileName
|
||
Form176.ShowDialog()
|
||
Else
|
||
MsgBox("Merci de sélectionnez un fichier", MsgBoxStyle.Exclamation)
|
||
End If
|
||
End Sub
|
||
Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
|
||
Form177.ShowDialog()
|
||
End Sub
|
||
|
||
Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
|
||
Dim sw1 As New StreamWriter(fichierconfigbackup)
|
||
sw1.WriteLine(0)
|
||
sw1.Close()
|
||
Button26.Visible = False
|
||
Button31.Visible = False
|
||
Button25.Text = "Configurer maintenant"
|
||
End Sub
|
||
|
||
Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click
|
||
If ListBox5.Items.Count = 0 Then
|
||
MsgBox("Aucun backup trouver", MsgBoxStyle.Exclamation)
|
||
Else
|
||
If ListBox5.SelectedItem = "" Then
|
||
MsgBox("Merci de sélectionner une sauvegarde", MsgBoxStyle.Exclamation)
|
||
Else
|
||
MsgBox("Cette opération va remettre la configuration de la sauvegarde", MsgBoxStyle.Information)
|
||
Dim msg = MsgBox("Voulez-vous vraiment remettre la configuration ?", MsgBoxStyle.YesNo)
|
||
If msg = MsgBoxResult.Yes Then
|
||
Dim sw2 As New StreamWriter(utilitairetemps)
|
||
sw2.WriteLine(1)
|
||
sw2.WriteLine(mesbacup & ListBox5.SelectedItem)
|
||
sw2.Close()
|
||
Form152.ShowDialog()
|
||
Else
|
||
|
||
End If
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
|
||
If ListBox5.Items.Count = 0 Then
|
||
MsgBox("Aucun sauvegarde trouver", MsgBoxStyle.Exclamation)
|
||
Else
|
||
If ListBox5.SelectedItem = "" Then
|
||
MsgBox("Merci de sélectionner une sauvegarde", MsgBoxStyle.Exclamation)
|
||
Else
|
||
If FolderBrowserDialog3.ShowDialog = 1 Then
|
||
If File.Exists(FolderBrowserDialog3.SelectedPath & "\" & My.Computer.Name & " - " & ListBox5.SelectedItem) = True Then
|
||
MsgBox("La sauvegarde: " & ListBox5.SelectedItem & vbNewLine & "est déjà présente de le dossier sélectionner: " & FolderBrowserDialog3.SelectedPath, MsgBoxStyle.Exclamation)
|
||
Else
|
||
lisb5 = 1
|
||
BackgroundWorker1.RunWorkerAsync()
|
||
Form180.ShowDialog()
|
||
End If
|
||
Else
|
||
MsgBox("Merci de sélectionner un dossier", MsgBoxStyle.Exclamation)
|
||
End If
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Button29.Click
|
||
If ListBox5.Items.Count = 0 Then
|
||
MsgBox("Aucune sauvegarde trouver", MsgBoxStyle.Exclamation)
|
||
Else
|
||
If ListBox5.SelectedItem = "" Then
|
||
MsgBox("Merci de sélectionner une sauvegarde", MsgBoxStyle.Exclamation)
|
||
Else
|
||
File.Delete(mesbacup & ListBox5.SelectedItem)
|
||
|
||
MsgBox("La sauvegarde: " & ListBox5.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)
|
||
|
||
ListBox5.Items.Clear()
|
||
|
||
For Each fichier As String In IO.Directory.GetFiles(mesbacup)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
ListBox5.Items.Add(info.Name)
|
||
Next
|
||
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click
|
||
If ListBox5.Items.Count = 0 Then
|
||
MsgBox("Aucune sauvegarde trouver", MsgBoxStyle.Exclamation)
|
||
Else
|
||
|
||
For Each fichier As String In IO.Directory.GetFiles(mesbacup)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(info.FullName)
|
||
Next
|
||
|
||
ListBox5.Items.Clear()
|
||
|
||
MsgBox("Tous les sauvegardes ont bien été supprimer", MsgBoxStyle.Information)
|
||
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
|
||
FileCopy(mesbacup & ListBox5.SelectedItem, FolderBrowserDialog3.SelectedPath & "\" & My.Computer.Name & " - " & ListBox5.SelectedItem)
|
||
End Sub
|
||
|
||
Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
|
||
lisb5 = 0
|
||
Form180.Close()
|
||
MsgBox("Exportation terminer", MsgBoxStyle.Information)
|
||
End Sub
|
||
|
||
Private Sub BackgroundWorker2_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker2.DoWork
|
||
Compression.ZipFile.ExtractToDirectory(mesbacup & ListBox5.SelectedItem, repertoire)
|
||
End Sub
|
||
|
||
Private Sub BackgroundWorker2_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker2.RunWorkerCompleted
|
||
lisb6 = 0
|
||
MsgBox("Restauration terminer", MsgBoxStyle.Information)
|
||
Form152.ShowDialog()
|
||
End Sub
|
||
|
||
Private Sub Button31_Click(sender As Object, e As EventArgs) Handles Button31.Click
|
||
Dim msg = MsgBox("Voulez-vous vraiment sauvegarder Maintenant ?", MsgBoxStyle.YesNo)
|
||
If msg = MsgBoxResult.Yes Then
|
||
Form182.ShowDialog()
|
||
Else
|
||
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub ComboBox2_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedValueChanged
|
||
If ComboBox2.SelectedItem = "Personnaliser" Then
|
||
CheckBox2.Show()
|
||
CheckBox4.Show()
|
||
Else
|
||
CheckBox2.Hide()
|
||
CheckBox4.Hide()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button32_Click(sender As Object, e As EventArgs) Handles Button32.Click
|
||
If ListBox6.Items.Count = 0 Then
|
||
MsgBox("Aucune version précédente trouvez", MsgBoxStyle.Critical)
|
||
ElseIf ListBox6.Items.Count = 1 Then
|
||
Dim msg = MsgBox("Voulez-vous vraiment revenir à la version précédente ?", MsgBoxStyle.YesNo)
|
||
If msg = MsgBoxResult.Yes Then
|
||
Dim dw9 As New StreamWriter(misajours & "appli.txt")
|
||
dw9.WriteLine(My.Application.Info.DirectoryPath)
|
||
dw9.Close()
|
||
Dim dw10 As New StreamWriter(utilitairestemp)
|
||
dw10.WriteLine(2)
|
||
dw10.Close()
|
||
FileCopy(My.Application.Info.DirectoryPath & "\utilitaires.exe", misajours & "utilitaires.exe")
|
||
Process.Start(misajours & "utilitaires.exe")
|
||
End
|
||
Else
|
||
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button33_Click(sender As Object, e As EventArgs) Handles Button33.Click
|
||
If ComboBox2.SelectedItem = "personnaliser" Then
|
||
If CheckBox2.Checked = True And CheckBox4.Checked = False Then
|
||
Dim msg = MsgBox("Voulez-vous vraiment réinitialiser: " & CheckBox2.Text, MsgBoxStyle.YesNo)
|
||
If msg = MsgBoxResult.Yes Then
|
||
Timer1.Stop()
|
||
Timer3.Stop()
|
||
Timer4.Stop()
|
||
Timer5.Stop()
|
||
Timer6.Stop()
|
||
Timer7.Stop()
|
||
Timer8.Stop()
|
||
Timer11.Stop()
|
||
Timer12.Stop()
|
||
Timer13.Stop()
|
||
Timer15.Stop()
|
||
Timer16.Stop()
|
||
Form1.Timer1.Stop()
|
||
Form1.Timer2.Stop()
|
||
Form1.Timer3.Stop()
|
||
Form1.Timer4.Stop()
|
||
Form1.Timer5.Stop()
|
||
Form1.Timer6.Stop()
|
||
Form1.Timer7.Stop()
|
||
Form1.Timer11.Stop()
|
||
Form1.Timer13.Stop()
|
||
Form1.Timer14.Stop()
|
||
Form1.Timer15.Stop()
|
||
Form1.Timer16.Stop()
|
||
Form1.Timer17.Stop()
|
||
Form1.Timer18.Stop()
|
||
Form1.Timer19.Stop()
|
||
For Each fichier As String In IO.Directory.GetFiles(film)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
|
||
For Each fichier1 As String In IO.Directory.GetDirectories(film)
|
||
Dim info As New IO.FileInfo(fichier1)
|
||
Directory.Delete(fichier1, recursive:=True)
|
||
Next
|
||
|
||
For Each fichier As String In IO.Directory.GetFiles(dossérie)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
|
||
For Each fichier1 As String In IO.Directory.GetDirectories(dossérie)
|
||
Dim info As New IO.FileInfo(fichier1)
|
||
Directory.Delete(fichier1, recursive:=True)
|
||
Next
|
||
|
||
MsgBox("La réinitialisation:" & CheckBox2.Text & " est terminer", MsgBoxStyle.Information)
|
||
Form152.ShowDialog()
|
||
End If
|
||
ElseIf CheckBox2.Checked = True And CheckBox4.Checked = True Then
|
||
Dim msg = MsgBox("Voulez-vous vraiment réinitialiser: " & CheckBox2.Text & " " & CheckBox4.Text, MsgBoxStyle.YesNo)
|
||
If msg = MsgBoxResult.Yes Then
|
||
Timer1.Stop()
|
||
Timer3.Stop()
|
||
Timer4.Stop()
|
||
Timer5.Stop()
|
||
Timer6.Stop()
|
||
Timer7.Stop()
|
||
Timer8.Stop()
|
||
Timer11.Stop()
|
||
Timer12.Stop()
|
||
Timer13.Stop()
|
||
Timer15.Stop()
|
||
Timer16.Stop()
|
||
Form1.Timer1.Stop()
|
||
Form1.Timer2.Stop()
|
||
Form1.Timer3.Stop()
|
||
Form1.Timer4.Stop()
|
||
Form1.Timer5.Stop()
|
||
Form1.Timer6.Stop()
|
||
Form1.Timer7.Stop()
|
||
Form1.Timer11.Stop()
|
||
Form1.Timer13.Stop()
|
||
Form1.Timer14.Stop()
|
||
Form1.Timer15.Stop()
|
||
Form1.Timer16.Stop()
|
||
Form1.Timer17.Stop()
|
||
Form1.Timer18.Stop()
|
||
Form1.Timer19.Stop()
|
||
For Each fichier1 As String In IO.Directory.GetDirectories(film)
|
||
Dim info As New IO.FileInfo(fichier1)
|
||
Directory.Delete(fichier1, recursive:=True)
|
||
Next
|
||
|
||
For Each fichier As String In IO.Directory.GetFiles(film)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
|
||
For Each fichier1 As String In IO.Directory.GetDirectories(dossérie)
|
||
Dim info As New IO.FileInfo(fichier1)
|
||
Directory.Delete(fichier1, recursive:=True)
|
||
Next
|
||
|
||
For Each fichier As String In IO.Directory.GetFiles(dossérie)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
|
||
For Each fichier1 As String In IO.Directory.GetDirectories(radio)
|
||
Dim info As New IO.FileInfo(fichier1)
|
||
Directory.Delete(fichier1, recursive:=True)
|
||
Next
|
||
|
||
For Each fichier As String In IO.Directory.GetFiles(radio)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
|
||
For Each fichier1 As String In IO.Directory.GetDirectories(dosplaylist)
|
||
Dim info As New IO.FileInfo(fichier1)
|
||
Directory.Delete(fichier1, recursive:=True)
|
||
Next
|
||
|
||
For Each fichier As String In IO.Directory.GetFiles(dosplaylist)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
|
||
MsgBox("La réinitialisation:" & CheckBox2.Text & " " & CheckBox4.Text & " est terminer", MsgBoxStyle.Information)
|
||
Form152.ShowDialog()
|
||
End If
|
||
|
||
ElseIf CheckBox2.Checked = False And CheckBox4.Checked = True Then
|
||
Dim msg = MsgBox("Voulez-vous vraiment réinitialiser: " & CheckBox4.Text, MsgBoxStyle.YesNo)
|
||
If msg = MsgBoxResult.Yes Then
|
||
Timer1.Stop()
|
||
Timer3.Stop()
|
||
Timer4.Stop()
|
||
Timer5.Stop()
|
||
Timer6.Stop()
|
||
Timer7.Stop()
|
||
Timer8.Stop()
|
||
Timer11.Stop()
|
||
Timer12.Stop()
|
||
Timer13.Stop()
|
||
Timer15.Stop()
|
||
Timer16.Stop()
|
||
Form1.Timer1.Stop()
|
||
Form1.Timer2.Stop()
|
||
Form1.Timer3.Stop()
|
||
Form1.Timer4.Stop()
|
||
Form1.Timer5.Stop()
|
||
Form1.Timer6.Stop()
|
||
Form1.Timer7.Stop()
|
||
Form1.Timer11.Stop()
|
||
Form1.Timer13.Stop()
|
||
Form1.Timer14.Stop()
|
||
Form1.Timer15.Stop()
|
||
Form1.Timer16.Stop()
|
||
Form1.Timer17.Stop()
|
||
Form1.Timer18.Stop()
|
||
Form1.Timer19.Stop()
|
||
|
||
For Each fichier1 As String In IO.Directory.GetDirectories(radio)
|
||
Dim info As New IO.FileInfo(fichier1)
|
||
Directory.Delete(fichier1, recursive:=True)
|
||
Next
|
||
|
||
For Each fichier As String In IO.Directory.GetFiles(radio)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
|
||
For Each fichier1 As String In IO.Directory.GetDirectories(dosplaylist)
|
||
Dim info As New IO.FileInfo(fichier1)
|
||
Directory.Delete(fichier1, recursive:=True)
|
||
Next
|
||
|
||
For Each fichier As String In IO.Directory.GetFiles(dosplaylist)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
MsgBox("La réinitialisation: " & CheckBox4.Text & " est terminer", MsgBoxStyle.Information)
|
||
Form152.ShowDialog()
|
||
End If
|
||
|
||
Else
|
||
MsgBox("Merci de sélectionnez les donné à réinitialiser", MsgBoxStyle.Critical)
|
||
End If
|
||
Else
|
||
Dim msg = MsgBox("Voulez-vous vraiment réinitialiser: " & ComboBox2.SelectedItem, MsgBoxStyle.YesNo)
|
||
If msg = MsgBoxResult.Yes Then
|
||
réinitialiser()
|
||
End If
|
||
End If
|
||
End Sub
|
||
Sub réinitialiser()
|
||
Timer1.Stop()
|
||
Timer3.Stop()
|
||
Timer4.Stop()
|
||
Timer5.Stop()
|
||
Timer6.Stop()
|
||
Timer7.Stop()
|
||
Timer8.Stop()
|
||
Timer11.Stop()
|
||
Timer12.Stop()
|
||
Timer13.Stop()
|
||
Timer15.Stop()
|
||
Timer16.Stop()
|
||
Form1.Timer1.Stop()
|
||
Form1.Timer2.Stop()
|
||
Form1.Timer3.Stop()
|
||
Form1.Timer4.Stop()
|
||
Form1.Timer5.Stop()
|
||
Form1.Timer6.Stop()
|
||
Form1.Timer7.Stop()
|
||
Form1.Timer11.Stop()
|
||
Form1.Timer13.Stop()
|
||
Form1.Timer14.Stop()
|
||
Form1.Timer15.Stop()
|
||
Form1.Timer16.Stop()
|
||
Form1.Timer17.Stop()
|
||
Form1.Timer18.Stop()
|
||
Form1.Timer19.Stop()
|
||
|
||
If ComboBox2.SelectedItem = "Tout le lecteur média" Then
|
||
For Each fichier As String In IO.Directory.GetFiles(repertoire)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
|
||
For Each fichier1 As String In IO.Directory.GetDirectories(repertoire)
|
||
Dim info As New IO.FileInfo(fichier1)
|
||
Directory.Delete(fichier1, recursive:=True)
|
||
Next
|
||
|
||
ElseIf ComboBox2.SelectedItem = "Les films" Then
|
||
For Each fichier As String In IO.Directory.GetFiles(film)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
|
||
For Each fichier1 As String In IO.Directory.GetDirectories(film)
|
||
Dim info As New IO.FileInfo(fichier1)
|
||
Directory.Delete(fichier1, recursive:=True)
|
||
Next
|
||
|
||
ElseIf ComboBox2.SelectedItem = "Les séries" Then
|
||
For Each fichier As String In IO.Directory.GetFiles(dossérie)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
|
||
For Each fichier1 As String In IO.Directory.GetDirectories(dossérie)
|
||
Dim info As New IO.FileInfo(fichier1)
|
||
Directory.Delete(fichier1, recursive:=True)
|
||
Next
|
||
|
||
ElseIf ComboBox2.SelectedItem = "Les radios persos" Then
|
||
For Each fichier As String In IO.Directory.GetFiles(radio)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
|
||
For Each fichier1 As String In IO.Directory.GetDirectories(radio)
|
||
Dim info As New IO.FileInfo(fichier1)
|
||
Directory.Delete(fichier1, recursive:=True)
|
||
Next
|
||
|
||
ElseIf ComboBox2.SelectedItem = "Les configurations de lecteur média" Then
|
||
For Each fichier As String In IO.Directory.GetFiles(repertoire)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
|
||
ElseIf ComboBox2.SelectedItem = "Les dictées" Then
|
||
For Each fichier As String In IO.Directory.GetFiles(discté)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
|
||
For Each fichier1 As String In IO.Directory.GetDirectories(discté)
|
||
Dim info As New IO.FileInfo(fichier1)
|
||
Directory.Delete(fichier1, recursive:=True)
|
||
Next
|
||
|
||
ElseIf ComboBox2.SelectedItem = "Les playlists" Then
|
||
For Each fichier1 As String In IO.Directory.GetDirectories(dosplaylist)
|
||
Dim info As New IO.FileInfo(fichier1)
|
||
Directory.Delete(fichier1, recursive:=True)
|
||
Next
|
||
|
||
End If
|
||
MsgBox("La réinitialisation:" & ComboBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||
Form152.ShowDialog()
|
||
End Sub
|
||
|
||
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
|
||
If CheckBox2.Checked = True Then
|
||
checkreini = checkreini + 1
|
||
Else
|
||
checkreini = checkreini - 1
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged
|
||
If CheckBox4.Checked = True Then
|
||
checkreini = checkreini + 1
|
||
Else
|
||
checkreini = checkreini - 1
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Timer17_Tick(sender As Object, e As EventArgs) Handles Timer17.Tick
|
||
Timer17.Stop()
|
||
Try
|
||
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/info.txt")
|
||
ftreq.Method = WebRequestMethods.Ftp.DeleteFile
|
||
ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
||
deco1a()
|
||
Catch ex As Exception
|
||
Timer17.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer20_Tick(sender As Object, e As EventArgs) Handles Timer20.Tick
|
||
Try
|
||
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/co.txt")
|
||
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
||
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
||
deco2a()
|
||
Catch ex As Exception
|
||
Timer20.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer21_Tick(sender As Object, e As EventArgs) Handles Timer21.Tick
|
||
Timer21.Stop()
|
||
Try
|
||
Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/index.php")
|
||
ftreq3.Method = WebRequestMethods.Ftp.DeleteFile
|
||
ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
|
||
deco3a()
|
||
Catch ex As Exception
|
||
Timer21.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer22_Tick(sender As Object, e As EventArgs) Handles Timer22.Tick
|
||
Timer22.Stop()
|
||
Try
|
||
Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/")
|
||
ftreq4.Method = WebRequestMethods.Ftp.RemoveDirectory
|
||
ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
|
||
|
||
Catch ex As Exception
|
||
Timer22.Start()
|
||
End Try
|
||
For Each fichier As String In IO.Directory.GetFiles(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
decofini()
|
||
End Sub
|
||
|
||
Private Sub Timer27_Tick(sender As Object, e As EventArgs) Handles Timer27.Tick
|
||
Timer27.Stop()
|
||
Try
|
||
Dim MyMailMessage As New MailMessage()
|
||
Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
|
||
Dim mail = "contact@lecteur-media.fr"
|
||
Dim message = "le compte: " & Label21.Text & "souhaite supprimer son compte"
|
||
|
||
MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
|
||
MyMailMessage.To.Add(mail)
|
||
MyMailMessage.Subject = ("supprétion de compte")
|
||
MyMailMessage.Body = (message)
|
||
|
||
SMTPServer.Port = ("587") 'Port
|
||
SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", "pC1*zzU9-qtZjdT")
|
||
SMTPServer.EnableSsl = True
|
||
|
||
SMTPServer.Send(MyMailMessage) 'Envoi
|
||
Me.Enabled = False
|
||
Form1.deco()
|
||
MsgBox("Un message a été envoyé au développer, votre compte: " & Label21.Text & " sera supprimer bienôt", MsgBoxStyle.Information)
|
||
Catch ex As Exception
|
||
Timer27.Start()
|
||
End Try
|
||
End Sub
|
||
Sub codecrypt()
|
||
Dim lines1() As String = File.ReadAllLines(cozip & "code 1 de récupération " & TextBox4.Text & ".txt")
|
||
Dim lines2() As String = File.ReadAllLines(cozip & "code 2 de récupération " & TextBox4.Text & ".txt")
|
||
Dim lines3() As String = File.ReadAllLines(cozip & "code 3 de récupération " & TextBox4.Text & ".txt")
|
||
Dim code1 As String = lines1(0)
|
||
Dim code2 As String = lines2(0)
|
||
Dim code3 As String = lines3(0)
|
||
For Each fichier As String In IO.Directory.GetFiles(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(cozip & info.Name)
|
||
Next
|
||
|
||
Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(code1.ToString)
|
||
Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
||
Dim Crypto As New DESCryptoServiceProvider()
|
||
Crypto.Key = keyBytes
|
||
Crypto.IV = keyBytes
|
||
Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
|
||
Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
|
||
Dim code1crypt = Convert.ToBase64String(Resultatbytes)
|
||
|
||
Dim t1 = cozip & "code 1 de récupération " & TextBox4.Text & ".txt"
|
||
Dim sw1 As New StreamWriter(cozip & "code 1 de récupération " & TextBox4.Text & ".txt")
|
||
sw1.WriteLine(code1crypt)
|
||
sw1.Close()
|
||
|
||
Dim texteEnBytes2() As Byte = Encoding.UTF8.GetBytes(code2.ToString)
|
||
Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
||
Dim Crypto2 As New DESCryptoServiceProvider()
|
||
Crypto2.Key = keyBytes2
|
||
Crypto2.IV = keyBytes2
|
||
Dim Icrypto2 As ICryptoTransform = Crypto2.CreateEncryptor
|
||
Dim Resultatbytes2() As Byte = Icrypto2.TransformFinalBlock(texteEnBytes2, 0, texteEnBytes2.Length)
|
||
Dim code1crypt2 = Convert.ToBase64String(Resultatbytes2)
|
||
|
||
Dim t2 = cozip & "code 2 de récupération " & TextBox4.Text & ".txt"
|
||
Dim sw2 As New StreamWriter(cozip & "code 2 de récupération " & TextBox4.Text & ".txt")
|
||
sw2.WriteLine(code1crypt2)
|
||
sw2.Close()
|
||
|
||
Dim texteEnBytes3() As Byte = Encoding.UTF8.GetBytes(code3.ToString)
|
||
Dim keyBytes3() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
||
Dim Crypto3 As New DESCryptoServiceProvider()
|
||
Crypto3.Key = keyBytes3
|
||
Crypto3.IV = keyBytes3
|
||
Dim Icrypto3 As ICryptoTransform = Crypto3.CreateEncryptor
|
||
Dim Resultatbytes3() As Byte = Icrypto3.TransformFinalBlock(texteEnBytes3, 0, texteEnBytes3.Length)
|
||
Dim code1crypt3 = Convert.ToBase64String(Resultatbytes3)
|
||
|
||
Dim t3 = cozip & "code 3 de récupération " & TextBox4.Text & ".txt"
|
||
Dim sw3 As New StreamWriter(cozip & "code 3 de récupération " & TextBox4.Text & ".txt")
|
||
sw3.WriteLine(code1crypt3)
|
||
sw3.Close()
|
||
|
||
upcode1()
|
||
End Sub
|
||
Sub upcode1()
|
||
Try
|
||
My.Computer.Network.UploadFile(cozip & "code 1 de récupération " & TextBox4.Text & ".txt", ipserver & "/utilisateur/" & TextBox4.Text & "/code 1 de récupération " & TextBox4.Text & ".txt")
|
||
upcode2()
|
||
Catch ex As Exception
|
||
Timer28.Start()
|
||
End Try
|
||
End Sub
|
||
Sub upcode2()
|
||
Try
|
||
My.Computer.Network.UploadFile(cozip & "code 2 de récupération " & TextBox4.Text & ".txt", ipserver & "/utilisateur/" & TextBox4.Text & "/code 2 de récupération " & TextBox4.Text & ".txt")
|
||
upcode3()
|
||
Catch ex As Exception
|
||
Timer29.Start()
|
||
End Try
|
||
End Sub
|
||
Sub upcode3()
|
||
Try
|
||
My.Computer.Network.UploadFile(cozip & "code 3 de récupération " & TextBox4.Text & ".txt", ipserver & "/utilisateur/" & TextBox4.Text & "/code 3 de récupération " & TextBox4.Text & ".txt")
|
||
comptecréated()
|
||
Catch ex As Exception
|
||
Timer31.Start()
|
||
End Try
|
||
End Sub
|
||
Sub comptecréated()
|
||
Label17.Show()
|
||
Label18.Show()
|
||
TextBox7.Show()
|
||
TextBox8.Show()
|
||
Button12.Show()
|
||
Button11.Show()
|
||
Panel2.Hide()
|
||
Panel1.Hide()
|
||
TextBox5.Clear()
|
||
TextBox6.Clear()
|
||
TextBox12.Clear()
|
||
For Each fichier As String In IO.Directory.GetFiles(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(cozip & info.Name)
|
||
Next
|
||
Dim sw1 As New StreamWriter(dosparamètres & "/" & TextBox4.Text & ".txt")
|
||
sw1.WriteLine(0)
|
||
sw1.Close()
|
||
My.Computer.Network.UploadFile(dosparamètres & "/" & TextBox4.Text & ".txt", ipserver & "/new/Utilisateur/" & TextBox4.Text & ".txt")
|
||
File.Delete(dosparamètres & "/" & TextBox4.Text & ".txt")
|
||
MsgBox("Le compte: " & TextBox4.Text & " a bien été créer", MsgBoxStyle.Information)
|
||
TextBox4.Clear()
|
||
End Sub
|
||
|
||
Private Sub Timer28_Tick(sender As Object, e As EventArgs) Handles Timer28.Tick
|
||
Timer28.Stop()
|
||
Try
|
||
My.Computer.Network.UploadFile(cozip & "code 1 de récupération " & TextBox4.Text & ".txt", ipserver & "/utilisateur/" & TextBox4.Text & "/code 1 de récupération " & TextBox4.Text & ".txt")
|
||
upcode2()
|
||
Catch ex As Exception
|
||
Timer28.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer29_Tick(sender As Object, e As EventArgs) Handles Timer29.Tick
|
||
Timer29.Stop()
|
||
Try
|
||
My.Computer.Network.UploadFile(cozip & "code 2 de récupération " & TextBox4.Text & ".txt", ipserver & "/utilisateur/" & TextBox4.Text & "/code 2 de récupération " & TextBox4.Text & ".txt")
|
||
upcode3()
|
||
Catch ex As Exception
|
||
Timer29.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer31_Tick(sender As Object, e As EventArgs) Handles Timer31.Tick
|
||
Timer31.Stop()
|
||
Try
|
||
My.Computer.Network.UploadFile(cozip & "code 3 de récupération " & TextBox4.Text & ".txt", ipserver & "/utilisateur/" & TextBox4.Text & "/code 3 de récupération " & TextBox4.Text & ".txt")
|
||
comptecréated()
|
||
Catch ex As Exception
|
||
Timer31.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub LinkLabel3_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
|
||
Try
|
||
If My.Computer.Network.Ping("google.com") = True Then
|
||
coreco()
|
||
Else
|
||
MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information)
|
||
End If
|
||
Catch ex As Exception
|
||
MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information)
|
||
End Try
|
||
End Sub
|
||
Sub coreco()
|
||
If TextBox7.Text = "" Then
|
||
MsgBox("Merci d'entrer un nom utilisateur", MsgBoxStyle.Critical)
|
||
Exit Sub
|
||
Else
|
||
Try
|
||
Dim fwr As FtpWebRequest
|
||
fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/")
|
||
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
||
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
||
|
||
Dim str As String = sr.ReadLine()
|
||
While Not str Is Nothing
|
||
|
||
Directory.CreateDirectory(cozip & str)
|
||
|
||
|
||
str = sr.ReadLine()
|
||
|
||
End While
|
||
|
||
sr.Close()
|
||
|
||
If Directory.Exists(cozip & TextBox7.Text) = True Then
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Directory.Delete(cozip & info.Name)
|
||
Next
|
||
coderec()
|
||
Else
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Directory.Delete(cozip & info.Name)
|
||
Next
|
||
MsgBox("Le compte: " & TextBox7.Text & " n'existe pas", MsgBoxStyle.Critical)
|
||
End If
|
||
Catch ex As Exception
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Directory.Delete(cozip & info.Name)
|
||
Next
|
||
MsgBox(ex.ToString)
|
||
End Try
|
||
End If
|
||
End Sub
|
||
Sub coderec()
|
||
Form185.ShowDialog()
|
||
End Sub
|
||
|
||
Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles Timer9.Tick
|
||
Timer9.Stop()
|
||
Try
|
||
Dim fwr As FtpWebRequest
|
||
fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/")
|
||
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
||
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
||
|
||
Dim str As String = sr.ReadLine()
|
||
While Not str Is Nothing
|
||
|
||
Directory.CreateDirectory(cozip & str)
|
||
|
||
|
||
str = sr.ReadLine()
|
||
|
||
End While
|
||
|
||
sr.Close()
|
||
|
||
If Directory.Exists(cozip & TextBox4.Text) = True Then
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Directory.Delete(cozip & info.Name)
|
||
Next
|
||
MsgBox("Le nom: " & TextBox4.Text & " est déjà utiliser", MsgBoxStyle.Critical)
|
||
Else
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Directory.Delete(cozip & info.Name)
|
||
Next
|
||
ftp()
|
||
End If
|
||
|
||
Catch ex As Exception
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Directory.Delete(cozip & info.Name)
|
||
Next
|
||
Timer9.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick
|
||
Timer10.Stop()
|
||
Try
|
||
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & TextBox4.Text), System.Net.FtpWebRequest)
|
||
Dim ftpStream As Stream = Nothing
|
||
|
||
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
||
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
||
|
||
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
||
ftpStream = response.GetResponseStream
|
||
ftpStream.Close()
|
||
response.Close()
|
||
ftp7()
|
||
Catch ex As Exception
|
||
Timer10.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer23_Tick(sender As Object, e As EventArgs) Handles Timer23.Tick
|
||
Timer23.Stop()
|
||
Try
|
||
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & TextBox4.Text & "/Dictée/"), System.Net.FtpWebRequest)
|
||
Dim ftpStream As Stream = Nothing
|
||
|
||
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
||
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
||
|
||
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
||
ftpStream = response.GetResponseStream
|
||
ftpStream.Close()
|
||
response.Close()
|
||
ftppc()
|
||
Catch ex As Exception
|
||
Timer23.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer24_Tick(sender As Object, e As EventArgs) Handles Timer24.Tick
|
||
Timer24.Stop()
|
||
Try
|
||
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & TextBox4.Text & "/pc/"), System.Net.FtpWebRequest)
|
||
Dim ftpStream As Stream = Nothing
|
||
|
||
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
||
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
||
|
||
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
||
ftpStream = response.GetResponseStream
|
||
ftpStream.Close()
|
||
response.Close()
|
||
ftp3()
|
||
Catch ex As Exception
|
||
Timer24.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer25_Tick(sender As Object, e As EventArgs) Handles Timer25.Tick
|
||
Timer25.Stop()
|
||
Try
|
||
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/" & "Dirve"), System.Net.FtpWebRequest)
|
||
Dim ftpStream As Stream = Nothing
|
||
|
||
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
||
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
||
|
||
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
||
ftpStream = response.GetResponseStream
|
||
ftpStream.Close()
|
||
response.Close()
|
||
ftp2()
|
||
Catch ex As Exception
|
||
Timer25.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer32_Tick(sender As Object, e As EventArgs) Handles Timer32.Tick
|
||
Timer32.Stop()
|
||
Try
|
||
My.Computer.Network.UploadFile(compte & "index.php", ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/dirve/" & "index.php")
|
||
intexup3()
|
||
Catch ex As Exception
|
||
Timer32.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer34_Tick(sender As Object, e As EventArgs) Handles Timer34.Tick
|
||
Timer34.Stop()
|
||
Try
|
||
My.Computer.Network.UploadFile(compte & "index.php", ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/pc/" & "index.php")
|
||
File.Delete(compte & "index.php")
|
||
File.Delete(compte & "photo.png")
|
||
ft5()
|
||
Catch ex As Exception
|
||
Timer34.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer35_Tick(sender As Object, e As EventArgs) Handles Timer35.Tick
|
||
Timer35.Stop()
|
||
Try
|
||
Dim fwr As FtpWebRequest
|
||
fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/")
|
||
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
||
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
||
|
||
Dim str As String = sr.ReadLine()
|
||
While Not str Is Nothing
|
||
|
||
Directory.CreateDirectory(cozip & str)
|
||
|
||
|
||
str = sr.ReadLine()
|
||
|
||
End While
|
||
|
||
sr.Close()
|
||
|
||
If Directory.Exists(cozip & TextBox7.Text) = True Then
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Directory.Delete(cozip & info.Name)
|
||
Next
|
||
co2()
|
||
Else
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Directory.Delete(cozip & info.Name)
|
||
Next
|
||
MsgBox("Le compte: " & TextBox7.Text & " n'existe pas", MsgBoxStyle.Critical)
|
||
End If
|
||
|
||
Catch ex As Exception
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Directory.Delete(cozip & info.Name)
|
||
Next
|
||
Timer35.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer36_Tick(sender As Object, e As EventArgs) Handles Timer36.Tick
|
||
Timer36.Stop()
|
||
Try
|
||
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & TextBox7.Text & "/pc/" & My.Computer.Name), System.Net.FtpWebRequest)
|
||
Dim ftpStream As Stream = Nothing
|
||
|
||
MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
|
||
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
||
|
||
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
||
ftpStream = response.GetResponseStream
|
||
ftpStream.Close()
|
||
co11()
|
||
Catch ex As Exception
|
||
Timer36.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer37_Tick(sender As Object, e As EventArgs) Handles Timer37.Tick
|
||
Timer37.Stop()
|
||
Try
|
||
My.Computer.Network.UploadFile(cozip & "index.php", ipserver & "/utilisateur/" & TextBox7.Text & "/pc/" & My.Computer.Name & "/index.php")
|
||
File.Delete(cozip & "index.php")
|
||
co14()
|
||
Catch ex As Exception
|
||
Timer37.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer38_Tick(sender As Object, e As EventArgs) Handles Timer38.Tick
|
||
Timer38.Stop()
|
||
Try
|
||
My.Computer.Network.UploadFile(cozip & "info.txt", ipserver & "/utilisateur/" & TextBox7.Text & "/pc/" & My.Computer.Name & "/info.txt")
|
||
File.Delete(cozip & "info.txt")
|
||
co10()
|
||
Catch ex As Exception
|
||
Timer38.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer39_Tick(sender As Object, e As EventArgs) Handles Timer39.Tick
|
||
Timer39.Stop()
|
||
Try
|
||
Dim fwr As FtpWebRequest
|
||
fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & TextBox7.Text & "/pc/")
|
||
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
||
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
||
|
||
Dim str As String = sr.ReadLine()
|
||
While Not str Is Nothing
|
||
|
||
Directory.CreateDirectory(cozip & str)
|
||
|
||
str = sr.ReadLine()
|
||
|
||
End While
|
||
co9b()
|
||
sr.Close()
|
||
|
||
Catch ex As Exception
|
||
Timer39.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer40_Tick(sender As Object, e As EventArgs) Handles Timer40.Tick
|
||
Try
|
||
Dim fwr As FtpWebRequest
|
||
fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & TextBox7.Text & "/pc/" & My.Computer.Name)
|
||
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
||
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
||
|
||
Dim str As String = sr.ReadLine()
|
||
While Not str Is Nothing
|
||
|
||
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & TextBox7.Text & "/pc/" & str)
|
||
ftreq.Method = WebRequestMethods.Ftp.DeleteFile
|
||
ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
||
|
||
str = sr.ReadLine()
|
||
|
||
End While
|
||
|
||
sr.Close()
|
||
|
||
coco9b()
|
||
|
||
Catch ex As Exception
|
||
Timer40.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer41_Tick(sender As Object, e As EventArgs) Handles Timer41.Tick
|
||
Timer41.Stop()
|
||
Try
|
||
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & TextBox7.Text & "/pc/" & My.Computer.Name)
|
||
ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
|
||
ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
||
co9a()
|
||
Catch ex As Exception
|
||
Timer41.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Button35_Click(sender As Object, e As EventArgs) Handles Button35.Click
|
||
If OpenFileDialog5.ShowDialog = 1 Then
|
||
GunaCirclePictureBox1.Image.Dispose()
|
||
GunaCirclePictureBox1.Image = Image.FromFile(OpenFileDialog5.FileName)
|
||
File.Delete(dosprofils & nomprofils & "\photo.png")
|
||
GunaCirclePictureBox1.Image.Save(dosprofils & nomprofils & "\photo.png")
|
||
MsgBox("Votre photo de profil a bien été changer", MsgBoxStyle.Information)
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button34_Click(sender As Object, e As EventArgs) Handles Button34.Click
|
||
If changernomprof = 1 Then
|
||
If TextBox13.Text = "" Then
|
||
profilnomtemps = ""
|
||
MsgBox("Merci d'entrer un nom", MsgBoxStyle.Exclamation)
|
||
Else
|
||
If Directory.Exists(dosprofils & TextBox13.Text & "/") = True Then
|
||
changernomprof = 0
|
||
TextBox13.Hide()
|
||
TextBox13.Clear()
|
||
profilnomtemps = ""
|
||
MsgBox("Le profil existe déjà merci d'entrer un autre nom", MsgBoxStyle.Exclamation)
|
||
Else
|
||
Try
|
||
Directory.CreateDirectory(dosprofils & "/" & nomprofils & "/" & TextBox13.Text & "/")
|
||
Directory.Delete(dosprofils & "/" & nomprofils & "/" & TextBox13.Text & "/")
|
||
profilnomtemps = TextBox13.Text
|
||
changernomprof = 0
|
||
TextBox13.Hide()
|
||
TextBox13.Clear()
|
||
MsgBox("Merci de fermer les paramètres pour enregistrer votre nom", MsgBoxStyle.Information)
|
||
Catch ex As Exception
|
||
changernomprof = 0
|
||
TextBox13.Hide()
|
||
profilnomtemps = ""
|
||
MsgBox("Votre nom contient des caractère interdit", MsgBoxStyle.Exclamation)
|
||
End Try
|
||
End If
|
||
End If
|
||
Else
|
||
TextBox13.Show()
|
||
changernomprof = 1
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button36_Click(sender As Object, e As EventArgs) Handles Button36.Click
|
||
Form198.ShowDialog()
|
||
End Sub
|
||
|
||
Private Sub Button37_Click(sender As Object, e As EventArgs) Handles Button37.Click
|
||
Form199.ShowDialog()
|
||
End Sub
|
||
|
||
Private Sub CheckBox27_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox27.CheckedChanged
|
||
If CheckBox27.Checked = True Then
|
||
Button38.Enabled = False
|
||
Else
|
||
If File.Exists(dosprofils & nomprofils & "\passe.txt") = True Then
|
||
File.Delete(dosprofils & nomprofils & "\passe.txt")
|
||
Button38.Enabled = True
|
||
Else
|
||
Button38.Enabled = True
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles TextBox7.TextChanged
|
||
If TextBox7.Text = "" Then
|
||
Button11.Text = "Connection"
|
||
Else
|
||
Button11.Text = "Connection a: " & TextBox7.Text
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button38_Click(sender As Object, e As EventArgs) Handles Button38.Click
|
||
If Button38.Text = "Modifier votre mots de passe" Then
|
||
Form201.start = 1
|
||
Form201.ShowDialog()
|
||
Else
|
||
Form201.ShowDialog()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button39_Click(sender As Object, e As EventArgs) Handles Button39.Click
|
||
profilnomtemps = ""
|
||
File.Delete(dosprofils & nomprofils & "\passe.txt")
|
||
Button38.Text = "Créer un mot de passe"
|
||
CheckBox27.Enabled = True
|
||
MsgBox("Le mot de passe a bien été supprimer", MsgBoxStyle.Information)
|
||
Button39.Enabled = False
|
||
End Sub
|
||
|
||
Private Sub Button40_Click(sender As Object, e As EventArgs) Handles Button40.Click
|
||
Form202.ShowDialog()
|
||
End Sub
|
||
|
||
Private Sub Button41_Click(sender As Object, e As EventArgs) Handles Button41.Click
|
||
Form202.azerty = 1
|
||
Form202.ShowDialog()
|
||
End Sub
|
||
|
||
Private Sub TextBox13_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox13.KeyDown
|
||
If e.KeyValue = e.KeyData.Enter Then
|
||
If changernomprof = 1 Then
|
||
If TextBox13.Text = "" Then
|
||
profilnomtemps = ""
|
||
MsgBox("Merci d'entrer un nom", MsgBoxStyle.Exclamation)
|
||
Else
|
||
If Directory.Exists(dosprofils & TextBox13.Text & "/") = True Then
|
||
changernomprof = 0
|
||
TextBox13.Hide()
|
||
TextBox13.Clear()
|
||
profilnomtemps = ""
|
||
MsgBox("Le profil existe déjà merci d'entrer un autre nom", MsgBoxStyle.Exclamation)
|
||
Else
|
||
Try
|
||
Directory.CreateDirectory(dosprofils & "/" & nomprofils & "/" & TextBox13.Text & "/")
|
||
Directory.Delete(dosprofils & "/" & nomprofils & "/" & TextBox13.Text & "/")
|
||
profilnomtemps = TextBox13.Text
|
||
changernomprof = 0
|
||
TextBox13.Hide()
|
||
TextBox13.Clear()
|
||
MsgBox("Merci de fermer les paramètres pour enregistrer votre nom", MsgBoxStyle.Information)
|
||
Catch ex As Exception
|
||
changernomprof = 0
|
||
TextBox13.Hide()
|
||
profilnomtemps = ""
|
||
MsgBox("Votre nom contient des caractère interdit", MsgBoxStyle.Exclamation)
|
||
End Try
|
||
End If
|
||
End If
|
||
Else
|
||
TextBox13.Show()
|
||
changernomprof = 1
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Label42_Click(sender As Object, e As EventArgs) Handles Label42.Click
|
||
MsgBox(nomprofils, MsgBoxStyle.Information)
|
||
End Sub
|
||
|
||
Private Sub Timer14_Tick(sender As Object, e As EventArgs) Handles Timer14.Tick
|
||
Timer14.Stop()
|
||
Try
|
||
If My.Computer.Network.Ping("google.fr") = True Then
|
||
Dim maj As New WebClient
|
||
Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt")
|
||
If vri = 1 Then
|
||
MsgBox("Les paramètres ont bien été enregistrer", MsgBoxStyle.Information)
|
||
|
||
If profilnomtemps = "" Then
|
||
|
||
Else
|
||
Form1.Timer14.Stop()
|
||
My.Computer.FileSystem.RenameDirectory(dosprofils & nomprofils, profilnomtemps)
|
||
nomprofils = profilnomtemps
|
||
Form152.ShowDialog()
|
||
End If
|
||
closea = 1
|
||
Close()
|
||
Else
|
||
savessync2()
|
||
End If
|
||
Else
|
||
MsgBox("Les paramètres ont bien été enregistrer", MsgBoxStyle.Information)
|
||
If profilnomtemps = "" Then
|
||
|
||
Else
|
||
Form1.Timer14.Stop()
|
||
My.Computer.FileSystem.RenameDirectory(dosprofils & nomprofils, profilnomtemps)
|
||
nomprofils = profilnomtemps
|
||
Form152.ShowDialog()
|
||
End If
|
||
closea = 1
|
||
Close()
|
||
End If
|
||
Catch ex As Exception
|
||
Timer14.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
|
||
If TextBox4.Text = "" Then
|
||
Button6.Text = "Créer le compte"
|
||
Else
|
||
Button6.Text = "Créer le compte: " & TextBox4.Text
|
||
End If
|
||
End Sub
|
||
Sub Calculer_LaTaille_du_répértoire(ByVal MonChemin As String)
|
||
|
||
Dim DossiersInfo As DirectoryInfo = My.Computer.FileSystem.GetDirectoryInfo(MonChemin)
|
||
Dossiers = DossiersInfo.GetDirectories
|
||
Fichiers = DossiersInfo.GetFiles
|
||
'Parcourir Les Fichiers
|
||
|
||
For Each Fichier As FileInfo In Fichiers
|
||
'lire la taille du fichier (fileinfo) et la placer dans la variable v
|
||
v += Fichier.Length
|
||
|
||
Next
|
||
'Parcourir les sous-répertoires
|
||
For Each sousRepertoire As String In Directory.GetDirectories(MonChemin)
|
||
|
||
'Appel de manière récursive 'Calculer_LaTaille_du_répértoire pour calculer la taille du contenu des sous répertoires.
|
||
Calculer_LaTaille_du_répértoire(sousRepertoire)
|
||
Next
|
||
|
||
End Sub
|
||
|
||
Private Sub Timer42_Tick(sender As Object, e As EventArgs) Handles Timer42.Tick
|
||
Timer42.Stop()
|
||
Try
|
||
IO.Compression.ZipFile.CreateFromDirectory(cozip, compte & "co.zip")
|
||
Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(compte & "co.zip")
|
||
Dim TailleFichier As Integer = FichierInfo.Length
|
||
If TailleFichier = 0 Then
|
||
Timer42.Start()
|
||
Else
|
||
savessync3()
|
||
End If
|
||
Catch ex As Exception
|
||
Timer42.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer43_Tick(sender As Object, e As EventArgs) Handles Timer43.Tick
|
||
Timer43.Stop()
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & TextBox7.Text & "/mail.txt", cozip & "mail.txt")
|
||
Catch ex As Exception
|
||
Timer43.Start()
|
||
End Try
|
||
mail5()
|
||
End Sub
|
||
|
||
Private Sub Timer44_Tick(sender As Object, e As EventArgs) Handles Timer44.Tick
|
||
Timer44.Stop()
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & TextBox7.Text & "/pass.txt", cozip & "pass.txt")
|
||
Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(TextBox8.Text)
|
||
Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
||
Dim Crypto As New DESCryptoServiceProvider()
|
||
Crypto.Key = keyBytes
|
||
Crypto.IV = keyBytes
|
||
Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
|
||
Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
|
||
Dim passecrypt = Convert.ToBase64String(Resultatbytes)
|
||
|
||
Dim lines1() As String = File.ReadAllLines(cozip & "pass.txt")
|
||
|
||
If lines1(0) = passecrypt Then
|
||
co3()
|
||
Else
|
||
File.Delete(cozip & "pass.txt")
|
||
passeincor += 1
|
||
TextBox8.Clear()
|
||
MsgBox("Mot de passe incorrect", MsgBoxStyle.Exclamation)
|
||
End If
|
||
Catch ex As Exception
|
||
Timer44.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer45_Tick(sender As Object, e As EventArgs) Handles Timer45.Tick
|
||
Timer45.Stop()
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & TextBox7.Text & "/vérification.txt", cozip & "vérification.txt")
|
||
Dim lines() As String = File.ReadAllLines(cozip & "vérification.txt")
|
||
If lines(0) = 1 Then
|
||
File.Delete(cozip & "vérification.txt")
|
||
chh2 = 1
|
||
GunaGoogleSwitch7.Checked = True
|
||
Label32.Text = "Activer"
|
||
chh2 = 0
|
||
Form141.ShowDialog()
|
||
Exit Sub
|
||
Else
|
||
File.Delete(cozip & "vérification.txt")
|
||
chh2 = 1
|
||
GunaGoogleSwitch7.Checked = False
|
||
Label32.Text = "Désactivée"
|
||
chh2 = 0
|
||
co7()
|
||
End If
|
||
Catch ex As Exception
|
||
Timer45.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer46_Tick(sender As Object, e As EventArgs) Handles Timer46.Tick
|
||
Timer46.Stop()
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & TextBox7.Text & "/setting.txt", cozip & "setting.txt")
|
||
Dim lines() As String = File.ReadAllLines(cozip & "setting.txt")
|
||
If lines(0) = 1 Then
|
||
chh = 1
|
||
GunaGoogleSwitch6.Checked = True
|
||
Label29.Text = "Activer"
|
||
co6()
|
||
Else
|
||
chh = 2
|
||
GunaGoogleSwitch6.Checked = False
|
||
co6()
|
||
End If
|
||
Catch ex As Exception
|
||
Timer46.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer57_Tick(sender As Object, e As EventArgs) Handles Timer57.Tick
|
||
Timer57.Stop()
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipserver & "/utilisateur/" & Label21.Text & "/setting.txt", cozip & "setting.txt")
|
||
Dim lines10() As String = File.ReadAllLines(cozip & "setting.txt")
|
||
|
||
If lines10(1) = 1 Then
|
||
File.Delete(cozip & "setting.txt")
|
||
Label29.Text = "Activer"
|
||
chh = 1
|
||
GunaGoogleSwitch6.Checked = True
|
||
Else
|
||
File.Delete(cozip & "setting.txt")
|
||
Label29.Text = "Désactivée"
|
||
chh = 2
|
||
GunaGoogleSwitch6.Checked = False
|
||
End If
|
||
load8()
|
||
Catch ex As Exception
|
||
Timer57.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Sub enrge()
|
||
If ergister = 0 Then
|
||
File.Delete(compte & "/co.zip")
|
||
For Each fichier As String In IO.Directory.GetFiles(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
PictureBox2.Image.Dispose()
|
||
File.Delete(compte & "photo.png")
|
||
ComboBox13.Items.Clear()
|
||
ergister = 1
|
||
MsgBox("Les paramètres ont bien été enregistrer", MsgBoxStyle.Information)
|
||
closea = 1
|
||
If profilnomtemps = "" Then
|
||
|
||
Else
|
||
Form1.Timer14.Stop()
|
||
My.Computer.FileSystem.RenameDirectory(dosprofils & nomprofils, profilnomtemps)
|
||
nomprofils = profilnomtemps
|
||
Form152.ShowDialog()
|
||
End If
|
||
Close()
|
||
Else
|
||
Timer33.Stop()
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Private Sub Timer47_Tick(sender As Object, e As EventArgs) Handles Timer47.Tick
|
||
Timer47.Stop()
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & Label21.Text & "/vérification.txt", cozip & "vérification.txt")
|
||
Dim lines11() As String = File.ReadAllLines(cozip & "vérification.txt")
|
||
If lines11(0) = 1 And chh2 = 1 Then
|
||
File.Delete(cozip & "vérification.txt")
|
||
Label32.Text = "Activer"
|
||
chh2 = 1
|
||
GunaGoogleSwitch7.Checked = True
|
||
chh2 = 0
|
||
ElseIf lines11(0) = 0 Then
|
||
File.Delete(cozip & "vérification.txt")
|
||
chh2 = 1
|
||
GunaGoogleSwitch7.Checked = False
|
||
Label32.Text = "Désactivée"
|
||
chh2 = 0
|
||
End If
|
||
finiload()
|
||
Catch ex As Exception
|
||
Timer47.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer48_Tick(sender As Object, e As EventArgs) Handles Timer48.Tick
|
||
Timer48.Stop()
|
||
Try
|
||
My.Computer.Network.UploadFile(cozip & "vérification.txt", ipserver & "utilisateur/" & Label21.Text & "/vérification.txt")
|
||
File.Delete(cozip & "vérification.txt")
|
||
MsgBox("La double vérifiation est activez", MsgBoxStyle.Information)
|
||
Catch ex As Exception
|
||
Timer48.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer49_Tick(sender As Object, e As EventArgs) Handles Timer49.Tick
|
||
Timer49.Stop()
|
||
Try
|
||
My.Computer.Network.UploadFile(cozip & "vérification.txt", ipserver & "utilisateur/" & Label21.Text & "/vérification.txt")
|
||
File.Delete(cozip & "vérification.txt")
|
||
MsgBox("La double vérification est désactiver", MsgBoxStyle.Information)
|
||
Catch ex As Exception
|
||
Timer49.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer50_Tick(sender As Object, e As EventArgs) Handles Timer50.Tick
|
||
Timer50.Stop()
|
||
Try
|
||
My.Computer.Network.UploadFile(cozip & "setting.txt", ipserver & "utilisateur/" & Label21.Text & "/setting.txt")
|
||
File.Delete(cozip & "setting.txt")
|
||
MsgBox("La synchronisation de l'historique est Désactivé", MsgBoxStyle.Information)
|
||
Catch ex As Exception
|
||
Timer50.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Timer51_Tick(sender As Object, e As EventArgs) Handles Timer51.Tick
|
||
Timer51.Stop()
|
||
Try
|
||
Dim fwr As FtpWebRequest
|
||
fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/")
|
||
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
||
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
||
|
||
Dim str As String = sr.ReadLine()
|
||
While Not str Is Nothing
|
||
|
||
Directory.CreateDirectory(cozip & str)
|
||
|
||
|
||
str = sr.ReadLine()
|
||
|
||
End While
|
||
|
||
sr.Close()
|
||
|
||
If Directory.Exists(cozip & TextBox7.Text) = True Then
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Directory.Delete(cozip & info.Name)
|
||
Next
|
||
mail6()
|
||
Else
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Directory.Delete(cozip & info.Name)
|
||
Next
|
||
MsgBox("Le compte: " & TextBox7.Text & " n'existe pas", MsgBoxStyle.Critical)
|
||
End If
|
||
Catch ex As Exception
|
||
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
Directory.Delete(cozip & info.Name)
|
||
Next
|
||
Timer51.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Button42_Click(sender As Object, e As EventArgs) Handles Button42.Click
|
||
If Button42.Text = "Activer" Then
|
||
Form23.ShowDialog()
|
||
Else
|
||
Form24.opt = 1
|
||
Form24.ShowDialog()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button43_Click(sender As Object, e As EventArgs) Handles Button43.Click
|
||
Form24.opt = 0
|
||
Form24.ShowDialog()
|
||
End Sub
|
||
|
||
Sub savessync3()
|
||
Try
|
||
My.Computer.Network.UploadFile(compte & "co.zip", ipserver & "/utilisateur/" & Label21.Text & "/co.zip")
|
||
savessync4()
|
||
Catch ex As Exception
|
||
Timer33.Start()
|
||
End Try
|
||
End Sub
|
||
Sub savessync4()
|
||
File.Delete(compte & "/co.zip")
|
||
For Each fichier As String In IO.Directory.GetFiles(cozip)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
File.Delete(fichier)
|
||
Next
|
||
PictureBox2.Image.Dispose()
|
||
File.Delete(compte & "photo.png")
|
||
ComboBox13.Items.Clear()
|
||
MsgBox("Les paramètres ont bien été enregistrer", MsgBoxStyle.Information)
|
||
closea = 1
|
||
If profilnomtemps = "" Then
|
||
|
||
Else
|
||
Form1.Timer14.Stop()
|
||
My.Computer.FileSystem.RenameDirectory(dosprofils & nomprofils, profilnomtemps)
|
||
nomprofils = profilnomtemps
|
||
Form152.ShowDialog()
|
||
End If
|
||
Close()
|
||
End Sub
|
||
|
||
Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
|
||
If OpenFileDialog6.ShowDialog = 1 Then
|
||
PictureBox11.Image.Dispose()
|
||
PictureBox11.Image = Image.FromFile(OpenFileDialog6.FileName)
|
||
Form1.PictureBox2.Image.Dispose()
|
||
If File.Exists(radio & ComboBox6.SelectedItem & "\photo.png") = True Then
|
||
File.Delete(radio & ComboBox6.SelectedItem & "\photo.png")
|
||
PictureBox11.Image.Save(radio & ComboBox6.SelectedItem & "\photo.png")
|
||
Else
|
||
PictureBox11.Image.Save(radio & ComboBox6.SelectedItem & "\photo.png")
|
||
End If
|
||
MsgBox("L'image de " & ComboBox6.SelectedText & " a bien été changer", MsgBoxStyle.Information)
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub PictureBox12_Click(sender As Object, e As EventArgs) Handles PictureBox12.Click
|
||
If OpenFileDialog6.ShowDialog = 1 Then
|
||
PictureBox12.Image = Image.FromFile(OpenFileDialog6.FileName)
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button44_Click(sender As Object, e As EventArgs) Handles Button44.Click
|
||
Try
|
||
If My.Computer.Network.Ping("www.google.com") Then
|
||
Try
|
||
Dim maj As New WebClient
|
||
Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt")
|
||
If vri = 1 Then
|
||
MsgBox("Le serveur de Lecteur média est indisponible", MsgBoxStyle.Critical, "server")
|
||
Else
|
||
radiostore.ShowDialog()
|
||
End If
|
||
Catch ex As Exception
|
||
MsgBox("Le serveur de Lecteur média est indisponible", MsgBoxStyle.Critical, "server")
|
||
End Try
|
||
End If
|
||
|
||
Catch ex As Exception
|
||
MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Exclamation)
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub ContextMenuStrip1_Opening(sender As Object, e As CancelEventArgs) Handles ContextMenuStrip1.Opening
|
||
If ListBox1.SelectedItem = "" Then
|
||
e.Cancel = True
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button45_Click(sender As Object, e As EventArgs) Handles Button45.Click
|
||
ChromeTabcontrol1.SelectedTab = Buckup
|
||
ChromeTabcontrol4.SelectedTab = TabPage4
|
||
End Sub
|
||
|
||
Private Sub GunaGoogleSwitch16_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch16.CheckedChanged
|
||
If GunaGoogleSwitch16.Checked = True Then
|
||
Label61.Text = "Autorisée"
|
||
If Directory.Exists(dosSYNC & "\compte\" & Label21.Text & "\") = True Then
|
||
|
||
Else
|
||
Directory.CreateDirectory(dosSYNC & "\compte\" & Label21.Text & "\")
|
||
End If
|
||
Else
|
||
Label61.Text = "pas autorisée"
|
||
If Directory.Exists(dosSYNC & "\compte\" & Label21.Text & "\") = True Then
|
||
Directory.Delete(dosSYNC & "\compte\" & Label21.Text & "\")
|
||
Else
|
||
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Sub load8()
|
||
Try
|
||
My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & Label21.Text & "/vérification.txt", cozip & "vérification.txt")
|
||
Dim lines11() As String = File.ReadAllLines(cozip & "vérification.txt")
|
||
If lines11(0) = 1 Then
|
||
File.Delete(cozip & "vérification.txt")
|
||
Label32.Text = "Activer"
|
||
chh2 = 1
|
||
GunaGoogleSwitch7.Checked = True
|
||
chh2 = 0
|
||
ElseIf lines11(0) = 0 Then
|
||
File.Delete(cozip & "vérification.txt")
|
||
chh2 = 1
|
||
GunaGoogleSwitch7.Checked = False
|
||
Label32.Text = "Désactivée"
|
||
chh2 = 0
|
||
End If
|
||
|
||
If vrportable = 1 Then
|
||
|
||
Else
|
||
If Directory.Exists(dosSYNC) = True Then
|
||
If Directory.Exists(dosSYNC & "\compte\" & Label21.Text & "\") Then
|
||
GunaGoogleSwitch16.Checked = True
|
||
Label61.Text = "Autorisée"
|
||
End If
|
||
Else
|
||
Directory.CreateDirectory(dosSYNC & "\paramètre\")
|
||
Directory.CreateDirectory(dosSYNC & "\compte\")
|
||
Directory.CreateDirectory(dosSYNC & "\dossync\")
|
||
End If
|
||
End If
|
||
|
||
finiload()
|
||
Catch ex As Exception
|
||
Timer47.Start()
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Button46_Click(sender As Object, e As EventArgs) Handles Button46.Click
|
||
Dim msg = MsgBox("Voulez-vous importer un thème", MsgBoxStyle.YesNo)
|
||
If msg = MsgBoxResult.Yes Then
|
||
If OpenFileDialog7.ShowDialog = 1 Then
|
||
Dim tt = OpenFileDialog7.SafeFileName.Replace("Théme - ", "")
|
||
Dim tt2 = tt.Replace(".TLM", "")
|
||
|
||
Try
|
||
Directory.CreateDirectory(dostheme & "\" & tt2 & "\")
|
||
IO.Compression.ZipFile.ExtractToDirectory(OpenFileDialog7.FileName, dostheme & "\" & tt2 & "\")
|
||
ComboBox3.Items.Add(tt2)
|
||
MsgBox("Le thème: " & tt2 & " a bien été ajouter", MsgBoxStyle.Information)
|
||
Catch ex As Exception
|
||
MsgBox("Le thème est corrompu", MsgBoxStyle.Critical)
|
||
End Try
|
||
|
||
End If
|
||
Else
|
||
Form35.ShowDialog()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub GunaGoogleSwitch17_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch17.CheckedChanged
|
||
If GunaGoogleSwitch17.Checked = True Then
|
||
GunaLabel13.Text = "Activer"
|
||
Else
|
||
GunaLabel13.Text = "Désactivée"
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub GunaGoogleSwitch18_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch18.CheckedChanged
|
||
If GunaGoogleSwitch18.Checked = True Then
|
||
GunaLabel29.Text = "Activer"
|
||
Else
|
||
GunaLabel29.Text = "Désactivée"
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub GunaGoogleSwitch19_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch19.CheckedChanged
|
||
If GunaGoogleSwitch19.Checked = True And letterchange = 1 Then
|
||
My.Computer.Network.DownloadFile(ipsite & "/utilisateur/" & Label21.Text & "/mail.txt", dosparamètres & "\mailtemps.txt")
|
||
Dim lines1() As String = File.ReadAllLines(dosparamètres & "\mailtemps.txt")
|
||
File.Delete(dosparamètres & "\mailtemps.txt")
|
||
Dim sw1 As New StreamWriter(dosparamètres & "\" & Label21.Text & ".txt")
|
||
sw1.WriteLine(lines1(0))
|
||
sw1.Close()
|
||
My.Computer.Network.UploadFile(dosparamètres & "\" & Label21.Text & ".txt", ipserver & "/newletter/" & Label21.Text & ".txt")
|
||
File.Delete(dosparamètres & "\" & Label21.Text & ".txt")
|
||
Label64.Text = "Oui"
|
||
MsgBox("Vous recevrez tous les 1ers du mois à 15h00 les informations de Lecteur média.", MsgBoxStyle.Information)
|
||
ElseIf GunaGoogleSwitch19.Checked = False And letterchange = 1 Then
|
||
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/newletter/" & Label21.Text & ".txt")
|
||
ftreq.Method = WebRequestMethods.Ftp.DeleteFile
|
||
ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
|
||
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
||
MsgBox("Vous ne recevrez plus les informations de Lecteur média.", MsgBoxStyle.Information)
|
||
Label64.Text = "Non"
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button48_Click(sender As Object, e As EventArgs) Handles Button48.Click
|
||
Form39.ShowDialog()
|
||
End Sub
|
||
|
||
Private Sub Button47_Click(sender As Object, e As EventArgs) Handles Button47.Click
|
||
Dim nbt As Integer = 0
|
||
For Each fichier As String In IO.Directory.GetDirectories(dostheme)
|
||
Dim info As New IO.FileInfo(fichier)
|
||
nbt = nbt + 1
|
||
Next
|
||
|
||
If nbt = 0 Then
|
||
MsgBox("Aucun thèmes trouvez", MsgBoxStyle.Exclamation)
|
||
Else
|
||
Form36.ShowDialog()
|
||
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 |