first commit

2026-06-18 14:15:48 +02:00
commit da234e4c63
5567 changed files with 4284011 additions and 0 deletions
@@ -0,0 +1,130 @@
+Imports System.IO
+Public Class Form5
+    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
+        MsgBox(Label2.Text, MsgBoxStyle.Information)
+    End Sub
+    Sub langfr()
+        If Form1.TextBox1.Text.EndsWith(".mp4") Then
+            Label2.Text = Form1.AxWindowsMediaPlayer1.currentMedia.name
+            Label4.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
+            Label6.Text = "MP4"
+            PictureBox1.Show()
+            PictureBox2.Hide()
+        ElseIf Form1.TextBox1.Text.EndsWith(".mkv") Then
+            Label2.Text = Form1.AxWindowsMediaPlayer1.currentMedia.name
+            Label4.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
+            Label6.Text = "MKV"
+            PictureBox1.Show()
+            PictureBox2.Hide()
+        ElseIf Form1.TextBox1.Text.EndsWith(".avi") Then
+            Label2.Text = Form1.AxWindowsMediaPlayer1.currentMedia.name
+            Label4.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
+            Label6.Text = "AVI"
+            PictureBox1.Show()
+            PictureBox2.Hide()
+        ElseIf Form1.TextBox1.Text.EndsWith(".mov") Then
+            Label2.Text = Form1.AxWindowsMediaPlayer1.currentMedia.name
+            Label4.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
+            Label6.Text = "MOV"
+            PictureBox1.Show()
+            PictureBox2.Hide()
+        ElseIf Form1.TextBox1.Text.EndsWith(".wmv") Then
+            Label2.Text = Form1.AxWindowsMediaPlayer1.currentMedia.name
+            Label4.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
+            Label6.Text = "WMV"
+            PictureBox1.Show()
+            PictureBox2.Hide()
+        ElseIf Form1.TextBox1.Text.EndsWith(".mp3") Then
+            Label2.Text = Form1.AxWindowsMediaPlayer1.currentMedia.name
+            Label4.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
+            Label6.Text = "mp3"
+            PictureBox1.Hide()
+            PictureBox2.Show()
+        ElseIf Form1.TextBox1.Text.EndsWith("RFM") Then
+            Form54.ShowDialog()
+            Close()
+        ElseIf Form1.TextBox1.Text.EndsWith("RMC") Then
+            Form55.ShowDialog()
+            Close()
+        ElseIf Form1.TextBox1.Text.EndsWith("Chérie") Then
+            Form56.ShowDialog()
+            Close()
+        ElseIf Form1.TextBox1.Text.EndsWith("Nostalgie France") Then
+            Form57.ShowDialog()
+            Close()
+        ElseIf Form1.TextBox1.Text.EndsWith("NRJ France") Then
+            Form58.ShowDialog()
+            Close()
+        ElseIf Form1.TextBox1.Text.EndsWith("Rire & Chansons") Then
+            Form59.ShowDialog()
+            Close()
+        ElseIf Form1.TextBox1.Text.EndsWith("France Info") Then
+            Form60.ShowDialog()
+            Close()
+        ElseIf Form1.TextBox1.Text.EndsWith("Fun Radio France") Then
+            Form61.ShowDialog()
+            Close()
+        ElseIf Form1.TextBox1.Text.EndsWith("RTL") Then
+            Form62.ShowDialog()
+            Close()
+        ElseIf Form1.TextBox1.Text.EndsWith("Ouï FM") Then
+            Form63.ShowDialog()
+            Close()
+        ElseIf Form1.TextBox1.Text.EndsWith(".ts") Then
+            Label2.Text = Form1.AxWindowsMediaPlayer1.currentMedia.name
+            Label4.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
+            Label6.Text = "ts"
+            PictureBox1.Show()
+            PictureBox2.Hide()
+        ElseIf Form1.TextBox1.Text.EndsWith("radio") Then
+            Form86.ShowDialog()
+            Close()
+        ElseIf Form1.TextBox1.Text.Contains("film") Then
+            Dim read = Form1.TextBox1.Text.Replace("film", "")
+            Label2.Text = read
+            Label4.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
+            Label6.Text = "Film streaming"
+            PictureBox1.Show()
+            PictureBox2.Hide()
+        ElseIf Form1.TextBox1.Text.Contains("série") Then
+            Dim read = Form1.TextBox1.Text.Replace("série", "")
+            Label2.Text = read
+            Label4.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
+            Label6.Text = "Séries streaming"
+            PictureBox1.Show()
+            PictureBox2.Hide()
+        Else
+            MsgBox("Aucun média a été lancé", MsgBoxStyle.Information)
+            Close()
+        End If
+    End Sub
+    Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Dim lines1a() As String = File.ReadAllLines(théme)
+
+        If lines1a(0) = 2 Then
+            Me.BackColor = Color.FromArgb(64, 64, 64)
+            Label1.ForeColor = Color.White
+            Label2.ForeColor = Color.White
+            Label3.ForeColor = Color.White
+            Label4.ForeColor = Color.White
+            Label5.ForeColor = Color.White
+            Label6.ForeColor = Color.White
+            PictureBox1.BackColor = Color.FromArgb(64, 64, 64)
+            PictureBox2.BackColor = Color.FromArgb(64, 64, 64)
+        ElseIf lines1a(0) = 3 Then
+            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
+            Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
+            Label2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
+            Label3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
+            Label4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
+            Label5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
+            Label6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
+            PictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
+            PictureBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
+        Else
+
+        End If
+
+        langfr()
+    End Sub
+End Class