dark mode added

dark mode added
small fixes

Crunchyroll Downloader/Anime_Add.Designer.vb

@@ -1,9 +1,10 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class Anime_Add
-    Inherits System.Windows.Forms.Form
+    Inherits MetroFramework.Forms.MetroForm
+
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,23 +21,23 @@ Partial Class Anime_Add
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Me.groupBox1 = New System.Windows.Forms.GroupBox()
-        Me.StatusLabel = New System.Windows.Forms.Label()
+        Me.StatusLabel = New MetroFramework.Controls.MetroLabel()
-        Me.ComboBox2 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox2 = New MetroFramework.Controls.MetroComboBox()
-        Me.TextBox4 = New System.Windows.Forms.TextBox()
+        Me.TextBox4 = New MetroFramework.Controls.MetroTextBox()
-        Me.textBox1 = New System.Windows.Forms.TextBox()
+        Me.textBox1 = New MetroFramework.Controls.MetroTextBox()
-        Me.textBox2 = New System.Windows.Forms.TextBox()
+        Me.textBox2 = New MetroFramework.Controls.MetroTextBox()
         Me.pictureBox4 = New System.Windows.Forms.PictureBox()
         Me.pictureBox3 = New System.Windows.Forms.PictureBox()
         Me.groupBox2 = New System.Windows.Forms.GroupBox()
+        Me.comboBox4 = New MetroFramework.Controls.MetroComboBox()
+        Me.ComboBox1 = New MetroFramework.Controls.MetroComboBox()
+        Me.comboBox3 = New MetroFramework.Controls.MetroComboBox()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
-        Me.Add_Display = New System.Windows.Forms.Label()
+        Me.Add_Display = New MetroFramework.Controls.MetroLabel()
-        Me.comboBox4 = New System.Windows.Forms.ComboBox()
-        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
-        Me.comboBox3 = New System.Windows.Forms.ComboBox()
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
         Me.ListBox1 = New System.Windows.Forms.ListBox()
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
@@ -57,7 +58,7 @@ Partial Class Anime_Add
         Me.groupBox1.Controls.Add(Me.TextBox4)
         Me.groupBox1.Controls.Add(Me.textBox1)
         Me.groupBox1.Controls.Add(Me.textBox2)
-        Me.groupBox1.Location = New System.Drawing.Point(5, 45)
+        Me.groupBox1.Location = New System.Drawing.Point(3, 63)
         Me.groupBox1.Name = "groupBox1"
         Me.groupBox1.Size = New System.Drawing.Size(620, 162)
         Me.groupBox1.TabIndex = 33
@@ -69,7 +70,8 @@ Partial Class Anime_Add
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.StatusLabel.BackColor = System.Drawing.Color.Transparent
-        Me.StatusLabel.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.StatusLabel.FontSize = MetroFramework.MetroLabelSize.Tall
+        Me.StatusLabel.FontWeight = MetroFramework.MetroLabelWeight.Regular
         Me.StatusLabel.ForeColor = System.Drawing.SystemColors.InactiveCaptionText
         Me.StatusLabel.Location = New System.Drawing.Point(18, 127)
         Me.StatusLabel.Name = "StatusLabel"
@@ -81,66 +83,132 @@ Partial Class Anime_Add
         'ComboBox2
         '
         Me.ComboBox2.BackColor = System.Drawing.Color.White
-        Me.ComboBox2.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
-        Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox2.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.ComboBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
         Me.ComboBox2.FormattingEnabled = True
+        Me.ComboBox2.ItemHeight = 23
         Me.ComboBox2.Location = New System.Drawing.Point(18, 98)
         Me.ComboBox2.Name = "ComboBox2"
-        Me.ComboBox2.Size = New System.Drawing.Size(585, 23)
+        Me.ComboBox2.Size = New System.Drawing.Size(584, 29)
         Me.ComboBox2.Sorted = True
         Me.ComboBox2.TabIndex = 37
+        Me.ComboBox2.UseSelectable = True
         '
         'TextBox4
         '
         Me.TextBox4.BackColor = System.Drawing.Color.White
         Me.TextBox4.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.TextBox4.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        '
+        '
+        '
+        Me.TextBox4.CustomButton.Image = Nothing
+        Me.TextBox4.CustomButton.Location = New System.Drawing.Point(565, 2)
+        Me.TextBox4.CustomButton.Name = ""
+        Me.TextBox4.CustomButton.Size = New System.Drawing.Size(17, 17)
+        Me.TextBox4.CustomButton.Style = MetroFramework.MetroColorStyle.Blue
+        Me.TextBox4.CustomButton.TabIndex = 1
+        Me.TextBox4.CustomButton.Theme = MetroFramework.MetroThemeStyle.Light
+        Me.TextBox4.CustomButton.UseSelectable = True
+        Me.TextBox4.CustomButton.Visible = False
         Me.TextBox4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.TextBox4.Lines = New String() {"Main Directory"}
         Me.TextBox4.Location = New System.Drawing.Point(18, 70)
+        Me.TextBox4.MaxLength = 32767
         Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
         Me.TextBox4.ReadOnly = True
+        Me.TextBox4.ScrollBars = System.Windows.Forms.ScrollBars.None
+        Me.TextBox4.SelectedText = ""
+        Me.TextBox4.SelectionLength = 0
+        Me.TextBox4.SelectionStart = 0
+        Me.TextBox4.ShortcutsEnabled = True
         Me.TextBox4.Size = New System.Drawing.Size(585, 22)
         Me.TextBox4.TabIndex = 36
         Me.TextBox4.TabStop = False
         Me.TextBox4.Text = "Main Directory"
         Me.TextBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.TextBox4.UseSelectable = True
+        Me.TextBox4.WaterMarkColor = System.Drawing.Color.FromArgb(CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer))
+        Me.TextBox4.WaterMarkFont = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Pixel)
         '
         'textBox1
         '
         Me.textBox1.BackColor = System.Drawing.Color.White
         Me.textBox1.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.textBox1.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        '
+        '
+        '
+        Me.textBox1.CustomButton.Image = Nothing
+        Me.textBox1.CustomButton.Location = New System.Drawing.Point(565, 2)
+        Me.textBox1.CustomButton.Name = ""
+        Me.textBox1.CustomButton.Size = New System.Drawing.Size(17, 17)
+        Me.textBox1.CustomButton.Style = MetroFramework.MetroColorStyle.Blue
+        Me.textBox1.CustomButton.TabIndex = 1
+        Me.textBox1.CustomButton.Theme = MetroFramework.MetroThemeStyle.Light
+        Me.textBox1.CustomButton.UseSelectable = True
+        Me.textBox1.CustomButton.Visible = False
         Me.textBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.textBox1.Lines = New String() {"URL"}
         Me.textBox1.Location = New System.Drawing.Point(18, 14)
+        Me.textBox1.MaxLength = 32767
         Me.textBox1.Name = "textBox1"
+        Me.textBox1.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
+        Me.textBox1.ScrollBars = System.Windows.Forms.ScrollBars.None
+        Me.textBox1.SelectedText = ""
+        Me.textBox1.SelectionLength = 0
+        Me.textBox1.SelectionStart = 0
+        Me.textBox1.ShortcutsEnabled = True
         Me.textBox1.Size = New System.Drawing.Size(585, 22)
         Me.textBox1.TabIndex = 4
         Me.textBox1.TabStop = False
         Me.textBox1.Text = "URL"
         Me.textBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.textBox1.UseSelectable = True
+        Me.textBox1.WaterMarkColor = System.Drawing.Color.FromArgb(CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer))
+        Me.textBox1.WaterMarkFont = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Pixel)
         '
         'textBox2
         '
         Me.textBox2.BackColor = System.Drawing.Color.White
         Me.textBox2.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.textBox2.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        '
+        '
+        '
+        Me.textBox2.CustomButton.Image = Nothing
+        Me.textBox2.CustomButton.Location = New System.Drawing.Point(565, 2)
+        Me.textBox2.CustomButton.Name = ""
+        Me.textBox2.CustomButton.Size = New System.Drawing.Size(17, 17)
+        Me.textBox2.CustomButton.Style = MetroFramework.MetroColorStyle.Blue
+        Me.textBox2.CustomButton.TabIndex = 1
+        Me.textBox2.CustomButton.Theme = MetroFramework.MetroThemeStyle.Light
+        Me.textBox2.CustomButton.UseSelectable = True
+        Me.textBox2.CustomButton.Visible = False
         Me.textBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.textBox2.Lines = New String() {"Name of the Anime"}
         Me.textBox2.Location = New System.Drawing.Point(18, 42)
+        Me.textBox2.MaxLength = 32767
         Me.textBox2.Name = "textBox2"
+        Me.textBox2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
+        Me.textBox2.ScrollBars = System.Windows.Forms.ScrollBars.None
+        Me.textBox2.SelectedText = ""
+        Me.textBox2.SelectionLength = 0
+        Me.textBox2.SelectionStart = 0
+        Me.textBox2.ShortcutsEnabled = True
         Me.textBox2.Size = New System.Drawing.Size(585, 22)
         Me.textBox2.TabIndex = 5
         Me.textBox2.TabStop = False
         Me.textBox2.Text = "Name of the Anime"
         Me.textBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.textBox2.UseSelectable = True
+        Me.textBox2.WaterMarkColor = System.Drawing.Color.FromArgb(CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer))
+        Me.textBox2.WaterMarkFont = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Pixel)
         '
         'pictureBox4
         '
         Me.pictureBox4.BackColor = System.Drawing.Color.Transparent
         Me.pictureBox4.Cursor = System.Windows.Forms.Cursors.Hand
         Me.pictureBox4.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_button_download_default
-        Me.pictureBox4.Location = New System.Drawing.Point(44, 213)
+        Me.pictureBox4.Location = New System.Drawing.Point(42, 231)
         Me.pictureBox4.Name = "pictureBox4"
         Me.pictureBox4.Size = New System.Drawing.Size(537, 50)
         Me.pictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
@@ -152,7 +220,7 @@ Partial Class Anime_Add
         Me.pictureBox3.BackColor = System.Drawing.Color.Transparent
         Me.pictureBox3.Cursor = System.Windows.Forms.Cursors.Hand
         Me.pictureBox3.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_close
-        Me.pictureBox3.Location = New System.Drawing.Point(579, 1)
+        Me.pictureBox3.Location = New System.Drawing.Point(580, 0)
         Me.pictureBox3.Name = "pictureBox3"
         Me.pictureBox3.Size = New System.Drawing.Size(50, 40)
         Me.pictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
@@ -162,18 +230,51 @@ Partial Class Anime_Add
         'groupBox2
         '
         Me.groupBox2.BackColor = System.Drawing.Color.Transparent
-        Me.groupBox2.Controls.Add(Me.PictureBox1)
-        Me.groupBox2.Controls.Add(Me.Add_Display)
         Me.groupBox2.Controls.Add(Me.comboBox4)
         Me.groupBox2.Controls.Add(Me.ComboBox1)
         Me.groupBox2.Controls.Add(Me.comboBox3)
-        Me.groupBox2.Location = New System.Drawing.Point(5, 45)
+        Me.groupBox2.Controls.Add(Me.PictureBox1)
+        Me.groupBox2.Controls.Add(Me.Add_Display)
+        Me.groupBox2.Location = New System.Drawing.Point(3, 63)
         Me.groupBox2.Name = "groupBox2"
         Me.groupBox2.Size = New System.Drawing.Size(620, 162)
         Me.groupBox2.TabIndex = 44
         Me.groupBox2.TabStop = False
         Me.groupBox2.Visible = False
         '
+        'comboBox4
+        '
+        Me.comboBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.comboBox4.FormattingEnabled = True
+        Me.comboBox4.ItemHeight = 23
+        Me.comboBox4.Location = New System.Drawing.Point(24, 83)
+        Me.comboBox4.Name = "comboBox4"
+        Me.comboBox4.Size = New System.Drawing.Size(585, 29)
+        Me.comboBox4.TabIndex = 2
+        Me.comboBox4.UseSelectable = True
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.ItemHeight = 23
+        Me.ComboBox1.Location = New System.Drawing.Point(24, 19)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(585, 29)
+        Me.ComboBox1.TabIndex = 1
+        Me.ComboBox1.UseSelectable = True
+        '
+        'comboBox3
+        '
+        Me.comboBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.comboBox3.FormattingEnabled = True
+        Me.comboBox3.ItemHeight = 23
+        Me.comboBox3.Location = New System.Drawing.Point(24, 51)
+        Me.comboBox3.Name = "comboBox3"
+        Me.comboBox3.Size = New System.Drawing.Size(585, 29)
+        Me.comboBox3.TabIndex = 1
+        Me.comboBox3.UseSelectable = True
+        '
         'PictureBox1
         '
         Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
@@ -192,7 +293,8 @@ Partial Class Anime_Add
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Add_Display.BackColor = System.Drawing.Color.Transparent
-        Me.Add_Display.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Add_Display.FontSize = MetroFramework.MetroLabelSize.Tall
+        Me.Add_Display.FontWeight = MetroFramework.MetroLabelWeight.Regular
         Me.Add_Display.ForeColor = System.Drawing.Color.Black
         Me.Add_Display.Location = New System.Drawing.Point(20, 114)
         Me.Add_Display.Name = "Add_Display"
@@ -201,44 +303,11 @@ Partial Class Anime_Add
         Me.Add_Display.Text = "..."
         Me.Add_Display.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
         '
-        'comboBox4
-        '
-        Me.comboBox4.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
-        Me.comboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.comboBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.comboBox4.FormattingEnabled = True
-        Me.comboBox4.Location = New System.Drawing.Point(24, 83)
-        Me.comboBox4.Name = "comboBox4"
-        Me.comboBox4.Size = New System.Drawing.Size(585, 23)
-        Me.comboBox4.TabIndex = 2
-        '
-        'ComboBox1
-        '
-        Me.ComboBox1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
-        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.ComboBox1.FormattingEnabled = True
-        Me.ComboBox1.Location = New System.Drawing.Point(24, 19)
-        Me.ComboBox1.Name = "ComboBox1"
-        Me.ComboBox1.Size = New System.Drawing.Size(585, 23)
-        Me.ComboBox1.TabIndex = 1
-        '
-        'comboBox3
-        '
-        Me.comboBox3.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
-        Me.comboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.comboBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.comboBox3.FormattingEnabled = True
-        Me.comboBox3.Location = New System.Drawing.Point(24, 51)
-        Me.comboBox3.Name = "comboBox3"
-        Me.comboBox3.Size = New System.Drawing.Size(585, 23)
-        Me.comboBox3.TabIndex = 1
-        '
         'GroupBox3
         '
         Me.GroupBox3.BackColor = System.Drawing.Color.Transparent
         Me.GroupBox3.Controls.Add(Me.ListBox1)
-        Me.GroupBox3.Location = New System.Drawing.Point(5, 45)
+        Me.GroupBox3.Location = New System.Drawing.Point(3, 63)
         Me.GroupBox3.Name = "GroupBox3"
         Me.GroupBox3.Size = New System.Drawing.Size(620, 162)
         Me.GroupBox3.TabIndex = 46
@@ -267,20 +336,20 @@ Partial Class Anime_Add
         '
         'Anime_Add
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.ApplyImageInvert = True
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
-        Me.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.add_background
+        Me.BorderStyle = MetroFramework.Forms.MetroFormBorderStyle.FixedSingle
-        Me.ClientSize = New System.Drawing.Size(630, 275)
+        Me.ClientSize = New System.Drawing.Size(630, 300)
         Me.Controls.Add(Me.pictureBox3)
         Me.Controls.Add(Me.pictureBox4)
         Me.Controls.Add(Me.groupBox2)
         Me.Controls.Add(Me.groupBox1)
         Me.Controls.Add(Me.GroupBox3)
-        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
         Me.Name = "Anime_Add"
-        Me.Text = "Add"
+        Me.Padding = New System.Windows.Forms.Padding(10, 60, 20, 20)
+        Me.Text = "Add Video"
+        Me.TextAlign = MetroFramework.Forms.MetroFormTextAlign.Center
         Me.groupBox1.ResumeLayout(False)
-        Me.groupBox1.PerformLayout()
         CType(Me.pictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.pictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
         Me.groupBox2.ResumeLayout(False)
@@ -290,16 +359,7 @@ Partial Class Anime_Add
         Me.PerformLayout()
 
     End Sub
-    Public WithEvents textBox1 As TextBox
-    Public WithEvents ComboBox2 As ComboBox
-    Public WithEvents TextBox4 As TextBox
-    Public WithEvents textBox2 As TextBox
     Private WithEvents pictureBox3 As PictureBox
-    Public WithEvents StatusLabel As Label
-    Public WithEvents Add_Display As Label
-    Public WithEvents comboBox4 As ComboBox
-    Public WithEvents ComboBox1 As ComboBox
-    Public WithEvents comboBox3 As ComboBox
     Public WithEvents pictureBox4 As PictureBox
     Public WithEvents groupBox2 As GroupBox
     Public WithEvents PictureBox1 As PictureBox
@@ -308,4 +368,14 @@ Partial Class Anime_Add
     Friend WithEvents Timer1 As Timer
     Private WithEvents Timer2 As Timer
     Public WithEvents ListBox1 As ListBox
+    Public WithEvents StatusLabel As MetroFramework.Controls.MetroLabel
+    Public WithEvents Add_Display As MetroFramework.Controls.MetroLabel
+    Friend WithEvents MetroTextBox1 As MetroFramework.Controls.MetroTextBox
+    Public WithEvents textBox1 As MetroFramework.Controls.MetroTextBox
+    Public WithEvents TextBox4 As MetroFramework.Controls.MetroTextBox
+    Public WithEvents textBox2 As MetroFramework.Controls.MetroTextBox
+    Public WithEvents ComboBox2 As MetroFramework.Controls.MetroComboBox
+    Public WithEvents comboBox4 As MetroFramework.Controls.MetroComboBox
+    Public WithEvents ComboBox1 As MetroFramework.Controls.MetroComboBox
+    Public WithEvents comboBox3 As MetroFramework.Controls.MetroComboBox
 End Class

Crunchyroll Downloader/Anime_Add.vb

@@ -3,6 +3,9 @@ Imports System.Net
 Imports Gecko
 Imports System.IO
 Imports System.Threading
+Imports MetroFramework.Forms
+Imports MetroFramework
+Imports MetroFramework.Components
 
 Public Class Anime_Add
     Public Mass_DL_Cancel As Boolean = False
@@ -36,9 +39,15 @@ Public Class Anime_Add
             ComboBox2.Text = SubFolder_Nothing
         End Try
     End Sub
+    Dim Manager As MetroStyleManager = Main.Manager
+
 
     Private Sub Anime_Add_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
+        Manager.Owner = Me
+        Me.StyleManager = Manager
+        pictureBox3.Image = Main.CloseImg
+
         Try
             Me.Icon = My.Resources.icon
         Catch ex As Exception
@@ -171,54 +180,19 @@ Public Class Anime_Add
         End If
     End Sub
 
-#Region " Move Form "
 
-    ' [ Move Form ]
-    '
-    ' // By Elektro 
 
-    Public MoveForm As Boolean
-    Public MoveForm_MousePosition As Point
-
-    Public Sub MoveForm_MouseDown(sender As Object, e As MouseEventArgs) Handles _
-    MyBase.MouseDown ' Add more handles here (Example: PictureBox1.MouseDown)
-
-        If e.Button = MouseButtons.Left Then
-            MoveForm = True
-            Me.Cursor = Cursors.NoMove2D
-            MoveForm_MousePosition = e.Location
-        End If
 
+    Private Sub Btn_Close_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox3.MouseEnter
+        Dim PB As PictureBox = sender
+        PB.Image = My.Resources.main_del
     End Sub
 
-    Public Sub MoveForm_MouseMove(sender As Object, e As MouseEventArgs) Handles _
+    Private Sub Btn_Close_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox3.MouseLeave
-    MyBase.MouseMove ' Add more handles here (Example: PictureBox1.MouseMove)
+        Dim PB As PictureBox = sender
-
+        PB.Image = Main.CloseImg
-        If MoveForm Then
-            Me.Location = Me.Location + (e.Location - MoveForm_MousePosition)
-        End If
-
     End Sub
 
-    Public Sub MoveForm_MouseUp(sender As Object, e As MouseEventArgs) Handles _
-    MyBase.MouseUp ' Add more handles here (Example: PictureBox1.MouseUp)
-
-        If e.Button = MouseButtons.Left Then
-            MoveForm = False
-            Me.Cursor = Cursors.Default
-        End If
-
-    End Sub
-
-
-#End Region
-    Private Sub PictureBox3_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox3.MouseEnter
-        pictureBox3.BackColor = SystemColors.Control
-    End Sub
-
-    Private Sub PictureBox3_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox3.MouseLeave
-        pictureBox3.BackColor = Color.Transparent
-    End Sub
 
     Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles pictureBox3.Click
         Main.ListBoxList.Clear()
@@ -349,11 +323,12 @@ Public Class Anime_Add
                             Dim OmUStreamSplitEpisodeIndex() As String = OmUStreamSplit(0).Split(New String() {"/videomaterialurl/"}, System.StringSplitOptions.RemoveEmptyEntries)
                             Dim OmUStreamSplitEpisodeIndex2() As String = OmUStreamSplitEpisodeIndex(1).Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
                             Dim m3u8Strings As String = Nothing
-                            'I/nsHttp   Cookie: 
+                        'I/nsHttp   Cookie: 
-                            Try
+
+                        Try
                             Using client As New WebClient()
                                 client.Encoding = System.Text.Encoding.UTF8
-                                client.Headers.Add(My.Resources.ffmpeg_user_agend)
+                                client.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), ""))
                                 client.Headers.Add("ACCEPT: application/json, text/javascript, */*; q=0.01")
                                 client.Headers.Add("Accept-Encoding: gzip, deflate, br")
                                 client.Headers.Add("X-Requested-With: XMLHttpRequest")
@@ -386,7 +361,7 @@ Public Class Anime_Add
                             Try
                             Using client As New WebClient()
                                 client.Encoding = System.Text.Encoding.UTF8
-                                client.Headers.Add(My.Resources.ffmpeg_user_agend)
+                                client.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), ""))
                                 client.Headers.Add("ACCEPT: application/json, text/javascript, */*; q=0.01")
                                 client.Headers.Add("Accept-Encoding: gzip, deflate, br")
                                 client.Headers.Add("X-Requested-With: XMLHttpRequest")
@@ -539,19 +514,32 @@ Public Class Anime_Add
 
 
 
-    Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboBox1.DrawItem, ComboBox2.DrawItem, comboBox3.DrawItem, comboBox4.DrawItem
+    'Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboBox1.DrawItem, ComboBox2.DrawItem, comboBox3.DrawItem, comboBox4.DrawItem
-        Dim CB As ComboBox = sender
+    '    Dim CB As ComboBox = sender
-        CB.BackColor = Color.White
+    '    'CB.BackColor = Color.DarkGray
-        If e.Index >= 0 Then
+    '    If Main.DarkModeValue = True Then
-            Using st As New StringFormat With {.Alignment = StringAlignment.Center}
+    '        If e.Index >= 0 Then
-                ' e.DrawBackground()
+    '            Using st As New StringFormat With {.Alignment = StringAlignment.Center}
-                ' e.DrawFocusRectangle()
+    '                ' e.DrawBackground()
-                e.Graphics.FillRectangle(SystemBrushes.ControlLightLight, e.Bounds)
+    '                ' e.DrawFocusRectangle()
-                e.Graphics.DrawString(CB.Items(e.Index).ToString, e.Font, Brushes.Black, e.Bounds, st)
+    '                e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
+    '                e.Graphics.DrawString(CB.Items(e.Index).ToString, e.Font, SystemBrushes.ControlLightLight, e.Bounds, st)
 
-            End Using
+    '            End Using
-        End If
+    '        End If
-    End Sub
+    '    Else
+    '        If e.Index >= 0 Then
+    '            Using st As New StringFormat With {.Alignment = StringAlignment.Center}
+    '                ' e.DrawBackground()
+    '                ' e.DrawFocusRectangle()
+    '                e.Graphics.FillRectangle(SystemBrushes.ControlLightLight, e.Bounds)
+    '                e.Graphics.DrawString(CB.Items(e.Index).ToString, e.Font, Brushes.Black, e.Bounds, st)
+
+    '            End Using
+    '        End If
+    '    End If
+
+    'End Sub
 
     Private Sub PictureBox4_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox4.MouseEnter
         If Mass_DL_Cancel = True Then
@@ -1158,7 +1146,7 @@ Public Class Anime_Add
             End If
             Dim L1Name As String = "anime-on-demand.de" 'L1Name_Split(1).Replace("www.", "") + " | Dub : " + FunimationDub
             Me.Invoke(New Action(Function()
-                                     Main.ListItemAdd(Pfad2, L1Name, AoDTitle, DisplayReso, "Unknown", "None", AoDThumbnail, AoDm3u8Final, DownloadPfad)
+                                     Main.ListItemAdd(Pfad2, L1Name, AoDTitle, DisplayReso, "Unknown", "None", AoDThumbnail, AoDm3u8Final, DownloadPfad, "AoD")
                                      Main.liList.Add(My.Resources.htmlvorThumbnail + AoDThumbnail + My.Resources.htmlnachTumbnail + "<br>" + AoDTitle + My.Resources.htmlvorAufloesung + "[Auto]" + My.Resources.htmlvorSoftSubs + vbNewLine + "None" + My.Resources.htmlvorHardSubs + "null" + My.Resources.htmlnachHardSubs + "<!-- " + AoDTitle + "-->")
 
                                      Return Nothing

Crunchyroll Downloader/CRD_List_Item.Designer.vb

@@ -1,7 +1,7 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class CRD_List_Item
-    Inherits System.Windows.Forms.UserControl
+    'Inherits System.Windows.Forms.UserControl
-
+    Inherits MetroFramework.Controls.MetroUserControl
     'UserControl1 überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
@@ -26,11 +26,11 @@ Partial Class CRD_List_Item
         Me.PB_Thumbnail = New System.Windows.Forms.PictureBox()
         Me.bt_pause = New System.Windows.Forms.PictureBox()
         Me.bt_del = New System.Windows.Forms.PictureBox()
-        Me.Label_Anime = New System.Windows.Forms.Label()
+        Me.Label_Anime = New MetroFramework.Controls.MetroLabel()
-        Me.Label_website = New System.Windows.Forms.Label()
+        Me.Label_website = New MetroFramework.Controls.MetroLabel()
-        Me.Label_Reso = New System.Windows.Forms.Label()
+        Me.Label_Reso = New MetroFramework.Controls.MetroLabel()
-        Me.Label_Hardsub = New System.Windows.Forms.Label()
+        Me.Label_Hardsub = New MetroFramework.Controls.MetroLabel()
-        Me.Label_percent = New System.Windows.Forms.Label()
+        Me.Label_percent = New MetroFramework.Controls.MetroLabel()
         Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
         Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -39,7 +39,6 @@ Partial Class CRD_List_Item
         Me.PictureBox5 = New System.Windows.Forms.PictureBox()
         Me.ProgressBar1 = New MetroFramework.Controls.MetroProgressBar()
         Me.MetroStyleManager1 = New MetroFramework.Components.MetroStyleManager(Me.components)
-        Me.MetroStyleExtender1 = New MetroFramework.Components.MetroStyleExtender(Me.components)
         CType(Me.PB_Thumbnail, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.bt_pause, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.bt_del, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -82,50 +81,60 @@ Partial Class CRD_List_Item
         'Label_Anime
         '
         Me.Label_Anime.AutoSize = True
-        Me.Label_Anime.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.Label_Anime.BackColor = System.Drawing.Color.Transparent
-        Me.Label_Anime.Location = New System.Drawing.Point(195, 42)
+        Me.Label_Anime.FontSize = MetroFramework.MetroLabelSize.Tall
+        Me.Label_Anime.FontWeight = MetroFramework.MetroLabelWeight.Regular
+        Me.Label_Anime.Location = New System.Drawing.Point(195, 37)
         Me.Label_Anime.Name = "Label_Anime"
-        Me.Label_Anime.Size = New System.Drawing.Size(270, 19)
+        Me.Label_Anime.Size = New System.Drawing.Size(243, 25)
         Me.Label_Anime.TabIndex = 3
         Me.Label_Anime.Text = "Anime Titel, Season, Episode "
         '
         'Label_website
         '
         Me.Label_website.AutoSize = True
-        Me.Label_website.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.Label_website.BackColor = System.Drawing.Color.Transparent
-        Me.Label_website.Location = New System.Drawing.Point(195, 15)
+        Me.Label_website.FontSize = MetroFramework.MetroLabelSize.Tall
+        Me.Label_website.FontWeight = MetroFramework.MetroLabelWeight.Regular
+        Me.Label_website.Location = New System.Drawing.Point(195, 10)
         Me.Label_website.Name = "Label_website"
-        Me.Label_website.Size = New System.Drawing.Size(72, 19)
+        Me.Label_website.Size = New System.Drawing.Size(72, 25)
         Me.Label_website.TabIndex = 4
         Me.Label_website.Text = "website"
         '
         'Label_Reso
         '
         Me.Label_Reso.AutoSize = True
-        Me.Label_Reso.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.Label_Reso.BackColor = System.Drawing.Color.Transparent
-        Me.Label_Reso.Location = New System.Drawing.Point(195, 101)
+        Me.Label_Reso.FontSize = MetroFramework.MetroLabelSize.Tall
+        Me.Label_Reso.FontWeight = MetroFramework.MetroLabelWeight.Regular
+        Me.Label_Reso.Location = New System.Drawing.Point(195, 97)
         Me.Label_Reso.Name = "Label_Reso"
-        Me.Label_Reso.Size = New System.Drawing.Size(54, 19)
+        Me.Label_Reso.Size = New System.Drawing.Size(63, 25)
         Me.Label_Reso.TabIndex = 5
         Me.Label_Reso.Text = "1080p"
         '
         'Label_Hardsub
         '
         Me.Label_Hardsub.AutoSize = True
-        Me.Label_Hardsub.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.Label_Hardsub.BackColor = System.Drawing.Color.Transparent
-        Me.Label_Hardsub.Location = New System.Drawing.Point(260, 101)
+        Me.Label_Hardsub.FontSize = MetroFramework.MetroLabelSize.Tall
+        Me.Label_Hardsub.FontWeight = MetroFramework.MetroLabelWeight.Regular
+        Me.Label_Hardsub.Location = New System.Drawing.Point(265, 97)
         Me.Label_Hardsub.Name = "Label_Hardsub"
-        Me.Label_Hardsub.Size = New System.Drawing.Size(126, 19)
+        Me.Label_Hardsub.Size = New System.Drawing.Size(126, 25)
         Me.Label_Hardsub.TabIndex = 6
         Me.Label_Hardsub.Text = "Hardsub Label"
         '
         'Label_percent
         '
         Me.Label_percent.Anchor = System.Windows.Forms.AnchorStyles.Right
-        Me.Label_percent.Font = New System.Drawing.Font("Consolas", 12.0!)
+        Me.Label_percent.BackColor = System.Drawing.Color.Transparent
-        Me.Label_percent.Location = New System.Drawing.Point(432, 101)
+        Me.Label_percent.FontSize = MetroFramework.MetroLabelSize.Tall
+        Me.Label_percent.FontWeight = MetroFramework.MetroLabelWeight.Regular
+        Me.Label_percent.Location = New System.Drawing.Point(432, 97)
         Me.Label_percent.Name = "Label_percent"
-        Me.Label_percent.Size = New System.Drawing.Size(378, 19)
+        Me.Label_percent.Size = New System.Drawing.Size(378, 27)
         Me.Label_percent.TabIndex = 7
         Me.Label_percent.Text = "Status Label : speed, size and percent"
         Me.Label_percent.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -179,6 +188,7 @@ Partial Class CRD_List_Item
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.Transparent
         Me.Controls.Add(Me.PictureBox5)
         Me.Controls.Add(Me.ProgressBar1)
         Me.Controls.Add(Me.Label_percent)
@@ -205,11 +215,6 @@ Partial Class CRD_List_Item
     Friend WithEvents PB_Thumbnail As PictureBox
     Friend WithEvents bt_pause As PictureBox
     Friend WithEvents bt_del As PictureBox
-    Friend WithEvents Label_Anime As Label
-    Friend WithEvents Label_website As Label
-    Friend WithEvents Label_Reso As Label
-    Friend WithEvents Label_Hardsub As Label
-    Friend WithEvents Label_percent As Label
     Friend WithEvents ToolTip1 As ToolTip
     Friend WithEvents Timer2 As Timer
     Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
@@ -218,5 +223,9 @@ Partial Class CRD_List_Item
     Friend WithEvents ProgressBar1 As MetroFramework.Controls.MetroProgressBar
     Friend WithEvents PictureBox5 As PictureBox
     Friend WithEvents MetroStyleManager1 As MetroFramework.Components.MetroStyleManager
-    Friend WithEvents MetroStyleExtender1 As MetroFramework.Components.MetroStyleExtender
+    Friend WithEvents Label_Anime As MetroFramework.Controls.MetroLabel
+    Friend WithEvents Label_website As MetroFramework.Controls.MetroLabel
+    Friend WithEvents Label_Reso As MetroFramework.Controls.MetroLabel
+    Friend WithEvents Label_Hardsub As MetroFramework.Controls.MetroLabel
+    Friend WithEvents Label_percent As MetroFramework.Controls.MetroLabel
 End Class

Crunchyroll Downloader/CRD_List_Item.resx

@@ -129,7 +129,4 @@
   <metadata name="MetroStyleManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>364, 15</value>
   </metadata>
-  <metadata name="MetroStyleExtender1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>530, 15</value>
-  </metadata>
 </root>

Crunchyroll Downloader/CRD_List_Item.vb

@@ -4,8 +4,16 @@ Imports System.IO
 Imports System.Threading
 Imports Microsoft.Win32
 Imports System.ComponentModel
+Imports MetroFramework
+Imports MetroFramework.Components
+Imports MetroFramework.Forms
 
 Public Class CRD_List_Item
+    Inherits Controls.MetroUserControl
+
+
+
+
     Dim ZeitGesamtInteger As Integer = 0
     Dim ListOfStreams As New List(Of String)
     Dim proc As Process
@@ -33,6 +41,7 @@ Public Class CRD_List_Item
     Dim HybridRunning As Boolean = False
     Dim TargetReso As Integer = 1080
     Dim HybrideLog As String = Nothing
+    Dim Service As String = "CR"
 
 
 
@@ -51,6 +60,11 @@ Public Class CRD_List_Item
         Label_website.Text = Text
         Label_website_Text = Text
     End Sub
+
+    Public Sub SetTheme(ByVal Theme As MetroThemeStyle)
+        MetroStyleManager1.Theme = Theme
+    End Sub
+
     Public Sub SetTolerance(ByVal value As Integer)
         Item_ErrorTolerance = value
     End Sub
@@ -130,6 +144,9 @@ Public Class CRD_List_Item
     Public Sub SetTargetReso(ByVal Value As Integer)
         TargetReso = Value
     End Sub
+    Public Sub SetService(ByVal Value As String)
+        Service = Value
+    End Sub
 #End Region
     Public Sub KillRunningTask()
         If HybridRunning = True Then
@@ -295,26 +312,27 @@ Public Class CRD_List_Item
     End Sub
     Private Sub Item_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.ContextMenuStrip = ContextMenuStrip1 '.ContextMenu
-        Dim locationY As Integer = 0
+        'bt_del.SetBounds(775, 10, 35, 29)
-        bt_del.SetBounds(775, locationY + 10, 35, 29)
+        'bt_pause.SetBounds(740, 15, 25, 20)
-        bt_pause.SetBounds(740, locationY + 15, 25, 20)
+        'PB_Thumbnail.SetBounds(11, 20, 168, 95)
-        PB_Thumbnail.SetBounds(11, 20, 168, 95)
+        'PB_Thumbnail.BringToFront()
-        PB_Thumbnail.BringToFront()
+        'Label_website.Location = New Point(195, 15)
-        Label_website.Location = New Point(195, locationY + 15)
+        'Label_Anime.Location = New Point(195, 37)
-        Label_Anime.Location = New Point(195, locationY + 42)
+        'Label_Reso.Location = New Point(195, 97)
-        Label_Reso.Location = New Point(195, locationY + 101)
+        'Label_Hardsub.Location = New Point(265, 97)
-        Label_Hardsub.Location = New Point(260, locationY + 101)
+        'Label_percent.SetBounds(432, 97, 378, 27)
-        Label_percent.SetBounds(432, locationY + 101, 378, 19)
+        'Label_percent.AutoSize = False
-        Label_percent.AutoSize = False
+        'ProgressBar1.SetBounds(195, 70, 601, 20)
-        ProgressBar1.SetBounds(195, locationY + 70, 601, 20)
+        'PictureBox5.Location = New Point(0, 136)
-        PictureBox5.Location = New Point(0, 136)
+        'PictureBox5.Height = 6
-        PictureBox5.Height = 6
 
 
+        'MetroStyleManager1.Theme = Main.Manager.Theme
     End Sub
 
     Public Function GetTextBound()
-        Return Label_website.Location.Y
+        'Return Label_website.Location.Y
+        Return bt_del.Size.Height
     End Function
 
 
@@ -322,6 +340,9 @@ Public Class CRD_List_Item
 
     Public Sub StartDownload(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal Filename As String, ByVal DownloadHybridMode As Boolean)
         'MsgBox(DL_URL)
+
+        Me.StyleManager = MetroStyleManager1
+
         DownloadPfad = DL_Pfad
         HistoryDL_URL = DL_URL
         HistoryDL_Pfad = DL_Pfad
@@ -411,7 +432,7 @@ Public Class CRD_List_Item
 
     Public Function DownloadHybrid(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal Filename As String) As String
         'MsgBox(DL_URL)
-        Dim Folder As String = einstellungen.GeräteID()
+        Dim Folder As String = Einstellungen.GeräteID()
         Dim Pfad2 As String = Path.GetDirectoryName(DL_Pfad.Replace(Chr(34), "")) + "\" + Folder + "\"
         If Not Directory.Exists(Path.GetDirectoryName(Pfad2)) Then
             ' Nein! Jetzt erstellen...
@@ -433,40 +454,40 @@ Public Class CRD_List_Item
                                  End Function))
 
             For i As Integer = 1 To MergeSub.Count - 1
-                    Dim SubsURL As String() = MergeSub(i).Split(New [Char]() {Chr(34)})
+                Dim SubsURL As String() = MergeSub(i).Split(New [Char]() {Chr(34)})
-                    Dim SubsClient As New WebClient
+                Dim SubsClient As New WebClient
-                    SubsClient.Encoding = Encoding.UTF8
+                SubsClient.Encoding = Encoding.UTF8
-                    If Main.WebbrowserCookie = Nothing Then
+                If Main.WebbrowserCookie = Nothing Then
-                    Else
+                Else
-                        SubsClient.Headers.Add(HttpRequestHeader.Cookie, Main.WebbrowserCookie)
+                    SubsClient.Headers.Add(HttpRequestHeader.Cookie, Main.WebbrowserCookie)
-                    End If
+                End If
-                    Dim SubsFile As String = einstellungen.GeräteID() + ".txt"
+                Dim SubsFile As String = Einstellungen.GeräteID() + ".txt"
 
-                    Dim retry As Boolean = True
+                Dim retry As Boolean = True
-                    Dim retryCount As Integer = 3
+                Dim retryCount As Integer = 3
-                    While retry
+                While retry
-                        Try
+                    Try
-                            SubsClient.DownloadFile(SubsURL(0), Pfad2 + "\" + SubsFile)
+                        SubsClient.DownloadFile(SubsURL(0), Pfad2 + "\" + SubsFile)
+                        retry = False
+                    Catch ex As Exception
+                        If retryCount > 0 Then
+                            retryCount = retryCount - 1
+                            Me.Invoke(New Action(Function()
+                                                     Label_percent.Text = "Error Downloading Subtitles - retrying"
+                                                     Return Nothing
+                                                 End Function))
+
+                        Else
+                            Dim utf8WithoutBom2 As New System.Text.UTF8Encoding(False)
+                            Using sink As New StreamWriter(SubsFile, False, utf8WithoutBom2)
+                                sink.WriteLine(My.Resources.ass_template)
+                            End Using
                             retry = False
-                        Catch ex As Exception
+                        End If
-                            If retryCount > 0 Then
+                    End Try
-                                retryCount = retryCount - 1
+                End While
-                                Me.Invoke(New Action(Function()
+                DL_URL = DL_URL.Replace(SubsURL(0), Pfad2 + "\" + SubsFile)
-                                                         Label_percent.Text = "Error Downloading Subtitles - retrying"
+            Next
-                                                         Return Nothing
-                                                     End Function))
-
-                            Else
-                                Dim utf8WithoutBom2 As New System.Text.UTF8Encoding(False)
-                                Using sink As New StreamWriter(SubsFile, False, utf8WithoutBom2)
-                                    sink.WriteLine(My.Resources.ass_template)
-                                End Using
-                                retry = False
-                            End If
-                        End Try
-                    End While
-                    DL_URL = DL_URL.Replace(SubsURL(0), Pfad2 + "\" + SubsFile)
-                Next
 
         End If
         Dim m3u8_url As String() = DL_URL.Split(New [Char]() {Chr(34)})
@@ -485,28 +506,28 @@ Public Class CRD_List_Item
             End If
 
             For i As Integer = 0 To new_m3u8_2.Count - 1
-                    'MsgBox("x" + Main.Resu.ToString)
+                'MsgBox("x" + Main.Resu.ToString)
-                    If CBool(InStr(new_m3u8_2(i), "x" + TargetReso.ToString)) = True Then
+                If CBool(InStr(new_m3u8_2(i), "x" + TargetReso.ToString)) = True Then
-                        m3u8_url_1 = new_m3u8_2(i + 1)
+                    m3u8_url_1 = new_m3u8_2(i + 1)
-                        Exit For
+                    Exit For
-                    End If
-                Next
-                If InStr(m3u8_url_1, "https://") Then
-                    text = client0.DownloadString(m3u8_url_1)
-                Else
-                    Dim c() As String = New Uri(m3u8_url_3).Segments
-                    Dim path As String = "https://" + New Uri(m3u8_url_3).Host
-                    For i3 As Integer = 0 To c.Count - 2
-                        path = path + c(i3)
-                    Next
-                    m3u8_url_3 = path + m3u8_url_1
-                    'MsgBox(m3u8_url_1)
-                    text = client0.DownloadString(m3u8_url_3)
                 End If
-
+            Next
-
+            If InStr(m3u8_url_1, "https://") Then
-
+                text = client0.DownloadString(m3u8_url_1)
+            Else
+                Dim c() As String = New Uri(m3u8_url_3).Segments
+                Dim path As String = "https://" + New Uri(m3u8_url_3).Host
+                For i3 As Integer = 0 To c.Count - 2
+                    path = path + c(i3)
+                Next
+                m3u8_url_3 = path + m3u8_url_1
+                'MsgBox(m3u8_url_1)
+                text = client0.DownloadString(m3u8_url_3)
             End If
+
+
+
+        End If
         Dim LoadedKeys As New List(Of String)
         LoadedKeys.Add("Nothing")
         Dim KeyFileCache As String = Nothing
@@ -612,7 +633,7 @@ Public Class CRD_List_Item
                         Else
                             KeyClient.Headers.Add(HttpRequestHeader.Cookie, Main.WebbrowserCookie)
                         End If
-                        Dim KeyFile3 As String = einstellungen.GeräteID() + ".key"
+                        Dim KeyFile3 As String = Einstellungen.GeräteID() + ".key"
                         KeyFileCache = KeyFile3
 
                         Dim retry As Boolean = True
@@ -620,7 +641,7 @@ Public Class CRD_List_Item
 
                         Try
                             KeyClient.DownloadFile(KeyFile2(0), Application.StartupPath + "\" + KeyFile3)
-                            Retry = False
+                            retry = False
                         Catch ex As Exception
                             If retryCount > 0 Then
                                 retryCount = retryCount - 1
@@ -634,8 +655,8 @@ Public Class CRD_List_Item
                                                          Label_percent.Text = "Access Error - download canceled"
                                                          Return Nothing
                                                      End Function))
-                                                         Return Nothing
+                                Return Nothing
-                                                         Exit Function
+                                Exit Function
                                 'Dim utf8WithoutBom2 As New System.Text.UTF8Encoding(False)
                                 'Using sink As New StreamWriter(SubsFile, False, utf8WithoutBom2)
                                 '    sink.WriteLine(My.Resources.ass_template)
@@ -678,7 +699,7 @@ Public Class CRD_List_Item
                         Else
                             KeyClient.Headers.Add(HttpRequestHeader.Cookie, Main.WebbrowserCookie)
                         End If
-                        Dim KeyFile3 As String = einstellungen.GeräteID() + ".key"
+                        Dim KeyFile3 As String = Einstellungen.GeräteID() + ".key"
                         KeyFileCache = KeyFile3
 
                         Dim retry As Boolean = True
@@ -686,7 +707,7 @@ Public Class CRD_List_Item
 
                         Try
                             KeyClient.DownloadFile(KeyFile2(0), Application.StartupPath + "\" + KeyFile3)
-                            Retry = False
+                            retry = False
                         Catch ex As Exception
                             If retryCount > 0 Then
                                 retryCount = retryCount - 1
@@ -739,6 +760,10 @@ Public Class CRD_List_Item
 
         DL_URL = DL_URL.Replace(m3u8_url(1), Pfad2 + "index" + Folder + ".m3u8")
 
+        If InStr(DL_URL, "-headers " + My.Resources.ffmpeg_user_agend) Then
+            DL_URL = DL_URL.Replace("-headers " + My.Resources.ffmpeg_user_agend, "")
+        End If
+
         Using sink3 As New StreamWriter(Path.GetDirectoryName(DL_Pfad.Replace(Chr(34), "")) + "\hybridelog.log", False, utf8WithoutBom)
             sink3.WriteLine(HybrideLog)
         End Using
@@ -766,8 +791,8 @@ Public Class CRD_List_Item
         startinfo.CreateNoWindow = True
         proc = New Process
         proc.EnableRaisingEvents = True
-        AddHandler proc.ErrorDataReceived, AddressOf ffmpegOutput
+        AddHandler proc.ErrorDataReceived, AddressOf FFMPEGOutput
-        AddHandler proc.OutputDataReceived, AddressOf ffmpegOutput
+        AddHandler proc.OutputDataReceived, AddressOf FFMPEGOutput
         AddHandler proc.Exited, AddressOf ProcessClosed
         proc.StartInfo = startinfo
         proc.Start() ' start the process
@@ -804,8 +829,8 @@ Public Class CRD_List_Item
         startinfo.CreateNoWindow = True
         proc = New Process
         proc.EnableRaisingEvents = True
-        AddHandler proc.ErrorDataReceived, AddressOf ffmpegOutput
+        AddHandler proc.ErrorDataReceived, AddressOf FFMPEGOutput
-        AddHandler proc.OutputDataReceived, AddressOf ffmpegOutput
+        AddHandler proc.OutputDataReceived, AddressOf FFMPEGOutput
         AddHandler proc.Exited, AddressOf ProcessClosed
         proc.StartInfo = startinfo
         proc.Start() ' start the process
@@ -984,7 +1009,7 @@ Public Class CRD_List_Item
             'MsgBox(BaseURL + SiteList(i) + vbNewLine + Pfad_DL + "\" + SiteList(i))
             Dim iWert As Integer = i
             Using client As New WebClient()
-                client.Headers.Add(My.Resources.ffmpeg_user_agend)
+                client.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), ""))
                 client.DownloadFile(BaseURL + SiteList(i), Pfad_DL + "\" + SiteList(i))
                 Pause(1)
             End Using
@@ -1094,41 +1119,47 @@ Public Class CRD_List_Item
     End Sub
 
     Private Sub CRD_List_Item_Resize(sender As Object, e As EventArgs) Handles Me.Resize
+        bt_del.SetBounds(775, 10, 35, 29)
+        bt_pause.SetBounds(740, 15, 25, 20)
+        PB_Thumbnail.SetBounds(11, 20, 168, 95)
+        PB_Thumbnail.BringToFront()
+        Label_website.Location = New Point(195, 12)
+        Label_Anime.Location = New Point(195, 40)
+        Label_Reso.Location = New Point(195, 97)
+        Label_Hardsub.Location = New Point(265, 97)
+        Label_percent.SetBounds(Me.Width - 400, 97, 378, 27)
+        Label_percent.AutoSize = False
+        ProgressBar1.SetBounds(195, 70, 601, 20)
+        PictureBox5.Location = New Point(0, 136)
+        PictureBox5.Height = 6
+
+        If Service = "AoD" Then
+            MetroStyleManager1.Style = MetroColorStyle.LightGreen
+        ElseIf Service = "FM" Then
+            MetroStyleManager1.Style = MetroColorStyle.DarkPurple
+        Else
+            MetroStyleManager1.Style = MetroColorStyle.Orange
+        End If
+        MetroStyleManager1.Theme = Main.Manager.Theme
+        MetroStyleManager1.Owner = Me
+        Me.StyleManager = MetroStyleManager1
+
+
         PictureBox5.Width = Me.Width - 40
 
         bt_del.Location = New Point(Me.Width - 63, 10)
         bt_pause.Location = New Point(Me.Width - 98, 15)
 
         ProgressBar1.Width = Me.Width - 223
+
     End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs)
-        Dim rnd As New Random
-        Dim ZufallsZahl As Integer = rnd.Next(1, 33)
 
-        If ZufallsZahl > 30 Then
-            MetroStyleManager1.Style = MetroFramework.MetroColorStyle.Blue
-            Debug.WriteLine("Blue")
-        ElseIf ZufallsZahl > 25 Then
-            MetroStyleManager1.Style = MetroFramework.MetroColorStyle.Lime
-            Debug.WriteLine("Lime")
-        ElseIf ZufallsZahl > 20 Then
-            MetroStyleManager1.Style = MetroFramework.MetroColorStyle.Magenta
-            Debug.WriteLine("Magenta")
-        ElseIf ZufallsZahl > 15 Then
-            MetroStyleManager1.Style = MetroFramework.MetroColorStyle.Green
-            Debug.WriteLine("Green")
-        ElseIf ZufallsZahl > 10 Then
-            MetroStyleManager1.Style = MetroFramework.MetroColorStyle.Brown
-            Debug.WriteLine("Brown")
-        ElseIf ZufallsZahl > 5 Then
-            MetroStyleManager1.Style = MetroFramework.MetroColorStyle.Purple
-            Debug.WriteLine("Purple")
-        End If
-    End Sub
 
     Private Sub Label_Anime_Click(sender As Object, e As EventArgs) Handles ProgressBar1.Click, PB_Thumbnail.Click, MyBase.Click, Label_website.Click, Label_Reso.Click, Label_percent.Click, Label_Anime.Click
 
     End Sub
+
+
 End Class
 

Crunchyroll Downloader/Crunchyroll Downloader.vbproj

@@ -94,9 +94,9 @@
     <Reference Include="Geckofx-Winforms, Version=60.0.50.0, Culture=neutral, PublicKeyToken=3209ac31600d1857, processorArchitecture=x86">
       <HintPath>..\packages\Geckofx60.32.60.0.50\lib\net45\Geckofx-Winforms.dll</HintPath>
     </Reference>
-    <Reference Include="MetroFramework, Version=1.4.0.0, Culture=neutral, PublicKeyToken=5f91a84759bf584a, processorArchitecture=MSIL">
+    <Reference Include="MetroFramework, Version=1.4.0.0, Culture=neutral, PublicKeyToken=5f91a84759bf584a, processorArchitecture=x86">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>E:\ui\metroframework-modern-ui-master\MetroFramework\bin\x86\Debug\MetroFramework.dll</HintPath>
+      <HintPath>..\..\metroframework-modern-ui\MetroFramework\bin\x86\Debug\MetroFramework.dll</HintPath>
     </Reference>
     <Reference Include="System" />
     <Reference Include="System.Data" />
@@ -251,6 +251,10 @@
     <Content Include="Firefox\softokn3.dll" />
     <Content Include="Firefox\xul.dll" />
     <Content Include="icon.ico" />
+    <None Include="Resources\main-setting_invert_dark.png" />
+    <None Include="Resources\main-close_dark.png" />
+    <None Include="Resources\main-browser_invert_dark.png" />
+    <None Include="Resources\main-add_invert_dark.png" />
     <None Include="packages.config" />
     <None Include="Resources\main-setting_invert.png" />
     <None Include="Resources\main-browser_invert.png" />

Crunchyroll Downloader/ErrorDialog.Designer.vb

@@ -22,11 +22,11 @@ Partial Class ErrorDialog
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox1 = New MetroFramework.Controls.MetroComboBox()
         Me.pictureBox3 = New System.Windows.Forms.PictureBox()
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
         Me.PictureBox9 = New System.Windows.Forms.PictureBox()
-        Me.StatusLabel = New System.Windows.Forms.Label()
+        Me.StatusLabel = New MetroFramework.Controls.MetroLabel()
         CType(Me.pictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox3.SuspendLayout()
         CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -34,17 +34,16 @@ Partial Class ErrorDialog
         '
         'ComboBox1
         '
-        Me.ComboBox1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
         Me.ComboBox1.DropDownHeight = 250
-        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.ComboBox1.FormattingEnabled = True
         Me.ComboBox1.IntegralHeight = False
-        Me.ComboBox1.ItemHeight = 16
+        Me.ComboBox1.ItemHeight = 23
         Me.ComboBox1.Location = New System.Drawing.Point(34, 82)
         Me.ComboBox1.Name = "ComboBox1"
-        Me.ComboBox1.Size = New System.Drawing.Size(281, 22)
+        Me.ComboBox1.Size = New System.Drawing.Size(281, 29)
         Me.ComboBox1.TabIndex = 33
+        Me.ComboBox1.UseSelectable = True
         '
         'pictureBox3
         '
@@ -88,7 +87,8 @@ Partial Class ErrorDialog
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.StatusLabel.BackColor = System.Drawing.Color.Transparent
-        Me.StatusLabel.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.StatusLabel.FontSize = MetroFramework.MetroLabelSize.Tall
+        Me.StatusLabel.FontWeight = MetroFramework.MetroLabelWeight.Bold
         Me.StatusLabel.ForeColor = System.Drawing.Color.Black
         Me.StatusLabel.Location = New System.Drawing.Point(6, 16)
         Me.StatusLabel.Name = "StatusLabel"
@@ -101,7 +101,7 @@ Partial Class ErrorDialog
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Background
+        'Me.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Background
         Me.ClientSize = New System.Drawing.Size(380, 280)
         Me.Controls.Add(Me.GroupBox3)
         Me.Controls.Add(Me.pictureBox3)
@@ -114,10 +114,9 @@ Partial Class ErrorDialog
         Me.PerformLayout()
 
     End Sub
-
-    Friend WithEvents ComboBox1 As ComboBox
     Private WithEvents pictureBox3 As PictureBox
     Private WithEvents GroupBox3 As GroupBox
-    Public WithEvents StatusLabel As Label
     Private WithEvents PictureBox9 As PictureBox
+    Friend WithEvents ComboBox1 As MetroFramework.Controls.MetroComboBox
+    Public WithEvents StatusLabel As MetroFramework.Controls.MetroLabel
 End Class

Crunchyroll Downloader/ErrorDialog.vb

@@ -1,47 +1,15 @@
-Public Class ErrorDialog
+Imports MetroFramework.Components
-#Region " Move Form "
 
-    ' [ Move Form ]
+Public Class ErrorDialog
-    '
-    ' // By Elektro 
 
-    Public MoveForm As Boolean
+    Dim Manager As MetroStyleManager = Main.Manager
-    Public MoveForm_MousePosition As Point
 
-    Public Sub MoveForm_MouseDown(sender As Object, e As MouseEventArgs) Handles _
-    MyBase.MouseDown ' Add more handles here (Example: PictureBox1.MouseDown)
-
-        If e.Button = MouseButtons.Left Then
-            MoveForm = True
-            Me.Cursor = Cursors.NoMove2D
-            MoveForm_MousePosition = e.Location
-        End If
-
-    End Sub
-
-    Public Sub MoveForm_MouseMove(sender As Object, e As MouseEventArgs) Handles _
-    MyBase.MouseMove ' Add more handles here (Example: PictureBox1.MouseMove)
-
-        If MoveForm Then
-            Me.Location = Me.Location + (e.Location - MoveForm_MousePosition)
-        End If
-
-    End Sub
-
-    Public Sub MoveForm_MouseUp(sender As Object, e As MouseEventArgs) Handles _
-    MyBase.MouseUp ' Add more handles here (Example: PictureBox1.MouseUp)
-
-        If e.Button = MouseButtons.Left Then
-            MoveForm = False
-            Me.Cursor = Cursors.Default
-        End If
-
-    End Sub
-#End Region
 
     Private Sub Reso_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        ' Me.StyleManager = Main.StyleManager
+        Manager.Owner = Me
-        'ButtonResoNotFound.Text = Main.ButtonResoNotFoundText
+        Me.StyleManager = Manager
+        pictureBox3.Image = Main.CloseImg
+
         Try
             Me.Icon = My.Resources.icon
         Catch ex As Exception
@@ -168,12 +136,15 @@
         Me.Close()
     End Sub
 
-    Private Sub PictureBox3_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox3.MouseEnter
+    Private Sub Btn_Close_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox3.MouseEnter
-        pictureBox3.BackColor = SystemColors.Control
+        Dim PB As PictureBox = sender
+        PB.Image = My.Resources.main_del
     End Sub
 
-    Private Sub PictureBox3_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox3.MouseLeave
+    Private Sub Btn_Close_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox3.MouseLeave
-        pictureBox3.BackColor = Color.Transparent
+        Dim PB As PictureBox = sender
+        PB.Image = Main.CloseImg
     End Sub
 
+
 End Class

Crunchyroll Downloader/Main.designer.vb

@@ -38,7 +38,6 @@ Partial Class Main
         Me.PictureBox6 = New System.Windows.Forms.PictureBox()
         Me.MetroStyleExtender1 = New MetroFramework.Components.MetroStyleExtender(Me.components)
         Me.MetroStyleManager1 = New MetroFramework.Components.MetroStyleManager(Me.components)
-        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         CType(Me.Btn_add, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Btn_Close, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Btn_Settings, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -46,7 +45,6 @@ Partial Class Main
         CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'Btn_add
@@ -126,6 +124,7 @@ Partial Class Main
         '
         'PictureBox5
         '
+        Me.PictureBox5.BackColor = System.Drawing.Color.Transparent
         Me.PictureBox5.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.balken
         Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.PictureBox5.Location = New System.Drawing.Point(1, 65)
@@ -163,6 +162,7 @@ Partial Class Main
         '
         'PictureBox6
         '
+        Me.PictureBox6.BackColor = System.Drawing.Color.Transparent
         Me.PictureBox6.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.balken
         Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
@@ -178,24 +178,12 @@ Partial Class Main
         Me.MetroStyleManager1.Owner = Me
         Me.MetroStyleManager1.Style = MetroFramework.MetroColorStyle.Orange
         '
-        'PictureBox1
-        '
-        Me.PictureBox1.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.Main_top
-        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
-        Me.PictureBox1.Location = New System.Drawing.Point(1, 0)
-        Me.PictureBox1.Margin = New System.Windows.Forms.Padding(0)
-        Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(840, 1)
-        Me.PictureBox1.TabIndex = 70
-        Me.PictureBox1.TabStop = False
-        '
         'Main
         '
         Me.ApplyImageInvert = True
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
         Me.BorderStyle = MetroFramework.Forms.MetroFormBorderStyle.FixedSingle
         Me.ClientSize = New System.Drawing.Size(842, 630)
-        Me.Controls.Add(Me.PictureBox1)
         Me.Controls.Add(Me.TheTextBox)
         Me.Controls.Add(Me.PictureBox6)
         Me.Controls.Add(Me.PictureBox5)
@@ -222,7 +210,6 @@ Partial Class Main
         CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -241,6 +228,5 @@ Partial Class Main
     Friend WithEvents TheTextBox As RichTextBox
     Friend WithEvents PictureBox6 As PictureBox
     Friend WithEvents MetroStyleExtender1 As MetroFramework.Components.MetroStyleExtender
-    Friend WithEvents PictureBox1 As PictureBox
     Friend WithEvents MetroStyleManager1 As MetroFramework.Components.MetroStyleManager
 End Class

Crunchyroll Downloader/Main.vb

@@ -15,7 +15,7 @@ Public Class Main
 
     Public Manager As New MetroStyleManager
 
-
+    Public DarkModeValue As Boolean = False
 
 
 
@@ -139,13 +139,29 @@ Public Class Main
         Me.Invalidate()
     End Sub
 
+    Public CloseImg As Bitmap = My.Resources.main_del
 
+    Public Sub DarkMode()
+        ListView1.BackColor = Color.FromArgb(50, 50, 50)
+        CloseImg = My.Resources.main_close_dark
+        Btn_Close.Image = CloseImg
+    End Sub
+    Public Sub LightMode()
+        ListView1.BackColor = SystemColors.Control
+        CloseImg = My.Resources.main_close
+        Btn_Close.Image = CloseImg
+    End Sub
 
     Dim ListViewHeightOffset As Integer = 7
 
     Private Sub Btn_add_MouseEnter(sender As Object, e As EventArgs) Handles Btn_add.MouseEnter
         Dim PB As PictureBox = sender
-        PB.Image = My.Resources.main_add_invert
+        If Manager.Theme = MetroThemeStyle.Dark Then
+            PB.Image = My.Resources.main_add_invert_dark
+        Else
+            PB.Image = My.Resources.main_add_invert
+        End If
+
     End Sub
 
     Private Sub Btn_add_MouseLeave(sender As Object, e As EventArgs) Handles Btn_add.MouseLeave
@@ -154,7 +170,12 @@ Public Class Main
     End Sub
     Private Sub Btn_Browser_MouseEnter(sender As Object, e As EventArgs) Handles Btn_Browser.MouseEnter
         Dim PB As PictureBox = sender
-        PB.Image = My.Resources.main_browser_invert
+        If Manager.Theme = MetroThemeStyle.Dark Then
+            PB.Image = My.Resources.main_browser_invert_dark
+        Else
+            PB.Image = My.Resources.main_browser_invert
+        End If
+
     End Sub
 
     Private Sub Btn_Browser_MouseLeave(sender As Object, e As EventArgs) Handles Btn_Browser.MouseLeave
@@ -163,7 +184,12 @@ Public Class Main
     End Sub
     Private Sub Btn_Settings_MouseEnter(sender As Object, e As EventArgs) Handles Btn_Settings.MouseEnter
         Dim PB As PictureBox = sender
-        PB.Image = My.Resources.main_setting_invert
+        If Manager.Theme = MetroThemeStyle.Dark Then
+            PB.Image = My.Resources.main_setting_invert_dark
+        Else
+            PB.Image = My.Resources.main_setting_invert
+        End If
+
     End Sub
 
     Private Sub Btn_Settings_MouseLeave(sender As Object, e As EventArgs) Handles Btn_Settings.MouseLeave
@@ -177,7 +203,7 @@ Public Class Main
 
     Private Sub Btn_Close_MouseLeave(sender As Object, e As EventArgs) Handles Btn_Close.MouseLeave
         Dim PB As PictureBox = sender
-        PB.Image = My.Resources.main_close
+        PB.Image = CloseImg
     End Sub
 
     Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
@@ -212,7 +238,7 @@ Public Class Main
         ListView1.Height = Me.Height - 71 - ListViewHeightOffset
 
         PictureBox5.Width = Me.Width - 40
-        PictureBox1.Width = Me.Width - 2
+
 
         PictureBox6.Location = New Point(1, Me.Height - ListViewHeightOffset)
         PictureBox6.Width = Me.Width - 40
@@ -244,6 +270,10 @@ Public Class Main
 #End Region
     Public Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Integer, ByVal dwVolume As Integer) As Integer
 
+    Public Sub SetSettingsTheme()
+
+        Einstellungen.Theme = Manager.Theme
+    End Sub
 
     Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Dim tbtl As TextBoxTraceListener = New TextBoxTraceListener(TheTextBox)
@@ -257,9 +287,22 @@ Public Class Main
         '    FirstStartup.ShowDialog()
         'End Try
         'Dim Style As New MetroStyleManager
+        '
+        Try
+            Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
+            DarkModeValue = CBool(Integer.Parse(rkg.GetValue("Dark_Mode").ToString))
+        Catch ex As Exception
 
+        End Try
         Manager.Style = MetroColorStyle.Orange
-        Manager.Theme = MetroThemeStyle.Light
+        If DarkModeValue = True Then
+            Manager.Theme = MetroThemeStyle.Dark
+            DarkMode()
+        Else
+            Manager.Theme = MetroThemeStyle.Light
+            LightMode()
+        End If
+
         Me.StyleManager = Manager
         Manager.Owner = Me
 
@@ -488,7 +531,7 @@ Public Class Main
 
     End Sub
 
-    Public Sub ListItemAdd(ByVal NameKomplett As String, ByVal NameP1 As String, ByVal NameP2 As String, ByVal Reso As String, ByVal HardSub As String, ByVal SoftSubs As String, ByVal ThumbnialURL As String, ByVal URL_DL As String, ByVal Pfad_DL As String) ', ByVal AudioLang As String)
+    Public Sub ListItemAdd(ByVal NameKomplett As String, ByVal NameP1 As String, ByVal NameP2 As String, ByVal Reso As String, ByVal HardSub As String, ByVal SoftSubs As String, ByVal ThumbnialURL As String, ByVal URL_DL As String, ByVal Pfad_DL As String, Optional Service As String = "CR") ', ByVal AudioLang As String)
         Dim Thumbnail As Image = My.Resources.main_del
         Try
             Dim wc As New WebClient()
@@ -501,11 +544,11 @@ Public Class Main
         End Try
 
         With ListView1.Items.Add(0)
-            ItemConstructor(NameP1, NameP2, Reso, HardSub, SoftSubs, Thumbnail, URL_DL, Pfad_DL)
+            ItemConstructor(NameP1, NameP2, Reso, HardSub, SoftSubs, Thumbnail, URL_DL, Pfad_DL, Service)
         End With
 
     End Sub
-    Public Sub ItemConstructor(ByVal NameP1 As String, ByVal NameP2 As String, ByVal DisplayReso As String, ByVal HardSub As String, ByVal SoftSubs As String, ByVal Thumbnail As Image, ByVal URL_DL As String, ByVal Pfad_DL As String)
+    Public Sub ItemConstructor(ByVal NameP1 As String, ByVal NameP2 As String, ByVal DisplayReso As String, ByVal HardSub As String, ByVal SoftSubs As String, ByVal Thumbnail As Image, ByVal URL_DL As String, ByVal Pfad_DL As String, ByVal Service As String)
         Dim Item As New CRD_List_Item
 
         Item.Visible = False
@@ -526,6 +569,7 @@ Public Class Main
         r = ListView1.Items(c).Bounds()
         r.Width = 838
         r.Height = 142
+        Item.SetService(Service)
         Item.SetTolerance(ErrorTolerance)
         Item.SetTargetReso(Reso)
         Item.SetLabelWebsite(NameP1)
@@ -549,7 +593,7 @@ Public Class Main
         Dim Thumbnail As Image = My.Resources.main_del
         Try
             Dim wc As New WebClient()
-            wc.Headers.Add(My.Resources.ffmpeg_user_agend)
+            wc.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), ""))
             Dim bytes As Byte() = wc.DownloadData(ThumbnialURL)
             Dim ms As New MemoryStream(bytes)
             Thumbnail = System.Drawing.Image.FromStream(ms)
@@ -2044,7 +2088,7 @@ Public Class Main
         Try
             Dim ItemDownloadingCount As Integer = 0
             For i As Integer = 0 To ListView1.Items.Count - 1
-
+                ItemList(i).SetTheme(Manager.Theme)
                 If ItemList(i).GetIsStatusFinished() = False Then
                     ItemDownloadingCount = ItemDownloadingCount + 1
                 End If
@@ -2624,7 +2668,7 @@ Public Class Main
             Dim L1Name_Split As String() = WebbrowserURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
             Dim L1Name As String = L1Name_Split(1).Replace("www.", "") + " | Dub : " + FunimationDub
             Me.Invoke(New Action(Function()
-                                     ListItemAdd(Pfad_DL, L1Name, DefaultName, ResoHTMLDisplay, "Unknown", SubValuesToDisplay(), thumbnail3, Funimation_m3u8_final, Chr(34) + DownloadPfad + Chr(34))
+                                     ListItemAdd(Pfad_DL, L1Name, DefaultName, ResoHTMLDisplay, "Unknown", SubValuesToDisplay(), thumbnail3, Funimation_m3u8_final, Chr(34) + DownloadPfad + Chr(34), "FM")
                                      Return Nothing
                                  End Function))
             liList.Add(My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + FunimationTitle + " <br> " + FunimationSeason + " " + FunimationEpisode + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + "null" + My.Resources.htmlnachHardSubs + "<!-- " + DefaultName + "-->")
@@ -3073,6 +3117,10 @@ Public Class Main
         ErrorDialog.Show()
     End Sub
 
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs)
+        ErrorDialog.ShowDialog()
+    End Sub
+
 
 #End Region
 

Crunchyroll Downloader/My Project/AssemblyInfo.vb

@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("3.6.4")>
+<Assembly: AssemblyVersion("3.6.5")>
-<Assembly: AssemblyFileVersion("3.6.4")>
+<Assembly: AssemblyFileVersion("3.6.5")>
 <Assembly: NeutralResourcesLanguage("en")>

Crunchyroll Downloader/My Project/Resources.Designer.vb

@@ -70,16 +70,6 @@ Namespace My.Resources
             End Get
         End Property
         
-        '''<summary>
-        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-        '''</summary>
-        Friend ReadOnly Property add_background() As System.Drawing.Bitmap
-            Get
-                Dim obj As Object = ResourceManager.GetObject("add_background", resourceCulture)
-                Return CType(obj,System.Drawing.Bitmap)
-            End Get
-        End Property
-        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -188,16 +178,6 @@ Namespace My.Resources
             End Get
         End Property
         
-        '''<summary>
-        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-        '''</summary>
-        Friend ReadOnly Property backgroud() As System.Drawing.Bitmap
-            Get
-                Dim obj As Object = ResourceManager.GetObject("backgroud", resourceCulture)
-                Return CType(obj,System.Drawing.Bitmap)
-            End Get
-        End Property
-        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -254,16 +234,6 @@ Namespace My.Resources
             End Get
         End Property
         
-        '''<summary>
-        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-        '''</summary>
-        Friend ReadOnly Property crdSettings_Background() As System.Drawing.Bitmap
-            Get
-                Dim obj As Object = ResourceManager.GetObject("crdSettings_Background", resourceCulture)
-                Return CType(obj,System.Drawing.Bitmap)
-            End Get
-        End Property
-        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -304,26 +274,6 @@ Namespace My.Resources
             End Get
         End Property
         
-        '''<summary>
-        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-        '''</summary>
-        Friend ReadOnly Property credits_background() As System.Drawing.Bitmap
-            Get
-                Dim obj As Object = ResourceManager.GetObject("credits_background", resourceCulture)
-                Return CType(obj,System.Drawing.Bitmap)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-        '''</summary>
-        Friend ReadOnly Property DialogNotFound_Background() As System.Drawing.Bitmap
-            Get
-                Dim obj As Object = ResourceManager.GetObject("DialogNotFound_Background", resourceCulture)
-                Return CType(obj,System.Drawing.Bitmap)
-            End Get
-        End Property
-        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -673,6 +623,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property main_add_invert_dark() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("main_add_invert_dark", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -703,6 +663,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property main_browser_invert_dark() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("main_browser_invert_dark", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -746,19 +716,9 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
-        Friend ReadOnly Property main_credits_default() As System.Drawing.Bitmap
+        Friend ReadOnly Property main_close_dark() As System.Drawing.Bitmap
             Get
-                Dim obj As Object = ResourceManager.GetObject("main_credits_default", resourceCulture)
+                Dim obj As Object = ResourceManager.GetObject("main_close_dark", resourceCulture)
-                Return CType(obj,System.Drawing.Bitmap)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-        '''</summary>
-        Friend ReadOnly Property main_credits_hover() As System.Drawing.Bitmap
-            Get
-                Dim obj As Object = ResourceManager.GetObject("main_credits_hover", resourceCulture)
                 Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
@@ -833,6 +793,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property main_setting_invert_dark() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("main_setting_invert_dark", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

Crunchyroll Downloader/My Project/Resources.resx

@@ -127,15 +127,9 @@
 
 &lt;img alt="image error" src="</value>
   </data>
-  <data name="backgroud" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\backgroud.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="main_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\main-add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="DialogNotFound_Background" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\DialogNotFound_Background.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Funimation_Split_2" xml:space="preserve">
     <value>"&gt;</value>
   </data>
@@ -157,9 +151,6 @@
   <data name="AoD_Titel" xml:space="preserve">
     <value>"title":"</value>
   </data>
-  <data name="credits_background" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\credits-background.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Funimation_Subtitle_String2" xml:space="preserve">
     <value>", "kind": "subtitle", "type": "Full", "language": "</value>
   </data>
@@ -178,9 +169,6 @@
 &lt;address&gt;Server at Crunchyroll Downloader Port 8080&lt;/address&gt;
 &lt;/body&gt;&lt;/html&gt;</value>
   </data>
-  <data name="crdSettings_Background" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\crdSettings_Background.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Funimation_Player_ID" xml:space="preserve">
     <value>src="/player/</value>
   </data>
@@ -374,9 +362,6 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
   <data name="CC_String" xml:space="preserve">
     <value>&lt;img id="footer_country_flag" src="https://www.crunchyroll.com/i/country_flags/</value>
   </data>
-  <data name="add_background" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\add-background.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="balken_console" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\balken_console.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -392,9 +377,6 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
   <data name="main_button_download_default" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\main_button_download_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="main_credits_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\main_credits_hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="htmlvorHardSubs" xml:space="preserve">
     <value>"&gt; &lt;img alt="image error" src="cc1.png" class="class-cc"&gt;</value>
   </data>
@@ -502,9 +484,6 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
   &lt;/style&gt;
 &lt;body id="bodypage" class="main-bg" &gt;</value>
   </data>
-  <data name="main_credits_default" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\main_credits_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Main_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Main_top.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -532,4 +511,16 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
   <data name="CR_MediaName2" xml:space="preserve">
     <value>”&lt;/h4&gt;</value>
   </data>
+  <data name="main_add_invert_dark" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\main-add_invert_dark.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="main_browser_invert_dark" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\main-browser_invert_dark.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="main_close_dark" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\main-close_dark.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="main_setting_invert_dark" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\main-setting_invert_dark.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>

Crunchyroll Downloader/Subfolder.vb

@@ -19,14 +19,14 @@
 
         ElseIf SubFolder_Value = SubFolder_Nothing Then
 
-            newPath = Path
+            newPath = Path + "\"
 
         Else
 
             newPath = Path + "\" + SubFolder_Value + "\"
 
         End If
-
+        Debug.WriteLine(newPath)
 
         Return newPath.Replace("\\", "\")
     End Function

Crunchyroll Downloader/bin/x86/Debug/Crunchyroll Downloader.xml

@@ -27,11 +27,6 @@ Crunchyroll Downloader
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
 </summary>
 </member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_background">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
 <member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_mass_cancel">
 <summary>
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@@ -97,11 +92,6 @@ Video Position: 0
  [Rest der Zeichenfolge wurde abgeschnitten]&quot;; ähnelt.
 </summary>
 </member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.backgroud">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
 <member name="P:Crunchyroll_Downloader.My.Resources.Resources.balken">
 <summary>
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@@ -132,11 +122,6 @@ Video Position: 0
   Sucht eine lokalisierte Zeichenfolge, die ”&lt;/h4&gt; ähnelt.
 </summary>
 </member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Background">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
 <member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Button_SafeExit">
 <summary>
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@@ -157,16 +142,6 @@ Video Position: 0
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
 </summary>
 </member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.credits_background">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Background">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
 <member name="P:Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Submit">
 <summary>
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@@ -383,6 +358,11 @@ setInterval(function loadXMLDoc() {
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
 </summary>
 </member>
+<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_add_invert_dark">
+<summary>
+  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+</summary>
+</member>
 <member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_background">
 <summary>
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@@ -398,6 +378,11 @@ setInterval(function loadXMLDoc() {
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
 </summary>
 </member>
+<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_browser_invert_dark">
+<summary>
+  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+</summary>
+</member>
 <member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_button_download_deactivate">
 <summary>
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@@ -418,12 +403,7 @@ setInterval(function loadXMLDoc() {
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
 </summary>
 </member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_credits_default">
+<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_close_dark">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_credits_hover">
 <summary>
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
 </summary>
@@ -463,6 +443,11 @@ setInterval(function loadXMLDoc() {
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
 </summary>
 </member>
+<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_setting_invert_dark">
+<summary>
+  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+</summary>
+</member>
 <member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_settings">
 <summary>
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.

Crunchyroll Downloader/einstellungen.resx

@@ -118,16 +118,16 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>183, 17</value>
+    <value>19, 20</value>
   </metadata>
   <metadata name="ToolTip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>397, 17</value>
+    <value>233, 20</value>
   </metadata>
   <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>282, 17</value>
+    <value>118, 20</value>
   </metadata>
   <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>282, 17</value>
+    <value>118, 20</value>
   </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>60</value>

Crunchyroll Downloader/einstellungen.vb

@@ -10,11 +10,23 @@ Imports MetroFramework.Components
 
 Public Class Einstellungen
     Inherits MetroForm
+
+    Dim Manager As MetroStyleManager = Main.Manager
+
     Private Sub Einstellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Label6.Text = "Version " + Application.ProductVersion.ToString
-        Dim Manager As MetroStyleManager = Main.Manager
-        Manager.Owner = Me
 
+        Manager.Owner = Me
+        Me.StyleManager = Manager
+
+        If Main.DarkModeValue = True Then
+            DarkMode.Checked = True
+            GroupBoxColor(Color.FromArgb(150, 150, 150))
+            pictureBox1.Image = Main.CloseImg
+        Else
+            GroupBoxColor(Color.FromArgb(0, 0, 0))
+            DarkMode.Checked = False
+        End If
 
         TabControl1.SelectedIndex = 0
         For i As Integer = 0 To Main.SoftSubs.Count - 1
@@ -523,12 +535,15 @@ Public Class Einstellungen
         Me.Close()
     End Sub
 #Region "UI"
-    Private Sub PictureBox1_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox1.MouseEnter
+
-        pictureBox1.BackColor = SystemColors.Control
+    Private Sub Btn_Close_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox1.MouseEnter
+        Dim PB As PictureBox = sender
+        PB.Image = My.Resources.main_del
     End Sub
 
-    Private Sub PictureBox1_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox1.MouseLeave
+    Private Sub Btn_Close_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox1.MouseLeave
-        pictureBox1.BackColor = Color.Transparent
+        Dim PB As PictureBox = sender
+        PB.Image = Main.CloseImg
     End Sub
 
     Private Sub PictureBox4_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox4.MouseEnter
@@ -760,20 +775,63 @@ Public Class Einstellungen
         End If
     End Sub
 
-    Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click
+    Private Sub Label7_Click(sender As Object, e As EventArgs)
         Process.Start("https://bitbucket.org/geckofx/geckofx-60.0/src/default/")
     End Sub
 
-    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
+    Private Sub Label3_Click(sender As Object, e As EventArgs)
         Process.Start("https://www.ffmpeg.org/about.html")
     End Sub
 
-    Private Sub Label9_Click(sender As Object, e As EventArgs) Handles Label9.Click
+    Private Sub Label9_Click(sender As Object, e As EventArgs)
         Process.Start("https://github.com/hama3254/metroframework-modern-ui")
     End Sub
 
 
 
+    Sub GroupBoxColor(ByVal color As Color)
+        SoftSubs.ForeColor = color
+        GB_SubLanguage.ForeColor = color
+        DL_Count_simultaneous.ForeColor = color
+        GB_Resolution.ForeColor = color
+        GroupBox1.ForeColor = color
+        GroupBox2.ForeColor = color
+        GroupBox3.ForeColor = color
+        GroupBox5.ForeColor = color
+        GroupBox6.ForeColor = color
+        GroupBox7.ForeColor = color
+        GroupBox8.ForeColor = color
+        GroupBox9.ForeColor = color
+        GroupBox10.ForeColor = color
+        GroupBox11.ForeColor = color
+        GroupBox12.ForeColor = color
+    End Sub
+
+
+
+    Private Sub GroupBox2_EnabledChanged(sender As Object, e As EventArgs) Handles GroupBox2.EnabledChanged
+
+    End Sub
+
+    Private Sub DarkMode_CheckedChanged(sender As Object, e As EventArgs) Handles DarkMode.CheckedChanged
+        Dim rk As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader")
+
+        If DarkMode.Checked = True Then
+            rk.SetValue("Dark_Mode", 1, RegistryValueKind.String)
+            Manager.Theme = MetroThemeStyle.Dark
+            GroupBoxColor(Color.FromArgb(150, 150, 150))
+            Main.DarkMode()
+            Main.DarkModeValue = True
+            pictureBox1.Image = Main.CloseImg
+        Else
+            Main.DarkModeValue = False
+            rk.SetValue("Dark_Mode", 0, RegistryValueKind.String)
+            Manager.Theme = MetroThemeStyle.Light
+            Main.LightMode()
+            GroupBoxColor(Color.FromArgb(0, 0, 0))
+            pictureBox1.Image = Main.CloseImg
+        End If
+    End Sub
 
 
 

Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-237c9b2a5286ec54ed4b5347c70a9d9c9eff3d81
+11dcefd4d648c4dece2d5b0632ae9f091b805be2

Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.xml

@@ -27,11 +27,6 @@ Crunchyroll Downloader
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
 </summary>
 </member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_background">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
 <member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_mass_cancel">
 <summary>
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@@ -97,11 +92,6 @@ Video Position: 0
  [Rest der Zeichenfolge wurde abgeschnitten]&quot;; ähnelt.
 </summary>
 </member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.backgroud">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
 <member name="P:Crunchyroll_Downloader.My.Resources.Resources.balken">
 <summary>
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@@ -132,11 +122,6 @@ Video Position: 0
   Sucht eine lokalisierte Zeichenfolge, die ”&lt;/h4&gt; ähnelt.
 </summary>
 </member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Background">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
 <member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Button_SafeExit">
 <summary>
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@@ -157,16 +142,6 @@ Video Position: 0
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
 </summary>
 </member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.credits_background">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Background">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
 <member name="P:Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Submit">
 <summary>
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@@ -383,6 +358,11 @@ setInterval(function loadXMLDoc() {
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
 </summary>
 </member>
+<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_add_invert_dark">
+<summary>
+  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+</summary>
+</member>
 <member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_background">
 <summary>
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@@ -398,6 +378,11 @@ setInterval(function loadXMLDoc() {
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
 </summary>
 </member>
+<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_browser_invert_dark">
+<summary>
+  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+</summary>
+</member>
 <member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_button_download_deactivate">
 <summary>
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@@ -418,12 +403,7 @@ setInterval(function loadXMLDoc() {
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
 </summary>
 </member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_credits_default">
+<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_close_dark">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_credits_hover">
 <summary>
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
 </summary>
@@ -463,6 +443,11 @@ setInterval(function loadXMLDoc() {
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
 </summary>
 </member>
+<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_setting_invert_dark">
+<summary>
+  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+</summary>
+</member>
 <member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_settings">
 <summary>
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.