Imports System.ComponentModel Imports System.IO Imports System.Net Imports System.Security.Cryptography Imports System.Text Imports AxWMPLib Public Class Form1 Private Declare Function CtrlCdrom Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer Dim tree As Integer = 0 Dim volumep As Integer Public min As Integer = 0 Public minmax As Integer = 0 Dim lines428() As String = File.ReadAllLines(compteco) Dim tcon = lines428(0) Dim rdm As Integer = 0 Dim volumemute As Integer Dim dostempfilm As String = "" Dim mediastart As String = "" Public seriesencours As String = "" Public seriesencourssaison As Integer = 0 Public seriesencourssaisonnbep As Integer = 0 Dim seriesencourstime As String = "" Public series1ep As Integer = 0 Public colorbackA As Integer = 0 Public colorbackR As Integer = 0 Public colorbackG As Integer = 0 Public colorbackB As Integer = 0 Public themeforecoloA As Integer = 0 Public themeforecoloR As Integer = 0 Public themeforecoloG As Integer = 0 Public themeforecoloB As Integer = 0 Public trackparcolorA As Integer = 0 Public trackparcolorR As Integer = 0 Public trackparcolorG As Integer = 0 Public trackparcolorB As Integer = 0 Public trackparproA As Integer = 0 Public trackparproR As Integer = 0 Public trackparproG As Integer = 0 Public trackparproB As Integer = 0 Public settingseries As String = repertoire & "\paramètres\séries.txt" Public settingfilm As String = repertoire & "\paramètres\film.txt" Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load settingseries = repertoire & "\paramètres\séries.txt" settingfilm = repertoire & "\paramètres\film.txt" If File.Exists(dosparamètres & "/autostop.txt") = True Then Dim lines3() As String = File.ReadAllLines(dosparamètres & "/autostop.txt") If lines3(0) = 0 Then min = "-1" minmax = min ElseIf lines3(0) = 1 Then min = "60" minmax = min ElseIf lines3(0) = 2 Then min = "120" minmax = min ElseIf lines3(0) = 3 Then min = "180" minmax = min ElseIf lines3(0) = 4 Then min = "240" minmax = min ElseIf lines3(0) = 5 Then min = "300" minmax = min ElseIf lines3(0) = 6 Then min = "360" minmax = min ElseIf lines3(0) = 7 Then min = "420" minmax = min ElseIf lines3(0) = 8 Then min = "480" minmax = min ElseIf lines3(0) = 9 Then min = "540" minmax = min ElseIf lines3(0) = 10 Then min = "600" minmax = min End If Else Dim sw1 As New StreamWriter(dosparamètres & "/autostop.txt") sw1.WriteLine(3) sw1.Close() min = "180" minmax = min End If If File.Exists(settingseries) = True Then Else Dim sw1 As New StreamWriter(settingseries) sw1.WriteLine(1) sw1.WriteLine(0) sw1.Close() End If If File.Exists(settingfilm) = True Then Else Dim sw1 As New StreamWriter(settingfilm) sw1.WriteLine(0) sw1.Close() End If dostempfilm = film & "\temp\" If Directory.Exists(dostempfilm) = True Then For Each fichier As String In IO.Directory.GetFiles(dostempfilm) Dim info As New IO.FileInfo(fichier) File.Delete(dostempfilm & info.Name) Next End If dostempfilm = dossérie & "\temp\" If Directory.Exists(dostempfilm) = True Then For Each fichier As String In IO.Directory.GetFiles(dostempfilm) Dim info As New IO.FileInfo(fichier) File.Delete(dostempfilm & info.Name) Next End If If vrportable = 1 Then LançerLaWidgetsToolStripMenuItem.Visible = False End If Dim Resultatbytes() As Byte = Convert.FromBase64String("PXl3fPdVPODLMhqblR5MZtsSpYrOrlU8W5iRiyCQfFjWIxoNRtGsydhXB7dEVfK7") Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7") Dim Crypto As New DESCryptoServiceProvider() Crypto.Key = keyBytes Crypto.IV = keyBytes Dim Icrypto As ICryptoTransform = Crypto.CreateDecryptor() Dim donné() As Byte = Icrypto.TransformFinalBlock(Resultatbytes, 0, Resultatbytes.Length) Dim a7 = Encoding.UTF8.GetString(donné) passftp = a7 ipserver = "ftp://yoannsafe:" & a7 & "@lecteur.lecteur-media.fr:21/" Dim lines2() As String = File.ReadAllLines(fichiermisajourdev) If lines2(0) = 1 Then canalmis = 1 Else canalmis = 0 End If Dim lines1() As String = File.ReadAllLines(optioncontrleparantal) If lines1(0) = 1 Then ComboBox1.Enabled = False Button3.Enabled = False Form8.ComboBox1.Enabled = False End If If lines1(3) = 1 Then Form3.ChromeTabcontrol1.TabPages.Remove(Form3.TabPage18) End If If lines1(4) = 1 Then Form12.PlaylistStoreToolStripMenuItem.Visible = False End If If lines1(5) = 1 Then Form21.DictéToolStripMenuItem.Visible = False End If If lines1(6) = 1 Then MusiqueStreamingToolStripMenuItem1.Visible = False End If If coutprofils > 1 Then ChangerDeProfilsToolStripMenuItem.Visible = True Else ChangerDeProfilsToolStripMenuItem.Visible = False End If Me.Text = lecteurnom Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute If TimeOfDay.Hour = "0" And TimeOfDay.Minute = "0" Then Label4.Text = "00" & "h" & "00" Form136.Label4.Text = "00" & "h" & "00" ElseIf TimeOfDay.Hour = "0" And TimeOfDay.Minute = "1" Then Label4.Text = "00" & "h" & "01" Form136.Label4.Text = "00" & "h" & "01" ElseIf TimeOfDay.Hour = "0" And TimeOfDay.Minute = "2" Then Label4.Text = "00" & "h" & "02" Form136.Label4.Text = "00" & "h" & "02" ElseIf TimeOfDay.Hour = "0" And TimeOfDay.Minute = "3" Then Label4.Text = "00" & "h" & "03" Form136.Label4.Text = "00" & "h" & "03" ElseIf TimeOfDay.Hour = "00" And TimeOfDay.Minute = "4" Then Label4.Text = "00" & "h" & "04" Form136.Label4.Text = "00" & "h" & "04" ElseIf TimeOfDay.Hour = "00" And TimeOfDay.Minute = "5" Then Label4.Text = "00" & "h" & "05" Form136.Label4.Text = "00" & "h" & "05" ElseIf TimeOfDay.Hour = "00" And TimeOfDay.Minute = "6" Then Label4.Text = "00" & "h" & "06" Form136.Label4.Text = "00" & "h" & "06" ElseIf TimeOfDay.Hour = "00" And TimeOfDay.Minute = "7" Then Label4.Text = "00" & "h" & "07" Form136.Label4.Text = "00" & "h" & "07" ElseIf TimeOfDay.Hour = "00" And TimeOfDay.Minute = "8" Then Label4.Text = "00" & "h" & "08" Form136.Label4.Text = "00" & "h" & "08" ElseIf TimeOfDay.Hour = "00" And TimeOfDay.Minute = "9" Then Label4.Text = "00" & "h" & "09" Form136.Label4.Text = "00" & "h" & "09" ElseIf TimeOfDay.Hour = "0" Then Label4.Text = "00" & "h" & TimeOfDay.Minute Form136.Label4.Text = "00" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "0" Then Label4.Text = "01" & "h" & "00" Form136.Label4.Text = "01" & "h" & "00" ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "1" Then Label4.Text = "01" & "h" & "01" Form136.Label4.Text = "01" & "h" & "01" ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "2" Then Label4.Text = "01" & "h" & "02" Form136.Label4.Text = "01" & "h" & "02" ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "3" Then Label4.Text = "01" & "h" & "03" Form136.Label4.Text = "01" & "h" & "03" ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "4" Then Label4.Text = "01" & "h" & "04" Form136.Label4.Text = "01" & "h" & "04" ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "5" Then Label4.Text = "01" & "h" & "05" Form136.Label4.Text = "01" & "h" & "05" ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "6" Then Label4.Text = "01" & "h" & "06" Form136.Label4.Text = "01" & "h" & "06" ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "7" Then Label4.Text = "01" & "h" & "07" Form136.Label4.Text = "01" & "h" & "07" ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "8" Then Label4.Text = "01" & "h" & "08" Form136.Label4.Text = "01" & "h" & "08" ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "9" Then Label4.Text = "01" & "h" & "09" Form136.Label4.Text = "01" & "h" & "09" ElseIf TimeOfDay.Hour = "1" Then Label4.Text = "01" & "h" & TimeOfDay.Minute Form136.Label4.Text = "01" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "0" Then Label4.Text = "02" & "h" & "00" Form136.Label4.Text = "02" & "h" & "00" ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "1" Then Label4.Text = "02" & "h" & "01" Form136.Label4.Text = "02" & "h" & "01" ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "2" Then Label4.Text = "02" & "h" & "02" Form136.Label4.Text = "02" & "h" & "02" ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "3" Then Label4.Text = "02" & "h" & "03" Form136.Label4.Text = "02" & "h" & "03" ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "4" Then Label4.Text = "02" & "h" & "04" Form136.Label4.Text = "02" & "h" & "04" ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "5" Then Label4.Text = "02" & "h" & "05" Form136.Label4.Text = "02" & "h" & "05" ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "6" Then Label4.Text = "02" & "h" & "06" Form136.Label4.Text = "02" & "h" & "06" ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "7" Then Label4.Text = "02" & "h" & "07" Form136.Label4.Text = "02" & "h" & "07" ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "8" Then Label4.Text = "02" & "h" & "08" Form136.Label4.Text = "02" & "h" & "08" ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "9" Then Label4.Text = "02" & "h" & "09" Form136.Label4.Text = "02" & "h" & "09" ElseIf TimeOfDay.Hour = "2" Then Label4.Text = "02" & "h" & TimeOfDay.Minute Form136.Label4.Text = "02" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "0" Then Label4.Text = "03" & "h" & "00" Form136.Label4.Text = "03" & "h" & "00" ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "1" Then Label4.Text = "03" & "h" & "01" Form136.Label4.Text = "03" & "h" & "01" ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "2" Then Label4.Text = "03" & "h" & "02" Form136.Label4.Text = "03" & "h" & "02" ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "3" Then Label4.Text = "03" & "h" & "03" Form136.Label4.Text = "03" & "h" & "03" ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "4" Then Label4.Text = "03" & "h" & "04" Form136.Label4.Text = "03" & "h" & "04" ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "5" Then Label4.Text = "03" & "h" & "05" Form136.Label4.Text = "03" & "h" & "05" ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "6" Then Label4.Text = "03" & "h" & "06" Form136.Label4.Text = "03" & "h" & "06" ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "7" Then Label4.Text = "03" & "h" & "07" Form136.Label4.Text = "03" & "h" & "07" ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "8" Then Label4.Text = "03" & "h" & "08" Form136.Label4.Text = "03" & "h" & "08" ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "9" Then Label4.Text = "03" & "h" & "09" Form136.Label4.Text = "03" & "h" & "09" ElseIf TimeOfDay.Hour = "3" Then Label4.Text = "03" & "h" & TimeOfDay.Minute Form136.Label4.Text = "03" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "0" Then Label4.Text = "04" & "h" & "00" Form136.Label4.Text = "04" & "h" & "00" ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "1" Then Label4.Text = "04" & "h" & "01" Form136.Label4.Text = "04" & "h" & "01" ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "2" Then Label4.Text = "04" & "h" & "02" Form136.Label4.Text = "04" & "h" & "02" ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "3" Then Label4.Text = "04" & "h" & "03" Form136.Label4.Text = "04" & "h" & "03" ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "4" Then Label4.Text = "04" & "h" & "04" Form136.Label4.Text = "04" & "h" & "04" ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "5" Then Label4.Text = "04" & "h" & "05" Form136.Label4.Text = "04" & "h" & "05" ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "6" Then Label4.Text = "04" & "h" & "06" Form136.Label4.Text = "04" & "h" & "06" ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "7" Then Label4.Text = "04" & "h" & "07" Form136.Label4.Text = "04" & "h" & "07" ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "8" Then Label4.Text = "04" & "h" & "08" Form136.Label4.Text = "04" & "h" & "08" ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "9" Then Label4.Text = "04" & "h" & "09" Form136.Label4.Text = "04" & "h" & "09" ElseIf TimeOfDay.Hour = "4" Then Label4.Text = "04" & "h" & TimeOfDay.Minute Form136.Label4.Text = "04" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "0" Then Label4.Text = "05" & "h" & "00" Form136.Label4.Text = "05" & "h" & "00" ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "1" Then Label4.Text = "05" & "h" & "01" Form136.Label4.Text = "05" & "h" & "01" ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "2" Then Label4.Text = "05" & "h" & "02" Form136.Label4.Text = "05" & "h" & "02" ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "3" Then Label4.Text = "05" & "h" & "03" Form136.Label4.Text = "05" & "h" & "03" ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "4" Then Label4.Text = "05" & "h" & "04" Form136.Label4.Text = "05" & "h" & "04" ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "5" Then Label4.Text = "05" & "h" & "05" Form136.Label4.Text = "05" & "h" & "05" ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "6" Then Label4.Text = "05" & "h" & "06" Form136.Label4.Text = "05" & "h" & "06" ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "7" Then Label4.Text = "05" & "h" & "07" Form136.Label4.Text = "05" & "h" & "07" ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "8" Then Label4.Text = "05" & "h" & "08" Form136.Label4.Text = "05" & "h" & "08" ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "9" Then Label4.Text = "05" & "h" & "09" Form136.Label4.Text = "05" & "h" & "09" ElseIf TimeOfDay.Hour = "5" Then Label4.Text = "05" & "h" & TimeOfDay.Minute Form136.Label4.Text = "05" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "0" Then Label4.Text = "06" & "h" & "00" Form136.Label4.Text = "06" & "h" & "00" ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "1" Then Label4.Text = "06" & "h" & "01" Form136.Label4.Text = "06" & "h" & "01" ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "2" Then Label4.Text = "06" & "h" & "02" Form136.Label4.Text = "06" & "h" & "02" ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "3" Then Label4.Text = "06" & "h" & "03" Form136.Label4.Text = "06" & "h" & "03" ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "4" Then Label4.Text = "06" & "h" & "04" Form136.Label4.Text = "06" & "h" & "04" ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "5" Then Label4.Text = "06" & "h" & "05" Form136.Label4.Text = "06" & "h" & "05" ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "6" Then Label4.Text = "06" & "h" & "06" Form136.Label4.Text = "06" & "h" & "06" ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "7" Then Label4.Text = "06" & "h" & "07" Form136.Label4.Text = "06" & "h" & "07" ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "8" Then Label4.Text = "06" & "h" & "08" Form136.Label4.Text = "06" & "h" & "08" ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "9" Then Label4.Text = "06" & "h" & "09" Form136.Label4.Text = "06" & "h" & "09" ElseIf TimeOfDay.Hour = "6" Then Label4.Text = "06" & "h" & TimeOfDay.Minute Form136.Label4.Text = "06" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "0" Then Label4.Text = "07" & "h" & "00" Form136.Label4.Text = "07" & "h" & "00" ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "1" Then Label4.Text = "07" & "h" & "01" Form136.Label4.Text = "07" & "h" & "01" ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "2" Then Label4.Text = "07" & "h" & "02" Form136.Label4.Text = "07" & "h" & "02" ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "3" Then Label4.Text = "07" & "h" & "03" Form136.Label4.Text = "07" & "h" & "03" ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "4" Then Label4.Text = "07" & "h" & "04" Form136.Label4.Text = "07" & "h" & "04" ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "5" Then Label4.Text = "07" & "h" & "05" Form136.Label4.Text = "07" & "h" & "05" ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "6" Then Label4.Text = "07" & "h" & "06" Form136.Label4.Text = "07" & "h" & "06" ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "7" Then Label4.Text = "07" & "h" & "07" Form136.Label4.Text = "07" & "h" & "07" ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "8" Then Label4.Text = "07" & "h" & "08" Form136.Label4.Text = "07" & "h" & "08" ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "9" Then Label4.Text = "07" & "h" & "09" Form136.Label4.Text = "07" & "h" & "09" ElseIf TimeOfDay.Hour = "7" Then Label4.Text = "07" & "h" & TimeOfDay.Minute Form136.Label4.Text = "07" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "0" Then Label4.Text = "08" & "h" & "00" Form136.Label4.Text = "08" & "h" & "00" ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "1" Then Label4.Text = "08" & "h" & "01" Form136.Label4.Text = "08" & "h" & "01" ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "2" Then Label4.Text = "08" & "h" & "02" Form136.Label4.Text = "08" & "h" & "02" ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "3" Then Label4.Text = "08" & "h" & "03" Form136.Label4.Text = "08" & "h" & "03" ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "4" Then Label4.Text = "08" & "h" & "04" Form136.Label4.Text = "08" & "h" & "04" ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "5" Then Label4.Text = "08" & "h" & "05" Form136.Label4.Text = "08" & "h" & "05" ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "6" Then Label4.Text = "08" & "h" & "06" Form136.Label4.Text = "08" & "h" & "06" ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "7" Then Label4.Text = "08" & "h" & "07" Form136.Label4.Text = "08" & "h" & "07" ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "8" Then Label4.Text = "08" & "h" & "08" Form136.Label4.Text = "08" & "h" & "08" ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "9" Then Label4.Text = "08" & "h" & "09" Form136.Label4.Text = "08" & "h" & "09" ElseIf TimeOfDay.Hour = "8" Then Label4.Text = "08" & "h" & TimeOfDay.Minute Form136.Label4.Text = "08" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "0" Then Label4.Text = "09" & "h" & "00" Form136.Label4.Text = "09" & "h" & "00" ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "1" Then Label4.Text = "09" & "h" & "01" Form136.Label4.Text = "09" & "h" & "01" ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "2" Then Label4.Text = "09" & "h" & "02" Form136.Label4.Text = "09" & "h" & "02" ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "3" Then Label4.Text = "09" & "h" & "03" Form136.Label4.Text = "09" & "h" & "03" ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "4" Then Label4.Text = "09" & "h" & "04" Form136.Label4.Text = "09" & "h" & "04" ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "5" Then Label4.Text = "09" & "h" & "05" Form136.Label4.Text = "09" & "h" & "05" ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "6" Then Label4.Text = "09" & "h" & "06" Form136.Label4.Text = "09" & "h" & "06" ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "7" Then Label4.Text = "09" & "h" & "07" Form136.Label4.Text = "09" & "h" & "07" ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "8" Then Label4.Text = "09" & "h" & "08" Form136.Label4.Text = "09" & "h" & "08" ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "9" Then Label4.Text = "09" & "h" & "09" Form136.Label4.Text = "09" & "h" & "09" ElseIf TimeOfDay.Hour = "9" Then Label4.Text = "09" & "h" & TimeOfDay.Minute Form136.Label4.Text = "09" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "00" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "10" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "11" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "12" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "13" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "14" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "15" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "16" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "17" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "18" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "19" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "20" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "21" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "22" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "23" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute End If Label5.Text = SystemInformation.PowerStatus.BatteryLifePercent * 100 & "%" For Each fichier As String In IO.Directory.GetFiles(misajours) Dim info As New IO.FileInfo(fichier) File.Delete(fichier) Next If File.Exists(compte & "temp.txt") = True Then Dim lines785465() As String = File.ReadAllLines(compte & "temp.txt") If lines785465(0) > 0 Then Timer17.Start() End If Else End If If File.Exists(imgmusique) = True Then Else Dim sw900 As New StreamWriter(imgmusique) sw900.WriteLine(0) sw900.WriteLine(0) sw900.WriteLine(0) sw900.Close() End If If File.Exists(ettt) = True Then Else Dim sw901 As New StreamWriter(ettt) sw901.WriteLine(0) sw901.WriteLine(0) sw901.WriteLine(0) sw901.Close() End If Dim lines7() As String = File.ReadAllLines(imgmusique) If lines7(0) = 1 Then PictureBox2.Image = Image.FromFile(lines7(2)) Else End If Dim lines8() As String = File.ReadAllLines(fichiermisauto) If lines8(0) = 1 Then testdev2 = 1 Else testdev2 = 0 End If If SystemInformation.PowerStatus.BatteryChargeStatus = BatteryChargeStatus.NoSystemBattery Then Label5.Hide() Else Label5.Show() End If If File.Exists(lançer) = True Then Else Dim sw1 As New StreamWriter(lançer) sw1.WriteLine(0) sw1.Close() End If If File.Exists(comtpeco2) = True Then Else Dim sw1 As New StreamWriter(comtpeco2) sw1.WriteLine(0) sw1.Close() End If If File.Exists(compteco) = True Then Else Dim sw1 As New StreamWriter(compteco) sw1.WriteLine(0) sw1.Close() End If If Today.Month = 12 Then PictureBox1.Image = My.Resources.sdfsdqfsfsd End If If Today.Day = 1 And Today.Month = 1 Then PictureBox1.Image = My.Resources.rtyrtyrtgr End If If File.Exists(compteco) Then Else Dim sw11 As New StreamWriter(compteco) sw11.WriteLine(0) sw11.Close() End If finiload() End Sub Private Sub OuvrirLesOptionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OuvrirLesOptionToolStripMenuItem.Click Try Timer19.Stop() Form3.ChromeTabcontrol1.SelectedTab = Form3.TabPage6 Form3.ShowDialog() Catch ex As Exception MsgBox("Une erreur est survenue, merci de réessayer ou de redémarrer Lecteur média " & vr, MsgBoxStyle.Information) End Try End Sub Private Sub OuvrirUnFicherToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OuvrirUnFicherToolStripMenuItem.Click If OpenFileDialog2.ShowDialog = 1 Then Timer25.Start() ComboBox1.DropDownStyle = ComboBoxStyle.Simple ComboBox1.SelectedText = "" ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList AxWindowsMediaPlayer1.Ctlcontrols.stop() AxWindowsMediaPlayer1.currentPlaylist.clear() TextBox1.Clear() AxWindowsMediaPlayer2.settings.mute = True AxWindowsMediaPlayer2.URL = OpenFileDialog2.FileName AxWindowsMediaPlayer2.Ctlcontrols.pause() Dim t1 = AxWindowsMediaPlayer2.currentMedia.name Dim t2 = marqueur & t1 & ".txt" If File.Exists(t2) = True Then Form94.ShowDialog() AjoutéUnMarqueurToolStripMenuItem.Enabled = True Else AxWindowsMediaPlayer1.Ctlcontrols.stop() AxWindowsMediaPlayer1.currentPlaylist.clear() TextBox1.Clear() ouvrir() AjoutéUnMarqueurToolStripMenuItem.Enabled = True End If End If End Sub Sub ouvrir() Dim lines4() As String = File.ReadAllLines(notification) If lines4(0) = 0 Then ouvrirfr2() End If If lines4(0) = 1 Then ouvrirfr() End If End Sub Private Sub AxWindowsMediaPlayer1_StatusChange(sender As Object, e As EventArgs) Handles AxWindowsMediaPlayer1.StatusChange If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsReady Then Timer24.Stop() GunaAdvenceButton1.Hide() GunaAdvenceButton2.Hide() AxWindowsMediaPlayer1.currentPlaylist.clear() TextBox1.Clear() Timer7.Start() PictureBox1.Show() PictureBox2.Hide() PictureBox7.Show() PictureBox4.Hide() PauseToolStripMenuItem.Enabled = False PlayToolStripMenuItem1.Enabled = True AjoutéUnMarqueurToolStripMenuItem.Enabled = False Me.Text = lecteurnom End If End Sub Private Sub QuitterLeLecteurToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuitterLeLecteurToolStripMenuItem.Click NotifyIcon1.Visible = False Dim dw8 As New StreamWriter(lançer) dw8.WriteLine(0) dw8.Close() Me.Close() End Sub Sub play() If TextBox1.Text.EndsWith(".mp3") Then Dim lines7() As String = File.ReadAllLines(imgmusique) If lines7(0) = 1 Then PictureBox2.Image = Image.FromFile(lines7(2)) End If Me.Text = lecteurnom & ": " & AxWindowsMediaPlayer1.currentMedia.name AxWindowsMediaPlayer1.Ctlcontrols.play() VitesseToolStripMenuItem.Enabled = False AllaiAToolStripMenuItem.Enabled = False PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() PleinToolStripMenuItem.Enabled = False ElseIf TextBox1.Text.EndsWith("RFM") Then PictureBox2.Image = My.Resources.RFM Me.Text = lecteurnom & ": " & "RFM" Timer7.Stop() GunaMetroTrackBar1.Value = 1 AxWindowsMediaPlayer1.Ctlcontrols.play() VitesseToolStripMenuItem.Enabled = False AllaiAToolStripMenuItem.Enabled = False PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() PleinToolStripMenuItem.Enabled = False ElseIf TextBox1.Text.EndsWith("Virgin Radio") Then Me.Text = lecteurnom & ": " & "Virgin Radio" Timer7.Stop() GunaMetroTrackBar1.Value = 1 AxWindowsMediaPlayer1.Ctlcontrols.play() VitesseToolStripMenuItem.Enabled = False AllaiAToolStripMenuItem.Enabled = False PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() PleinToolStripMenuItem.Enabled = False ElseIf TextBox1.Text.EndsWith("RMC") Then PictureBox2.Image = My.Resources.rrr Me.Text = lecteurnom & ": " & "RMC" Timer7.Stop() GunaMetroTrackBar1.Value = 1 AxWindowsMediaPlayer1.Ctlcontrols.play() VitesseToolStripMenuItem.Enabled = False AllaiAToolStripMenuItem.Enabled = False PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() PleinToolStripMenuItem.Enabled = False ElseIf TextBox1.Text.EndsWith("Chérie") Then PictureBox2.Image = My.Resources.Chérie Me.Text = lecteurnom & ": " & "Chérie" Timer7.Stop() GunaMetroTrackBar1.Value = 1 AxWindowsMediaPlayer1.Ctlcontrols.play() VitesseToolStripMenuItem.Enabled = False AllaiAToolStripMenuItem.Enabled = False PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() PleinToolStripMenuItem.Enabled = False ElseIf TextBox1.Text.EndsWith("Nostalgie France") Then PictureBox2.Image = My.Resources.Nostalgie_France Me.Text = lecteurnom & ": " & "Nostalgie France" Timer7.Stop() GunaMetroTrackBar1.Value = 1 AxWindowsMediaPlayer1.Ctlcontrols.play() VitesseToolStripMenuItem.Enabled = False AllaiAToolStripMenuItem.Enabled = False PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() PleinToolStripMenuItem.Enabled = False ElseIf TextBox1.Text.EndsWith("NRJ France") Then PictureBox2.Image = My.Resources.NRJ_France Me.Text = lecteurnom & ": " & "NRJ France" Timer7.Stop() GunaMetroTrackBar1.Value = 1 AxWindowsMediaPlayer1.Ctlcontrols.play() VitesseToolStripMenuItem.Enabled = False AllaiAToolStripMenuItem.Enabled = False PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() PleinToolStripMenuItem.Enabled = False ElseIf TextBox1.Text.EndsWith("Rire & Chansons") Then PictureBox2.Image = My.Resources.Rire___Chansons Me.Text = lecteurnom & ": " & "Rire & Chansons" Timer7.Stop() GunaMetroTrackBar1.Value = 1 AxWindowsMediaPlayer1.Ctlcontrols.play() VitesseToolStripMenuItem.Enabled = False AllaiAToolStripMenuItem.Enabled = False PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() PleinToolStripMenuItem.Enabled = False ElseIf TextBox1.Text.EndsWith("France Info") Then PictureBox2.Image = My.Resources.Logo_France_Info_1_0 Me.Text = lecteurnom & ": " & "France Info" Timer7.Stop() GunaMetroTrackBar1.Value = 1 AxWindowsMediaPlayer1.Ctlcontrols.play() VitesseToolStripMenuItem.Enabled = False AllaiAToolStripMenuItem.Enabled = False PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() PleinToolStripMenuItem.Enabled = False ElseIf TextBox1.Text.EndsWith("Fun Radio France") Then PictureBox2.Image = My.Resources.Fun_Radio_France Me.Text = lecteurnom & ": " & "Fun Radio France" Timer7.Stop() GunaMetroTrackBar1.Value = 1 AxWindowsMediaPlayer1.Ctlcontrols.play() VitesseToolStripMenuItem.Enabled = False AllaiAToolStripMenuItem.Enabled = False PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() PleinToolStripMenuItem.Enabled = False ElseIf TextBox1.Text.EndsWith("RTL") Then PictureBox2.Image = My.Resources.RTL Me.Text = lecteurnom & ": " & "RTL" Timer7.Stop() GunaMetroTrackBar1.Value = 1 AxWindowsMediaPlayer1.Ctlcontrols.play() VitesseToolStripMenuItem.Enabled = False AllaiAToolStripMenuItem.Enabled = False PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() PleinToolStripMenuItem.Enabled = False ElseIf TextBox1.Text.EndsWith("Ouï FM") Then PictureBox2.Image = My.Resources.Ouï_FM Me.Text = lecteurnom & ": " & "Ouï FM" Timer7.Stop() GunaMetroTrackBar1.Value = 1 AxWindowsMediaPlayer1.Ctlcontrols.play() VitesseToolStripMenuItem.Enabled = False AllaiAToolStripMenuItem.Enabled = False PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() PleinToolStripMenuItem.Enabled = False ElseIf TextBox1.Text.EndsWith("radio") Then Me.Text = lecteurnom & ": " & ComboBox1.SelectedItem Timer7.Stop() GunaMetroTrackBar1.Value = 1 AxWindowsMediaPlayer1.Ctlcontrols.play() VitesseToolStripMenuItem.Enabled = False AllaiAToolStripMenuItem.Enabled = False PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() PleinToolStripMenuItem.Enabled = False Else AxWindowsMediaPlayer1.Ctlcontrols.play() Me.Text = lecteurnom & ": " & AxWindowsMediaPlayer1.currentMedia.name AjoutéUnMarqueurToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True PictureBox7.Hide() PictureBox1.Hide() PictureBox2.Hide() PictureBox4.Show() End If End Sub Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then play() End If End Sub Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click pause() End Sub Sub pause() If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then AjoutéUnMarqueurToolStripMenuItem.Enabled = True AxWindowsMediaPlayer1.Ctlcontrols.pause() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PlayToolStripMenuItem1.Enabled = True PauseToolStripMenuItem.Enabled = False PictureBox4.Hide() PictureBox7.Show() End If End Sub Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click Dim lines7() As String = File.ReadAllLines(imgmusique) If lines7(0) = 1 Then PictureBox2.Image = Image.FromFile(lines7(2)) Else End If Timer24.Stop() ComboBox1.DropDownStyle = ComboBoxStyle.Simple ComboBox1.SelectedText = "" ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList GunaAdvenceButton1.Hide() GunaAdvenceButton2.Hide() AxWindowsMediaPlayer1.Ctlcontrols.stop() AxWindowsMediaPlayer1.currentPlaylist.clear() TextBox1.Clear() PictureBox7.Show() PauseToolStripMenuItem.Enabled = False PlayToolStripMenuItem1.Enabled = True Me.Text = lecteurnom End Sub Private Sub StopToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StopToolStripMenuItem.Click Dim lines7() As String = File.ReadAllLines(imgmusique) If lines7(0) = 1 Then PictureBox2.Image = Image.FromFile(lines7(2)) Else End If Timer24.Stop() ComboBox1.DropDownStyle = ComboBoxStyle.Simple ComboBox1.SelectedText = "" ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList GunaAdvenceButton1.Hide() GunaAdvenceButton2.Hide() AxWindowsMediaPlayer1.Ctlcontrols.stop() AxWindowsMediaPlayer1.currentPlaylist.clear() TextBox1.Clear() PauseToolStripMenuItem.Enabled = False PlayToolStripMenuItem1.Enabled = True PictureBox7.Show() Me.Text = lecteurnom End Sub Private Sub PauseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PauseToolStripMenuItem.Click pause() End Sub Private Sub PlayToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PlayToolStripMenuItem.Click play() End Sub Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click AxWindowsMediaPlayer1.settings.volume = 1 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click AxWindowsMediaPlayer1.settings.volume = 2 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click AxWindowsMediaPlayer1.settings.volume = 3 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click AxWindowsMediaPlayer1.settings.volume = 4 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click AxWindowsMediaPlayer1.settings.volume = 5 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click AxWindowsMediaPlayer1.settings.volume = 6 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click AxWindowsMediaPlayer1.settings.volume = 7 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click AxWindowsMediaPlayer1.settings.volume = 8 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click AxWindowsMediaPlayer1.settings.volume = 9 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem11_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem11.Click AxWindowsMediaPlayer1.settings.volume = 10 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click AxWindowsMediaPlayer1.settings.volume = 11 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click AxWindowsMediaPlayer1.settings.volume = 12 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem14_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem14.Click AxWindowsMediaPlayer1.settings.volume = 13 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem15_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem15.Click AxWindowsMediaPlayer1.settings.volume = 14 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem16_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem16.Click AxWindowsMediaPlayer1.settings.volume = 15 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem17_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem17.Click AxWindowsMediaPlayer1.settings.volume = 16 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem18_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem18.Click AxWindowsMediaPlayer1.settings.volume = 17 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click AxWindowsMediaPlayer1.settings.volume = 18 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click AxWindowsMediaPlayer1.settings.volume = 19 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click AxWindowsMediaPlayer1.settings.volume = 20 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem22_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem22.Click AxWindowsMediaPlayer1.settings.volume = 21 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem23_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem23.Click AxWindowsMediaPlayer1.settings.volume = 22 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem24_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem24.Click AxWindowsMediaPlayer1.settings.volume = 23 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem25_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem25.Click AxWindowsMediaPlayer1.settings.volume = 24 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem26_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem26.Click AxWindowsMediaPlayer1.settings.volume = 25 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem27_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem27.Click AxWindowsMediaPlayer1.settings.volume = 26 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem28_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem28.Click AxWindowsMediaPlayer1.settings.volume = 27 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem29_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem29.Click AxWindowsMediaPlayer1.settings.volume = 28 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem30_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem30.Click AxWindowsMediaPlayer1.settings.volume = 29 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem31_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem31.Click AxWindowsMediaPlayer1.settings.volume = 30 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem32_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem32.Click AxWindowsMediaPlayer1.settings.volume = 31 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem33_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem33.Click AxWindowsMediaPlayer1.settings.volume = 32 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem34_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem34.Click AxWindowsMediaPlayer1.settings.volume = 33 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem101_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem101.Click AxWindowsMediaPlayer1.settings.volume = 34 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem35_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem35.Click AxWindowsMediaPlayer1.settings.volume = 35 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem36_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem36.Click AxWindowsMediaPlayer1.settings.volume = 36 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem37_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem37.Click AxWindowsMediaPlayer1.settings.volume = 37 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem38_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem38.Click AxWindowsMediaPlayer1.settings.volume = 38 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem39_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem39.Click AxWindowsMediaPlayer1.settings.volume = 39 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem40_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem40.Click AxWindowsMediaPlayer1.settings.volume = 40 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem41_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem41.Click AxWindowsMediaPlayer1.settings.volume = 41 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem42_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem42.Click AxWindowsMediaPlayer1.settings.volume = 42 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem43_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem43.Click AxWindowsMediaPlayer1.settings.volume = 43 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem44_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem44.Click AxWindowsMediaPlayer1.settings.volume = 44 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem45_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem45.Click AxWindowsMediaPlayer1.settings.volume = 45 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem46_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem46.Click AxWindowsMediaPlayer1.settings.volume = 46 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem47_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem47.Click AxWindowsMediaPlayer1.settings.volume = 47 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem48_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem48.Click AxWindowsMediaPlayer1.settings.volume = 48 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem49_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem49.Click AxWindowsMediaPlayer1.settings.volume = 49 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem50_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem50.Click AxWindowsMediaPlayer1.settings.volume = 50 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem51_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem51.Click AxWindowsMediaPlayer1.settings.volume = 51 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem52_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem52.Click AxWindowsMediaPlayer1.settings.volume = 52 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem53_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem53.Click AxWindowsMediaPlayer1.settings.volume = 53 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem54_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem54.Click AxWindowsMediaPlayer1.settings.volume = 54 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem55_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem55.Click AxWindowsMediaPlayer1.settings.volume = 55 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem56_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem56.Click AxWindowsMediaPlayer1.settings.volume = 56 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem57_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem57.Click AxWindowsMediaPlayer1.settings.volume = 57 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem58_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem58.Click AxWindowsMediaPlayer1.settings.volume = 58 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem59_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem59.Click AxWindowsMediaPlayer1.settings.volume = 59 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem60_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem60.Click AxWindowsMediaPlayer1.settings.volume = 60 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem61_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem61.Click AxWindowsMediaPlayer1.settings.volume = 61 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem62_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem62.Click AxWindowsMediaPlayer1.settings.volume = 62 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem63_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem63.Click AxWindowsMediaPlayer1.settings.volume = 63 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem64_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem64.Click AxWindowsMediaPlayer1.settings.volume = 64 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem65_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem65.Click AxWindowsMediaPlayer1.settings.volume = 65 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem66_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem66.Click AxWindowsMediaPlayer1.settings.volume = 66 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem67_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem67.Click AxWindowsMediaPlayer1.settings.volume = 67 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem68_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem68.Click AxWindowsMediaPlayer1.settings.volume = 68 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem69_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem69.Click AxWindowsMediaPlayer1.settings.volume = 69 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem70_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem70.Click AxWindowsMediaPlayer1.settings.volume = 70 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem71_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem71.Click AxWindowsMediaPlayer1.settings.volume = 71 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem72_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem72.Click AxWindowsMediaPlayer1.settings.volume = 72 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem73_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem73.Click AxWindowsMediaPlayer1.settings.volume = 73 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem74_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem74.Click AxWindowsMediaPlayer1.settings.volume = 74 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem75_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem75.Click AxWindowsMediaPlayer1.settings.volume = 75 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem76_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem76.Click AxWindowsMediaPlayer1.settings.volume = 76 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem77_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem77.Click AxWindowsMediaPlayer1.settings.volume = 77 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem78_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem78.Click AxWindowsMediaPlayer1.settings.volume = 78 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem79_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem79.Click AxWindowsMediaPlayer1.settings.volume = 79 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem80_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem80.Click AxWindowsMediaPlayer1.settings.volume = 80 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem81_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem81.Click AxWindowsMediaPlayer1.settings.volume = 81 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem82_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem82.Click AxWindowsMediaPlayer1.settings.volume = 82 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem83_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem83.Click AxWindowsMediaPlayer1.settings.volume = 83 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem84_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem84.Click AxWindowsMediaPlayer1.settings.volume = 84 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem85_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem85.Click AxWindowsMediaPlayer1.settings.volume = 85 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem86_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem86.Click AxWindowsMediaPlayer1.settings.volume = 86 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem87_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem87.Click AxWindowsMediaPlayer1.settings.volume = 87 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem88_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem88.Click AxWindowsMediaPlayer1.settings.volume = 88 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem89_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem89.Click AxWindowsMediaPlayer1.settings.volume = 89 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuIt90_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem90.Click AxWindowsMediaPlayer1.settings.volume = 90 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem91_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem91.Click AxWindowsMediaPlayer1.settings.volume = 91 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem92_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem92.Click AxWindowsMediaPlayer1.settings.volume = 92 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem93_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem93.Click AxWindowsMediaPlayer1.settings.volume = 93 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem94_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem94.Click AxWindowsMediaPlayer1.settings.volume = 94 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem95_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem95.Click AxWindowsMediaPlayer1.settings.volume = 95 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem96_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem96.Click AxWindowsMediaPlayer1.settings.volume = 96 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem97_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem97.Click AxWindowsMediaPlayer1.settings.volume = 97 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem98_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem98.Click AxWindowsMediaPlayer1.settings.volume = 98 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem99_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem99.Click AxWindowsMediaPlayer1.settings.volume = 99 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub ToolStripMenuItem100_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem100.Click AxWindowsMediaPlayer1.settings.volume = 100 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub VolumeMuteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VolumeMuteToolStripMenuItem.Click volumemute = AxWindowsMediaPlayer1.settings.volume AxWindowsMediaPlayer1.settings.mute = True Label1.Text = "mute" PictureBox8.Show() End Sub Private Sub OuvrirLeLecteurCDToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OuvrirLeLecteurCDToolStripMenuItem.Click Try CtrlCdrom("set cdaudio door open", "0", "0", "0") Catch ex As Exception MsgBox("Aucun lecteur cd trouvez", MsgBoxStyle.Critical) End Try End Sub Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click plaine() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click volumep = AxWindowsMediaPlayer1.settings.volume.ToString() volumep += 1 AxWindowsMediaPlayer1.settings.volume = volumep Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click volumep = AxWindowsMediaPlayer1.settings.volume.ToString() volumep -= 1 AxWindowsMediaPlayer1.settings.volume = volumep Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" If AxWindowsMediaPlayer1.settings.volume = 0 Then PictureBox8.Show() End If End Sub Private Sub PleinToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PleinToolStripMenuItem.Click plaine() End Sub Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click, PictureBox8.Click AxWindowsMediaPlayer1.settings.mute = False AxWindowsMediaPlayer1.settings.volume = volumemute Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() End Sub Private Sub AgrandireToolStripMenuItem_Click(sender As Object, e As EventArgs) Me.WindowState = WindowState.Maximized End Sub Private Sub NormalToolStripMenuItem_Click(sender As Object, e As EventArgs) Me.WindowState = WindowState.Normal End Sub Private Sub MinimiserToolStripMenuItem_Click(sender As Object, e As EventArgs) Me.WindowState = WindowState.Minimized End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick If AxWindowsMediaPlayer1.fullScreen = True Then aze7() Else Timer1.Stop() ProgressBar1.Value = 0 End If End Sub Sub aze7() ProgressBar1.Increment(1) If ProgressBar1.Value = 100 Then Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" Timer1.Stop() ProgressBar1.Value = 0 Timer1.Start() End If End Sub Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick If AxWindowsMediaPlayer1.fullScreen = True Then aze5() Else Timer2.Stop() ProgressBar1.Value = 0 End If End Sub Sub aze5() If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then PictureBox7.Show() PlayToolStripMenuItem1.Enabled = True PauseToolStripMenuItem.Enabled = False PictureBox4.Hide() ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then PictureBox7.Hide() PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True PictureBox4.Show() ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then PictureBox7.Show() PlayToolStripMenuItem1.Enabled = True PauseToolStripMenuItem.Enabled = False PictureBox4.Hide() End If End Sub Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick If AxWindowsMediaPlayer1.fullScreen = True Then aze6() Else Timer3.Stop() ProgressBar1.Value = 0 End If End Sub Sub aze6() If AxWindowsMediaPlayer1.settings.mute = True Then AxWindowsMediaPlayer1.settings.volume = 0 PictureBox8.Show() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" ElseIf AxWindowsMediaPlayer1.settings.mute = False Then Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End If End Sub Private Sub LaçerLeMiniLecteurToolStripMenuItem_Click(sender As Object, e As EventArgs) AxWindowsMediaPlayer1.Ctlcontrols.stop() Form8.Show() Me.Hide() End Sub Private Sub LaçerLaPlaylistToolStripMenuItem_Click(sender As Object, e As EventArgs) AxWindowsMediaPlayer1.Ctlcontrols.stop() Form12.Show() Me.Hide() End Sub Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged Try If My.Computer.Network.Ping("www.google.com") Then Timer25.Stop() Dim lines8() As String = File.ReadAllLines(notification) If lines8(0) = 1 Then langfr2() ElseIf lines8(0) = 0 Then langfr4() End If End If Catch ex As Exception MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information) End Try End Sub Sub langfr2() AxWindowsMediaPlayer1.currentPlaylist.clear() Timer7.Stop() GunaMetroTrackBar1.Value = 1 langfr3() End Sub Sub langfr3() AjoutéAuFavorisToolStripMenuItem.Enabled = False If ComboBox1.SelectedItem = "RFM" Then PictureBox2.Image = My.Resources.RFM PictureBox7.Enabled = True PictureBox5.Enabled = True AxWindowsMediaPlayer1.URL = "https://ais-live.cloud-services.paris:8443/rfm.mp3" NotifyIcon1.BalloonTipTitle = lecteurnom NotifyIcon1.BalloonTipText = "vous écouter: RFM" NotifyIcon1.ShowBalloonTip(1) Me.Text = lecteurnom & ": " & "RFM" TextBox1.Text = "RFM" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() PictureBox7.Enabled = True PictureBox5.Enabled = True VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False AjoutéUnMarqueurToolStripMenuItem.Enabled = False ElseIf ComboBox1.SelectedItem = "RMC" Then PictureBox2.Image = My.Resources.rrr AxWindowsMediaPlayer1.URL = "http://audio.bfmtv.com/rmcradio_128.mp3" NotifyIcon1.BalloonTipTitle = lecteurnom NotifyIcon1.BalloonTipText = "vous écouter: RMC" NotifyIcon1.ShowBalloonTip(1) Me.Text = lecteurnom & ": " & "RMC" TextBox1.Text = "RMC" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False AjoutéUnMarqueurToolStripMenuItem.Enabled = False ElseIf ComboBox1.SelectedItem = "Chérie" Then PictureBox2.Image = My.Resources.Chérie AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30201/mp3_128.mp3?origine=fluxradios" NotifyIcon1.BalloonTipTitle = lecteurnom NotifyIcon1.BalloonTipText = "vous écouter: Chérie" NotifyIcon1.ShowBalloonTip(1) Me.Text = lecteurnom & ": " & "Chérie" TextBox1.Text = "Chérie" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False AjoutéUnMarqueurToolStripMenuItem.Enabled = False ElseIf ComboBox1.SelectedItem = "Nostalgie France" Then PictureBox2.Image = My.Resources.Nostalgie_France AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30601/mp3_128.mp3?origine=fluxradios" NotifyIcon1.BalloonTipTitle = lecteurnom NotifyIcon1.BalloonTipText = "vous écouter Nostalgie France" NotifyIcon1.ShowBalloonTip(1) Me.Text = lecteurnom & ": " & "Nostalgie: France" TextBox1.Text = "Nostalgie France" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False AjoutéUnMarqueurToolStripMenuItem.Enabled = False ElseIf ComboBox1.SelectedItem = "NRJ France" Then PictureBox2.Image = My.Resources.NRJ_France AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30001/mp3_128.mp3?origine=fluxradios" NotifyIcon1.BalloonTipTitle = lecteurnom NotifyIcon1.BalloonTipText = "vous écouter: NRJ France" NotifyIcon1.ShowBalloonTip(1) Me.Text = lecteurnom & ": " & "NRJ France" TextBox1.Text = "NRJ France" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False AjoutéUnMarqueurToolStripMenuItem.Enabled = False ElseIf ComboBox1.SelectedItem = "Rire & Chansons" Then PictureBox2.Image = My.Resources.Rire___Chansons AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30401/mp3_128.mp3?origine=fluxradios" NotifyIcon1.BalloonTipTitle = lecteurnom NotifyIcon1.BalloonTipText = "vous écouter: Rire & Chansons" NotifyIcon1.ShowBalloonTip(1) Me.Text = lecteurnom & ": " & "Rire & Chansons" TextBox1.Text = "Rire & Chansons" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False AjoutéUnMarqueurToolStripMenuItem.Enabled = False ElseIf ComboBox1.SelectedItem = "France Info" Then PictureBox2.Image = My.Resources.Logo_France_Info_1_0 AxWindowsMediaPlayer1.URL = "http://direct.franceinfo.fr/live/franceinfo-midfi.mp3" NotifyIcon1.BalloonTipTitle = lecteurnom NotifyIcon1.BalloonTipText = "vous écouter: France Info" NotifyIcon1.ShowBalloonTip(1) Me.Text = lecteurnom & ": " & "France Info" TextBox1.Text = "France Info" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False AjoutéUnMarqueurToolStripMenuItem.Enabled = False ElseIf ComboBox1.SelectedItem = "Fun Radio France" Then PictureBox2.Image = My.Resources.Fun_Radio_France AxWindowsMediaPlayer1.URL = " http://icecast.funradio.fr/fun-1-44-128?listen=webCwsBCggNCQgLDQUGBAcGBg" NotifyIcon1.BalloonTipTitle = lecteurnom NotifyIcon1.BalloonTipText = "vous écouter: Fun Radio France" NotifyIcon1.ShowBalloonTip(1) Me.Text = lecteurnom & ": " & "Fun Radio: France" TextBox1.Text = "Fun Radio France" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False AjoutéUnMarqueurToolStripMenuItem.Enabled = False ElseIf ComboBox1.SelectedItem = "RTL" Then PictureBox2.Image = My.Resources.RTL AxWindowsMediaPlayer1.URL = "http://icecast.rtl.fr/rtl-1-44-128?listen=webCwsBCggNCQgLDQUGBAcGBg" NotifyIcon1.BalloonTipTitle = lecteurnom NotifyIcon1.BalloonTipText = "vous écouter: RTL" NotifyIcon1.ShowBalloonTip(1) Me.Text = lecteurnom & ": " & "RTL" TextBox1.Text = "RTL" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False AjoutéUnMarqueurToolStripMenuItem.Enabled = False ElseIf ComboBox1.SelectedItem = "Ouï FM" Then PictureBox2.Image = My.Resources.Ouï_FM AxWindowsMediaPlayer1.URL = "http://ouifm.ice.infomaniak.ch/ouifm-high.mp3" NotifyIcon1.BalloonTipTitle = lecteurnom NotifyIcon1.BalloonTipText = "vous écouter: Ouï FM" NotifyIcon1.ShowBalloonTip(1) Me.Text = lecteurnom & ": " & "Ouï: FM" TextBox1.Text = "Ouï FM" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False AjoutéUnMarqueurToolStripMenuItem.Enabled = False Else Dim t1 = radio Dim t2 = ComboBox1.SelectedItem Dim t3 = t1 & t2 & "\flux.txt" Dim lines1() As String = File.ReadAllLines(t3) AxWindowsMediaPlayer1.URL = lines1(0) NotifyIcon1.BalloonTipTitle = lecteurnom NotifyIcon1.BalloonTipText = "vous écouter: " & ComboBox1.SelectedItem NotifyIcon1.ShowBalloonTip(1) Me.Text = lecteurnom & ": " & ComboBox1.SelectedItem TextBox1.Text = "radio" PictureBox1.Hide() PictureBox2.Show() If File.Exists(t1 & t2 & "/photo.png") = True Then PictureBox2.Image = Image.FromFile(t1 & t2 & "/photo.png") End If PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False AjoutéUnMarqueurToolStripMenuItem.Enabled = False End If End Sub Private Sub X1ToolStripMenuItem_Click(sender As Object, e As EventArgs) AxWindowsMediaPlayer1.Ctlcontrols.fastForward() End Sub Private Sub MiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MiToolStripMenuItem.Click AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 600 End Sub Private Sub MiToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles MiToolStripMenuItem1.Click AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1200 End Sub Private Sub MiToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles MiToolStripMenuItem2.Click AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1800 End Sub Private Sub MiToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles MiToolStripMenuItem4.Click AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2400 End Sub Private Sub MiToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles MiToolStripMenuItem5.Click AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3000 End Sub Private Sub HToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HToolStripMenuItem.Click AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3600 End Sub Private Sub AllezÀToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllezÀToolStripMenuItem.Click Form15.ShowDialog() End Sub Private Sub AvanceRapiteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AvanceRapiteToolStripMenuItem.Click AxWindowsMediaPlayer1.Ctlcontrols.fastForward() End Sub Private Sub AvanceNormalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AvanceNormalToolStripMenuItem.Click AxWindowsMediaPlayer1.Ctlcontrols.play() End Sub Sub ouvrirfr() Timer7.Start() AjoutéAuFavorisToolStripMenuItem.Enabled = True If OpenFileDialog2.FileName.EndsWith(".mp3") Then Dim lines7() As String = File.ReadAllLines(imgmusique) If lines7(0) = 1 Then PictureBox2.Image = Image.FromFile(lines7(2)) Else End If AxWindowsMediaPlayer1.URL = OpenFileDialog2.FileName TextBox1.Text = AxWindowsMediaPlayer1.URL NotifyIcon1.BalloonTipTitle = lecteurnom NotifyIcon1.BalloonTipText = "vous écouter:" & " " & AxWindowsMediaPlayer1.currentMedia.name NotifyIcon1.ShowBalloonTip(1) PictureBox7.Hide() PictureBox2.Show() PictureBox1.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = False AllaiAToolStripMenuItem.Enabled = False PictureBox5.Enabled = True PictureBox6.Enabled = True PictureBox7.Enabled = True PleinToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True Me.Text = lecteurnom & ": " & AxWindowsMediaPlayer1.currentMedia.name Else AxWindowsMediaPlayer1.URL = OpenFileDialog2.FileName ComboBox1.Text = " " TextBox1.Text = AxWindowsMediaPlayer1.URL PictureBox2.Hide() PictureBox7.Hide() PictureBox1.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox5.Enabled = True PictureBox6.Enabled = True PictureBox7.Enabled = True PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = True Me.Text = lecteurnom & ": " & AxWindowsMediaPlayer1.currentMedia.name NotifyIcon1.BalloonTipTitle = lecteurnom NotifyIcon1.BalloonTipText = "vous regarder:" & " " & AxWindowsMediaPlayer1.currentMedia.name NotifyIcon1.ShowBalloonTip(1) ListBox1.Items.Add(AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay) End If End Sub Sub ouvrirfr2() AjoutéAuFavorisToolStripMenuItem.Enabled = True If OpenFileDialog2.FileName.EndsWith("mp3") Then AxWindowsMediaPlayer1.URL = OpenFileDialog2.FileName TextBox1.Text = AxWindowsMediaPlayer1.URL PictureBox6.Hide() PictureBox7.Hide() PictureBox2.Hide() PictureBox3.Show() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = False AllaiAToolStripMenuItem.Enabled = False PictureBox5.Enabled = True PictureBox6.Enabled = True PictureBox7.Enabled = True PleinToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True Me.Text = lecteurnom & ": " & AxWindowsMediaPlayer1.currentMedia.name Else AxWindowsMediaPlayer1.URL = OpenFileDialog2.FileName ComboBox1.Text = " " TextBox1.Text = AxWindowsMediaPlayer1.URL PictureBox2.Hide() PictureBox7.Hide() PictureBox1.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox5.Enabled = True PictureBox6.Enabled = True PictureBox7.Enabled = True PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = True Me.Text = lecteurnom & ": " & AxWindowsMediaPlayer1.currentMedia.name End If End Sub Sub langfr4() Try If My.Computer.Network.Ping("www.google.com") = True Then AxWindowsMediaPlayer1.currentPlaylist.clear() langfr5() End If Catch ex As Exception MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information) End Try End Sub Sub langfr5() AjoutéAuFavorisToolStripMenuItem.Enabled = False If ComboBox1.SelectedItem = "RFM" Then PictureBox7.Enabled = True PictureBox5.Enabled = True AxWindowsMediaPlayer1.URL = "https://ais-live.cloud-services.paris:8443/rfm.mp3" Me.Text = lecteurnom & ": " & "RFM" TextBox1.Text = "RFM" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False ElseIf ComboBox1.SelectedItem = "RMC" Then AxWindowsMediaPlayer1.URL = "http://audio.bfmtv.com/rmcradio_128.mp3" Me.Text = lecteurnom & ": " & "RMC" TextBox1.Text = "RMC" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False ElseIf ComboBox1.SelectedItem = "Chérie" Then AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30201/mp3_128.mp3?origine=fluxradios" Me.Text = lecteurnom & ": " & "Chérie" TextBox1.Text = "Chérie" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False ElseIf ComboBox1.SelectedItem = "Nostalgie France" Then AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30601/mp3_128.mp3?origine=fluxradios" Me.Text = lecteurnom & ": " & "Nostalgie: France" TextBox1.Text = "Nostalgie France" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False ElseIf ComboBox1.SelectedItem = "NRJ France" Then AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30001/mp3_128.mp3?origine=fluxradios" Me.Text = lecteurnom & ": " & "NRJ France" TextBox1.Text = "NRJ France" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False ElseIf ComboBox1.SelectedItem = "Rire & Chansons" Then AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30401/mp3_128.mp3?origine=fluxradios" Me.Text = lecteurnom & ": " & "Rire & Chansons" TextBox1.Text = "Rire & Chansons" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False ElseIf ComboBox1.SelectedItem = "France Info" Then AxWindowsMediaPlayer1.URL = "http://direct.franceinfo.fr/live/franceinfo-midfi.mp3" Me.Text = lecteurnom & ": " & "France Info" TextBox1.Text = "France Info" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False ElseIf ComboBox1.SelectedItem = "Fun Radio France" Then AxWindowsMediaPlayer1.URL = "http://streamer-04.rtl.fr/fun-1-44-128?listen=webCwsBCggNCQgLDQUGBAcGBg" Me.Text = lecteurnom & ": " & "Fun Radio: France" TextBox1.Text = "Fun Radio France" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False ElseIf ComboBox1.SelectedItem = "RTL" Then AxWindowsMediaPlayer1.URL = "http://icecast.rtl.fr/rtl-1-44-128?listen=webCwsBCggNCQgLDQUGBAcGBg" Me.Text = lecteurnom & ": " & "RTL" TextBox1.Text = "RTL" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False ElseIf ComboBox1.SelectedItem = "Ouï FM" Then AxWindowsMediaPlayer1.URL = "http://ouifm.ice.infomaniak.ch/ouifm-high.mp3" Me.Text = lecteurnom & ": " & "Ouï: FM" TextBox1.Text = "Ouï FM" PictureBox1.Hide() PictureBox2.Show() PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False Else Dim t1 = radio Dim t2 = ComboBox1.SelectedItem Dim t3 = t1 & t2 & "\flux.txt" Dim lines1() As String = File.ReadAllLines(t3) AxWindowsMediaPlayer1.URL = lines1(0) Me.Text = lecteurnom & ": " & ComboBox1.SelectedItem TextBox1.Text = "radio" PictureBox1.Hide() PictureBox2.Show() If File.Exists(t1 & t2 & "/photo.png") = True Then PictureBox2.Image = Image.FromFile(t1 & t2 & "/photo.png") End If PictureBox7.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PictureBox7.Enabled = True PictureBox5.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PleinToolStripMenuItem.Enabled = False End If End Sub Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Form16.ShowDialog() End Sub Sub plaine() If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then plaine2() End If End Sub Sub noir() OpuvrirUnFichierSurLeRésauxToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) LanceLecteurMédiaSYCNToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) OutiAdministrationToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) CrypteLecteurMédiaToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) GestionDesUtilisateurToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) ConvertirEnM4vToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) TestToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AjoutterUnSériessaisonToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AjouterUnFilmToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) ModifierUnFilmToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) OpuvrirUnFichierSurLeRésauxToolStripMenuItem.ForeColor = Color.White LanceLecteurMédiaSYCNToolStripMenuItem.ForeColor = Color.White TestToolStripMenuItem.ForeColor = Color.White OutiAdministrationToolStripMenuItem.ForeColor = Color.White CrypteLecteurMédiaToolStripMenuItem.ForeColor = Color.White GestionDesUtilisateurToolStripMenuItem.ForeColor = Color.White ConvertirEnM4vToolStripMenuItem.ForeColor = Color.White AjouterUnFilmToolStripMenuItem.ForeColor = Color.White AjoutterUnSériessaisonToolStripMenuItem.ForeColor = Color.White ModifierUnFilmToolStripMenuItem.ForeColor = Color.White ChangerDeProfilsToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) ChangerDeProfilsToolStripMenuItem.ForeColor = Color.White TchatEnLigneToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) TchatEnLigneToolStripMenuItem.ForeColor = Color.White GunaAdvenceButton1.OnHoverBaseColor = Color.FromArgb(64, 64, 64) GunaAdvenceButton1.OnHoverBorderColor = Color.FromArgb(64, 64, 64) GunaAdvenceButton1.OnHoverLineColor = Color.FromArgb(64, 64, 64) GunaAdvenceButton1.OnPressedColor = Color.FromArgb(64, 64, 64) GunaAdvenceButton2.OnHoverBaseColor = Color.FromArgb(64, 64, 64) GunaAdvenceButton2.OnHoverBorderColor = Color.FromArgb(64, 64, 64) GunaAdvenceButton2.OnHoverLineColor = Color.FromArgb(64, 64, 64) GunaAdvenceButton2.OnPressedColor = Color.FromArgb(64, 64, 64) GunaAdvenceButton2.BaseColor = Color.FromArgb(64, 64, 64) GunaAdvenceButton1.BaseColor = Color.FromArgb(64, 64, 64) SériesStreamingToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) SériesStreamingToolStripMenuItem.ForeColor = Color.White Label5.BackColor = Color.FromArgb(64, 64, 64) Label5.ForeColor = Color.White InformationDuMédiaToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) InformationDuMédiaToolStripMenuItem.ForeColor = Color.White PictureBox8.BackColor = Color.FromArgb(64, 64, 64) PictureBox9.BackColor = Color.FromArgb(64, 64, 64) AjoutéAuFavorisToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AjoutéAuFavorisToolStripMenuItem.ForeColor = Color.White YoutubeToolStripMenuItem.ForeColor = Color.White YoutubeToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) LançerLaWidgetsToolStripMenuItem.ForeColor = Color.White LançerLaWidgetsToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) PictureBox6.BackColor = Color.FromArgb(64, 64, 64) PictureBox5.Image = My.Resources.stop_orange PictureBox5.BackColor = Color.FromArgb(64, 64, 64) PictureBox4.BackColor = Color.FromArgb(64, 64, 64) DriveToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) DriveToolStripMenuItem.ForeColor = Color.White AjoutéUnMarqueurToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AjoutéUnMarqueurToolStripMenuItem.ForeColor = Color.White RaccourciToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) RaccourciToolStripMenuItem.ForeColor = Color.White Label4.BackColor = Color.FromArgb(64, 64, 64) Label4.ForeColor = Color.White GunaMetroTrackBar1.BackColor = Color.FromArgb(64, 64, 64) GunaMetroTrackBar1.TrackColor = Color.White GunaMetroTrackBar1.TrackHoverColor = Color.White GunaMetroTrackBar1.TrackPressedColor = Color.White Button3.BackColor = Color.FromArgb(64, 64, 64) Button3.ForeColor = Color.White OuvrirLesOptionToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) LançerToolStripMenuItem.ForeColor = Color.White StreamingToolStripMenuItem.ForeColor = Color.White LançerDictéeToolStripMenuItem1.ForeColor = Color.White AfficherLesFavorisToolStripMenuItem.ForeColor = Color.White HistoriqueToolStripMenuItem.ForeColor = Color.White MusiqueStreamingToolStripMenuItem1.ForeColor = Color.White HistoriqueToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) LançerDictéeToolStripMenuItem1.BackColor = Color.FromArgb(64, 64, 64) MusiqueStreamingToolStripMenuItem1.BackColor = Color.FromArgb(64, 64, 64) AfficherLesFavorisToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) LançerToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) StreamingToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) ToolStripSeparator1.BackColor = Color.FromArgb(64, 64, 64) MenuStrip1.BackColor = Color.FromArgb(64, 64, 64) MainMenuStrip.BackColor = Color.FromArgb(64, 64, 64) AideToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) Label1.BackColor = Color.FromArgb(64, 64, 64) Label1.ForeColor = Color.White Button1.BackColor = Color.FromArgb(64, 64, 64) Button1.ForeColor = Color.White Button2.BackColor = Color.FromArgb(64, 64, 64) Button2.ForeColor = Color.White Button3.BackColor = Color.FromArgb(64, 64, 64) PictureBox7.BackColor = Color.FromArgb(64, 64, 64) PictureBox3.BackColor = Color.FromArgb(64, 64, 64) AideToolStripMenuItem.ForeColor = Color.White FichierToolStripMenuItem.ForeColor = Color.White FichierToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) MainMenuStrip.BackColor = Color.FromArgb(64, 64, 64) Me.BackColor = Color.FromArgb(64, 64, 64) OuvrirLeLecteurCDToolStripMenuItem.ForeColor = Color.White OuvrirLesOptionToolStripMenuItem.ForeColor = Color.White PlayToolStripMenuItem1.ForeColor = Color.White PauseToolStripMenuItem.ForeColor = Color.White OptionToolStripMenuItem.ForeColor = Color.White StopToolStripMenuItem.ForeColor = Color.White VitesseToolStripMenuItem.ForeColor = Color.White LançerPlaylistToolStripMenuItem.ForeColor = Color.White LançerLeMiniLecteurToolStripMenuItem.ForeColor = Color.White AllaiAToolStripMenuItem.ForeColor = Color.White FenêtreToolStripMenuItem.ForeColor = Color.White MinimiserToolStripMenuItem.ForeColor = Color.White AgrandirToolStripMenuItem.ForeColor = Color.White NormalToolStripMenuItem.ForeColor = Color.White AllezÀToolStripMenuItem.ForeColor = Color.White AvanceNormalToolStripMenuItem.ForeColor = Color.White AvanceRapiteToolStripMenuItem.ForeColor = Color.White FilmStreamingToolStripMenuItem.ForeColor = Color.White BugEtModifycationToolStripMenuItem1.ForeColor = Color.White MisAJoursToolStripMenuItem.ForeColor = Color.White AProposDuLecteurToolStripMenuItem1.ForeColor = Color.White QuitterLeLecteurToolStripMenuItem.ForeColor = Color.White VolumeToolStripMenuItem.ForeColor = Color.White VolumeToolStripMenuItem1.ForeColor = Color.White VolumeMuteToolStripMenuItem.ForeColor = Color.White MiToolStripMenuItem.ForeColor = Color.White MiToolStripMenuItem1.ForeColor = Color.White MiToolStripMenuItem2.ForeColor = Color.White MiToolStripMenuItem4.ForeColor = Color.White MiToolStripMenuItem5.ForeColor = Color.White HToolStripMenuItem.ForeColor = Color.White MédiaToolStripMenuItem.ForeColor = Color.White PleinToolStripMenuItem.ForeColor = Color.White OuvrirLeLecteurCDToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) LançerPlaylistToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) LançerLeMiniLecteurToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) FenêtreToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) MinimiserToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AgrandirToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) NormalToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) FilmStreamingToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) OptionToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AProposDuLecteurToolStripMenuItem1.BackColor = Color.FromArgb(64, 64, 64) BugEtModifycationToolStripMenuItem1.BackColor = Color.FromArgb(64, 64, 64) MisAJoursToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) MainMenuStrip.BackColor = Color.FromArgb(64, 64, 64) ComboBox1.BackColor = Color.FromArgb(64, 64, 64) MainMenuStrip.ForeColor = Color.FromArgb(64, 64, 64) ComboBox1.ForeColor = Color.White QuitterLeLecteurToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) OuvrirUnFicherToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) OuvrirUnFicherToolStripMenuItem.ForeColor = Color.White Me.forecoloR = Color.White Me.BackColor = Color.FromArgb(64, 64, 64) PlayToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AllezÀToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) PauseToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) StopToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) VolumeMuteToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) VitesseToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) PlayToolStripMenuItem1.BackColor = Color.FromArgb(64, 64, 64) InformationDuMédiaToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) PleinToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AllaiAToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AjoutéAuFavorisToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) VolumeToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AvanceNormalToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AvanceNormalToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) MiToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) MiToolStripMenuItem1.BackColor = Color.FromArgb(64, 64, 64) MiToolStripMenuItem2.BackColor = Color.FromArgb(64, 64, 64) MiToolStripMenuItem4.BackColor = Color.FromArgb(64, 64, 64) MiToolStripMenuItem5.BackColor = Color.FromArgb(64, 64, 64) HToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AvanceRapiteToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) VolumeToolStripMenuItem1.BackColor = Color.FromArgb(64, 64, 64) volumenoir() End Sub Private Sub AgrandirToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AgrandirToolStripMenuItem.Click Me.WindowState = WindowState.Maximized End Sub Private Sub NormalToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles NormalToolStripMenuItem.Click Me.WindowState = WindowState.Normal End Sub Private Sub MinimiserToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles MinimiserToolStripMenuItem.Click Me.WindowState = WindowState.Minimized End Sub Private Sub LançerDictéeToolStripMenuItem_Click(sender As Object, e As EventArgs) Form21.Show() AxWindowsMediaPlayer1.Ctlcontrols.stop() Me.Hide() End Sub Sub start() startfr() End Sub Sub startfr() Dim lines3() As String = File.ReadAllLines(notification) If lines3(0) = 1 Then startfr1() ElseIf lines3(0) = 0 Then End If End Sub Sub startfr1() NotifyIcon1.BalloonTipTitle = lecteurnom NotifyIcon1.BalloonTipText = "vous écouter:" & " " & AxWindowsMediaPlayer1.currentMedia.name NotifyIcon1.ShowBalloonTip(1) End Sub Sub start2() start2fr() End Sub Sub start2fr() Dim lines3() As String = File.ReadAllLines(notification) If lines3(0) = 1 Then start2fr1() ElseIf lines3(0) = 0 Then End If End Sub Sub start2fr1() NotifyIcon1.BalloonTipTitle = lecteurnom NotifyIcon1.BalloonTipText = "vous regarder:" & " " & AxWindowsMediaPlayer1.currentMedia.name NotifyIcon1.ShowBalloonTip(1) End Sub Sub startdb() AjoutéAuFavorisToolStripMenuItem.Enabled = True Dim Fichier_à_lire As String = TextBox3.Text If My.Application.CommandLineArgs.Count <> 0 Then Dim fi As New FileInfo(My.Application.CommandLineArgs(0)) If fi.Exists() Then TextBox3.Text = Path.GetFullPath(fi.ToString) If TextBox3.Text.EndsWith(".mp3") Then AxWindowsMediaPlayer1.URL = TextBox3.Text PictureBox2.Show() PictureBox1.Hide() PictureBox7.Hide() PictureBox4.Show() PictureBox5.Enabled = True PictureBox7.Enabled = True PictureBox4.Enabled = True VitesseToolStripMenuItem.Enabled = True AllaiAToolStripMenuItem.Enabled = True PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True AjoutéUnMarqueurToolStripMenuItem.Enabled = True TextBox1.Text = AxWindowsMediaPlayer1.URL Me.Text = lecteurnom & ": " & AxWindowsMediaPlayer1.currentMedia.name start() ElseIf TextBox3.Text.EndsWith(".mp4") Or TextBox3.Text.EndsWith(".mkv") Or TextBox3.Text.EndsWith(".avi") Or TextBox3.Text.EndsWith(".mov") Or TextBox3.Text.EndsWith(".wmv") Or TextBox3.Text.EndsWith(".ts") Or TextBox3.Text.EndsWith(".m4v") Or TextBox3.Text.EndsWith(".AVI") Or TextBox3.Text.EndsWith(".MP4") Then PictureBox3.Anchor = AnchorStyles.Bottom And AnchorStyles.Left And AnchorStyles.Right OpenFileDialog2.FileName = TextBox3.Text AxWindowsMediaPlayer1.Ctlcontrols.stop() AxWindowsMediaPlayer1.currentPlaylist.clear() TextBox1.Clear() AxWindowsMediaPlayer2.settings.mute = True AxWindowsMediaPlayer2.URL = OpenFileDialog2.FileName AxWindowsMediaPlayer2.Ctlcontrols.pause() Dim t1 = AxWindowsMediaPlayer2.currentMedia.name Dim t2 = marqueur & t1 & ".txt" If File.Exists(t2) = True Then Form94.ShowDialog() AjoutéUnMarqueurToolStripMenuItem.Enabled = True Else AxWindowsMediaPlayer1.Ctlcontrols.stop() AxWindowsMediaPlayer1.currentPlaylist.clear() TextBox1.Clear() ouvrir() AjoutéUnMarqueurToolStripMenuItem.Enabled = True End If Else NotifyIcon1.BalloonTipTitle = "Incompatible" NotifyIcon1.BalloonTipText = "Le fichier: " & TextBox3.Text & "est incompatible avec " & lecteurnom NotifyIcon1.ShowBalloonTip(0) End If End If End If Dim dw8 As New StreamWriter(lançer) dw8.WriteLine(1) dw8.Close() End Sub Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing If BCstart = 1 Then e.Cancel = True MsgBox("Une sauvegarde est en cours merci de patienter...", MsgBoxStyle.Critical) Else If misdlno = 1 Then e.Cancel = True MsgBox("Une mise à jour est en cours de téléchargement" & vbNewLine & "merci de patienter", MsgBoxStyle.Exclamation) Else If opentchat = 1 Then MsgBox("Merci de fermer le tchat", MsgBoxStyle.Information) e.Cancel = True Dim msg2 = MsgBox("Voulez-vous fermer le tchat ?", MsgBoxStyle.YesNo) If msg2 = MsgBoxResult.Yes Then tchat.Close() Close() Else tchat.WindowState = FormWindowState.Normal tchat.TopMost = True tchat.TopMost = False End If Else Dim lines() As String = File.ReadAllLines(settings1) If lines(4) = 1 Then Dim msg2 = MsgBox("Voulez-vous vraiment quitter ?", MsgBoxStyle.YesNo) If msg2 = MsgBoxResult.Yes Then Dim dw8 As New StreamWriter(lançer) dw8.WriteLine(0) dw8.Close() NotifyIcon1.Visible = False NotifyIcon2.Visible = False fermature.Show() Else e.Cancel = True End If Else Dim dw8 As New StreamWriter(lançer) dw8.WriteLine(0) dw8.Close() NotifyIcon1.Visible = False fermature.Show() End If End If End If End If End Sub Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute If TimeOfDay.Hour = "0" And TimeOfDay.Minute = "0" Then Label4.Text = "00" & "h" & "00" Form136.Label4.Text = "00" & "h" & "00" ElseIf TimeOfDay.Hour = "0" And TimeOfDay.Minute = "1" Then Label4.Text = "00" & "h" & "01" Form136.Label4.Text = "00" & "h" & "01" ElseIf TimeOfDay.Hour = "0" And TimeOfDay.Minute = "2" Then Label4.Text = "00" & "h" & "02" Form136.Label4.Text = "00" & "h" & "02" ElseIf TimeOfDay.Hour = "0" And TimeOfDay.Minute = "3" Then Label4.Text = "00" & "h" & "03" Form136.Label4.Text = "00" & "h" & "03" ElseIf TimeOfDay.Hour = "00" And TimeOfDay.Minute = "4" Then Label4.Text = "00" & "h" & "04" Form136.Label4.Text = "00" & "h" & "04" ElseIf TimeOfDay.Hour = "00" And TimeOfDay.Minute = "5" Then Label4.Text = "00" & "h" & "05" Form136.Label4.Text = "00" & "h" & "05" ElseIf TimeOfDay.Hour = "00" And TimeOfDay.Minute = "6" Then Label4.Text = "00" & "h" & "06" Form136.Label4.Text = "00" & "h" & "06" ElseIf TimeOfDay.Hour = "00" And TimeOfDay.Minute = "7" Then Label4.Text = "00" & "h" & "07" Form136.Label4.Text = "00" & "h" & "07" ElseIf TimeOfDay.Hour = "00" And TimeOfDay.Minute = "8" Then Label4.Text = "00" & "h" & "08" Form136.Label4.Text = "00" & "h" & "08" ElseIf TimeOfDay.Hour = "00" And TimeOfDay.Minute = "9" Then Label4.Text = "00" & "h" & "09" Form136.Label4.Text = "00" & "h" & "09" ElseIf TimeOfDay.Hour = "0" Then Label4.Text = "00" & "h" & TimeOfDay.Minute Form136.Label4.Text = "00" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "0" Then Label4.Text = "01" & "h" & "00" Form136.Label4.Text = "01" & "h" & "00" ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "1" Then Label4.Text = "01" & "h" & "01" Form136.Label4.Text = "01" & "h" & "01" ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "2" Then Label4.Text = "01" & "h" & "02" Form136.Label4.Text = "01" & "h" & "02" ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "3" Then Label4.Text = "01" & "h" & "03" Form136.Label4.Text = "01" & "h" & "03" ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "4" Then Label4.Text = "01" & "h" & "04" Form136.Label4.Text = "01" & "h" & "04" ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "5" Then Label4.Text = "01" & "h" & "05" Form136.Label4.Text = "01" & "h" & "05" ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "6" Then Label4.Text = "01" & "h" & "06" Form136.Label4.Text = "01" & "h" & "06" ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "7" Then Label4.Text = "01" & "h" & "07" Form136.Label4.Text = "01" & "h" & "07" ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "8" Then Label4.Text = "01" & "h" & "08" Form136.Label4.Text = "01" & "h" & "08" ElseIf TimeOfDay.Hour = "1" And TimeOfDay.Minute = "9" Then Label4.Text = "01" & "h" & "09" Form136.Label4.Text = "01" & "h" & "09" ElseIf TimeOfDay.Hour = "1" Then Label4.Text = "01" & "h" & TimeOfDay.Minute Form136.Label4.Text = "01" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "0" Then Label4.Text = "02" & "h" & "00" Form136.Label4.Text = "02" & "h" & "00" ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "1" Then Label4.Text = "02" & "h" & "01" Form136.Label4.Text = "02" & "h" & "01" ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "2" Then Label4.Text = "02" & "h" & "02" Form136.Label4.Text = "02" & "h" & "02" ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "3" Then Label4.Text = "02" & "h" & "03" Form136.Label4.Text = "02" & "h" & "03" ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "4" Then Label4.Text = "02" & "h" & "04" Form136.Label4.Text = "02" & "h" & "04" ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "5" Then Label4.Text = "02" & "h" & "05" Form136.Label4.Text = "02" & "h" & "05" ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "6" Then Label4.Text = "02" & "h" & "06" Form136.Label4.Text = "02" & "h" & "06" ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "7" Then Label4.Text = "02" & "h" & "07" Form136.Label4.Text = "02" & "h" & "07" ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "8" Then Label4.Text = "02" & "h" & "08" Form136.Label4.Text = "02" & "h" & "08" ElseIf TimeOfDay.Hour = "2" And TimeOfDay.Minute = "9" Then Label4.Text = "02" & "h" & "09" Form136.Label4.Text = "02" & "h" & "09" ElseIf TimeOfDay.Hour = "2" Then Label4.Text = "02" & "h" & TimeOfDay.Minute Form136.Label4.Text = "02" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "0" Then Label4.Text = "03" & "h" & "00" Form136.Label4.Text = "03" & "h" & "00" ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "1" Then Label4.Text = "03" & "h" & "01" Form136.Label4.Text = "03" & "h" & "01" ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "2" Then Label4.Text = "03" & "h" & "02" Form136.Label4.Text = "03" & "h" & "02" ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "3" Then Label4.Text = "03" & "h" & "03" Form136.Label4.Text = "03" & "h" & "03" ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "4" Then Label4.Text = "03" & "h" & "04" Form136.Label4.Text = "03" & "h" & "04" ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "5" Then Label4.Text = "03" & "h" & "05" Form136.Label4.Text = "03" & "h" & "05" ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "6" Then Label4.Text = "03" & "h" & "06" Form136.Label4.Text = "03" & "h" & "06" ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "7" Then Label4.Text = "03" & "h" & "07" Form136.Label4.Text = "03" & "h" & "07" ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "8" Then Label4.Text = "03" & "h" & "08" Form136.Label4.Text = "03" & "h" & "08" ElseIf TimeOfDay.Hour = "3" And TimeOfDay.Minute = "9" Then Label4.Text = "03" & "h" & "09" Form136.Label4.Text = "03" & "h" & "09" ElseIf TimeOfDay.Hour = "3" Then Label4.Text = "03" & "h" & TimeOfDay.Minute Form136.Label4.Text = "03" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "0" Then Label4.Text = "04" & "h" & "00" Form136.Label4.Text = "04" & "h" & "00" ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "1" Then Label4.Text = "04" & "h" & "01" Form136.Label4.Text = "04" & "h" & "01" ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "2" Then Label4.Text = "04" & "h" & "02" Form136.Label4.Text = "04" & "h" & "02" ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "3" Then Label4.Text = "04" & "h" & "03" Form136.Label4.Text = "04" & "h" & "03" ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "4" Then Label4.Text = "04" & "h" & "04" Form136.Label4.Text = "04" & "h" & "04" ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "5" Then Label4.Text = "04" & "h" & "05" Form136.Label4.Text = "04" & "h" & "05" ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "6" Then Label4.Text = "04" & "h" & "06" Form136.Label4.Text = "04" & "h" & "06" ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "7" Then Label4.Text = "04" & "h" & "07" Form136.Label4.Text = "04" & "h" & "07" ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "8" Then Label4.Text = "04" & "h" & "08" Form136.Label4.Text = "04" & "h" & "08" ElseIf TimeOfDay.Hour = "4" And TimeOfDay.Minute = "9" Then Label4.Text = "04" & "h" & "09" Form136.Label4.Text = "04" & "h" & "09" ElseIf TimeOfDay.Hour = "4" Then Label4.Text = "04" & "h" & TimeOfDay.Minute Form136.Label4.Text = "04" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "0" Then Label4.Text = "05" & "h" & "00" Form136.Label4.Text = "05" & "h" & "00" ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "1" Then Label4.Text = "05" & "h" & "01" Form136.Label4.Text = "05" & "h" & "01" ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "2" Then Label4.Text = "05" & "h" & "02" Form136.Label4.Text = "05" & "h" & "02" ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "3" Then Label4.Text = "05" & "h" & "03" Form136.Label4.Text = "05" & "h" & "03" ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "4" Then Label4.Text = "05" & "h" & "04" Form136.Label4.Text = "05" & "h" & "04" ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "5" Then Label4.Text = "05" & "h" & "05" Form136.Label4.Text = "05" & "h" & "05" ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "6" Then Label4.Text = "05" & "h" & "06" Form136.Label4.Text = "05" & "h" & "06" ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "7" Then Label4.Text = "05" & "h" & "07" Form136.Label4.Text = "05" & "h" & "07" ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "8" Then Label4.Text = "05" & "h" & "08" Form136.Label4.Text = "05" & "h" & "08" ElseIf TimeOfDay.Hour = "5" And TimeOfDay.Minute = "9" Then Label4.Text = "05" & "h" & "09" Form136.Label4.Text = "05" & "h" & "09" ElseIf TimeOfDay.Hour = "5" Then Label4.Text = "05" & "h" & TimeOfDay.Minute Form136.Label4.Text = "05" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "0" Then Label4.Text = "06" & "h" & "00" Form136.Label4.Text = "06" & "h" & "00" ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "1" Then Label4.Text = "06" & "h" & "01" Form136.Label4.Text = "06" & "h" & "01" ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "2" Then Label4.Text = "06" & "h" & "02" Form136.Label4.Text = "06" & "h" & "02" ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "3" Then Label4.Text = "06" & "h" & "03" Form136.Label4.Text = "06" & "h" & "03" ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "4" Then Label4.Text = "06" & "h" & "04" Form136.Label4.Text = "06" & "h" & "04" ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "5" Then Label4.Text = "06" & "h" & "05" Form136.Label4.Text = "06" & "h" & "05" ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "6" Then Label4.Text = "06" & "h" & "06" Form136.Label4.Text = "06" & "h" & "06" ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "7" Then Label4.Text = "06" & "h" & "07" Form136.Label4.Text = "06" & "h" & "07" ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "8" Then Label4.Text = "06" & "h" & "08" Form136.Label4.Text = "06" & "h" & "08" ElseIf TimeOfDay.Hour = "6" And TimeOfDay.Minute = "9" Then Label4.Text = "06" & "h" & "09" Form136.Label4.Text = "06" & "h" & "09" ElseIf TimeOfDay.Hour = "6" Then Label4.Text = "06" & "h" & TimeOfDay.Minute Form136.Label4.Text = "06" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "0" Then Label4.Text = "07" & "h" & "00" Form136.Label4.Text = "07" & "h" & "00" ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "1" Then Label4.Text = "07" & "h" & "01" Form136.Label4.Text = "07" & "h" & "01" ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "2" Then Label4.Text = "07" & "h" & "02" Form136.Label4.Text = "07" & "h" & "02" ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "3" Then Label4.Text = "07" & "h" & "03" Form136.Label4.Text = "07" & "h" & "03" ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "4" Then Label4.Text = "07" & "h" & "04" Form136.Label4.Text = "07" & "h" & "04" ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "5" Then Label4.Text = "07" & "h" & "05" Form136.Label4.Text = "07" & "h" & "05" ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "6" Then Label4.Text = "07" & "h" & "06" Form136.Label4.Text = "07" & "h" & "06" ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "7" Then Label4.Text = "07" & "h" & "07" Form136.Label4.Text = "07" & "h" & "07" ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "8" Then Label4.Text = "07" & "h" & "08" Form136.Label4.Text = "07" & "h" & "08" ElseIf TimeOfDay.Hour = "7" And TimeOfDay.Minute = "9" Then Label4.Text = "07" & "h" & "09" Form136.Label4.Text = "07" & "h" & "09" ElseIf TimeOfDay.Hour = "7" Then Label4.Text = "07" & "h" & TimeOfDay.Minute Form136.Label4.Text = "07" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "0" Then Label4.Text = "08" & "h" & "00" Form136.Label4.Text = "08" & "h" & "00" ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "1" Then Label4.Text = "08" & "h" & "01" Form136.Label4.Text = "08" & "h" & "01" ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "2" Then Label4.Text = "08" & "h" & "02" Form136.Label4.Text = "08" & "h" & "02" ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "3" Then Label4.Text = "08" & "h" & "03" Form136.Label4.Text = "08" & "h" & "03" ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "4" Then Label4.Text = "08" & "h" & "04" Form136.Label4.Text = "08" & "h" & "04" ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "5" Then Label4.Text = "08" & "h" & "05" Form136.Label4.Text = "08" & "h" & "05" ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "6" Then Label4.Text = "08" & "h" & "06" Form136.Label4.Text = "08" & "h" & "06" ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "7" Then Label4.Text = "08" & "h" & "07" Form136.Label4.Text = "08" & "h" & "07" ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "8" Then Label4.Text = "08" & "h" & "08" Form136.Label4.Text = "08" & "h" & "08" ElseIf TimeOfDay.Hour = "8" And TimeOfDay.Minute = "9" Then Label4.Text = "08" & "h" & "09" Form136.Label4.Text = "08" & "h" & "09" ElseIf TimeOfDay.Hour = "8" Then Label4.Text = "08" & "h" & TimeOfDay.Minute Form136.Label4.Text = "08" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "0" Then Label4.Text = "09" & "h" & "00" Form136.Label4.Text = "09" & "h" & "00" ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "1" Then Label4.Text = "09" & "h" & "01" Form136.Label4.Text = "09" & "h" & "01" ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "2" Then Label4.Text = "09" & "h" & "02" Form136.Label4.Text = "09" & "h" & "02" ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "3" Then Label4.Text = "09" & "h" & "03" Form136.Label4.Text = "09" & "h" & "03" ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "4" Then Label4.Text = "09" & "h" & "04" Form136.Label4.Text = "09" & "h" & "04" ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "5" Then Label4.Text = "09" & "h" & "05" Form136.Label4.Text = "09" & "h" & "05" ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "6" Then Label4.Text = "09" & "h" & "06" Form136.Label4.Text = "09" & "h" & "06" ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "7" Then Label4.Text = "09" & "h" & "07" Form136.Label4.Text = "09" & "h" & "07" ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "8" Then Label4.Text = "09" & "h" & "08" Form136.Label4.Text = "09" & "h" & "08" ElseIf TimeOfDay.Hour = "9" And TimeOfDay.Minute = "9" Then Label4.Text = "09" & "h" & "09" Form136.Label4.Text = "09" & "h" & "09" ElseIf TimeOfDay.Hour = "9" Then Label4.Text = "09" & "h" & TimeOfDay.Minute Form136.Label4.Text = "09" & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "00" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "10" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "10" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "11" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "11" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "12" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "12" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "13" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "13" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "14" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "14" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "15" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "15" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "16" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "16" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "17" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "17" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "18" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "18" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "19" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "19" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "20" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "20" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "21" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "21" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "22" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "22" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "0" Then Label4.Text = TimeOfDay.Hour & "h" & "00" Form136.Label4.Text = TimeOfDay.Hour & "h" & "00" ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "1" Then Label4.Text = TimeOfDay.Hour & "h" & "01" Form136.Label4.Text = TimeOfDay.Hour & "h" & "01" ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "2" Then Label4.Text = TimeOfDay.Hour & "h" & "02" Form136.Label4.Text = TimeOfDay.Hour & "h" & "02" ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "3" Then Label4.Text = TimeOfDay.Hour & "h" & "03" Form136.Label4.Text = TimeOfDay.Hour & "h" & "03" ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "4" Then Label4.Text = TimeOfDay.Hour & "h" & "04" Form136.Label4.Text = TimeOfDay.Hour & "h" & "04" ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "5" Then Label4.Text = TimeOfDay.Hour & "h" & "05" Form136.Label4.Text = TimeOfDay.Hour & "h" & "05" ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "6" Then Label4.Text = TimeOfDay.Hour & "h" & "06" Form136.Label4.Text = TimeOfDay.Hour & "h" & "06" ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "7" Then Label4.Text = TimeOfDay.Hour & "h" & "07" Form136.Label4.Text = TimeOfDay.Hour & "h" & "07" ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "8" Then Label4.Text = TimeOfDay.Hour & "h" & "08" Form136.Label4.Text = TimeOfDay.Hour & "h" & "08" ElseIf TimeOfDay.Hour = "23" And TimeOfDay.Minute = "9" Then Label4.Text = TimeOfDay.Hour & "h" & "09" Form136.Label4.Text = TimeOfDay.Hour & "h" & "09" ElseIf TimeOfDay.Hour = "23" Then Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute Form136.Label4.Text = TimeOfDay.Hour & "h" & TimeOfDay.Minute End If Label5.Text = SystemInformation.PowerStatus.BatteryLifePercent * 100 & "%" If SystemInformation.PowerStatus.BatteryChargeStatus = BatteryChargeStatus.Charging Then PictureBox9.Show() Else PictureBox9.Hide() End If End Sub Private Sub HistoriqueToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HistoriqueToolStripMenuItem.Click Dim lines1() As String = File.ReadAllLines(optioncontrleparantal) If lines1(3) = 1 Then Form24.opt = 2 Form24.ShowDialog() Else Form29.ShowDialog() End If End Sub Private Sub PictureBox1_DragEnter(sender As Object, e As DragEventArgs) Handles PictureBox1.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) = True Then Dim file As String = e.Data.GetData(DataFormats.FileDrop)(0) If file.EndsWith(".mp4") Or file.EndsWith(".mkv") Or file.EndsWith(".avi") Or file.EndsWith(".mov") Or file.EndsWith(".wmv") Or file.EndsWith(".ts") Or file.EndsWith(".m4v") Or file.EndsWith(".AVI") Or file.EndsWith(".MP4") Or file.EndsWith(".mp3") Then e.Effect = DragDropEffects.All Else e.Effect = DragDropEffects.None End If End If End Sub Private Sub PictureBox1_DragDrop(sender As Object, e As DragEventArgs) Handles PictureBox1.DragDrop AjoutéAuFavorisToolStripMenuItem.Enabled = True If e.Data.GetDataPresent(DataFormats.FileDrop) = True Then Dim file2 As String = e.Data.GetData(DataFormats.FileDrop)(0) If file2.EndsWith(".mp3") Then AxWindowsMediaPlayer1.URL = (file2) TextBox1.Text = AxWindowsMediaPlayer1.URL PictureBox7.Hide() PictureBox2.Show() PictureBox1.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = False AllaiAToolStripMenuItem.Enabled = False PictureBox5.Enabled = True PictureBox6.Enabled = True PictureBox7.Enabled = True PleinToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True AjoutéUnMarqueurToolStripMenuItem.Enabled = True Me.Text = lecteurnom & ": " & AxWindowsMediaPlayer1.currentMedia.name noti2() ElseIf file2.EndsWith(".mp4") Or file2.EndsWith(".mkv") Or file2.EndsWith(".avi") Or file2.EndsWith(".mov") Or file2.EndsWith(".wmv") Or file2.EndsWith(".ts") Or file2.EndsWith(".m4v") Or file2.EndsWith(".AVI") Or file2.EndsWith(".MP4") Then OpenFileDialog2.FileName = file2 AxWindowsMediaPlayer1.Ctlcontrols.stop() AxWindowsMediaPlayer1.currentPlaylist.clear() TextBox1.Clear() AxWindowsMediaPlayer2.settings.mute = True AxWindowsMediaPlayer2.URL = OpenFileDialog2.FileName AxWindowsMediaPlayer2.Ctlcontrols.pause() Dim t1 = AxWindowsMediaPlayer2.currentMedia.name Dim t2 = marqueur & t1 & ".txt" If File.Exists(t2) = True Then Form94.ShowDialog() AjoutéUnMarqueurToolStripMenuItem.Enabled = True Else AxWindowsMediaPlayer1.Ctlcontrols.stop() AxWindowsMediaPlayer1.currentPlaylist.clear() TextBox1.Clear() ouvrir() AjoutéUnMarqueurToolStripMenuItem.Enabled = True End If Else NotifyIcon1.BalloonTipTitle = "Incompatible " NotifyIcon1.BalloonTipText = "Le fichier: " & TextBox3.Text & "est incompatible avec " & lecteurnom NotifyIcon1.ShowBalloonTip(0) End If ComboBox1.DropDownStyle = ComboBoxStyle.Simple ComboBox1.SelectedText = "" ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList End If End Sub Sub noti2() Dim lines3() As String = File.ReadAllLines(notification) If lines3(0) = 1 Then notilang2() ElseIf lines3(0) = 0 Then End If End Sub Sub notilang2() NotifyIcon1.BalloonTipTitle = lecteurnom NotifyIcon1.BalloonTipText = "vous écouter:" & " " & AxWindowsMediaPlayer1.currentMedia.name NotifyIcon1.ShowBalloonTip(1) End Sub Private Sub PictureBox2_DragEnter(sender As Object, e As DragEventArgs) Handles PictureBox2.DragEnter AjoutéAuFavorisToolStripMenuItem.Enabled = True If e.Data.GetDataPresent(DataFormats.FileDrop) = True Then Dim file As String = e.Data.GetData(DataFormats.FileDrop)(0) If file.EndsWith(".mp4") Or file.EndsWith(".mkv") Or file.EndsWith(".avi") Or file.EndsWith(".mov") Or file.EndsWith(".wmv") Or file.EndsWith(".ts") Or file.EndsWith(".m4v") Or file.EndsWith(".AVI") Or file.EndsWith(".MP4") Or file.EndsWith(".MP4") Then e.Effect = DragDropEffects.All Else e.Effect = DragDropEffects.None End If End If End Sub Private Sub PictureBox2_DragDrop(sender As Object, e As DragEventArgs) Handles PictureBox2.DragDrop Timer25.Start() AjoutéAuFavorisToolStripMenuItem.Enabled = True If e.Data.GetDataPresent(DataFormats.FileDrop) = True Then Dim file2 As String = e.Data.GetData(DataFormats.FileDrop)(0) If file2.EndsWith(".mp3") Then AxWindowsMediaPlayer1.URL = (file2) TextBox1.Text = AxWindowsMediaPlayer1.URL PictureBox7.Hide() PictureBox2.Show() PictureBox1.Hide() PictureBox4.Show() VitesseToolStripMenuItem.Enabled = False AllaiAToolStripMenuItem.Enabled = False PictureBox5.Enabled = True PictureBox6.Enabled = True PictureBox7.Enabled = True PleinToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True AjoutéUnMarqueurToolStripMenuItem.Enabled = True Me.Text = lecteurnom & ": " & AxWindowsMediaPlayer1.currentMedia.name noti2() ElseIf file2.EndsWith(".mp4") Or file2.EndsWith(".mkv") Or file2.EndsWith(".avi") Or file2.EndsWith(".mov") Or file2.EndsWith(".wmv") Or file2.EndsWith(".ts") Or file2.EndsWith(".m4v") Or file2.EndsWith(".AVI") Or file2.EndsWith(".MP4") Then OpenFileDialog2.FileName = file2 AxWindowsMediaPlayer1.Ctlcontrols.stop() AxWindowsMediaPlayer1.currentPlaylist.clear() TextBox1.Clear() AxWindowsMediaPlayer2.settings.mute = True AxWindowsMediaPlayer2.URL = OpenFileDialog2.FileName AxWindowsMediaPlayer2.Ctlcontrols.pause() Dim t1 = AxWindowsMediaPlayer2.currentMedia.name Dim t2 = marqueur & t1 & ".txt" If File.Exists(t2) = True Then Form94.ShowDialog() AjoutéUnMarqueurToolStripMenuItem.Enabled = True Else AxWindowsMediaPlayer1.Ctlcontrols.stop() AxWindowsMediaPlayer1.currentPlaylist.clear() TextBox1.Clear() ouvrir() AjoutéUnMarqueurToolStripMenuItem.Enabled = True End If Else NotifyIcon1.BalloonTipTitle = "Incompatible " NotifyIcon1.BalloonTipText = "Le fichier: " & TextBox3.Text & "est incompatible avec " & lecteurnom NotifyIcon1.ShowBalloonTip(0) End If ComboBox1.DropDownStyle = ComboBoxStyle.Simple ComboBox1.SelectedText = "" ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList End If End Sub Sub plaine2() If PleinToolStripMenuItem.Enabled = True Then AxWindowsMediaPlayer1.fullScreen = True Timer1.Start() Timer2.Start() Timer3.Start() Else AxWindowsMediaPlayer1.fullScreen = False End If End Sub Private Sub InformationDuMédiaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InformationDuMédiaToolStripMenuItem.Click Form5.ShowDialog() End Sub Private Sub MisAJoursToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MisAJoursToolStripMenuItem.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") checkupdate() Catch ex As Exception MsgBox("Le serveur de Lecteur média est indisponible !!!", MsgBoxStyle.Critical) End Try End If Catch ex As Exception MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information) End Try End Sub Private Sub BugEtModifycationToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BugEtModifycationToolStripMenuItem1.Click Try Dim maj As New WebClient Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt") Form18.ShowDialog() Catch ex As Exception MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information) End Try End Sub Private Sub AProposDuLecteurToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AProposDuLecteurToolStripMenuItem1.Click Form6.ShowDialog() End Sub Private Sub AjoutéAuFavorisToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AjoutéAuFavorisToolStripMenuItem.Click If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then Form89.ShowDialog() Else MsgBox("Vous n'avez rien lancer sur le lecteur", MsgBoxStyle.Information) End If End Sub Private Sub AfficherLesFavorisToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AfficherLesFavorisToolStripMenuItem.Click favoris.Show() Me.Enabled = False End Sub Private Sub OpuvrirUnFichierSurLeRésauxToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpuvrirUnFichierSurLeRésauxToolStripMenuItem.Click Form34.ShowDialog() End Sub Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick Timer5.Stop() Dim t2 As Integer = 0 Dim nb As Integer = Directory.GetFiles(marqueur).Length Dim lines12() As String = File.ReadAllLines(marqueurtemp) If lines12(0) = 35 Then If nb.ToString >= 35 Then NotifyIcon1.BalloonTipTitle = "Marqueur" NotifyIcon1.BalloonTipText = "Vous avez: " & nb & " marqueur" & vbNewLine & "pensez à les supprimer" NotifyIcon1.ShowBalloonTip(0) End If ElseIf lines12(0) = 3 Then If nb.ToString >= 3 Then NotifyIcon1.BalloonTipTitle = "Marqueur" NotifyIcon1.BalloonTipText = "Vous avez: " & nb & " marqueur" & vbNewLine & "pensez à les supprimer" NotifyIcon1.ShowBalloonTip(0) End If ElseIf lines12(0) = 5 Then If nb.ToString >= 5 Then NotifyIcon1.BalloonTipTitle = "Marqueur" NotifyIcon1.BalloonTipText = "Vous avez: " & nb & " marqueur" & vbNewLine & "pensez à les supprimer" NotifyIcon1.ShowBalloonTip(0) End If ElseIf lines12(0) = 10 Then If nb.ToString >= 10 Then NotifyIcon1.BalloonTipTitle = "Marqueur" NotifyIcon1.BalloonTipText = "Vous avez: " & nb & " marqueur" & vbNewLine & "pensez à les supprimer" NotifyIcon1.ShowBalloonTip(0) End If ElseIf lines12(0) = 15 Then If nb.ToString >= 15 Then NotifyIcon1.BalloonTipTitle = "Marqueur" NotifyIcon1.BalloonTipText = "Vous avez: " & nb & " marqueur" & vbNewLine & "pensez à les supprimer" NotifyIcon1.ShowBalloonTip(0) End If ElseIf lines12(0) = 20 Then If nb.ToString >= 20 Then NotifyIcon1.BalloonTipTitle = "Marqueur" NotifyIcon1.BalloonTipText = "Vous avez: " & nb & " marqueur" & vbNewLine & "pensez à les supprimer" NotifyIcon1.ShowBalloonTip(0) End If ElseIf lines12(0) = 25 Then If nb.ToString >= 25 Then NotifyIcon1.BalloonTipTitle = "Marqueur" NotifyIcon1.BalloonTipText = "Vous avez: " & nb & " marqueur" & vbNewLine & "pensez à les supprimer" NotifyIcon1.ShowBalloonTip(0) End If ElseIf lines12(0) = 30 Then If nb.ToString >= 30 Then NotifyIcon1.BalloonTipTitle = "Marqueur" NotifyIcon1.BalloonTipText = "Vous avez: " & nb & " marqueur" & vbNewLine & "pensez à les supprimer" NotifyIcon1.ShowBalloonTip(0) End If ElseIf lines12(0) = 35 Then If nb.ToString >= 35 Then NotifyIcon1.BalloonTipTitle = "Marqueur" NotifyIcon1.BalloonTipText = "Vous avez: " & nb & " marqueur" & vbNewLine & "pensez à les supprimer" NotifyIcon1.ShowBalloonTip(0) End If ElseIf lines12(0) = 40 Then If nb.ToString >= 40 Then NotifyIcon1.BalloonTipTitle = "Marqueur" NotifyIcon1.BalloonTipText = "Vous avez: " & nb & " marqueur" & vbNewLine & "pensez à les supprimer" NotifyIcon1.ShowBalloonTip(0) End If ElseIf lines12(0) = 45 Then If nb.ToString >= 45 Then NotifyIcon1.BalloonTipTitle = "Marqueur" NotifyIcon1.BalloonTipText = "Vous avez: " & nb & " marqueur" & vbNewLine & "pensez à les supprimer" NotifyIcon1.ShowBalloonTip(0) End If ElseIf lines12(0) = 50 Then If nb.ToString >= 50 Then NotifyIcon1.BalloonTipTitle = "Marqueur" NotifyIcon1.BalloonTipText = "Vous avez: " & nb & " marqueur" & vbNewLine & "pensez à les supprimer" NotifyIcon1.ShowBalloonTip(0) End If ElseIf lines12(0) = 55 Then If nb.ToString >= 55 Then NotifyIcon1.BalloonTipTitle = "Marqueur" NotifyIcon1.BalloonTipText = "Vous avez: " & nb & " marqueur" & vbNewLine & "pensez à les supprimer" NotifyIcon1.ShowBalloonTip(0) End If ElseIf lines12(0) = 60 Then If nb.ToString >= 60 Then NotifyIcon1.BalloonTipTitle = "Marqueur" NotifyIcon1.BalloonTipText = "Vous avez: " & nb & " marqueur" & vbNewLine & "pensez à les supprimer" NotifyIcon1.ShowBalloonTip(0) End If Else End If Dim lines11() As String = File.ReadAllLines(startpage) If lines11(0) < 22 Then Timer5.Stop() Form77.ShowDialog() Else Timer5.Stop() End If End Sub Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick If min = "0" Then AxWindowsMediaPlayer1.fullScreen = False pause() Timer6.Stop() min = minmax Form78.ShowDialog() ElseIf min = "-1" Then Timer6.Stop() Else min = min - 1 End If End Sub Private Sub Form1_MaximumSizeChanged(sender As Object, e As EventArgs) Handles Me.MaximumSizeChanged PictureBox3.Anchor = AnchorStyles.Bottom And AnchorStyles.Left And AnchorStyles.Right End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Form3.ChromeTabcontrol1.SelectedTab = Form3.TabPage20 Form3.ShowDialog() End Sub Private Sub DiffuserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DiffuserToolStripMenuItem.Click diffuser.ShowDialog() End Sub Private Sub PlayToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles PlayToolStripMenuItem1.Click If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then play() End If End Sub Private Sub FilmStreamingToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FilmStreamingToolStripMenuItem.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) Dim t4 = MsgBox("Voulez-vous ouvrir les films hors connexion ?", MsgBoxStyle.YesNo) If t4 = MsgBoxResult.Yes Then Form71.ShowDialog() Else Exit Sub End If Else Form16.ShowDialog() End If Catch ex As Exception MsgBox("Le serveur de Lecteur média est indisponible !!!", MsgBoxStyle.Critical) Dim t4 = MsgBox("Voulez-vous ouvrir les films hors connexion ?", MsgBoxStyle.YesNo) If t4 = MsgBoxResult.Yes Then Form71.ShowDialog() Else Exit Sub End If End Try End If Catch ex As Exception MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information) Dim t4 = MsgBox("vVoulez-vous ouvrir les films hors connexion ?", MsgBoxStyle.YesNo) If t4 = MsgBoxResult.Yes Then Form71.ShowDialog() Else Exit Sub End If End Try End Sub Private Sub MusiqueStreamingToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles MusiqueStreamingToolStripMenuItem1.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) Else Form25.Show() Me.Hide() End If Catch ex As Exception MsgBox("Le serveur de Lecteur média est indisponible", MsgBoxStyle.Critical) End Try End If Catch ex As Exception MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information, "Hors connexion") End Try End Sub Private Sub LançerLeMiniLecteurToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LançerLeMiniLecteurToolStripMenuItem.Click ComboBox1.DropDownStyle = ComboBoxStyle.Simple ComboBox1.SelectedText = "" ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList AxWindowsMediaPlayer1.currentPlaylist.clear() AxWindowsMediaPlayer1.Ctlcontrols.stop() AxWindowsMediaPlayer1.currentPlaylist.clear() TextBox1.Clear() Form8.Show() Me.Hide() End Sub Private Sub LançerDictéeToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles LançerDictéeToolStripMenuItem1.Click ComboBox1.DropDownStyle = ComboBoxStyle.Simple ComboBox1.SelectedText = "" ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList Form21.Show() AxWindowsMediaPlayer1.currentPlaylist.clear() AxWindowsMediaPlayer1.Ctlcontrols.stop() AxWindowsMediaPlayer1.currentPlaylist.clear() TextBox1.Clear() Me.Hide() End Sub Private Sub LançerPlaylistToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LançerPlaylistToolStripMenuItem.Click ComboBox1.DropDownStyle = ComboBoxStyle.Simple ComboBox1.SelectedText = "" ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList AxWindowsMediaPlayer1.Ctlcontrols.stop() AxWindowsMediaPlayer1.currentPlaylist.clear() AxWindowsMediaPlayer1.Ctlcontrols.stop() AxWindowsMediaPlayer1.currentPlaylist.clear() TextBox1.Clear() Form12.Show() Me.Hide() End Sub Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown If e.KeyData = Keys.F2 Then 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") checkupdate() Catch ex As Exception MsgBox("Le serveur de Lecteur média est indisponible", MsgBoxStyle.Critical) End Try End If Catch ex As Exception MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information) End Try Exit Sub End If If e.KeyData = Keys.F11 Then plaine() Exit Sub End If If e.KeyData = Keys.F1 Then Try Dim maj As New WebClient Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt") Process.Start("https://lecteur-media.fr/") Catch ex As Exception MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information) End Try Exit Sub End If If e.KeyData = Keys.F3 Then volumep = AxWindowsMediaPlayer1.settings.volume.ToString() volumep -= 1 AxWindowsMediaPlayer1.settings.volume = volumep Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" If AxWindowsMediaPlayer1.settings.volume = 0 Then PictureBox8.Show() End If Exit Sub End If If e.KeyData = Keys.F4 Then volumep = AxWindowsMediaPlayer1.settings.volume.ToString() volumep += 1 AxWindowsMediaPlayer1.settings.volume = volumep Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() Exit Sub End If If e.Shift And e.KeyData = Keys.F3 = True Then volumep = AxWindowsMediaPlayer1.settings.volume.ToString() volumep += 1 AxWindowsMediaPlayer1.settings.volume = volumep Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox8.Hide() Exit Sub End If If e.KeyData = Keys.Space And AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then AxWindowsMediaPlayer1.Ctlcontrols.play() PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = True PictureBox7.Hide() PictureBox4.Show() Exit Sub End If If e.KeyData = Keys.Space And AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then AxWindowsMediaPlayer1.Ctlcontrols.pause() PlayToolStripMenuItem1.Enabled = True PauseToolStripMenuItem.Enabled = False PictureBox7.Show() PictureBox4.Hide() Exit Sub End If If e.KeyData = Keys.Escape Then AxWindowsMediaPlayer1.fullScreen = False Exit Sub End If If e.KeyData = Keys.F12 Then raccourci.ShowDialog() Exit Sub End If End Sub Sub volumenoir() A10ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A20ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A30ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A40ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A50ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A60ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A70ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A80ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A90ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A100ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem2.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem3.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem4.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem5.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem6.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem7.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem8.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem9.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem10.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem11.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem12.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem13.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem14.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem15.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem16.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem17.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem18.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem19.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem20.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem21.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem22.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem23.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem24.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem25.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem26.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem27.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem28.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem29.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem30.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem31.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem32.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem33.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem34.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem35.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem36.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem37.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem38.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem39.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem40.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem41.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem42.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem43.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem44.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem45.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem46.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem47.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem48.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem49.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem50.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem51.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem52.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem53.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem54.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem55.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem56.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem57.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem58.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem59.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem60.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem61.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem62.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem63.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem64.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem65.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem66.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem67.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem68.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem69.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem70.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem71.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem72.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem73.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem74.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem75.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem76.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem77.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem78.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem79.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem80.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem81.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem82.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem83.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem84.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem85.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem86.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem87.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem88.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem89.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem90.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem91.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem92.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem93.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem94.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem95.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem96.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem97.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem98.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem99.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem100.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem101.BackColor = Color.FromArgb(64, 64, 64) A10ToolStripMenuItem.ForeColor = Color.White A20ToolStripMenuItem.ForeColor = Color.White A30ToolStripMenuItem.ForeColor = Color.White A40ToolStripMenuItem.ForeColor = Color.White A50ToolStripMenuItem.ForeColor = Color.White A60ToolStripMenuItem.ForeColor = Color.White A70ToolStripMenuItem.ForeColor = Color.White A80ToolStripMenuItem.ForeColor = Color.White A90ToolStripMenuItem.ForeColor = Color.White A100ToolStripMenuItem.ForeColor = Color.White ToolStripMenuItem2.ForeColor = Color.White ToolStripMenuItem3.ForeColor = Color.White ToolStripMenuItem4.ForeColor = Color.White ToolStripMenuItem5.ForeColor = Color.White ToolStripMenuItem6.ForeColor = Color.White ToolStripMenuItem7.ForeColor = Color.White ToolStripMenuItem8.ForeColor = Color.White ToolStripMenuItem9.ForeColor = Color.White ToolStripMenuItem10.ForeColor = Color.White ToolStripMenuItem11.ForeColor = Color.White ToolStripMenuItem12.ForeColor = Color.White ToolStripMenuItem13.ForeColor = Color.White ToolStripMenuItem14.ForeColor = Color.White ToolStripMenuItem15.ForeColor = Color.White ToolStripMenuItem16.ForeColor = Color.White ToolStripMenuItem17.ForeColor = Color.White ToolStripMenuItem18.ForeColor = Color.White ToolStripMenuItem19.ForeColor = Color.White ToolStripMenuItem20.ForeColor = Color.White ToolStripMenuItem21.ForeColor = Color.White ToolStripMenuItem22.ForeColor = Color.White ToolStripMenuItem23.ForeColor = Color.White ToolStripMenuItem24.ForeColor = Color.White ToolStripMenuItem25.ForeColor = Color.White ToolStripMenuItem26.ForeColor = Color.White ToolStripMenuItem27.ForeColor = Color.White ToolStripMenuItem28.ForeColor = Color.White ToolStripMenuItem29.ForeColor = Color.White ToolStripMenuItem30.ForeColor = Color.White ToolStripMenuItem31.ForeColor = Color.White ToolStripMenuItem32.ForeColor = Color.White ToolStripMenuItem33.ForeColor = Color.White ToolStripMenuItem34.ForeColor = Color.White ToolStripMenuItem35.ForeColor = Color.White ToolStripMenuItem36.ForeColor = Color.White ToolStripMenuItem37.ForeColor = Color.White ToolStripMenuItem38.ForeColor = Color.White ToolStripMenuItem39.ForeColor = Color.White ToolStripMenuItem40.ForeColor = Color.White ToolStripMenuItem41.ForeColor = Color.White ToolStripMenuItem42.ForeColor = Color.White ToolStripMenuItem43.ForeColor = Color.White ToolStripMenuItem44.ForeColor = Color.White ToolStripMenuItem45.ForeColor = Color.White ToolStripMenuItem46.ForeColor = Color.White ToolStripMenuItem47.ForeColor = Color.White ToolStripMenuItem48.ForeColor = Color.White ToolStripMenuItem49.ForeColor = Color.White ToolStripMenuItem50.ForeColor = Color.White ToolStripMenuItem51.ForeColor = Color.White ToolStripMenuItem52.ForeColor = Color.White ToolStripMenuItem53.ForeColor = Color.White ToolStripMenuItem54.ForeColor = Color.White ToolStripMenuItem55.ForeColor = Color.White ToolStripMenuItem56.ForeColor = Color.White ToolStripMenuItem57.ForeColor = Color.White ToolStripMenuItem58.ForeColor = Color.White ToolStripMenuItem59.ForeColor = Color.White ToolStripMenuItem60.ForeColor = Color.White ToolStripMenuItem61.ForeColor = Color.White ToolStripMenuItem62.ForeColor = Color.White ToolStripMenuItem63.ForeColor = Color.White ToolStripMenuItem64.ForeColor = Color.White ToolStripMenuItem65.ForeColor = Color.White ToolStripMenuItem66.ForeColor = Color.White ToolStripMenuItem67.ForeColor = Color.White ToolStripMenuItem68.ForeColor = Color.White ToolStripMenuItem69.ForeColor = Color.White ToolStripMenuItem70.ForeColor = Color.White ToolStripMenuItem71.ForeColor = Color.White ToolStripMenuItem72.ForeColor = Color.White ToolStripMenuItem73.ForeColor = Color.White ToolStripMenuItem74.ForeColor = Color.White ToolStripMenuItem75.ForeColor = Color.White ToolStripMenuItem76.ForeColor = Color.White ToolStripMenuItem77.ForeColor = Color.White ToolStripMenuItem78.ForeColor = Color.White ToolStripMenuItem79.ForeColor = Color.White ToolStripMenuItem80.ForeColor = Color.White ToolStripMenuItem81.ForeColor = Color.White ToolStripMenuItem82.ForeColor = Color.White ToolStripMenuItem83.ForeColor = Color.White ToolStripMenuItem84.ForeColor = Color.White ToolStripMenuItem85.ForeColor = Color.White ToolStripMenuItem86.ForeColor = Color.White ToolStripMenuItem87.ForeColor = Color.White ToolStripMenuItem88.ForeColor = Color.White ToolStripMenuItem89.ForeColor = Color.White ToolStripMenuItem90.ForeColor = Color.White ToolStripMenuItem91.ForeColor = Color.White ToolStripMenuItem92.ForeColor = Color.White ToolStripMenuItem93.ForeColor = Color.White ToolStripMenuItem94.ForeColor = Color.White ToolStripMenuItem95.ForeColor = Color.White ToolStripMenuItem96.ForeColor = Color.White ToolStripMenuItem97.ForeColor = Color.White ToolStripMenuItem98.ForeColor = Color.White ToolStripMenuItem99.ForeColor = Color.White ToolStripMenuItem100.ForeColor = Color.White ToolStripMenuItem101.ForeColor = Color.White End Sub Private Sub AjoutéUnMarqueurToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AjoutéUnMarqueurToolStripMenuItem.Click Form93.ShowDialog() End Sub Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then GunaMetroTrackBar1.Maximum = AxWindowsMediaPlayer1.currentMedia.duration + 1 GunaMetroTrackBar1.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition volume1() Else GunaMetroTrackBar1.Value = 0 End If End Sub Private Sub GunaMetroTrackBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles GunaMetroTrackBar1.Scroll If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = GunaMetroTrackBar1.Value GunaMetroTrackBar1.Maximum = AxWindowsMediaPlayer1.currentMedia.duration + 1 Else GunaMetroTrackBar1.Value = 0 End If End Sub Private Sub RaccourciToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RaccourciToolStripMenuItem.Click raccourci.ShowDialog() End Sub Private Sub LançerEbookToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LançerEbookToolStripMenuItem.Click Try If My.Computer.Network.Ping("www.google.com") Then e_books.Show() Me.Hide() End If Catch ex As Exception MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information) End Try End Sub Private Sub TestToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TestToolStripMenuItem.Click test.ShowDialog() End Sub Private Sub DriveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DriveToolStripMenuItem.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) Else Drive.ShowDialog() End If Catch ex As Exception MsgBox("Le serveur de Lecteur média est indisponible", MsgBoxStyle.Exclamation) End Try 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 finiload() If File.Exists(compteco) Then Else Dim sw45 As New StreamWriter(compteco) sw45.WriteLine(0) sw45.Close() End If If File.Exists(comtpeco2) Then Else Dim sw46 As New StreamWriter(comtpeco2) sw46.WriteLine(0) sw46.Close() End If Dim lines456() As String = File.ReadAllLines(fichierconfigbackup) If lines456(0) > 0 Then Timer19.Start() Else End If Dim lines458() As String = File.ReadAllLines(comtpeco2) If lines458(0) > 0 Then DriveToolStripMenuItem.Visible = True TchatEnLigneToolStripMenuItem.Visible = True Else DriveToolStripMenuItem.Visible = False TchatEnLigneToolStripMenuItem.Visible = False End If Dim lines457() As String = File.ReadAllLines(compteco) Form3.Label21.Text = lines457(0) Timer7.Start() AjoutéUnMarqueurToolStripMenuItem.Enabled = False For Each fichier As String In IO.Directory.GetDirectories(radio) Dim info As New IO.FileInfo(fichier) ComboBox1.Items.Add(info.Name) Next Timer5.Start() Label2.Hide() PictureBox2.AllowDrop = True PictureBox1.AllowDrop = True ListBox1.Hide() Dim sr As New StreamReader(historique) While (sr.Peek >= 0) ListBox1.Items.Add(sr.ReadLine) End While sr.Close() TextBox3.Hide() ProgressBar1.Hide() ProgressBar2.Hide() ProgressBar3.Hide() PictureBox8.Hide() Dim settings1 As String = repertoire & "settings1.txt" Dim volume As Integer = 0 Dim radiov As Integer = 1 Dim mis As Integer = 0 Dim démarage As Integer = 0 If File.Exists(settings1) Then Dim lines() As String = File.ReadAllLines(settings1) If lines(0) <> 0 Then AxWindowsMediaPlayer1.settings.volume = lines(0) Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End If If lines(1) = 1 Then ComboBox1.Show() Button3.Show() Else ComboBox1.Hide() Button3.Hide() End If If lines(2) = 1 Then End If If lines(3) = 1 Then End If End If Dim lines4() As String = File.ReadAllLines(théme) If lines4(0) = 1 Then ElseIf lines4(0) = 2 Then noir() ElseIf lines4(0) = 3 Then Dim lines2() As String = File.ReadAllLines(themeselect) PictureBox6.Image = Image.FromFile(dostheme & "\" & lines2(0) & "\btpleinécran.png") PleinToolStripMenuItem.Image = PictureBox6.Image PictureBox7.Image = Image.FromFile(dostheme & "\" & lines2(0) & "\btplay.png") PlayToolStripMenuItem1.Image = PictureBox7.Image PictureBox4.Image = Image.FromFile(dostheme & "\" & lines2(0) & "\btpause.png") PauseToolStripMenuItem.Image = PictureBox4.Image PictureBox5.Image = Image.FromFile(dostheme & "\" & lines2(0) & "\btstop.png") StopToolStripMenuItem.Image = PictureBox5.Image PictureBox8.Image = Image.FromFile(dostheme & "\" & lines2(0) & "\btvolumemute.png") VolumeMuteToolStripMenuItem.Image = PictureBox8.Image GunaAdvenceButton1.Image = Image.FromFile(dostheme & "\" & lines2(0) & "\btsuivant.png") GunaAdvenceButton2.Image = Image.FromFile(dostheme & "\" & lines2(0) & "\btprésédent.png") PictureBox10.Image = Image.FromFile(dostheme & "\" & lines2(0) & "\bttéléchargement.png") PictureBox11.Image = Image.FromFile(dostheme & "\" & lines2(0) & "\btlike.png") PictureBox12.Image = Image.FromFile(dostheme & "\" & lines2(0) & "\btdislike.png") Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) AjouterUnFilmToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) LanceLecteurMédiaSYCNToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) OutiAdministrationToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) CrypteLecteurMédiaToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ConvertirEnM4vToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) GestionDesUtilisateurToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) TestToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) AjoutterUnSériessaisonToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ModifierUnFilmToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) OpuvrirUnFichierSurLeRésauxToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) OpuvrirUnFichierSurLeRésauxToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) LanceLecteurMédiaSYCNToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) OutiAdministrationToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) CrypteLecteurMédiaToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ConvertirEnM4vToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) GestionDesUtilisateurToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) TestToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) AjouterUnFilmToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) AjoutterUnSériessaisonToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ModifierUnFilmToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ChangerDeProfilsToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ChangerDeProfilsToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) TchatEnLigneToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) TchatEnLigneToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) GunaAdvenceButton1.OnHoverBaseColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) GunaAdvenceButton1.OnHoverBorderColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) GunaAdvenceButton1.OnHoverLineColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) GunaAdvenceButton1.OnPressedColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) GunaAdvenceButton2.OnHoverBaseColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) GunaAdvenceButton2.OnHoverBorderColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) GunaAdvenceButton2.OnHoverLineColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) GunaAdvenceButton2.OnPressedColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) GunaAdvenceButton2.BaseColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) GunaAdvenceButton1.BaseColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) SériesStreamingToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) SériesStreamingToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) Label5.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) Label5.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) InformationDuMédiaToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) InformationDuMédiaToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) PictureBox8.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) PictureBox9.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) AjoutéAuFavorisToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) AjoutéAuFavorisToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) YoutubeToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) YoutubeToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) LançerLaWidgetsToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) LançerLaWidgetsToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) PictureBox6.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) PictureBox5.Image = My.Resources.stop_orange PictureBox5.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) PictureBox4.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) DriveToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) DriveToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) AjoutéUnMarqueurToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) AjoutéUnMarqueurToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) RaccourciToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) RaccourciToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) Label4.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) Label4.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) GunaMetroTrackBar1.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) GunaMetroTrackBar1.TrackColor = Color.FromArgb(trackparproA, trackparproR, trackparproG, trackparproB) GunaMetroTrackBar1.TrackHoverColor = Color.FromArgb(trackparproA, trackparproR, trackparproG, trackparproB) GunaMetroTrackBar1.TrackPressedColor = Color.FromArgb(trackparproA, trackparproR, trackparproG, trackparproB) GunaMetroTrackBar1.TrackIdleColor = Color.FromArgb(trackparcolorA, trackparcolorR, trackparcolorG, trackparcolorB) Button3.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) Button3.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) OuvrirLesOptionToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) LançerToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) StreamingToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) LançerDictéeToolStripMenuItem1.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) AfficherLesFavorisToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) HistoriqueToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) MusiqueStreamingToolStripMenuItem1.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) HistoriqueToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) LançerDictéeToolStripMenuItem1.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) MusiqueStreamingToolStripMenuItem1.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) AfficherLesFavorisToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) LançerToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) StreamingToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripSeparator1.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) MenuStrip1.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) MainMenuStrip.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) AideToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) Label1.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) Label1.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) Button1.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) Button1.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) Button2.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) Button2.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) Button3.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) PictureBox7.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) PictureBox3.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) AideToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) FichierToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) FichierToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) MainMenuStrip.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) Me.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) OuvrirLeLecteurCDToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) OuvrirLesOptionToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) PlayToolStripMenuItem1.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) PauseToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) OptionToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) StopToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) VitesseToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) LançerPlaylistToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) LançerLeMiniLecteurToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) AllaiAToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) FenêtreToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) MinimiserToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) AgrandirToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) NormalToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) AllezÀToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) AvanceNormalToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) AvanceRapiteToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) FilmStreamingToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) BugEtModifycationToolStripMenuItem1.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) MisAJoursToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) AProposDuLecteurToolStripMenuItem1.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) QuitterLeLecteurToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) VolumeToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) VolumeToolStripMenuItem1.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) VolumeMuteToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) MiToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) MiToolStripMenuItem1.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) MiToolStripMenuItem2.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) MiToolStripMenuItem4.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) MiToolStripMenuItem5.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) HToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) MédiaToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) PleinToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) OuvrirLeLecteurCDToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) LançerPlaylistToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) LançerLeMiniLecteurToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) FenêtreToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) MinimiserToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) AgrandirToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) NormalToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) FilmStreamingToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) OptionToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) AProposDuLecteurToolStripMenuItem1.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) BugEtModifycationToolStripMenuItem1.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) MisAJoursToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) MainMenuStrip.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ComboBox1.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) MainMenuStrip.ForeColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ComboBox1.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) QuitterLeLecteurToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) OuvrirUnFicherToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) OuvrirUnFicherToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) Me.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) Me.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) PlayToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) AllezÀToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) PauseToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) StopToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) VolumeMuteToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) VitesseToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) PlayToolStripMenuItem1.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) InformationDuMédiaToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) PleinToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) AllaiAToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) AjoutéAuFavorisToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) VolumeToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) AvanceNormalToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) AvanceNormalToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) MiToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) MiToolStripMenuItem1.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) MiToolStripMenuItem2.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) MiToolStripMenuItem4.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) MiToolStripMenuItem5.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) HToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) AvanceRapiteToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) VolumeToolStripMenuItem1.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) A10ToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) A20ToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) A30ToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) A40ToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) A50ToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) A60ToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) A70ToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) A80ToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) A90ToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) A100ToolStripMenuItem.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem2.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem3.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem4.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem5.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem6.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem7.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem8.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem9.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem10.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem11.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem12.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem13.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem14.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem15.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem16.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem17.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem18.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem19.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem20.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem21.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem22.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem23.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem24.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem25.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem26.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem27.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem28.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem29.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem30.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem31.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem32.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem33.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem34.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem35.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem36.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem37.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem38.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem39.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem40.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem41.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem42.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem43.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem44.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem45.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem46.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem47.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem48.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem49.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem50.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem51.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem52.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem53.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem54.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem55.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem56.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem57.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem58.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem59.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem60.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem61.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem62.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem63.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem64.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem65.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem66.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem67.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem68.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem69.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem70.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem71.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem72.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem73.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem74.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem75.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem76.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem77.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem78.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem79.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem80.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem81.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem82.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem83.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem84.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem85.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem86.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem87.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem88.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem89.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem90.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem91.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem92.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem93.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem94.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem95.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem96.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem97.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem98.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem99.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem100.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) ToolStripMenuItem101.BackColor = Color.FromArgb(colorbackA, colorbackR, colorbackG, colorbackB) A10ToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) A20ToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) A30ToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) A40ToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) A50ToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) A60ToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) A70ToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) A80ToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) A90ToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) A100ToolStripMenuItem.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem2.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem3.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem4.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem5.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem6.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem7.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem8.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem9.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem10.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem11.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem12.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem13.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem14.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem15.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem16.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem17.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem18.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem19.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem20.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem21.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem22.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem23.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem24.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem25.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem26.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem27.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem28.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem29.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem30.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem31.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem32.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem33.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem34.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem35.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem36.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem37.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem38.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem39.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem40.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem41.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem42.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem43.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem44.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem45.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem46.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem47.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem48.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem49.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem50.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem51.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem52.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem53.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem54.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem55.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem56.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem57.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem58.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem59.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem60.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem61.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem62.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem63.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem64.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem65.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem66.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem67.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem68.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem69.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem70.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem71.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem72.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem73.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem74.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem75.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem76.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem77.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem78.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem79.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem80.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem81.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem82.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem83.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem84.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem85.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem86.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem87.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem88.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem89.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem90.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem91.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem92.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem93.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem94.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem95.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem96.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem97.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem98.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem99.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem100.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) ToolStripMenuItem101.ForeColor = Color.FromArgb(themeforecoloA, themeforecoloR, themeforecoloG, themeforecoloB) PictureBox5.Image = Image.FromFile(dostheme & "\" & lines2(0) & "\btstop.png") StopToolStripMenuItem.Image = PictureBox5.Image End If PictureBox2.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" AxWindowsMediaPlayer1.enableContextMenu = False VitesseToolStripMenuItem.Enabled = False AllaiAToolStripMenuItem.Enabled = False PlayToolStripMenuItem1.Enabled = False PauseToolStripMenuItem.Enabled = False StopToolStripMenuItem.Enabled = False PleinToolStripMenuItem.Enabled = False PictureBox5.Enabled = False PictureBox6.Enabled = False PictureBox7.Enabled = False AjoutéAuFavorisToolStripMenuItem.Enabled = False TextBox1.Hide() Dim lines10() As String = File.ReadAllLines(lançer) startdb() Timer4.Start() Label2.Text = min Timer6.Start() Dim lines346() As String = File.ReadAllLines(dev) If lines346(0) = 1 Then TestToolStripMenuItem.Visible = True Else TestToolStripMenuItem.Visible = False End If Dim lines1223() As String = File.ReadAllLines(settings1) Try If lines1223(4) = 1 Then End If Catch ex As Exception Dim t1 = lines1223(0) Dim t2 = lines1223(1) Dim t3 = lines1223(2) Dim t4 = lines1223(3) Dim t5 = 0 Dim sw57 As New StreamWriter(settings1) sw57.WriteLine(t1) sw57.WriteLine(t2) sw57.WriteLine(t3) sw57.WriteLine(t4) sw57.WriteLine(t5) sw57.Close() End Try Dim lines1222() As String = File.ReadAllLines(settings1) Try If lines1222(5) = 1 Then If lines1222(6) = 5 Then Timer25.Interval = 300000 Timer25.Start() ElseIf lines1222(6) = 1 Then Timer25.Interval = 60000 Timer25.Start() ElseIf lines1222(6) = 3 Then Timer25.Interval = 180000 Timer25.Start() ElseIf lines1222(6) = 10 Then Timer25.Interval = 600000 Timer25.Start() ElseIf lines1222(6) = 15 Then Timer25.Interval = 900000 Timer25.Start() ElseIf lines1222(6) = 20 Then Timer25.Interval = 1200000 Timer25.Start() ElseIf lines1222(6) = 25 Then Timer25.Interval = 1500000 Timer25.Start() ElseIf lines1222(6) = 30 Then Timer25.Interval = 1800000 Timer25.Start() ElseIf lines1222(6) = 35 Then Timer25.Interval = 2100000 Timer25.Start() ElseIf lines1222(6) = 40 Then Timer25.Interval = 2400000 Timer25.Start() ElseIf lines1222(6) = 45 Then Timer25.Interval = 2700000 Timer25.Start() ElseIf lines1222(6) = 50 Then Timer25.Interval = 3000000 Timer25.Start() ElseIf lines1222(6) = 55 Then Timer25.Interval = 3300000 Timer25.Start() ElseIf lines1222(6) = 60 Then Timer25.Interval = 3600000 Timer25.Start() End If End If Timer11.Start() Catch ex As Exception Dim lines46() As String = File.ReadAllLines(settings1) Dim t1 = lines46(0) Dim t2 = lines46(1) Dim t3 = lines46(2) Dim t4 = lines46(3) Dim t5 = lines46(4) Dim t6 = 1 Dim t7 = 5 Dim sw56 As New StreamWriter(settings1) sw56.WriteLine(t1) sw56.WriteLine(t2) sw56.WriteLine(t3) sw56.WriteLine(t4) sw56.WriteLine(t5) sw56.WriteLine(t6) sw56.WriteLine(t7) sw56.Close() Timer11.Start() End Try End Sub Private Sub YoutubeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles YoutubeToolStripMenuItem.Click Try If My.Computer.Network.Ping("www.google.com") Then YouTube_Downloader.ShowDialog() End If Catch ex As Exception MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information) End Try End Sub Sub deco() deco2() End Sub Sub deco2() File.Delete(compte & "\passtemps.txt") Dim lines1() As String = File.ReadAllLines(compteco) Try Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & lines1(0) & "/pc/" & My.Computer.Name & "/info.txt") ftreq.Method = WebRequestMethods.Ftp.DeleteFile ftreq.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp As FtpWebResponse = ftreq.GetResponse Catch ex As Exception End Try Try Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & lines1(0) & "/pc/" & My.Computer.Name & "/co.txt") ftreq2.Method = WebRequestMethods.Ftp.DeleteFile ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse Catch ex As Exception End Try Try Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & lines1(0) & "/pc/" & My.Computer.Name & "/index.php") ftreq3.Method = WebRequestMethods.Ftp.DeleteFile ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse ftpresp3.Close() Catch ex As Exception End Try Try Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & lines1(0) & "/pc/" & My.Computer.Name & "/") ftreq4.Method = WebRequestMethods.Ftp.RemoveDirectory ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp) Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse deco3() Catch ex As Exception End Try End Sub Sub deco3() decofini() End Sub Private Sub Timer13_Tick(sender As Object, e As EventArgs) Handles Timer13.Tick Timer13.Stop() Dim dw8 As New StreamWriter(lançer) dw8.WriteLine(0) dw8.Close() NotifyIcon1.Visible = False Process.Start(Application.StartupPath & "\rememarage") End End Sub Sub volume1() If AxWindowsMediaPlayer1.settings.volume = 1 Then ToolStripMenuItem2.Checked = True End If End Sub Private Sub Timer14_Tick(sender As Object, e As EventArgs) Handles Timer14.Tick File.Delete(compte & "infoco.txt") File.Delete(compte & "mail.txt") File.Delete(compte & "pass.txt") File.Delete(compte & "pcinfo.txt") File.Delete(compte & "setting.txt") File.Delete(compte & "vérification.txt") File.Delete(compte & "utilisateur.txt") File.Delete(compte & My.Computer.Name & ".txt") End Sub Sub comtpedeco789() Dim lines1() As String = File.ReadAllLines(compteco) Dim fwr As FtpWebRequest fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & lines1(0) & "/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 sr.Close() If Directory.Exists(cozip & My.Computer.Name) = 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 comtpedeco987() Else For Each fichier As String In IO.Directory.GetDirectories(cozip) Dim info As New IO.FileInfo(fichier) Directory.Delete(cozip & info.Name) Next creatdos() End If End Sub Sub comtpedeco987() Dim lines1() As String = File.ReadAllLines(compteco) Dim fwr As FtpWebRequest fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & lines1(0) & "/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 Directory.CreateDirectory(cozip & str) str = sr.ReadLine() End While sr.Close() deco45() End Sub Sub deco45() If Directory.Exists(cozip & "co.txt") = 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 deco789() Else For Each fichier As String In IO.Directory.GetDirectories(cozip) Dim info As New IO.FileInfo(fichier) Directory.Delete(cozip & info.Name) Next dlhistorique() End If End Sub Private Sub Timer15_Tick(sender As Object, e As EventArgs) Handles Timer15.Tick Timer15.Stop() Dim lines1() As String = File.ReadAllLines(compteco) Try My.Computer.Network.DownloadFile(ipserver & "/utilisateur/" & lines1(0) & "/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") Timer15.Start() Else System.IO.Compression.ZipFile.ExtractToDirectory(compte & "co.zip", cozip) File.Delete(compte & "/co.zip") deco789() End If Catch ex As Exception Timer15.Start() End Try End Sub Sub deco789() deco() End Sub Sub decofini() Dim lines() As String = File.ReadAllLines(compteco) Dim tcon = lines(0) NotifyIcon1.BalloonTipTitle = "Déconnection" NotifyIcon1.BalloonTipText = "Vous avez été déconnecter du compte: " & tcon NotifyIcon1.ShowBalloonTip(0) Dim sw2 As New StreamWriter(compteco) sw2.WriteLine(0) sw2.Close() Dim sw3 As New StreamWriter(comtpeco2) sw3.WriteLine(0) sw3.Close() Me.Enabled = True rdm = 1 If rdm = 1 Then NotifyIcon1.BalloonTipTitle = "Déconnection" NotifyIcon1.BalloonTipText = "Le lecteur va redémarrer dans 30seconde" MenuStrip1.Enabled = False NotifyIcon1.ShowBalloonTip(0) Timer13.Start() End If End Sub Private Sub Timer16_Tick(sender As Object, e As EventArgs) Handles Timer16.Tick Timer16.Stop() Try My.Computer.Network.UploadFile(compte & "co.zip", ipserver & "/utilisateur/" & tcon & "/co.zip") File.Delete(compte & "co.zip") decofini() Catch ex As Exception Timer16.Start() End Try End Sub Private Sub Timer11_Tick(sender As Object, e As EventArgs) Handles Timer11.Tick Timer11.Stop() Dim lines1222() As String = File.ReadAllLines(repertoire & "settings1.txt") DiffuserToolStripMenuItem.Enabled = False Try If My.Computer.Network.Ping("www.google.fr") Then Try Dim lines600() As String = File.ReadAllLines(comtpeco2) Dim maj As New WebClient Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt") If lines600(0) = 1 And vri = 0 Then servertemps2 = 1 verifipass() ElseIf lines600(0) = 0 And vri = 0 Then servertemps2 = 1 ElseIf vri = 1 And servertemps = 0 Then DriveToolStripMenuItem.Visible = False NotifyIcon1.BalloonTipTitle = "Serveur" NotifyIcon1.BalloonTipText = "Le serveur de lecteur média est indisponible" NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning NotifyIcon1.ShowBalloonTip(0) NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info servertemps = 1 servertemps2 = 0 End If Catch ex As Exception DriveToolStripMenuItem.Visible = False NotifyIcon1.BalloonTipTitle = "Serveur" NotifyIcon1.BalloonTipText = "Le serveur de lecteur média est indisponible" NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning NotifyIcon1.ShowBalloonTip(0) NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info servertemps = 1 servertemps2 = 0 End Try End If Catch ex As Exception DriveToolStripMenuItem.Visible = False NotifyIcon1.BalloonTipTitle = "Compte" NotifyIcon1.BalloonTipText = "Vous n’êtes actuellement pas connecté à Internet" NotifyIcon1.ShowBalloonTip(0) End Try If lines1222(2) = 1 Then misajour() End If End Sub Private Sub Timer17_Tick(sender As Object, e As EventArgs) Handles Timer17.Tick Timer17.Stop() Dim lines1() As String = File.ReadAllLines(compte & "temp.txt") If lines1(0) = 0 Then Form3.passeincor = 0 File.Delete(compte & "temp.txt") Timer7.Stop() ElseIf lines1(0) = 1 Then NotifyIcon1.BalloonTipTitle = "Compte" NotifyIcon1.BalloonTipText = "Vous pourrez vous reconnecter dans 1 minute" NotifyIcon1.ShowBalloonTip(0) Dim sw1 As New StreamWriter(compte & "temp.txt") sw1.WriteLine(lines1(0) - 1) sw1.Close() Timer17.Start() Else Dim sw1 As New StreamWriter(compte & "temp.txt") sw1.WriteLine(lines1(0) - 1) sw1.Close() Timer17.Start() End If End Sub Private Sub NotifyIcon1_BalloonTipClicked(sender As Object, e As EventArgs) Handles NotifyIcon1.BalloonTipClicked If NotifyIcon1.BalloonTipTitle = "Marqueur" Then Form3.ChromeTabcontrol1.SelectedTab = Form3.TabPage1 Form3.ShowDialog() End If End Sub Sub misajour() Try If My.Computer.Network.Ping("www.google.fr") = True Then misajour2() End If Catch ex As Exception End Try End Sub Sub misajour2() Dim maj As New WebClient Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/ver.txt") If vr = vri Then If canalmis = 1 Then Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/verdev.txt") If vrdev = vri2 Then Else If testdev2 = 1 Then Form162.form162misdev = 1 NotifyIcon3.Visible = True NotifyIcon3.BalloonTipTitle = "Mise à jour" NotifyIcon3.BalloonTipText = "Début du téléchargement" NotifyIcon3.ShowBalloonTip(0) Form162.Show() Else Form72.form72misdev = 1 NotifyIcon2.Visible = True NotifyIcon2.BalloonTipTitle = "Mise à jour" NotifyIcon2.BalloonTipText = "Une mise à jour du lecteur est disponible" NotifyIcon2.ShowBalloonTip(0) End If End If End If Else If testdev2 = 1 Then NotifyIcon3.Visible = True NotifyIcon3.BalloonTipTitle = "Mise à jour" NotifyIcon3.BalloonTipText = "Début du téléchargement" NotifyIcon3.ShowBalloonTip(0) Form162.Show() Else NotifyIcon2.Visible = True NotifyIcon2.BalloonTipTitle = "Mise à jour" NotifyIcon2.BalloonTipText = "Une mise à jour du lecteur est disponible" NotifyIcon2.ShowBalloonTip(0) End If End If End Sub Private Sub NotifyIcon2_MouseClick(sender As Object, e As MouseEventArgs) Handles NotifyIcon2.MouseClick NotifyIcon2.Visible = False Form72.ShowDialog() End Sub Private Sub NotifyIcon2_BalloonTipClicked(sender As Object, e As EventArgs) Handles NotifyIcon2.BalloonTipClicked NotifyIcon2.Visible = False Form72.ShowDialog() End Sub Private Sub Timer18_Tick(sender As Object, e As EventArgs) Handles Timer18.Tick Timer18.Stop() Try If My.Computer.Network.Ping("www.google.com") Then servertemps1() End If Catch ex As Exception Timer18.Start() End Try End Sub Sub servertemps1() Try Dim maj As New WebClient Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt") If vri = 1 And servertemps = 0 Then DriveToolStripMenuItem.Visible = False TchatEnLigneToolStripMenuItem.Visible = False NotifyIcon1.BalloonTipTitle = "Serveur" NotifyIcon1.BalloonTipText = "Le serveur de lecteur média est indisponible" NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning NotifyIcon1.ShowBalloonTip(0) NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info servertemps = 1 servertemps2 = 0 Timer18.Start() ElseIf vri = 0 And servertemps2 = 0 Then DriveToolStripMenuItem.Visible = True TchatEnLigneToolStripMenuItem.Visible = True NotifyIcon1.BalloonTipTitle = "Serveur" NotifyIcon1.BalloonTipText = "Le serveur de lecteur média est de nouveaux disponible." NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info NotifyIcon1.ShowBalloonTip(0) servertemps = 0 servertemps2 = 1 Dim lines600() As String = File.ReadAllLines(comtpeco2) If lines600(0) = 1 Then DriveToolStripMenuItem.Visible = True TchatEnLigneToolStripMenuItem.Visible = True Timer18.Start() verifipass() Else DriveToolStripMenuItem.Visible = False TchatEnLigneToolStripMenuItem.Visible = False Timer18.Start() End If Else Timer18.Start() End If Catch ex As Exception If servertemps = 0 Then DriveToolStripMenuItem.Visible = False TchatEnLigneToolStripMenuItem.Visible = False NotifyIcon1.BalloonTipTitle = "Serveur" NotifyIcon1.BalloonTipText = "Le serveur de lecteur média est indisponible" NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning NotifyIcon1.ShowBalloonTip(0) NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info servertemps = 1 servertemps2 = 0 Timer18.Start() End If End Try End Sub Private Sub NotifyIcon3_MouseClick(sender As Object, e As MouseEventArgs) Handles NotifyIcon3.MouseClick Dim t111 = MsgBox("Voulez-vous installer la mise à jour maintenant ?", MsgBoxStyle.YesNo) NotifyIcon3.Visible = False If t111 = MsgBoxResult.Yes Then Dim dw9 As New StreamWriter(misajours & "appli.txt") dw9.WriteLine(My.Application.Info.DirectoryPath) dw9.Close() Dim dw8 As New StreamWriter(lançer) dw8.WriteLine(0) dw8.Close() NotifyIcon1.Visible = False Dim lines7() As String = File.ReadAllLines(dosparamètres & "\widgets\" & "lançer.txt") If lines7(0) = 1 Then Form72.killProcess("widgets.exe") Else End If Dim dw18 As New StreamWriter(dosparamètres & "\widgets\" & "lançer.txt") dw18.WriteLine(0) dw18.Close() Try Process.Start(misajours & "lecteur média update.exe") End Catch ex As Exception Timer22.Start() End Try Else misdlok = 1 MsgBox("la mis a jour sera installer lors de la fermeture du lecteur", MsgBoxStyle.Information) End If End Sub Private Sub LançerLaWidgetsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LançerLaWidgetsToolStripMenuItem.Click Try Process.Start(Application.StartupPath & "\widgets.exe") Dim sw1 As New StreamWriter(dosparamètres & "\widgets\lecteur média.txt") sw1.WriteLine(Application.StartupPath & "\lecteur média.exe") sw1.Close() Catch ex As Exception End Try End Sub Private Sub Timer19_Tick(sender As Object, e As EventArgs) Handles Timer19.Tick Timer19.Stop() Dim lines1() As String = File.ReadAllLines(fichierconfigbackup) If lines1(0) = 1 Then If TimeOfDay.Hour = lines1(1) And TimeOfDay.Minute = lines1(2) Then If File.Exists("lecteur média backup du " & Today.Day & "-" & Today.Month & "-" & Today.Year & " a " & TimeOfDay.Hour & "h" & TimeOfDay.Minute & ".zip") = True Then Timer19.Start() Else BackgroundWorker1.RunWorkerAsync() End If Else tree = 0 Timer19.Start() End If ElseIf lines1(0) = 2 Then If Today.Day = lines1(3) And TimeOfDay.Hour = lines1(1) And TimeOfDay.Minute = lines1(2) Then If File.Exists("lecteur média backup du " & Today.Day & "-" & Today.Month & "-" & Today.Year & " a " & TimeOfDay.Hour & "h" & TimeOfDay.Minute & ".zip") = True Then Timer19.Start() Else BackgroundWorker1.RunWorkerAsync() End If Else tree = 0 Timer19.Start() End If End If End Sub Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork Dim lines1() As String = File.ReadAllLines(fichierconfigbackup) If lines1(4) = 1 And tree = 0 Then BCstart = 1 NotifyIcon1.BalloonTipTitle = "Sauvegarde" NotifyIcon1.BalloonTipText = "Démarrage de la Sauvegarde" NotifyIcon1.ShowBalloonTip(1) tree = 1 ElseIf lines1(4) = 3 And tree = 0 Then BCstart = 1 NotifyIcon1.BalloonTipTitle = "Sauvegarde" NotifyIcon1.BalloonTipText = "Démarrage de la Sauvegarde" NotifyIcon1.ShowBalloonTip(1) tree = 2 Else End If Dim sw1 As New StreamWriter(lastedbackup) sw1.WriteLine(1) sw1.WriteLine(Today.Day) sw1.WriteLine(Today.Month) sw1.WriteLine(Today.Year) sw1.WriteLine(TimeOfDay.Hour) sw1.WriteLine(TimeOfDay.Minute) sw1.Close() Compression.ZipFile.CreateFromDirectory(repertoireavis, mesbacup & "\lecteur média backup du " & Today.Day & "-" & Today.Month & "-" & Today.Year & " a " & TimeOfDay.Hour & "h" & TimeOfDay.Minute & ".zip") End Sub Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted Dim lines1() As String = File.ReadAllLines(fichierconfigbackup) If lines1(4) = 2 And tree = 0 Then BCstart = 0 NotifyIcon1.BalloonTipTitle = "Sauvegarde" NotifyIcon1.BalloonTipText = "Sauvegarde terminer" NotifyIcon1.ShowBalloonTip(1) tree = 1 ElseIf lines1(4) = 3 And tree = 2 Then BCstart = 0 NotifyIcon1.BalloonTipTitle = "Sauvegarde" NotifyIcon1.BalloonTipText = "Sauvegarde terminer" NotifyIcon1.ShowBalloonTip(1) tree = 3 Else End If Timer19.Start() End Sub Private Sub SériesStreamingToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SériesStreamingToolStripMenuItem.Click Try If My.Computer.Network.Ping("ww.google.com") 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("Le serveur de lecteur média est indisponible", MsgBoxStyle.Critical) Dim t4 = MsgBox("Voulez - vous ouvrir les séries hors connexion ?", MsgBoxStyle.YesNo) If t4 = MsgBoxResult.Yes Then Form181.ShowDialog() Else Exit Sub End If Else séries.ShowDialog() End If End If Catch ex As Exception MsgBox("Le serveur de lecteur média est indisponible", MsgBoxStyle.Critical) Dim t4 = MsgBox("Voulez-vous ouvrir les séries hors connexion ?", MsgBoxStyle.YesNo) If t4 = MsgBoxResult.Yes Then Form181.ShowDialog() Else Exit Sub End If End Try End Sub Sub verifipass() Dim lines600() As String = File.ReadAllLines(compteco) Dim co As String = lines600(0) Try Dim maj As New WebClient Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & co & "/admin.txt") ModifierUnFilmToolStripMenuItem.Visible = True AjouterUnFilmToolStripMenuItem.Visible = True AjoutterUnSériessaisonToolStripMenuItem.Visible = True OutiAdministrationToolStripMenuItem.Visible = True Catch ex As Exception End Try Try My.Computer.Network.DownloadFile(ipsite & "/utilisateur/" & co & "/pass.txt", cozip & "/pass.txt") Dim lines1() As String = File.ReadAllLines(cozip & "\pass.txt") Dim lines2() As String = File.ReadAllLines(compte & "\passtemps.txt") If lines1(0) = lines2(0) Then File.Delete(cozip & "\pass.txt") comtpedeco789() Else File.Delete(cozip & "\pass.txt") deco2() End If Catch ex As Exception Timer10.Start() End Try End Sub Private Sub Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick Timer10.Stop() Dim lines600() As String = File.ReadAllLines(compteco) Dim co As String = lines600(0) Try My.Computer.Network.DownloadFile(ipsite & "/utilisateur/" & co & "/pass.txt", cozip & "/pass.txt") Dim lines1() As String = File.ReadAllLines(cozip & "\pass.txt") Dim lines2() As String = File.ReadAllLines(compte & "\passtemps.txt") If lines1(0) = lines2(0) Then File.Delete(cozip & "\pass.txt") comtpedeco789() Else File.Delete(cozip & "\pass.txt") deco2() End If Catch ex As Exception Timer10.Start() End Try End Sub Private Sub AxWindowsMediaPlayer1_CurrentItemChange(sender As Object, e As _WMPOCXEvents_CurrentItemChangeEvent) Handles AxWindowsMediaPlayer1.CurrentItemChange Try Me.Text = lecteurnom & ": " & AxWindowsMediaPlayer1.currentMedia.name Catch ex As Exception Me.Text = lecteurnom & ": " & AxWindowsMediaPlayer1.currentMedia.name End Try End Sub Private Sub GunaAdvenceButton1_Click(sender As Object, e As EventArgs) Handles GunaAdvenceButton1.Click AxWindowsMediaPlayer1.Ctlcontrols.next() End Sub Private Sub GunaAdvenceButton2_Click(sender As Object, e As EventArgs) Handles GunaAdvenceButton2.Click AxWindowsMediaPlayer1.Ctlcontrols.previous() End Sub Private Sub TchatEnLigneToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TchatEnLigneToolStripMenuItem.Click Try If My.Computer.Network.Ping("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) Else tchat.Show() End If Catch ex As Exception MsgBox("Le serveur de lecteur média est indisponible", MsgBoxStyle.Exclamation) End Try End If Catch ex As Exception MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information) End Try End Sub Private Sub ChangerDeProfilsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChangerDeProfilsToolStripMenuItem.Click If BCstart = 1 Then MsgBox("Une sauvegarde est en cours merci de patienter...", MsgBoxStyle.Critical) Else If misdlno = 1 Then MsgBox("Une mise à jour est en cours de téléchargement" & vbNewLine & "merci de patienter", MsgBoxStyle.Exclamation) Else If tchat.Visible = True Then MsgBox("Merci de fermer le tchat", MsgBoxStyle.Exclamation) tchat.WindowState = FormWindowState.Normal tchat.TopMost = True tchat.TopMost = False Else NotifyIcon1.Visible = False Dim dw8 As New StreamWriter(lançer) dw8.WriteLine(0) dw8.Close() Process.Start(Application.StartupPath & "\rememarage.exe") End End If End If End If End Sub Sub dlhistorique() Dim lines() As String = File.ReadAllLines(compteco) Try My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & lines(0) & "/setting.txt", cozip & "setting.txt") dlhistorique2() Catch ex As Exception Timer8.Start() End Try End Sub Sub dlhistorique2() Dim lines() As String = File.ReadAllLines(cozip & "setting.txt") If lines(1) = 1 Then File.Delete(cozip & "setting.txt") dlhistorique3() Else File.Delete(cozip & "setting.txt") End If End Sub Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick Timer8.Stop() Dim lines() As String = File.ReadAllLines(compteco) Try My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & lines(0) & "/setting.txt", cozip & "setting.txt") dlhistorique2() Catch ex As Exception Timer8.Start() End Try End Sub Sub dlhistorique3() File.Delete(historique) Try Dim lines() As String = File.ReadAllLines(compteco) My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & lines(0) & "/historique.txt", historique) Catch ex As Exception Timer12.Start() End Try End Sub Private Sub Timer12_Tick(sender As Object, e As EventArgs) Handles Timer12.Tick Timer12.Stop() Try Dim lines() As String = File.ReadAllLines(compteco) My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & lines(0) & "/historique.txt", historique) Catch ex As Exception Timer12.Start() End Try End Sub Private Sub AxWindowsMediaPlayer1_MediaError(sender As Object, e As _WMPOCXEvents_MediaErrorEvent) Handles AxWindowsMediaPlayer1.MediaError MsgBox("Le media que vous voulez ouvrir n'est pas compatible avec Lecteur média" & vr2, MsgBoxStyle.Exclamation) End Sub Private Sub AxWindowsMediaPlayer1_ErrorEvent(sender As Object, e As EventArgs) Handles AxWindowsMediaPlayer1.ErrorEvent MsgBox("Une erreur est survenue", MsgBoxStyle.Exclamation) End Sub Sub creatdos() Dim lines1() As String = File.ReadAllLines(compteco) Dim sw1 As New StreamWriter(cozip & "index.php") 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() Try Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & lines1(0) & "/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() response.Close() creatdos2() Catch ex As Exception Timer20.Start() End Try End Sub Sub creatdos2() Dim lines1() As String = File.ReadAllLines(compteco) 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/" & lines1(0) & "/pc/" & My.Computer.Name & "/" & info.Name) Next For Each fichier As String In IO.Directory.GetFiles(cozip) Dim info As New IO.FileInfo(fichier) File.Delete(cozip & info.Name) Next Catch ex As Exception Timer21.Start() End Try End Sub Private Sub Timer20_Tick(sender As Object, e As EventArgs) Handles Timer20.Tick Timer20.Stop() Dim lines1() As String = File.ReadAllLines(compteco) Try Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & lines1(0) & "/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() response.Close() creatdos2() 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() Dim lines1() As String = File.ReadAllLines(compteco) 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/" & lines1(0) & "/pc/" & My.Computer.Name & "/" & info.Name) Next For Each fichier As String In IO.Directory.GetFiles(cozip) Dim info As New IO.FileInfo(fichier) File.Delete(cozip & info.Name) Next 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 Process.Start(misajours & "lecteur média update.exe") End Catch ex As Exception Timer22.Start() End Try End Sub Private Sub Timer23_Tick(sender As Object, e As EventArgs) Handles Timer23.Tick DiffuserToolStripMenuItem.Enabled = True End Sub Sub checkupdate() Dim maj As New WebClient Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/ver.txt") If vr = vri Then If canalmis = 0 Then MsgBox("Le lecteur est à jour version: " & vr, MsgBoxStyle.Information) If My.Computer.Info.OSVersion.Contains("7") Then MsgBox("Tu es encore sur Windows 7 en 2023 !!!", MsgBoxStyle.Information) End If Else Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/verdev.txt") If vrdev = vri2 Then MsgBox("Le lecteur est à jour version: " & vr2, MsgBoxStyle.Information) If My.Computer.Info.OSVersion.Contains("7") Then MsgBox("Tu es encore sur Windows 7 en 2023 !!!", MsgBoxStyle.Information) End If Else Form72.form72misdev = 1 If File.Exists(misajours & "mis a jours.zip") = True Then File.Delete(misajours & "mis a jours.zip") Form72.ShowDialog() Else Form72.ShowDialog() End If End If End If Else If File.Exists(misajours & "mis a jours.zip") = True Then File.Delete(misajours & "mis a jours.zip") Form72.ShowDialog() Else Form72.ShowDialog() End If End If End Sub Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles Timer9.Tick If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then If mediastart = AxWindowsMediaPlayer1.currentMedia.name Then Else Dim sw4 As New StreamWriter(historique) ListBox1.Items.Add(AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay) For Each item In ListBox1.Items sw4.WriteLine(item) Next sw4.Close() End If mediastart = AxWindowsMediaPlayer1.currentMedia.name End If End Sub Private Sub AxWindowsMediaPlayer1_PlayStateChange(sender As Object, e As _WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then Dim lines7() As String = File.ReadAllLines(imgmusique) If lines7(0) = 1 Then PictureBox2.Image = Image.FromFile(lines7(2)) Else End If End If End Sub Private Sub AxWindowsMediaPlayer1_KeyDownEvent(sender As Object, e As _WMPOCXEvents_KeyDownEvent) Handles AxWindowsMediaPlayer1.KeyDownEvent If e.nKeyCode = Keys.Space And AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then AxWindowsMediaPlayer1.Ctlcontrols.pause() PlayToolStripMenuItem1.Enabled = True PauseToolStripMenuItem.Enabled = False PictureBox7.Show() PictureBox4.Hide() Exit Sub End If End Sub Private Sub Timer24_Tick(sender As Object, e As EventArgs) Handles Timer24.Tick If AxWindowsMediaPlayer1.currentMedia.duration > 0 Then Dim sw1 As New StreamWriter(dossérie & "\" & seriesencours & "\Saison.txt") sw1.WriteLine(seriesencourssaison) sw1.Close() Dim sw2 As New StreamWriter(dossérie & "\" & seriesencours & "\épisode.txt") Dim tetet = Me.Text.Replace(lecteurnom, "") Dim tet1 = tetet.Replace(seriesencours, "") Dim tet2 = tet1.Replace(":", "") Dim tet3 = tet2.Replace("Saison " & seriesencourssaison, "") Dim tet4 = tet3.Replace("Épisode", "") Dim tet5 = tet4.Replace(" ", "") sw2.WriteLine(tet5) sw2.WriteLine(AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString) sw2.WriteLine(AxWindowsMediaPlayer1.Ctlcontrols.currentPosition) sw2.WriteLine(AxWindowsMediaPlayer1.currentMedia.durationString) sw2.Close() seriesencourstime = AxWindowsMediaPlayer1.currentMedia.durationString If series1ep = 0 Then If seriesencourssaisonnbep = tet5 Then GunaAdvenceButton1.Hide() Else GunaAdvenceButton1.Show() End If Else GunaAdvenceButton1.Hide() End If End If End Sub Private Sub AjouterUnFilmToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AjouterUnFilmToolStripMenuItem.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) Else upfilm.ShowDialog() End If Catch ex As Exception MsgBox("Le serveur de Lecteur média est indisponible !!!", MsgBoxStyle.Critical) End Try End If Catch ex As Exception MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information) End Try End Sub Private Sub AjoutterUnSériessaisonToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AjoutterUnSériessaisonToolStripMenuItem.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) Else upséries.ShowDialog() End If Catch ex As Exception MsgBox("Le serveur de Lecteur média est indisponible !!!", MsgBoxStyle.Critical) End Try End If Catch ex As Exception MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information) End Try End Sub Private Sub ModifierUnFilmToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ModifierUnFilmToolStripMenuItem.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) Else modififerfilm.ShowDialog() End If Catch ex As Exception MsgBox("Le serveur de Lecteur média est indisponible !!!", MsgBoxStyle.Critical) End Try End If Catch ex As Exception MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information) End Try End Sub Private Sub CrypteLecteurMédiaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CrypteLecteurMédiaToolStripMenuItem.Click crypte_lecteur_média.ShowDialog() End Sub Private Sub ConvertirEnM4vToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ConvertirEnM4vToolStripMenuItem.Click convertir_en_m4v.ShowDialog() End Sub Private Sub GestionDesUtilisateurToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GestionDesUtilisateurToolStripMenuItem.Click gestionuser.ShowDialog() End Sub Private Sub LanceLecteurMédiaSYCNToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LanceLecteurMédiaSYCNToolStripMenuItem.Click Try Process.Start("SYNC lecteur média.exe") Catch ex As Exception MsgBox("une erreur est survenue", MsgBoxStyle.Critical) End Try End Sub Private Sub Timer25_Tick(sender As Object, e As EventArgs) Handles Timer25.Tick Timer25.Stop() If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then Dim t1 = marqueur & "\" & AxWindowsMediaPlayer1.currentMedia.name & ".txt" Dim sw1 As New StreamWriter(t1) sw1.WriteLine(AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString) sw1.WriteLine(AxWindowsMediaPlayer1.Ctlcontrols.currentPosition) sw1.Close() End If Timer25.Start() End Sub End Class