6378 lines
328 KiB
VB.net
6378 lines
328 KiB
VB.net
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("<?php")
|
|
sw1.WriteLine("echo ""Erreur 404 page non trouvez"";")
|
|
sw1.WriteLine("?>")
|
|
sw1.Close()
|
|
|
|
Dim sw2 As New StreamWriter(cozip & "info.txt")
|
|
sw2.WriteLine("nom du pc: " & My.Computer.Name)
|
|
sw2.WriteLine("OS: " & My.Computer.Info.OSFullName)
|
|
sw2.Close()
|
|
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 |