UI and add-on improvements

UI and add-on improvements

Crunchyroll Downloader/Anime_Add.Designer.vb

@@ -33,10 +33,10 @@ Partial Class Anime_Add
         Me.textBox1 = New MetroFramework.Controls.MetroTextBox()
         Me.TextBox2 = New MetroFramework.Controls.MetroTextBox()
         Me.groupBox2 = New System.Windows.Forms.GroupBox()
+        Me.bt_Cancel_mass = New System.Windows.Forms.Button()
         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 MetroFramework.Controls.MetroLabel()
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
         Me.ListBox1 = New System.Windows.Forms.ListBox()
@@ -49,7 +49,6 @@ Partial Class Anime_Add
         Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
         Me.groupBox1.SuspendLayout()
         Me.groupBox2.SuspendLayout()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox3.SuspendLayout()
         CType(Me.Btn_min, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Btn_Close, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -230,10 +229,10 @@ Partial Class Anime_Add
         'groupBox2
         '
         Me.groupBox2.BackColor = System.Drawing.Color.Transparent
+        Me.groupBox2.Controls.Add(Me.bt_Cancel_mass)
         Me.groupBox2.Controls.Add(Me.comboBox4)
         Me.groupBox2.Controls.Add(Me.ComboBox1)
         Me.groupBox2.Controls.Add(Me.comboBox3)
-        Me.groupBox2.Controls.Add(Me.PictureBox1)
         Me.groupBox2.Controls.Add(Me.Add_Display)
         Me.groupBox2.Location = New System.Drawing.Point(15, 70)
         Me.groupBox2.Name = "groupBox2"
@@ -242,6 +241,20 @@ Partial Class Anime_Add
         Me.groupBox2.TabStop = False
         Me.groupBox2.Visible = False
         '
+        'bt_Cancel_mass
+        '
+        Me.bt_Cancel_mass.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.add_mass_cancel
+        Me.bt_Cancel_mass.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.bt_Cancel_mass.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.bt_Cancel_mass.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.bt_Cancel_mass.ForeColor = System.Drawing.SystemColors.Control
+        Me.bt_Cancel_mass.Location = New System.Drawing.Point(159, 231)
+        Me.bt_Cancel_mass.Name = "bt_Cancel_mass"
+        Me.bt_Cancel_mass.Size = New System.Drawing.Size(403, 36)
+        Me.bt_Cancel_mass.TabIndex = 37
+        Me.bt_Cancel_mass.Text = "Cancel"
+        Me.bt_Cancel_mass.UseVisualStyleBackColor = True
+        '
         'comboBox4
         '
         Me.comboBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -275,18 +288,6 @@ Partial Class Anime_Add
         Me.comboBox3.TabIndex = 1
         Me.comboBox3.UseSelectable = True
         '
-        'PictureBox1
-        '
-        Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
-        Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.PictureBox1.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.add_mass_cancel
-        Me.PictureBox1.Location = New System.Drawing.Point(159, 231)
-        Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(403, 36)
-        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
-        Me.PictureBox1.TabIndex = 45
-        Me.PictureBox1.TabStop = False
-        '
         'Add_Display
         '
         Me.Add_Display.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -401,7 +402,6 @@ Partial Class Anime_Add
         Me.TextAlign = MetroFramework.Forms.MetroFormTextAlign.Center
         Me.groupBox1.ResumeLayout(False)
         Me.groupBox2.ResumeLayout(False)
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GroupBox3.ResumeLayout(False)
         CType(Me.Btn_min, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Btn_Close, System.ComponentModel.ISupportInitialize).EndInit()
@@ -409,7 +409,6 @@ Partial Class Anime_Add
 
     End Sub
     Public WithEvents groupBox2 As GroupBox
-    Public WithEvents PictureBox1 As PictureBox
     Public WithEvents groupBox1 As GroupBox
     Public WithEvents GroupBox3 As GroupBox
     Friend WithEvents Timer1 As Timer
@@ -431,4 +430,5 @@ Partial Class Anime_Add
     Friend WithEvents btn_dl As Button
     Friend WithEvents Timer3 As Timer
     Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
+    Friend WithEvents bt_Cancel_mass As Button
 End Class

Crunchyroll Downloader/Anime_Add.resx

@@ -127,7 +127,7 @@
   <data name="Btn_min.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABoAAAAhCAYAAADH97ugAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAAAd0SU1FB+QMDQ03N1b5UIAAAAApSURBVEhL7cyxCQAwDASx339pZ4EUcTC4keDa
+        wQAADsEBuJFr7QAAAAd0SU1FB+QMDQ03N1b5UIAAAAApSURBVEhL7cyxCQAwDASx339pZ4EUcTC4keDa
         CwDMqs/abpOXAGBZcgDKSBvlblfsRgAAAABJRU5ErkJggg==
 </value>
   </data>

Crunchyroll Downloader/Anime_Add.vb

@@ -22,6 +22,8 @@ Public Class Anime_Add
 
 
     Private Sub LoadBrowser(ByVal Url As String)
+
+
         Dim locale As String = "en-US"
         If CBool(InStr(Url, "beta.crunchyroll.com")) = True And CBool(InStr(Url, "watch")) = True And CBool(Main.CrBetaBasic = Nothing) = False Then
 #Region "Get Cookies"
@@ -440,8 +442,8 @@ Public Class Anime_Add
                 'btn_dl.BackgroundImage = My.Resources.add_mass_running_cancel
                 btn_dl.Text = "Cancel"
                 Mass_DL_Cancel = True
-                PictureBox1.Enabled = False
+                bt_Cancel_mass.Enabled = False
-                PictureBox1.Visible = False
+                bt_Cancel_mass.Visible = False
                 Main.DownloadFunimationJS_Seasons()
                 comboBox4.Enabled = False
                 comboBox3.Enabled = False
@@ -453,8 +455,8 @@ Public Class Anime_Add
                 'btn_dl.BackgroundImage = My.Resources.add_mass_running_cancel
                 btn_dl.Text = "Cancel"
                 Mass_DL_Cancel = True
-                PictureBox1.Enabled = False
+                bt_Cancel_mass.Enabled = False
-                PictureBox1.Visible = False
+                bt_Cancel_mass.Visible = False
 
                 Main.DownloadBetaSeasons()
                 comboBox4.Enabled = False
@@ -466,8 +468,8 @@ Public Class Anime_Add
                 'btn_dl.BackgroundImage = My.Resources.add_mass_running_cancel
                 btn_dl.Text = "Cancel"
                 Mass_DL_Cancel = True
-                PictureBox1.Enabled = False
+                bt_Cancel_mass.Enabled = False
-                PictureBox1.Visible = False
+                bt_Cancel_mass.Visible = False
 
                 Main.Download_VRV_Seasons()
                 comboBox4.Enabled = False
@@ -480,8 +482,8 @@ Public Class Anime_Add
                 'btn_dl.BackgroundImage = My.Resources.add_mass_running_cancel
                 btn_dl.Text = "Cancel"
                 Mass_DL_Cancel = True
-                PictureBox1.Enabled = False
+                bt_Cancel_mass.Enabled = False
-                PictureBox1.Visible = False
+                bt_Cancel_mass.Visible = False
                 Main.MassDL()
                 comboBox4.Enabled = False
                 comboBox3.Enabled = False
@@ -577,11 +579,23 @@ Public Class Anime_Add
         End If
     End Sub
 
-    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+
+    Private Sub bt_Cancel_mass_Click(sender As Object, e As EventArgs) Handles bt_Cancel_mass.Click
         groupBox1.Visible = True
         groupBox2.Visible = False
     End Sub
 
+    Private Sub bt_Cancel_mass_MouseEnter(sender As Object, e As EventArgs) Handles bt_Cancel_mass.MouseEnter
+
+        bt_Cancel_mass.BackgroundImage = My.Resources.add_mass_cancel_hover
+
+
+    End Sub
+    Private Sub bt_Cancel_mass_MouseLeave(sender As Object, e As EventArgs) Handles bt_Cancel_mass.MouseLeave
+        bt_Cancel_mass.BackgroundImage = My.Resources.add_mass_cancel
+
+    End Sub
+
     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
         If CBool(InStr(Main.WebbrowserURL, "beta.crunchyroll.com")) = True Then
             comboBox3.Items.Clear()
@@ -629,40 +643,48 @@ Public Class Anime_Add
                 End If
 
             Next
+
+            If comboBox3.Items.Count > 0 Then
+                comboBox3.SelectedIndex = 0
+                comboBox4.SelectedIndex = comboBox4.Items.Count - 1
+            End If
+
+
+
         ElseIf CBool(InStr(Main.WebbrowserURL, "vrv.co")) = True Then
-            comboBox3.Items.Clear()
+                comboBox3.Items.Clear()
-            comboBox4.Items.Clear()
+                comboBox4.Items.Clear()
-            comboBox3.Enabled = True
+                comboBox3.Enabled = True
-            comboBox4.Enabled = True
+                comboBox4.Enabled = True
-            comboBox3.Text = Nothing
+                comboBox3.Text = Nothing
-            comboBox4.Text = Nothing
+                comboBox4.Text = Nothing
-            Dim SeasonSplit() As String = Main.VRVMass.Split(New String() {Chr(34) + "id" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+                Dim SeasonSplit() As String = Main.VRVMass.Split(New String() {Chr(34) + "id" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
 
-            Dim SeasonSplit2() As String = SeasonSplit(ComboBox1.SelectedIndex + 1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+                Dim SeasonSplit2() As String = SeasonSplit(ComboBox1.SelectedIndex + 1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
 
-            Dim EpisodeJsonURL As String = Main.VRVMassBaseURL + "episodes?season_id=" + SeasonSplit2(0) + "&Policy=" + Main.VRVMassParameters
+                Dim EpisodeJsonURL As String = Main.VRVMassBaseURL + "episodes?season_id=" + SeasonSplit2(0) + "&Policy=" + Main.VRVMassParameters
-            Dim EpisodeJson As String = Nothing
+                Dim EpisodeJson As String = Nothing
-            Debug.WriteLine(EpisodeJsonURL)
+                Debug.WriteLine(EpisodeJsonURL)
 
-            Try
+                Try
-                Using client As New WebClient()
+                    Using client As New WebClient()
-                    client.Encoding = System.Text.Encoding.UTF8
+                        client.Encoding = System.Text.Encoding.UTF8
-                    client.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), ""))
+                        client.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), ""))
-                    EpisodeJson = client.DownloadString(EpisodeJsonURL)
+                        EpisodeJson = client.DownloadString(EpisodeJsonURL)
-                End Using
+                    End Using
-            Catch ex As Exception
+                Catch ex As Exception
-                Debug.WriteLine("error- getting EpisodeJson data")
+                    Debug.WriteLine("error- getting EpisodeJson data")
-                Debug.WriteLine(ex.ToString)
+                    Debug.WriteLine(ex.ToString)
-                Exit Sub
+                    Exit Sub
-            End Try
+                End Try
-            Main.VRVMassEpisodes = EpisodeJson
+                Main.VRVMassEpisodes = EpisodeJson
 
 
 
-            Dim EpisodeNameSplit() As String = EpisodeJson.Split(New String() {Chr(34) + "title" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+                Dim EpisodeNameSplit() As String = EpisodeJson.Split(New String() {Chr(34) + "title" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
 
 
-            Dim EpisodeSplit() As String = EpisodeJson.Split(New String() {Chr(34) + "episode" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+                Dim EpisodeSplit() As String = EpisodeJson.Split(New String() {Chr(34) + "episode" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
             For i As Integer = 1 To EpisodeSplit.Count - 1
                 Dim EpisodeSplit2() As String = EpisodeSplit(i).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
                 Dim EpisodeNameSplit2() As String = EpisodeNameSplit(i).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
@@ -675,55 +697,66 @@ Public Class Anime_Add
                 End If
 
             Next
-        ElseIf Main.WebbrowserURL = "https://funimation.com/js" Then
-            comboBox3.Items.Clear()
-            comboBox4.Items.Clear()
-            comboBox3.Text = Nothing
-            comboBox4.Text = Nothing
-            Dim ContentID As String = Nothing
 
-            For i As Integer = 0 To Main.FunimtaionSeasonList.Count - 1
+            If comboBox3.Items.Count > 0 Then
-                If ComboBox1.Text = Main.FunimtaionSeasonList.Item(i).Title Then
+                comboBox3.SelectedIndex = 0
-                    ContentID = Main.FunimtaionSeasonList.Item(i).ID
+                comboBox4.SelectedIndex = comboBox4.Items.Count - 1
-                    Exit For
-                End If
-            Next
-
-            If ContentID = Nothing Then
-                MsgBox("error during season selection")
-                Exit Sub
             End If
 
-            Dim BaseUrl() As String = Main.FunimationSeasonAPIUrl.Split(New String() {"/shows/"}, System.StringSplitOptions.RemoveEmptyEntries)
+        ElseIf Main.WebbrowserURL = "https://funimation.com/js" Then
+                comboBox3.Items.Clear()
+                comboBox4.Items.Clear()
+                comboBox3.Text = Nothing
+                comboBox4.Text = Nothing
+                Dim ContentID As String = Nothing
+
+                For i As Integer = 0 To Main.FunimtaionSeasonList.Count - 1
+                    If ComboBox1.Text = Main.FunimtaionSeasonList.Item(i).Title Then
+                        ContentID = Main.FunimtaionSeasonList.Item(i).ID
+                        Exit For
+                    End If
+                Next
+
+                If ContentID = Nothing Then
+                    MsgBox("error during season selection")
+                    Exit Sub
+                End If
+
+                Dim BaseUrl() As String = Main.FunimationSeasonAPIUrl.Split(New String() {"/shows/"}, System.StringSplitOptions.RemoveEmptyEntries)
 
 
 
-            Dim EpisodeJsonURL As String = BaseUrl(0) + "/seasons/" + ContentID + ".json"
+                Dim EpisodeJsonURL As String = BaseUrl(0) + "/seasons/" + ContentID + ".json"
-            Dim EpisodeJson As String = Nothing
+                Dim EpisodeJson As String = Nothing
-            Debug.WriteLine(EpisodeJsonURL)
+                Debug.WriteLine(EpisodeJsonURL)
 
-            Try
+                Try
-                Using client As New WebClient()
+                    Using client As New WebClient()
-                    client.Encoding = System.Text.Encoding.UTF8
+                        client.Encoding = System.Text.Encoding.UTF8
-                    client.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), ""))
+                        client.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), ""))
-                    EpisodeJson = client.DownloadString(EpisodeJsonURL)
+                        EpisodeJson = client.DownloadString(EpisodeJsonURL)
-                End Using
+                    End Using
-            Catch ex As Exception
+                Catch ex As Exception
-                Debug.WriteLine("error- getting EpisodeJson data")
+                    Debug.WriteLine("error- getting EpisodeJson data")
-                Debug.WriteLine(ex.ToString)
+                    Debug.WriteLine(ex.ToString)
-                Main.FunimationJsonBrowser = "EpisodeJson"
+                    Main.FunimationJsonBrowser = "EpisodeJson"
-                LoadBrowser(EpisodeJsonURL)
+                    LoadBrowser(EpisodeJsonURL)
-                Exit Sub
+                    Exit Sub
-            End Try
+                End Try
 
-            FillFunimationEpisodes(EpisodeJson)
+                FillFunimationEpisodes(EpisodeJson)
 
 
+            If comboBox3.Items.Count > 0 Then
+                comboBox3.SelectedIndex = 0
+                comboBox4.SelectedIndex = comboBox4.Items.Count - 1
+            End If
+
 
         Else
 
-            'MsgBox(Main.WebbrowserURL)
+                'MsgBox(Main.WebbrowserURL)
-            comboBox3.Items.Clear()
+                comboBox3.Items.Clear()
             comboBox4.Items.Clear()
             comboBox3.Enabled = True
             comboBox4.Enabled = True
@@ -751,6 +784,11 @@ Public Class Anime_Add
                 comboBox4.Items.Add(URLGrapp2(0))
             Next
 
+            If comboBox3.Items.Count > 0 Then
+                comboBox3.SelectedIndex = 0
+                comboBox4.SelectedIndex = comboBox4.Items.Count - 1
+            End If
+
 
         End If
     End Sub
@@ -772,13 +810,7 @@ Public Class Anime_Add
         Next
         Main.WebbrowserURL = "https://funimation.com/js"
     End Sub
-    Private Sub PictureBox1_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox1.MouseEnter
-        PictureBox1.Image = My.Resources.add_mass_cancel_hover
-    End Sub
 
-    Private Sub PictureBox1_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox1.MouseLeave
-        PictureBox1.Image = My.Resources.add_mass_cancel
-    End Sub
 
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         If ListBox1.Items.Count > 0 Then

Crunchyroll Downloader/App.config

@@ -8,11 +8,11 @@
       <probing privatePath="lib" />
       <dependentAssembly>
         <assemblyIdentity name="CefSharp" publicKeyToken="40c4b6fc221f4138" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-101.0.150.0" newVersion="101.0.150.0" />
+        <bindingRedirect oldVersion="0.0.0.0-103.0.90.0" newVersion="103.0.90.0" />
       </dependentAssembly>
       <dependentAssembly>
         <assemblyIdentity name="CefSharp.Core" publicKeyToken="40c4b6fc221f4138" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-101.0.150.0" newVersion="101.0.150.0" />
+        <bindingRedirect oldVersion="0.0.0.0-103.0.90.0" newVersion="103.0.90.0" />
       </dependentAssembly>
     </assemblyBinding>
   </runtime>

Crunchyroll Downloader/CRD_List_Item.vb

@@ -30,6 +30,7 @@ Public Class CRD_List_Item
 
     Dim TempFolder As String = Nothing
     Dim DownloadPfad As String = Nothing
+    Dim ThumbnailSource As String = Nothing
     Dim ToDispose As Boolean = False
     Dim Failed As Boolean = False
     Dim FailedCount As Integer = 0
@@ -136,7 +137,18 @@ Public Class CRD_List_Item
     Public Sub SetLabelPercent(ByVal Text As String)
         Label_percent.Text = Text
     End Sub
-    Public Sub SetThumbnailImage(ByVal Thumbnail As Image)
+    Public Sub SetThumbnailImage(ByVal ThumbnialURL As String)
+        ThumbnailSource = ThumbnialURL
+        Dim Thumbnail As Image = My.Resources.main_del
+        Debug.WriteLine("ThumbnialURL: " + ThumbnialURL)
+        Try
+            Dim wc As New WebClient()
+            Dim bytes As Byte() = wc.DownloadData(ThumbnialURL)
+            Dim ms As New MemoryStream(bytes)
+            Thumbnail = System.Drawing.Image.FromStream(ms)
+        Catch ex As Exception
+            'MsgBox(ex.ToString)
+        End Try
         PB_Thumbnail.BackgroundImage = Thumbnail
     End Sub
 #End Region
@@ -157,6 +169,14 @@ Public Class CRD_List_Item
             End If
         End If
 
+    End Function
+    Public Function GetThumbnailSource() As String
+        Try
+            Return ThumbnailSource
+        Catch ex As Exception
+            Return "0"
+        End Try
+
     End Function
     Public Function GetLabelPercent() As String
         Try
@@ -522,6 +542,15 @@ Public Class CRD_List_Item
 #Region "ThreadChecker"
 
     Private Sub CheckThreadCount()
+        'Try
+        '    Me.Invoke(New Action(Function() As Object
+
+        '                             Label_Reso.Text = ThreadList.Count.ToString
+        '                             Return Nothing
+        '                         End Function))
+        'Catch ex As Exception
+        'End Try
+
         For w As Integer = 0 To Integer.MaxValue
 
             If StatusRunning = False Then

Crunchyroll Downloader/Crunchyroll Downloader.vbproj

@@ -1,8 +1,8 @@
 <?xml version="1.0" encoding="utf-8"?>
 <Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <Import Project="..\packages\CefSharp.Common.101.0.180\build\CefSharp.Common.props" Condition="Exists('..\packages\CefSharp.Common.101.0.180\build\CefSharp.Common.props')" />
+  <Import Project="..\packages\CefSharp.Common.103.0.90\build\CefSharp.Common.props" Condition="Exists('..\packages\CefSharp.Common.103.0.90\build\CefSharp.Common.props')" />
-  <Import Project="..\packages\cef.redist.x86.101.0.18\build\cef.redist.x86.props" Condition="Exists('..\packages\cef.redist.x86.101.0.18\build\cef.redist.x86.props')" />
+  <Import Project="..\packages\cef.redist.x86.103.0.9\build\cef.redist.x86.props" Condition="Exists('..\packages\cef.redist.x86.103.0.9\build\cef.redist.x86.props')" />
-  <Import Project="..\packages\cef.redist.x64.101.0.18\build\cef.redist.x64.props" Condition="Exists('..\packages\cef.redist.x64.101.0.18\build\cef.redist.x64.props')" />
+  <Import Project="..\packages\cef.redist.x64.103.0.9\build\cef.redist.x64.props" Condition="Exists('..\packages\cef.redist.x64.103.0.9\build\cef.redist.x64.props')" />
   <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
   <PropertyGroup>
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
@@ -105,14 +105,14 @@
     <WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
   </PropertyGroup>
   <ItemGroup>
-    <Reference Include="CefSharp, Version=101.0.180.0, Culture=neutral, PublicKeyToken=40c4b6fc221f4138, processorArchitecture=MSIL">
+    <Reference Include="CefSharp, Version=103.0.90.0, Culture=neutral, PublicKeyToken=40c4b6fc221f4138, processorArchitecture=MSIL">
-      <HintPath>..\packages\CefSharp.Common.101.0.180\lib\net452\CefSharp.dll</HintPath>
+      <HintPath>..\packages\CefSharp.Common.103.0.90\lib\net452\CefSharp.dll</HintPath>
     </Reference>
-    <Reference Include="CefSharp.Core, Version=101.0.180.0, Culture=neutral, PublicKeyToken=40c4b6fc221f4138, processorArchitecture=MSIL">
+    <Reference Include="CefSharp.Core, Version=103.0.90.0, Culture=neutral, PublicKeyToken=40c4b6fc221f4138, processorArchitecture=MSIL">
-      <HintPath>..\packages\CefSharp.Common.101.0.180\lib\net452\CefSharp.Core.dll</HintPath>
+      <HintPath>..\packages\CefSharp.Common.103.0.90\lib\net452\CefSharp.Core.dll</HintPath>
     </Reference>
-    <Reference Include="CefSharp.WinForms, Version=101.0.180.0, Culture=neutral, PublicKeyToken=40c4b6fc221f4138, processorArchitecture=MSIL">
+    <Reference Include="CefSharp.WinForms, Version=103.0.90.0, Culture=neutral, PublicKeyToken=40c4b6fc221f4138, processorArchitecture=MSIL">
-      <HintPath>..\packages\CefSharp.WinForms.101.0.180\lib\net462\CefSharp.WinForms.dll</HintPath>
+      <HintPath>..\packages\CefSharp.WinForms.103.0.90\lib\net462\CefSharp.WinForms.dll</HintPath>
     </Reference>
     <Reference Include="MetroFramework, Version=1.4.0.0, Culture=neutral, PublicKeyToken=5f91a84759bf584a, processorArchitecture=AMD64">
       <SpecificVersion>False</SpecificVersion>
@@ -379,9 +379,6 @@
     <None Include="Resources\main-pause-play.png" />
     <None Include="Resources\main-pause-hover.png" />
     <None Include="Resources\main-pause.png" />
-    <None Include="Resources\softsubs_download_hover.png" />
-    <None Include="Resources\softsubs_download_gray.png" />
-    <None Include="Resources\softsubs_download.png" />
     <None Include="Resources\main-del-hover.png" />
     <None Include="Resources\main-del.png" />
     <None Include="Resources\balken.png" />
@@ -410,10 +407,10 @@
     <PropertyGroup>
       <ErrorText>Dieses Projekt verweist auf mindestens ein NuGet-Paket, das auf diesem Computer fehlt. Verwenden Sie die Wiederherstellung von NuGet-Paketen, um die fehlenden Dateien herunterzuladen. Weitere Informationen finden Sie unter "http://go.microsoft.com/fwlink/?LinkID=322105". Die fehlende Datei ist "{0}".</ErrorText>
     </PropertyGroup>
-    <Error Condition="!Exists('..\packages\cef.redist.x64.101.0.18\build\cef.redist.x64.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\cef.redist.x64.101.0.18\build\cef.redist.x64.props'))" />
+    <Error Condition="!Exists('..\packages\cef.redist.x64.103.0.9\build\cef.redist.x64.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\cef.redist.x64.103.0.9\build\cef.redist.x64.props'))" />
-    <Error Condition="!Exists('..\packages\cef.redist.x86.101.0.18\build\cef.redist.x86.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\cef.redist.x86.101.0.18\build\cef.redist.x86.props'))" />
+    <Error Condition="!Exists('..\packages\cef.redist.x86.103.0.9\build\cef.redist.x86.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\cef.redist.x86.103.0.9\build\cef.redist.x86.props'))" />
-    <Error Condition="!Exists('..\packages\CefSharp.Common.101.0.180\build\CefSharp.Common.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\CefSharp.Common.101.0.180\build\CefSharp.Common.props'))" />
+    <Error Condition="!Exists('..\packages\CefSharp.Common.103.0.90\build\CefSharp.Common.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\CefSharp.Common.103.0.90\build\CefSharp.Common.props'))" />
-    <Error Condition="!Exists('..\packages\CefSharp.Common.101.0.180\build\CefSharp.Common.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\CefSharp.Common.101.0.180\build\CefSharp.Common.targets'))" />
+    <Error Condition="!Exists('..\packages\CefSharp.Common.103.0.90\build\CefSharp.Common.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\CefSharp.Common.103.0.90\build\CefSharp.Common.targets'))" />
   </Target>
-  <Import Project="..\packages\CefSharp.Common.101.0.180\build\CefSharp.Common.targets" Condition="Exists('..\packages\CefSharp.Common.101.0.180\build\CefSharp.Common.targets')" />
+  <Import Project="..\packages\CefSharp.Common.103.0.90\build\CefSharp.Common.targets" Condition="Exists('..\packages\CefSharp.Common.103.0.90\build\CefSharp.Common.targets')" />
 </Project>

Crunchyroll Downloader/Main.designer.vb

@@ -47,6 +47,8 @@ Partial Class Main
         Me.OpenSettingsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.TestDownloadToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.CheckCRBetaTokenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AddonHTMLToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Timer3OffToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -180,7 +182,7 @@ Partial Class Main
         '
         'ContextMenuStrip1
         '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToggleDebugModeToolStripMenuItem, Me.OpenSettingsToolStripMenuItem, Me.TestDownloadToolStripMenuItem, Me.CheckCRBetaTokenToolStripMenuItem})
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToggleDebugModeToolStripMenuItem, Me.OpenSettingsToolStripMenuItem, Me.TestDownloadToolStripMenuItem, Me.CheckCRBetaTokenToolStripMenuItem, Me.AddonHTMLToolStripMenuItem, Me.Timer3OffToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
         resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
         '
@@ -204,6 +206,16 @@ Partial Class Main
         Me.CheckCRBetaTokenToolStripMenuItem.Name = "CheckCRBetaTokenToolStripMenuItem"
         resources.ApplyResources(Me.CheckCRBetaTokenToolStripMenuItem, "CheckCRBetaTokenToolStripMenuItem")
         '
+        'AddonHTMLToolStripMenuItem
+        '
+        Me.AddonHTMLToolStripMenuItem.Name = "AddonHTMLToolStripMenuItem"
+        resources.ApplyResources(Me.AddonHTMLToolStripMenuItem, "AddonHTMLToolStripMenuItem")
+        '
+        'Timer3OffToolStripMenuItem
+        '
+        Me.Timer3OffToolStripMenuItem.Name = "Timer3OffToolStripMenuItem"
+        resources.ApplyResources(Me.Timer3OffToolStripMenuItem, "Timer3OffToolStripMenuItem")
+        '
         'Main
         '
         Me.ApplyImageInvert = True
@@ -256,4 +268,6 @@ Partial Class Main
     Friend WithEvents OpenSettingsToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents TestDownloadToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents CheckCRBetaTokenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents AddonHTMLToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents Timer3OffToolStripMenuItem As ToolStripMenuItem
 End Class

Crunchyroll Downloader/Main.resx

@@ -120,13 +120,6 @@
   <metadata name="ListView1.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
-  <data name="Link.Text" xml:space="preserve">
-    <value>Link</value>
-  </data>
-  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="Link.Width" type="System.Int32, mscorlib">
-    <value>818</value>
-  </data>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="ListView1.Font" type="System.Drawing.Font, System.Drawing">
     <value>Microsoft Sans Serif, 93pt</value>
@@ -144,6 +137,7 @@
   <data name="ListView1.Size" type="System.Drawing.Size, System.Drawing">
     <value>840, 546</value>
   </data>
+  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="ListView1.TabIndex" type="System.Int32, mscorlib">
     <value>57</value>
   </data>
@@ -159,6 +153,12 @@
   <data name="&gt;&gt;ListView1.ZOrder" xml:space="preserve">
     <value>9</value>
   </data>
+  <data name="Link.Text" xml:space="preserve">
+    <value>Link</value>
+  </data>
+  <data name="Link.Width" type="System.Int32, mscorlib">
+    <value>818</value>
+  </data>
   <metadata name="PictureBox5.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
@@ -273,24 +273,6 @@
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
     <value>842, 630</value>
   </data>
-  <data name="Btn_Close.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
-    <value>None</value>
-  </data>
-  <data name="Btn_Close.FlatStyle" type="System.Windows.Forms.FlatStyle, System.Windows.Forms">
-    <value>Flat</value>
-  </data>
-  <data name="Btn_Close.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="Btn_Close.Location" type="System.Drawing.Point, System.Drawing">
-    <value>800, 1</value>
-  </data>
-  <data name="Btn_Close.Size" type="System.Drawing.Size, System.Drawing">
-    <value>40, 40</value>
-  </data>
-  <data name="Btn_Close.TabIndex" type="System.Int32, mscorlib">
-    <value>5</value>
-  </data>
   <data name="&gt;&gt;Btn_Close.Name" xml:space="preserve">
     <value>Btn_Close</value>
   </data>
@@ -303,24 +285,6 @@
   <data name="&gt;&gt;Btn_Close.ZOrder" xml:space="preserve">
     <value>1</value>
   </data>
-  <data name="Btn_min.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
-    <value>None</value>
-  </data>
-  <data name="Btn_min.FlatStyle" type="System.Windows.Forms.FlatStyle, System.Windows.Forms">
-    <value>Flat</value>
-  </data>
-  <data name="Btn_min.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="Btn_min.Location" type="System.Drawing.Point, System.Drawing">
-    <value>757, 1</value>
-  </data>
-  <data name="Btn_min.Size" type="System.Drawing.Size, System.Drawing">
-    <value>40, 40</value>
-  </data>
-  <data name="Btn_min.TabIndex" type="System.Int32, mscorlib">
-    <value>4</value>
-  </data>
   <data name="&gt;&gt;Btn_min.Name" xml:space="preserve">
     <value>Btn_min</value>
   </data>
@@ -333,24 +297,6 @@
   <data name="&gt;&gt;Btn_min.ZOrder" xml:space="preserve">
     <value>2</value>
   </data>
-  <data name="Btn_Settings.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
-    <value>Zoom</value>
-  </data>
-  <data name="Btn_Settings.FlatStyle" type="System.Windows.Forms.FlatStyle, System.Windows.Forms">
-    <value>Flat</value>
-  </data>
-  <data name="Btn_Settings.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="Btn_Settings.Location" type="System.Drawing.Point, System.Drawing">
-    <value>641, 18</value>
-  </data>
-  <data name="Btn_Settings.Size" type="System.Drawing.Size, System.Drawing">
-    <value>80, 35</value>
-  </data>
-  <data name="Btn_Settings.TabIndex" type="System.Int32, mscorlib">
-    <value>3</value>
-  </data>
   <data name="&gt;&gt;Btn_Settings.Name" xml:space="preserve">
     <value>Btn_Settings</value>
   </data>
@@ -363,21 +309,6 @@
   <data name="&gt;&gt;Btn_Settings.ZOrder" xml:space="preserve">
     <value>3</value>
   </data>
-  <data name="Btn_Browser.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
-    <value>Zoom</value>
-  </data>
-  <data name="Btn_Browser.FlatStyle" type="System.Windows.Forms.FlatStyle, System.Windows.Forms">
-    <value>Flat</value>
-  </data>
-  <data name="Btn_Browser.Location" type="System.Drawing.Point, System.Drawing">
-    <value>124, 18</value>
-  </data>
-  <data name="Btn_Browser.Size" type="System.Drawing.Size, System.Drawing">
-    <value>80, 35</value>
-  </data>
-  <data name="Btn_Browser.TabIndex" type="System.Int32, mscorlib">
-    <value>2</value>
-  </data>
   <data name="&gt;&gt;Btn_Browser.Name" xml:space="preserve">
     <value>Btn_Browser</value>
   </data>
@@ -390,24 +321,6 @@
   <data name="&gt;&gt;Btn_Browser.ZOrder" xml:space="preserve">
     <value>4</value>
   </data>
-  <data name="Btn_add.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
-    <value>Zoom</value>
-  </data>
-  <data name="Btn_add.FlatStyle" type="System.Windows.Forms.FlatStyle, System.Windows.Forms">
-    <value>Flat</value>
-  </data>
-  <data name="Btn_add.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="Btn_add.Location" type="System.Drawing.Point, System.Drawing">
-    <value>11, 18</value>
-  </data>
-  <data name="Btn_add.Size" type="System.Drawing.Size, System.Drawing">
-    <value>80, 35</value>
-  </data>
-  <data name="Btn_add.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
   <data name="&gt;&gt;Btn_add.Name" xml:space="preserve">
     <value>Btn_add</value>
   </data>
@@ -510,6 +423,18 @@
   <data name="&gt;&gt;CheckCRBetaTokenToolStripMenuItem.Type" xml:space="preserve">
     <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
+  <data name="&gt;&gt;AddonHTMLToolStripMenuItem.Name" xml:space="preserve">
+    <value>AddonHTMLToolStripMenuItem</value>
+  </data>
+  <data name="&gt;&gt;AddonHTMLToolStripMenuItem.Type" xml:space="preserve">
+    <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Timer3OffToolStripMenuItem.Name" xml:space="preserve">
+    <value>Timer3OffToolStripMenuItem</value>
+  </data>
+  <data name="&gt;&gt;Timer3OffToolStripMenuItem.Type" xml:space="preserve">
+    <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>Main</value>
   </data>
@@ -522,9 +447,165 @@
   <metadata name="Timer4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>877, 17</value>
   </metadata>
+  <data name="Btn_add.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
+    <value>Zoom</value>
+  </data>
+  <data name="Btn_add.FlatStyle" type="System.Windows.Forms.FlatStyle, System.Windows.Forms">
+    <value>Flat</value>
+  </data>
+  <data name="Btn_add.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="Btn_add.Location" type="System.Drawing.Point, System.Drawing">
+    <value>11, 18</value>
+  </data>
+  <data name="Btn_add.Size" type="System.Drawing.Size, System.Drawing">
+    <value>80, 35</value>
+  </data>
+  <data name="Btn_add.TabIndex" type="System.Int32, mscorlib">
+    <value>1</value>
+  </data>
+  <data name="&gt;&gt;Btn_add.Name" xml:space="preserve">
+    <value>Btn_add</value>
+  </data>
+  <data name="&gt;&gt;Btn_add.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Btn_add.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;Btn_add.ZOrder" xml:space="preserve">
+    <value>5</value>
+  </data>
+  <data name="Btn_Browser.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
+    <value>Zoom</value>
+  </data>
+  <data name="Btn_Browser.FlatStyle" type="System.Windows.Forms.FlatStyle, System.Windows.Forms">
+    <value>Flat</value>
+  </data>
+  <data name="Btn_Browser.Location" type="System.Drawing.Point, System.Drawing">
+    <value>124, 18</value>
+  </data>
+  <data name="Btn_Browser.Size" type="System.Drawing.Size, System.Drawing">
+    <value>80, 35</value>
+  </data>
+  <data name="Btn_Browser.TabIndex" type="System.Int32, mscorlib">
+    <value>2</value>
+  </data>
+  <data name="&gt;&gt;Btn_Browser.Name" xml:space="preserve">
+    <value>Btn_Browser</value>
+  </data>
+  <data name="&gt;&gt;Btn_Browser.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Btn_Browser.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;Btn_Browser.ZOrder" xml:space="preserve">
+    <value>4</value>
+  </data>
+  <data name="Btn_Settings.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
+    <value>Zoom</value>
+  </data>
+  <data name="Btn_Settings.FlatStyle" type="System.Windows.Forms.FlatStyle, System.Windows.Forms">
+    <value>Flat</value>
+  </data>
+  <data name="Btn_Settings.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="Btn_Settings.Location" type="System.Drawing.Point, System.Drawing">
+    <value>641, 18</value>
+  </data>
+  <data name="Btn_Settings.Size" type="System.Drawing.Size, System.Drawing">
+    <value>80, 35</value>
+  </data>
+  <data name="Btn_Settings.TabIndex" type="System.Int32, mscorlib">
+    <value>3</value>
+  </data>
+  <data name="&gt;&gt;Btn_Settings.Name" xml:space="preserve">
+    <value>Btn_Settings</value>
+  </data>
+  <data name="&gt;&gt;Btn_Settings.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Btn_Settings.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;Btn_Settings.ZOrder" xml:space="preserve">
+    <value>3</value>
+  </data>
+  <data name="Btn_min.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
+    <value>None</value>
+  </data>
+  <data name="Btn_min.FlatStyle" type="System.Windows.Forms.FlatStyle, System.Windows.Forms">
+    <value>Flat</value>
+  </data>
+  <data name="Btn_min.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="Btn_min.Location" type="System.Drawing.Point, System.Drawing">
+    <value>757, 1</value>
+  </data>
+  <data name="Btn_min.Size" type="System.Drawing.Size, System.Drawing">
+    <value>40, 40</value>
+  </data>
+  <data name="Btn_min.TabIndex" type="System.Int32, mscorlib">
+    <value>4</value>
+  </data>
+  <data name="&gt;&gt;Btn_min.Name" xml:space="preserve">
+    <value>Btn_min</value>
+  </data>
+  <data name="&gt;&gt;Btn_min.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Btn_min.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;Btn_min.ZOrder" xml:space="preserve">
+    <value>2</value>
+  </data>
+  <data name="Btn_Close.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
+    <value>None</value>
+  </data>
+  <data name="Btn_Close.FlatStyle" type="System.Windows.Forms.FlatStyle, System.Windows.Forms">
+    <value>Flat</value>
+  </data>
+  <data name="Btn_Close.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="Btn_Close.Location" type="System.Drawing.Point, System.Drawing">
+    <value>800, 1</value>
+  </data>
+  <data name="Btn_Close.Size" type="System.Drawing.Size, System.Drawing">
+    <value>40, 40</value>
+  </data>
+  <data name="Btn_Close.TabIndex" type="System.Int32, mscorlib">
+    <value>5</value>
+  </data>
+  <data name="&gt;&gt;Btn_Close.Name" xml:space="preserve">
+    <value>Btn_Close</value>
+  </data>
+  <data name="&gt;&gt;Btn_Close.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Btn_Close.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;Btn_Close.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
   <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>966, 17</value>
   </metadata>
+  <data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>206, 136</value>
+  </data>
+  <data name="&gt;&gt;ContextMenuStrip1.Name" xml:space="preserve">
+    <value>ContextMenuStrip1</value>
+  </data>
+  <data name="&gt;&gt;ContextMenuStrip1.Type" xml:space="preserve">
+    <value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
   <data name="ToggleDebugModeToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
     <value>205, 22</value>
   </data>
@@ -549,13 +630,16 @@
   <data name="CheckCRBetaTokenToolStripMenuItem.Text" xml:space="preserve">
     <value>Check CR Beta Token</value>
   </data>
-  <data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="AddonHTMLToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>206, 92</value>
+    <value>205, 22</value>
   </data>
-  <data name="&gt;&gt;ContextMenuStrip1.Name" xml:space="preserve">
+  <data name="AddonHTMLToolStripMenuItem.Text" xml:space="preserve">
-    <value>ContextMenuStrip1</value>
+    <value>Add-on HTML</value>
   </data>
-  <data name="&gt;&gt;ContextMenuStrip1.Type" xml:space="preserve">
+  <data name="Timer3OffToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>205, 22</value>
+  </data>
+  <data name="Timer3OffToolStripMenuItem.Text" xml:space="preserve">
+    <value>Timer3 off</value>
   </data>
 </root>

Crunchyroll Downloader/Main.vb

@@ -47,7 +47,7 @@ Public Class Main
     Dim ServerThread As Thread
     Public KodiNaming As Boolean = False
     Public ErrorTolerance As Integer = 0
-    Public liList As New List(Of String)
+    'Public liList As New List(Of String)
     Public HTMLString As String = My.Resources.Startuphtml
     Public ListBoxList As New List(Of String)
     Public ItemList As New List(Of CRD_List_Item)
@@ -676,22 +676,13 @@ 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, Optional Service As String = "CR") ', ByVal AudioLang As String)
-        Dim Thumbnail As Image = My.Resources.main_del
+
-        Debug.WriteLine("ThumbnialURL: " + ThumbnialURL)
-        Try
-            Dim wc As New WebClient()
-            Dim bytes As Byte() = wc.DownloadData(ThumbnialURL)
-            Dim ms As New MemoryStream(bytes)
-            Thumbnail = System.Drawing.Image.FromStream(ms)
-        Catch ex As Exception
-            'MsgBox(ex.ToString)
-        End Try
         With ListView1.Items.Add("0")
-            ItemConstructor(NameKomplett, NameP1, NameP2, Reso, HardSub, SoftSubs, Thumbnail, URL_DL, Pfad_DL, Service)
+            ItemConstructor(NameKomplett, NameP1, NameP2, Reso, HardSub, SoftSubs, ThumbnialURL, URL_DL, Pfad_DL, Service)
         End With
     End Sub
 
-    Public Sub ItemConstructor(ByVal NameKomplett As String, 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)
+    Public Sub ItemConstructor(ByVal NameKomplett As String, ByVal NameP1 As String, ByVal NameP2 As String, ByVal DisplayReso 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 Service As String)
         Dim Item As New CRD_List_Item
         Item.Visible = False
         Item.Parent = ListView1
@@ -716,7 +707,7 @@ Public Class Main
         Item.SetLabelAnimeTitel(NameP2)
         Item.SetLabelResolution(DisplayReso)
         Item.SetLabelHardsub(HardSub)
-        Item.SetThumbnailImage(Thumbnail)
+        Item.SetThumbnailImage(ThumbnialURL)
         Item.SetLabelPercent("0%")
         Item.SetToolTip("Softsubs: " + SoftSubs)
         'MsgBox(Item.GetTextBound.ToString)
@@ -742,23 +733,12 @@ Public Class Main
 
 #Region "Manga DL"
     Public Sub MangaListItemAdd(ByVal NameP2 As String, ByVal ThumbnialURL As String, ByVal BaseURL As String, ByVal SiteList As List(Of String))
-        Dim Thumbnail As Image = My.Resources.main_del
-        Try
-            Dim wc As New WebClient()
-            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)
-        Catch ex As Exception
-            'MsgBox(ex.ToString)
-            'MsgBox(ThumbnialURL)
-        End Try
         With ListView1.Items.Add("0")
-            MangaItemConstructor("proxer.me", NameP2, Thumbnail, BaseURL, SiteList)
+            MangaItemConstructor("proxer.me", NameP2, ThumbnialURL, BaseURL, SiteList)
         End With
     End Sub
 
-    Public Sub MangaItemConstructor(ByVal NameP1 As String, ByVal NameP2 As String, ByVal Thumbnail As Image, ByVal BaseURL As String, ByVal SiteList As List(Of String))
+    Public Sub MangaItemConstructor(ByVal NameP1 As String, ByVal NameP2 As String, ByVal ThumbnialURL As String, ByVal BaseURL As String, ByVal SiteList As List(Of String))
         Dim Item As New CRD_List_Item
         Item.Visible = False
         Item.Parent = ListView1
@@ -776,7 +756,7 @@ Public Class Main
         Item.SetLabelAnimeTitel(NameP2)
         Item.SetLabelResolution("Manga")
         Item.SetLabelHardsub("Manga")
-        Item.SetThumbnailImage(Thumbnail)
+        Item.SetThumbnailImage(ThumbnialURL)
         Item.SetLabelPercent("0%")
         'MsgBox(Item.GetTextBound.ToString)
         ItemList.Add(Item)
@@ -791,8 +771,8 @@ Public Class Main
 #Region "Season DL"
     Public Sub MassGrapp()
         Anime_Add.groupBox2.Visible = True
-        Anime_Add.PictureBox1.Enabled = True
+        Anime_Add.bt_Cancel_mass.Enabled = True
-        Anime_Add.PictureBox1.Visible = True
+        Anime_Add.bt_Cancel_mass.Visible = True
         Anime_Add.groupBox1.Visible = False
         Anime_Add.ComboBox1.Items.Clear()
         Anime_Add.comboBox3.Items.Clear()
@@ -821,8 +801,8 @@ Public Class Main
 
     Public Sub SeasonDropdownGrapp()
         Anime_Add.groupBox2.Visible = True
-        Anime_Add.PictureBox1.Enabled = True
+        Anime_Add.bt_Cancel_mass.Enabled = True
-        Anime_Add.PictureBox1.Visible = True
+        Anime_Add.bt_Cancel_mass.Visible = True
         Anime_Add.groupBox1.Visible = False
         Anime_Add.ComboBox1.Items.Clear()
         Anime_Add.comboBox3.Items.Clear()
@@ -1575,7 +1555,7 @@ Public Class Main
                                      ListItemAdd(Pfad_DL, L1Name, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail3, URL_DL, Pfad_DL)
                                      Return Nothing
                                  End Function))
-            liList.Add(My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + CR_Anime_Titel + " <br> " + CR_Anime_Staffel + " " + CR_Anime_Folge + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + Subsprache3 + My.Resources.htmlnachHardSubs + "<!-- " + L2Name + "-->")
+            'liList.Add(My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + CR_Anime_Titel + " <br> " + CR_Anime_Staffel + " " + CR_Anime_Folge + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + Subsprache3 + My.Resources.htmlnachHardSubs + "<!-- " + L2Name + "-->")
             'Form1.RichTextBox1.Text = My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + CR_Anime_Titel + " <br> " + CR_Anime_Staffel + " " + CR_Anime_Folge + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + Subsprache3 + My.Resources.htmlnachHardSubs + "<!-- " + L2Name + "-->"
 #End Region
             Grapp_RDY = True
@@ -1696,8 +1676,8 @@ Public Class Main
 
     Public Sub GetBetaSeasons(ByVal JsonUrl As String)
         Anime_Add.groupBox2.Visible = True
-        Anime_Add.PictureBox1.Enabled = True
+        Anime_Add.bt_Cancel_mass.Enabled = True
-        Anime_Add.PictureBox1.Visible = True
+        Anime_Add.bt_Cancel_mass.Visible = True
         Anime_Add.groupBox1.Visible = False
         Anime_Add.ComboBox1.Items.Clear()
         Anime_Add.comboBox3.Items.Clear()
@@ -2273,7 +2253,7 @@ Public Class Main
                                      ListItemAdd(Path.GetFileName(Pfad_DL.Replace(Chr(34), "")), L1Name, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail3, URL_DL, Pfad_DL)
                                      Return Nothing
                                  End Function))
-            liList.Add(My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + CR_title + " <br> " + CR_season_number + " " + CR_episode + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + Subsprache3 + My.Resources.htmlnachHardSubs + "<!-- " + L2Name + "-->")
+            'liList.Add(My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + CR_title + " <br> " + CR_season_number + " " + CR_episode + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + Subsprache3 + My.Resources.htmlnachHardSubs + "<!-- " + L2Name + "-->")
             'Form1.RichTextBox1.Text = My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + CR_Anime_Titel + " <br> " + CR_Anime_Staffel + " " + CR_Anime_Folge + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + Subsprache3 + My.Resources.htmlnachHardSubs + "<!-- " + L2Name + "-->"
 #End Region
             Grapp_RDY = True
@@ -2359,9 +2339,9 @@ Public Class Main
                 Dim ffmpeg_command_Builder() As String = ffmpeg_command.Split(New String() {"-c:a copy"}, System.StringSplitOptions.RemoveEmptyEntries)
                 ffmpeg_command_temp = "-c:a copy" + ffmpeg_command_Builder(1)
             End If
-            Dim CR_Streams As New List(Of CR_Beta_Stream)
             Dim CR_series_title As String = Nothing
             Dim CR_season_number As String = Nothing
+            Dim CR_season_number2 As String = Nothing
             Dim CR_episode As String = Nothing
             Dim CR_Anime_Staffel_int As String = Nothing
             Dim CR_episode_int As String = Nothing
@@ -2431,11 +2411,8 @@ Public Class Main
                 'My.Computer.Clipboard.SetText(ObjectJson)
                 '
                 CR_Anime_Staffel_int = CR_season_number
-                If IgnoreSeason = 1 And CR_season_number = "1" Or IgnoreSeason = 1 And CR_season_number = "0" Then
+
-                    CR_season_number = Nothing
+
-                ElseIf IgnoreSeason = 2 Then
-                    CR_season_number = Nothing
-                End If
                 CR_episode_int = CR_episode
                 If Season_Prefix = "[default season prefix]" Then
                     If CR_episode = Nothing Then 'no episode number means most likey a movie 
@@ -2452,6 +2429,17 @@ Public Class Main
                         CR_season_number = Season_Prefix + CR_season_number
                     End If
                 End If
+
+                CR_season_number2 = CR_season_number
+
+
+                If IgnoreSeason = 1 And CR_season_number = "1" Or IgnoreSeason = 1 And CR_season_number = "0" Then
+                    CR_season_number = Nothing
+                ElseIf IgnoreSeason = 2 Then
+                    CR_season_number = Nothing
+                End If
+
+
                 If CR_episode = Nothing Then
                 ElseIf Episode_Prefix = "[default episode prefix]" Then
                     CR_episode = "Episode " + AddLeadingZeros(CR_episode)
@@ -2513,7 +2501,7 @@ Public Class Main
             CR_FilenName = String.Join(" ", CR_FilenName.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c).Replace(Chr(34), "").Replace("\", "").Replace("/", "") 'System.Text.RegularExpressions.Regex.Replace(CR_FilenName, "[^\w\\-]", " ")
             CR_FilenName = RemoveExtraSpaces(CR_FilenName)
             'My.Computer.FileSystem.WriteAllText("log.log", WebbrowserText, False)
-            Pfad2 = UseSubfolder(CR_series_title, CR_season_number, Pfad)
+            Pfad2 = UseSubfolder(CR_series_title, CR_season_number2, Pfad)
             If Not Directory.Exists(Path.GetDirectoryName(Pfad2)) Then
                 ' Nein! Jetzt erstellen...
                 Try
@@ -2540,7 +2528,19 @@ Public Class Main
                 Debug.WriteLine("error- getting stream data")
                 Exit Sub
             End Try
-
+            Dim hls_type As String = Nothing
+            If CBool(InStr(VideoJson, Chr(34) + "adaptive_hls")) = True Then
+                hls_type = "adaptive_hls"
+            ElseIf CBool(InStr(VideoJson, Chr(34) + "multitrack_adaptive_hls_v2")) = True Then
+                hls_type = "multitrack_adaptive_hls_v2"
+            ElseIf CBool(InStr(VideoJson, Chr(34) + "vo_adaptive_hls")) = True Then
+                hls_type = "vo_adaptive_hls"
+            Else
+                MsgBox("No download stream avalible", MsgBoxStyle.Critical)
+                Exit Sub
+            End If
+            'My.Computer.Clipboard.SetText(VideoJson)
+            'MsgBox(SubSprache)
             Dim LangNew As String = ConvertCC(SubSprache)
 #End Region
 #Region "Download softsub file or build ffmpeg cmd"
@@ -2617,62 +2617,50 @@ Public Class Main
             End If
 #End Region
 #Region "m3u8 suche"
-
+            If CBool(InStr(VideoJson, "audio_locale")) Then
-            VideoJson = CleanJSON(VideoJson)
+                Dim CR_audio As String() = VideoJson.Split(New String() {"audio_locale" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
-            Dim VideoJObject As JObject = JObject.Parse(VideoJson)
+                Dim CR_audio2 As String() = CR_audio(1).Split(New String() {Chr(34) + ","}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"})
-            Dim VideoData As List(Of JToken) = VideoJObject.Children().ToList
+                CR_audio_locale = String.Join(" ", CR_audio2(0).Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c)
-            For Each item As JProperty In VideoData
+            End If
-                item.CreateReader()
-                Select Case item.Name
-                    Case "audio_locale"
-                        Dim Title As String = item.Value.ToString
-                        CR_audio_locale = String.Join(" ", Title.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c).Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
-
-                    Case "streams" 'each record is inside the entries array
-                        For Each Entry As JProperty In item.Values
-
-                            Dim JsonEntryFormat As String = Entry.Name
-                            If CBool(InStr(JsonEntryFormat, "drm")) Or CBool(InStr(JsonEntryFormat, "dash")) Or CBool(InStr(JsonEntryFormat, "download")) Then
-                                Continue For
-                            End If
-
-
-                            Dim SubData As List(Of JToken) = Entry.Children().ToList
-                            For Each SubItem As JObject In SubData
-                                SubItem.CreateReader()
-
-                                Dim StreamFormats As List(Of JToken) = SubItem.Children().ToList
-
-
-                                For Each HardsubStreams As JProperty In StreamFormats
-                                    HardsubStreams.CreateReader()
-                                    Dim SubLang As String = HardsubStreams.Name
-                                    Dim Url As String = HardsubStreams.Value.ToString
-                                    If SubLang = Nothing Or SubLang = "" Then
-                                        SubLang = "null"
-                                    End If
-                                    CR_Streams.Add(New CR_Beta_Stream(CR_audio_locale, SubLang, JsonEntryFormat, Url))
-
-                                Next
-                            Next
-                        Next
-                End Select
-            Next
-
             Dim CR_URI_Master As String = Nothing
-
+            'If SubsOnly = False Then
-
+            Dim ii As Integer = 0
-            For i As Integer = 0 To CR_Streams.Count - 1
+            Dim CR_VideoJson As String() = VideoJson.Split(New String() {hls_type}, System.StringSplitOptions.RemoveEmptyEntries)
-
+            Dim CR_VideoJsonHardSubs As String() = CR_VideoJson(1).Split(New String() {"hardsub_locale" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
-                If CR_Streams.Item(i).subLang = LangNew Then
+            Debug.WriteLine(LangNew)
-                    Debug.WriteLine(CR_Streams.Item(i).subLang)
+            Debug.WriteLine(CR_VideoJsonHardSubs.Count.ToString)
-                    CR_URI_Master = CR_Streams.Item(i).Url
+            Dim hls_List As New List(Of String)
+            For i As Integer = 0 To CR_VideoJsonHardSubs.Count - 1
+                If LangNew = "" And CR_VideoJsonHardSubs(i).Substring(0, 1) = Chr(34) And CBool(InStr(CR_VideoJsonHardSubs(i), "https://")) Then
+                    CR_URI_Master = CR_VideoJsonHardSubs(i).Replace(LangNew + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34), "").Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)(0)
+                    Debug.WriteLine("Nothing+works")
+                    Exit For
+                ElseIf LangNew IsNot "" And CBool(InStr(CR_VideoJsonHardSubs(i), LangNew + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34))) And CBool(InStr(CR_VideoJsonHardSubs(i), "https://")) Then
+                    CR_URI_Master = CR_VideoJsonHardSubs(i).Replace(LangNew + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34), "").Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)(0)
+                    Debug.WriteLine("Why are we here again?")
+                    Exit For
                 End If
-
             Next
-
+            If CR_URI_Master = Nothing Then
-
+                Me.Invoke(New Action(Function() As Object
-
+                                         ResoNotFoundString = VideoJson
+                                         DialogTaskString = "Language_CR_Beta"
+                                         ErrorDialog.ShowDialog()
+                                         Return Nothing
+                                     End Function))
+                If UserCloseDialog = True Then
+                    Throw New System.Exception(Chr(34) + "UserAbort" + Chr(34))
+                Else
+                    LangNew = ResoBackString
+                    ResoBackString = Nothing
+                    For i As Integer = 0 To CR_VideoJsonHardSubs.Count - 1
+                        If CBool(InStr(CR_VideoJsonHardSubs(i), LangNew + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34))) Then
+                            CR_URI_Master = CR_VideoJsonHardSubs(i).Replace(LangNew + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34), "").Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)(0)
+                            Exit For
+                        End If
+                    Next
+                End If
+            End If
             CR_URI_Master = CR_URI_Master.Replace("&amp;", "&").Replace("/u0026", "&").Replace("\u002F", "/").Replace("\u0026", "&")
             If CBool(InStr(CR_URI_Master, "master.m3u8")) Then
                 Me.Invoke(New Action(Function() As Object
@@ -2800,7 +2788,7 @@ Public Class Main
                                      ListItemAdd(Path.GetFileName(Pfad_DL.Replace(Chr(34), "")), L1Name, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail3, URL_DL, Pfad_DL)
                                      Return Nothing
                                  End Function))
-            liList.Add(My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + CR_title + " <br> " + CR_season_number + " " + CR_episode + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + Subsprache3 + My.Resources.htmlnachHardSubs + "<!-- " + L2Name + "-->")
+            ' li 'liList.Add(My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + CR_title + " <br> " + CR_season_number + " " + CR_episode + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + Subsprache3 + My.Resources.htmlnachHardSubs + "<!-- " + L2Name + "-->")
             'Form1.RichTextBox1.Text = My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + CR_Anime_Titel + " <br> " + CR_Anime_Staffel + " " + CR_Anime_Folge + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + Subsprache3 + My.Resources.htmlnachHardSubs + "<!-- " + L2Name + "-->"
 #End Region
             Grapp_RDY = True
@@ -2833,11 +2821,10 @@ Public Class Main
             End If
         End Try
     End Sub
-
     Public Sub Get_VRV_Seasons(ByVal JsonUrl As String)
         Anime_Add.groupBox2.Visible = True
-        Anime_Add.PictureBox1.Enabled = True
+        Anime_Add.bt_Cancel_mass.Enabled = True
-        Anime_Add.PictureBox1.Visible = True
+        Anime_Add.bt_Cancel_mass.Visible = True
         Anime_Add.groupBox1.Visible = False
         Anime_Add.ComboBox1.Items.Clear()
         Anime_Add.comboBox3.Items.Clear()
@@ -3048,7 +3035,7 @@ Public Class Main
                                                          ListItemAdd(Filename, L1Name, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail3, URL2, Pfad2)
                                                          Return Nothing
                                                      End Function))
-                                liList.Add(My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + L1Name + " <br> " + L2Name + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + Subsprache3 + My.Resources.htmlnachHardSubs + "<!-- " + L2Name + "-->")
+                                ' liList.Add(My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + L1Name + " <br> " + L2Name + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + Subsprache3 + My.Resources.htmlnachHardSubs + "<!-- " + L2Name + "-->")
                             Else
                                 Grapp_non_cr_RDY = True
                                 System.IO.Directory.Delete(fi.FullName, True)
@@ -3395,8 +3382,8 @@ Public Class Main
         Next
         'Debug.WriteLine("SeasonJson: ")
         Anime_Add.groupBox2.Visible = True
-        Anime_Add.PictureBox1.Enabled = True
+        Anime_Add.bt_Cancel_mass.Enabled = True
-        Anime_Add.PictureBox1.Visible = True
+        Anime_Add.bt_Cancel_mass.Visible = True
         Anime_Add.groupBox1.Visible = False
         Anime_Add.ComboBox1.Items.Clear()
         Anime_Add.comboBox3.Items.Clear()
@@ -4317,7 +4304,7 @@ Public Class Main
                                      ListItemAdd(Pfad_DL, L1Name, DefaultName, ResoHTMLDisplay, Funimation_m3u8_MainVersion, SubValuesToDisplay(), thumbnail4, Funimation_m3u8_final, DownloadPfad, "FM")
                                      Return Nothing
                                  End Function))
-            liList.Add(My.Resources.htmlvorThumbnail + thumbnail4 + My.Resources.htmlnachTumbnail + FunimationTitle + " <br> " + FunimationSeason + " " + FunimationEpisode + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + "null" + My.Resources.htmlnachHardSubs + "<!-- " + DefaultName + "-->")
+            'liList.Add(My.Resources.htmlvorThumbnail + thumbnail4 + My.Resources.htmlnachTumbnail + FunimationTitle + " <br> " + FunimationSeason + " " + FunimationEpisode + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + "null" + My.Resources.htmlnachHardSubs + "<!-- " + DefaultName + "-->")
 #End Region
             Me.Invoke(New Action(Function() As Object
                                      Me.Text = "Crunchyroll Downloader"
@@ -4341,47 +4328,69 @@ Public Class Main
 
 #End Region
     Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
-        Me.Invalidate()
+        ' PrepareHTML()
-        Try
+        Dim GeckoHTML As String = My.Resources.htmlTop + vbNewLine + My.Resources.htmlTitlel.Replace("Placeholder", Me.Text.Replace("open the add window to continue", ""))
-            Dim GeckoHTML As String = My.Resources.htmlTop + vbNewLine + My.Resources.htmlTitlel.Replace("Placeholder", Me.Text.Replace("open the add window to continue", ""))
+
-            Dim LiAdd As String = Nothing
+        For i As Integer = 0 To ItemList.Count - 1
-            For ii As Integer = 0 To ItemList.Count - 1
+            Dim Item As String = My.Resources.htmlvorThumbnail + ItemList.Item(i).GetThumbnailSource + My.Resources.htmlnachTumbnail + ItemList.Item(i).Label_website.Text + " <br> " + ItemList.Item(i).Label_Anime.Text + My.Resources.htmlvorAufloesung.Replace("0%", ItemList.Item(i).Label_percent.Text).Replace("width:0%", ItemList.Item(i).GetPercentValue.ToString + "%") + ItemList.Item(i).Label_Reso.Text + My.Resources.htmlvorSoftSubs + vbNewLine + My.Resources.htmlvorHardSubs + ItemList.Item(i).Label_Hardsub.Text + My.Resources.htmlnachHardSubs
-                For i As Integer = 0 To liList.Count - 1
+            GeckoHTML = GeckoHTML + vbNewLine + Item
-                    If CBool(InStr(liList(i), "<!-- " + ItemList.Item(ii).GetNameAnime + "-->")) Then
+        Next
-                        If CBool(InStr(liList(i), "Finished - ")) Then
+
-                            If LiAdd = Nothing Then
+
-                                LiAdd = liList(i)
+
-                            Else
+        Dim c As String = GeckoHTML + vbNewLine + My.Resources.htmlEnd
-                                LiAdd = LiAdd + vbNewLine + liList(i)
+        Dim Balken As String = "balken.png"
-                            End If
+        c = c.Replace("balken1.png", Balken)
-                        Else
+        Dim CC As String = "cc.png"
-                            Dim ProzentBalken As String() = liList(i).Split(New String() {"width:"}, System.StringSplitOptions.RemoveEmptyEntries)
+        c = c.Replace("cc1.png", CC)
-                            Dim ProzentBalken2 As String() = ProzentBalken(1).Split(New String() {"%" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+        HTML = c
-                            Dim ProzentZahl As String() = ProzentBalken2(1).Split(New String() {"'percenttext'>"}, System.StringSplitOptions.RemoveEmptyEntries)
+
-                            Dim ProzentZahl2 As String() = ProzentZahl(1).Split(New String() {"%<"}, System.StringSplitOptions.RemoveEmptyEntries)
-                            liList(i) = ProzentBalken(0) + "width:" + ItemList.Item(ii).GetPercentValue.ToString + "%" + Chr(34) + ProzentZahl(0) + "'percenttext'>" + ItemList.Item(ii).GetLabelPercent.ToString + "<" + ProzentZahl2(1)
-                            If LiAdd = Nothing Then
-                                LiAdd = liList(i)
-                            Else
-                                LiAdd = LiAdd + vbNewLine + liList(i)
-                            End If
-                            Exit For
-                        End If
-                    End If
-                Next
-            Next
-            Dim c As String = GeckoHTML + vbNewLine + LiAdd + vbNewLine + My.Resources.htmlEnd
-            Dim Balken As String = "balken.png"
-            c = c.Replace("balken1.png", Balken)
-            Dim CC As String = "cc.png"
-            c = c.Replace("cc1.png", CC)
-            HTML = c
-        Catch ex As Exception
-            'Debug.WriteLine(ex.ToString)
-            'MsgBox(ex.ToString)
-        End Try
     End Sub
 
+    Private Sub PrepareHTML()
+        'Me.Invalidate()
+        'Try
+        Dim GeckoHTML As String = My.Resources.htmlTop + vbNewLine + My.Resources.htmlTitlel.Replace("Placeholder", Me.Text.Replace("open the add window to continue", ""))
+        Dim LiAdd As String = Nothing
+        For i As Integer = 0 To ItemList.Count - 1
+            'For i As Integer = 0 To liList.Count - 1
+            'MsgBox(liList.Item(i))
+            'MsgBox(liList(i))
+            '
+            Dim Item As String = My.Resources.htmlvorThumbnail + ItemList.Item(i).GetThumbnailSource + My.Resources.htmlnachTumbnail + ItemList.Item(i).Label_website.Text + " <br> " + ItemList.Item(i).Label_Anime.Text + My.Resources.htmlvorAufloesung.Replace("0%", ItemList.Item(i).GetPercentValue.ToString + "%") + ItemList.Item(i).Label_Reso.Text + My.Resources.htmlvorSoftSubs + vbNewLine + My.Resources.htmlvorHardSubs + ItemList.Item(i).Label_Hardsub.Text + My.Resources.htmlnachHardSubs
+
+            'If CBool(InStr(liList(i), "<!-- " + ItemList.Item(ii).GetNameAnime + "-->")) Then
+            '    If CBool(InStr(liList(i), "Finished - ")) Then
+            '        If LiAdd = Nothing Then
+            '            LiAdd = liList(i)
+            '        Else
+            '            LiAdd = LiAdd + vbNewLine + liList(i)
+            '        End If
+            '    Else
+            '        Dim ProzentBalken As String() = liList(i).Split(New String() {"width:"}, System.StringSplitOptions.RemoveEmptyEntries)
+            '        Dim ProzentBalken2 As String() = ProzentBalken(1).Split(New String() {"%" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+            '        Dim ProzentZahl As String() = ProzentBalken2(1).Split(New String() {"'percenttext'>"}, System.StringSplitOptions.RemoveEmptyEntries)
+            '        Dim ProzentZahl2 As String() = ProzentZahl(1).Split(New String() {"%<"}, System.StringSplitOptions.RemoveEmptyEntries)
+            '        Dim ReAdd As String = ProzentBalken(0) + "width:" + ItemList.Item(i).GetPercentValue.ToString + "%" + Chr(34) + ProzentZahl(0) + "'percenttext'>" + ItemList.Item(ii).GetLabelPercent.ToString + "<" + ProzentZahl2(1)
+            '     
+            '        Exit For
+            '    End If
+            'End If
+            'Next
+        Next
+        Dim c As String = GeckoHTML + vbNewLine + LiAdd + vbNewLine + My.Resources.htmlEnd
+        Dim Balken As String = "balken.png"
+        c = c.Replace("balken1.png", Balken)
+        Dim CC As String = "cc.png"
+        c = c.Replace("cc1.png", CC)
+        HTML = c
+        'Catch ex As Exception
+        '    Debug.WriteLine(ex.ToString)
+        '    MsgBox(ex.ToString)
+        'End Try
+    End Sub
+
+
 #Region "process html"
     Public Sub ProcessHTML(ByVal document As String, ByVal Address As String, ByVal DocumentTitle As String)
         Dim localHTML As String = document
@@ -5300,6 +5309,16 @@ Public Class Main
         End If
     End Sub
 
+    Private Sub AddonHTMLToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AddonHTMLToolStripMenuItem.Click
+        My.Computer.Clipboard.SetText(HTML)
+    End Sub
+
+    Private Sub Timer3OffToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Timer3OffToolStripMenuItem.Click
+        Timer3.Enabled = False
+    End Sub
+
+
+
 #End Region
 End Class
 

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.8.8.1")>
+<Assembly: AssemblyVersion("3.8.9")>
-<Assembly: AssemblyFileVersion("3.8.8.1")>
+<Assembly: AssemblyFileVersion("3.8.9")>
 <Assembly: NeutralResourcesLanguage("en")>

Crunchyroll Downloader/My Project/Resources.Designer.vb

@@ -337,7 +337,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &quot;User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:87.0) Gecko/20100101 Firefox/87.0&quot; ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die &quot;User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:102.0) Gecko/20100101 Firefox/102.0&quot; ähnelt.
         '''</summary>
         Friend ReadOnly Property ffmpeg_user_agend() As String
             Get
@@ -921,36 +921,6 @@ Namespace My.Resources
             End Get
         End Property
         
-        '''<summary>
-        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-        '''</summary>
-        Friend ReadOnly Property softsubs_download() As System.Drawing.Bitmap
-            Get
-                Dim obj As Object = ResourceManager.GetObject("softsubs_download", 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 softsubs_download_gray() As System.Drawing.Bitmap
-            Get
-                Dim obj As Object = ResourceManager.GetObject("softsubs_download_gray", 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 softsubs_download_hover() As System.Drawing.Bitmap
-            Get
-                Dim obj As Object = ResourceManager.GetObject("softsubs_download_hover", resourceCulture)
-                Return CType(obj,System.Drawing.Bitmap)
-            End Get
-        End Property
-        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die &lt;!DOCTYPE html&gt;
         '''&lt;html&gt;

Crunchyroll Downloader/My Project/Resources.resx

@@ -222,9 +222,6 @@
   <data name="LoginSuccess" xml:space="preserve">
     <value>"error":false,"code":"ok"</value>
   </data>
-  <data name="main_button_download_deactivate" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\main_button_download-deactivate.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="AoD_Image" xml:space="preserve">
     <value>"image":"</value>
   </data>
@@ -316,9 +313,6 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
 &lt;br&gt;
 &lt;span dir="auto" class="resotext"&gt;</value>
   </data>
-  <data name="softsubs_download_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\softsubs_download_hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Startuphtml" xml:space="preserve">
     <value>&lt;!DOCTYPE html&gt;
 &lt;html&gt;
@@ -368,9 +362,6 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
   <data name="download_subs_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\download_subs_hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="softsubs_download_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\softsubs_download_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="main_close" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\main-close.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -401,7 +392,7 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
     <value>..\Resources\crdSettings_Button_SafeExit_hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="ffmpeg_user_agend" xml:space="preserve">
-    <value>"User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:87.0) Gecko/20100101 Firefox/87.0"</value>
+    <value>"User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:102.0) Gecko/20100101 Firefox/102.0"</value>
   </data>
   <data name="crdSettings_Button_SafeExit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\crdSettings_Button_SafeExit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -420,9 +411,6 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
   <data name="add_mass_cancel_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\add_mass_cancel_hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="softsubs_download" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\softsubs_download.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\icon.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -541,4 +529,7 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
   <data name="CR_MovieTop" xml:space="preserve">
     <value>&lt;span itemprop="name"&gt;</value>
   </data>
+  <data name="main_button_download_deactivate" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\main_button_download-deactivate.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>

Crunchyroll Downloader/network_scan.vb

@@ -330,7 +330,7 @@ Public Class network_scan
             Dim L1Name As String = L1Name_Split(1)
             Me.Invoke(New Action(Function() As Object
                                      Main.ListItemAdd(Main.Pfad, L1Name, Title, DisplayReso, "Unknown", "None", "", m3u8Final, Pfad2)
-                                     Main.liList.Add(My.Resources.htmlvorThumbnail + "" + My.Resources.htmlnachTumbnail + "<br>" + Title + My.Resources.htmlvorAufloesung + "[Auto]" + My.Resources.htmlvorSoftSubs + vbNewLine + "None" + My.Resources.htmlvorHardSubs + "null" + My.Resources.htmlnachHardSubs + "<!-- " + Title + "-->")
+                                     'Main.liList.Add(My.Resources.htmlvorThumbnail + "" + My.Resources.htmlnachTumbnail + "<br>" + Title + My.Resources.htmlvorAufloesung + "[Auto]" + My.Resources.htmlvorSoftSubs + vbNewLine + "None" + My.Resources.htmlvorHardSubs + "null" + My.Resources.htmlnachHardSubs + "<!-- " + Title + "-->")
                                      Return Nothing
                                  End Function))
         Else
@@ -432,7 +432,7 @@ Public Class network_scan
                 Dim L1Name As String = L1Name_Split(1)
                 Me.Invoke(New Action(Function() As Object
                                          Main.ListItemAdd(Main.Pfad, L1Name, Title, DisplayReso, "Unknown", "None", thumbnail4, m3u8Final, Pfad2)
-                                         Main.liList.Add(My.Resources.htmlvorThumbnail + thumbnail4 + My.Resources.htmlnachTumbnail + "<br>" + Title + My.Resources.htmlvorAufloesung + "[Auto]" + My.Resources.htmlvorSoftSubs + vbNewLine + "None" + My.Resources.htmlvorHardSubs + "null" + My.Resources.htmlnachHardSubs + "<!-- " + Title + "-->")
+                                         'Main.liList.Add(My.Resources.htmlvorThumbnail + thumbnail4 + My.Resources.htmlnachTumbnail + "<br>" + Title + My.Resources.htmlvorAufloesung + "[Auto]" + My.Resources.htmlvorSoftSubs + vbNewLine + "None" + My.Resources.htmlvorHardSubs + "null" + My.Resources.htmlnachHardSubs + "<!-- " + Title + "-->")
                                          Return Nothing
                                      End Function))
             ElseIf ComboBox1.SelectedItem.ToString = "Subtile" Then

Crunchyroll Downloader/packages.config

@@ -1,8 +1,8 @@
 <?xml version="1.0" encoding="utf-8"?>
 <packages>
-  <package id="cef.redist.x64" version="101.0.18" targetFramework="net48" />
+  <package id="cef.redist.x64" version="103.0.9" targetFramework="net48" />
-  <package id="cef.redist.x86" version="101.0.18" targetFramework="net48" />
+  <package id="cef.redist.x86" version="103.0.9" targetFramework="net48" />
-  <package id="CefSharp.Common" version="101.0.180" targetFramework="net48" />
+  <package id="CefSharp.Common" version="103.0.90" targetFramework="net48" />
-  <package id="CefSharp.WinForms" version="101.0.180" targetFramework="net48" />
+  <package id="CefSharp.WinForms" version="103.0.90" targetFramework="net48" />
   <package id="Newtonsoft.Json" version="13.0.1" targetFramework="net452" />
 </packages>