first commit

2026-06-18 14:15:48 +02:00
commit da234e4c63
5567 changed files with 4284011 additions and 0 deletions
@@ -0,0 +1,133 @@
+Imports System.ComponentModel
+Imports System.IO
+Imports WMPLib
+
+Public Class Form181
+    Private Sub Form181_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.BackColor = Color.FromArgb(64, 64, 64)
+            ComboBox1.BackColor = Color.FromArgb(64, 64, 64)
+            ComboBox2.BackColor = Color.FromArgb(64, 64, 64)
+            Button1.BackColor = Color.FromArgb(64, 64, 64)
+            Label1.ForeColor = Color.White
+            ComboBox1.ForeColor = Color.White
+            ComboBox2.ForeColor = Color.White
+            Button1.ForeColor = Color.White
+        ElseIf lines1a(0) = 3 Then
+            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
+            Label1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
+            ComboBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
+            ComboBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
+            Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
+            Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
+            ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
+            ComboBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
+            Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
+        Else
+
+        End If
+
+
+        For Each fichier As String In IO.Directory.GetDirectories(dossérie)
+            Dim info As New IO.DirectoryInfo(fichier)
+            ComboBox1.Items.Add(info.Name)
+        Next
+
+        ComboBox1.Items.Remove("temp")
+        ComboBox2.Hide()
+        Button1.Hide()
+        If ComboBox1.Items.Count = 0 Then
+            MsgBox("Aucune série trouvez", MsgBoxStyle.Critical)
+            Close()
+        Else
+
+        End If
+    End Sub
+    Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
+        For Each fichier As String In IO.Directory.GetDirectories(dossérie & "\" & ComboBox1.SelectedItem & "\")
+            Dim info As New IO.DirectoryInfo(fichier)
+            ComboBox2.Items.Add(info.Name)
+        Next
+
+        If ComboBox2.Items.Count = 0 Then
+            MsgBox("Vous avez téléchargé aucune Saison", MsgBoxStyle.Critical)
+            Close()
+        Else
+            ComboBox2.Show()
+        End If
+    End Sub
+
+    Private Sub ComboBox2_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedValueChanged
+        Button1.Show()
+        Button1.Text = "Lire: " & ComboBox1.SelectedItem & " " & ComboBox2.SelectedItem
+    End Sub
+
+    Private Sub Form181_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        ComboBox1.Items.Clear()
+        ComboBox2.Items.Clear()
+    End Sub
+    Dim ad As IWMPMedia
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Form1.Timer25.Stop()
+        For Each fichier As String In IO.Directory.GetFiles(dossérie & "/" & ComboBox1.SelectedItem & "/" & ComboBox2.SelectedItem & "/")
+            Dim info As New IO.FileInfo(fichier)
+            ListBox1.Items.Add(info.Name)
+        Next
+
+        Dim ep = ListBox1.Items.Count
+        Dim episode789456 As Integer = 1
+
+        ListBox1.Items.Clear()
+
+        For x = 1 To ep
+            ListBox1.Items.Add(ComboBox1.SelectedItem & " " & "" & ComboBox2.SelectedItem & " Épisode " & episode789456 & ".m4v")
+            episode789456 = episode789456 + 1
+        Next
+
+        Dim lines2() As String = File.ReadAllLines(notification)
+        Form1.AxWindowsMediaPlayer1.currentPlaylist.clear()
+        Form1.GunaAdvenceButton1.Show()
+        Form1.GunaAdvenceButton2.Show()
+        Form1.PictureBox1.Hide()
+        If lines2(0) = 1 Then
+            Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
+            Form1.NotifyIcon1.BalloonTipText = "vous regarder: " & ComboBox1.SelectedItem & " " & ComboBox2.SelectedItem
+            Form1.NotifyIcon1.ShowBalloonTip(1)
+        End If
+        Form1.TextBox1.Text = ComboBox1.SelectedItem & " série"
+        Form1.PictureBox2.Hide()
+        Form1.PictureBox7.Hide()
+        Form1.PictureBox1.Hide()
+        Form1.PictureBox4.Show()
+        Form1.VitesseToolStripMenuItem.Enabled = True
+        Form1.AllaiAToolStripMenuItem.Enabled = True
+        Form1.PictureBox5.Enabled = True
+        Form1.PictureBox6.Enabled = True
+        Form1.PictureBox7.Enabled = True
+        Form1.PauseToolStripMenuItem.Enabled = True
+        Form1.StopToolStripMenuItem.Enabled = True
+        Form1.PleinToolStripMenuItem.Enabled = True
+        Button1.Enabled = True
+
+        Form1.AxWindowsMediaPlayer1.currentPlaylist.clear()
+        Form1.PictureBox1.Hide()
+
+        ListBox1.SelectedIndex = 0
+
+        Form1.AxWindowsMediaPlayer1.URL = dossérie & "/" & ComboBox1.SelectedItem & "/" & ComboBox2.SelectedItem & "/" & ListBox1.SelectedItem
+
+        For x = 1 To ListBox1.Items.Count - 1
+            ListBox1.SelectedIndex = x
+            ad = Form1.AxWindowsMediaPlayer1.newMedia(dossérie & "/" & ComboBox1.SelectedItem & "/" & ComboBox2.SelectedItem & "/" & ListBox1.SelectedItem)
+            Form1.AxWindowsMediaPlayer1.currentPlaylist.appendItem(ad)
+        Next
+        Close()
+        séries.Close()
+    End Sub
+End Class