fix user agent, auto update finished

fix user agent #970
auto update finished #969

Crunchyroll Downloader/Anime_Add.Designer.vb

@@ -364,8 +364,8 @@ Partial Class Anime_Add
         Me.Controls.Add(Me.btn_dl)
         Me.Controls.Add(Me.Btn_min)
         Me.Controls.Add(Me.Btn_Close)
-        Me.Controls.Add(Me.groupBox1)
         Me.Controls.Add(Me.groupBox2)
+        Me.Controls.Add(Me.groupBox1)
         Me.Font = New System.Drawing.Font("Arial", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Name = "Anime_Add"
         Me.Padding = New System.Windows.Forms.Padding(10, 60, 20, 20)

Crunchyroll Downloader/Anime_Add.vb

@@ -44,6 +44,20 @@ Public Class Anime_Add
 
     Private Sub Anime_Add_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
+        If My.Settings.HiddenQueue = True Then
+            Queue.Show()
+        End If
+
+        If Main.Mail = Nothing And My.Settings.Mail = "na" Then
+            'Dim Login As Form = LoginForm
+            'Login.StartPosition = 0
+            'Login.Location = New Point(CInt(Main.Location.X + Main.Width / 2 - Me.Width / 2), CInt(Main.Location.Y + Main.Height / 2 - Me.Height / 2))
+            LoginForm.ShowDialog()
+        ElseIf Main.Mail = Nothing Then
+            Main.Mail = My.Settings.Mail
+            Main.PW = My.Settings.PW
+        End If
+
         DownloadScope.SelectedIndex = Main.DownloadScope
 
         Manager.Owner = Me
@@ -154,6 +168,8 @@ Public Class Anime_Add
         End Try
 
         'Timer3.Enabled = True
+        btn_dl.Cursor = Cursors.Default
+        btn_dl.BackgroundImage = My.Resources.main_button_download_default
 
     End Sub
 
@@ -197,7 +213,7 @@ Public Class Anime_Add
 
                     Main.ItemConstructor(NameKomplett, Namep1, Namep2, Reso, HardSub, ThumbnialURL, URL_DL, Chr(34) + Pfad_DL + Chr(34), Service)
 
-                ElseIf CBool(InStr(textBox1.Text, "crunchyroll.com")) Or CBool(InStr(textBox1.Text, "funimation.com")) Then
+                ElseIf CBool(InStr(textBox1.Text, "crunchyroll.com")) Then
 
 
                     'If StatusLabel.Text = "Status: waiting for episode selection" Then
@@ -212,12 +228,19 @@ Public Class Anime_Add
                     '    '    pictureBox4.Enabled = True
                     'Else
                     If Main.RunningQueue = True Then
-                        If CBool(InStr(textBox1.Text, "series/")) Then
+                        If CBool(InStr(textBox1.Text, "series/")) And My.Settings.HiddenQueue = False Then
                             Debug.WriteLine("Queue_Block_series")
                             'textBox1.Text = "URL"
                             StatusLabel.Text = "Status: Series add blocked, queue is running!"
                             Pause(5)
                             StatusLabel.Text = "Status: Idle"
+                        ElseIf CBool(InStr(textBox1.Text, "series/")) And My.Settings.HiddenQueue = True Then
+                            Debug.WriteLine("Queue_adding_series")
+                            'textBox1.Text = "URL"
+                            StatusLabel.Text = "Status: Series added to queue."
+                            'Pause(5)
+                            'StatusLabel.Text = "Status: Idle"
+                            Main.LoadBrowser(textBox1.Text)
                         Else
                             Debug.WriteLine("Queue_Block")
                             Main.ListBoxList.Add(textBox1.Text)
@@ -237,41 +260,6 @@ Public Class Anime_Add
 
                     Else
 
-                        If CBool(InStr(textBox1.Text, "funimation.com")) Then
-
-                            Main.WebbrowserURL = textBox1.Text
-
-                            If CBool(InStr(textBox1.Text, "funimation.com/v/")) Then
-                                Dim Episode0() As String = textBox1.Text.Split(New String() {"?"}, System.StringSplitOptions.RemoveEmptyEntries)
-                                Dim Episode() As String = Episode0(0).Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
-                                Dim v1JsonUrl As String = "https://d33et77evd9bgg.cloudfront.net/data/v1/episodes/" + Episode(Episode.Length - 1) + ".json"
-                                'MsgBox(v1JsonUrl)
-                                Dim v1Json As String = Nothing
-                                Try
-                                    Using client As New WebClient()
-                                        client.Encoding = System.Text.Encoding.UTF8
-                                        client.Headers.Add(My.Settings.User_Agend.Replace(Chr(34), ""))
-                                        v1Json = client.DownloadString(v1JsonUrl)
-                                    End Using
-                                    Main.WebbrowserURL = textBox1.Text
-                                    Main.GetFunimationNewJS_VideoProxy(Nothing, v1Json)
-                                    Exit Sub
-                                Catch ex As Exception
-                                    Debug.WriteLine("error- getting v1Json data for the bypass")
-                                    Debug.WriteLine(ex.ToString)
-                                End Try
-                            ElseIf CBool(InStr(textBox1.Text, "funimation.com/shows/")) Then
-                                Main.LoadingUrl = textBox1.Text
-                                Main.LoadedUrls.Clear()
-                                Main.b = False
-                                Debug.WriteLine("loading funimation show url: " + Date.Now.ToString)
-                                StatusLabel.Text = "Status: loading funimation...."
-                                'Main.LoadBrowser()
-                                Browser.WebView2.CoreWebView2.Navigate(textBox1.Text)
-                                Exit Sub
-                            End If
-
-                        End If
 
                         If Main.Grapp_RDY = True Then
 
@@ -309,20 +297,8 @@ Public Class Anime_Add
                 btn_dl.Text = "Download"
                 btn_dl.BackgroundImage = My.Resources.main_button_download_default
                 StatusLabel.Text = "Status: idle"
-            ElseIf CBool(InStr(Main.WebbrowserURL, "funimation.com")) = True Then
 
 
-
-                'btn_dl.BackgroundImage = My.Resources.add_mass_running_cancel
-                btn_dl.Text = "Cancel"
-                Mass_DL_Cancel = True
-                bt_Cancel_mass.Enabled = False
-                bt_Cancel_mass.Visible = False
-                Main.DownloadFunimationJS_Seasons()
-                CB_EP1.Enabled = False
-                CB_EP0.Enabled = False
-                CB_Season.Enabled = False
-
             ElseIf CBool(InStr(Main.WebbrowserURL, "crunchyroll.com")) = True Then
 
                 StatusLabel.Text = "Status: idle"
@@ -346,47 +322,6 @@ Public Class Anime_Add
         btn_dl.Enabled = True
     End Sub
 
-    Public Sub ProcessFunimationJS(ByVal InputURL As String)
-
-
-        Dim FunUri As String = Nothing
-        If CBool(InStr(InputURL, "?")) Then
-            Dim ClearUri As String() = InputURL.Split(New String() {"?"}, System.StringSplitOptions.RemoveEmptyEntries)
-            FunUri = ClearUri(0)
-        Else
-            FunUri = InputURL
-        End If
-        Dim ShowPath As String = Nothing
-        Dim EpisodePath As String = Nothing
-        Dim ShowPath1 As String() = FunUri.Split(New String() {"/shows/"}, System.StringSplitOptions.RemoveEmptyEntries)
-        'If CBool(InStr(ShowPath1(1), "/") Then
-        Dim ShowPath2 As String() = ShowPath1(1).Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
-
-        If ShowPath2.Count > 1 Then
-
-            ShowPath = ShowPath2(0).Replace("/", "")
-            EpisodePath = ShowPath2(1).Replace("/", "")
-        Else
-            ShowPath = ShowPath1(1).Replace("/", "")
-        End If
-        Main.FunimationShowPath = ShowPath + "/"
-        Debug.WriteLine(ShowPath)
-        Debug.WriteLine(Main.FunimationAPIRegion)
-        If EpisodePath = Nothing Then 'overview site
-            Main.GetFunimationJS_Seasons("https://title-api.prd.funimationsvc.com/v2/shows/" + ShowPath + Main.FunimationAPIRegion)
-
-        Else 'single episode
-
-
-        End If
-
-        Dim FunimationCC As String() = ShowPath1(0).Split(New String() {"funimation.com"}, System.StringSplitOptions.RemoveEmptyEntries)
-        If FunimationCC.Count > 1 Then
-            Main.FunimationRegion = FunimationCC(1).Replace("/", "")
-        End If
-    End Sub
-
-
 
 
     Private Sub Btn_dl_MouseEnter(sender As Object, e As EventArgs) Handles btn_dl.MouseEnter
@@ -533,20 +468,23 @@ Public Class Anime_Add
 
             ' Dim JsonUrl As String = "https://www.crunchyroll.com/content/v2/cms/seasons/" + Main.CR_MassSeasons.Item(CB_Season.SelectedIndex).guid + "/episodes?preferred_audio_language=" + Main.DubSprache.CR_Value + "&locale=" + Main.locale
 
-            Dim JsonUrl As String = "https://www.crunchyroll.com/content/v2/cms/seasons/" + guid + "/episodes?preferred_audio_language=" + Main.DubSprache.CR_Value + "&locale=" + Main.locale
+            ' Changed from https://www.crunchyroll.com/content/v2/cms/seasons/ to https://beta-api.crunchyroll.com/content/v2/cms/seasons/ to avoid cloudflare triggering
+            Dim JsonUrl As String = "https://beta-api.crunchyroll.com/content/v2/cms/seasons/" + guid + "/episodes?preferred_audio_language=" + Main.DubSprache.CR_Value + "&locale=" + Main.locale
 
 
-            Dim Loc_CR_Cookies = " -H " + Chr(34) + Main.CR_Cookies.Replace(Chr(34), "").Replace(" -H ", "") + Chr(34)
+            Dim Loc_CR_Cookies = "" 'No more cookies " -H " + Chr(34) + Main.CR_Cookies.Replace(Chr(34), "").Replace(" -H ", "") + Chr(34)
 
 
             Dim EpisodeJson As String = Nothing 'CurlAuth(JsonUrl, Loc_CR_Cookies, Main.CR_MassSeasons.Item(ComboBox1.SelectedIndex).Auth) '
 
+            Debug.WriteLine("TEST")
 
             Try
 
                 EpisodeJson = CurlAuthNew(JsonUrl, Loc_CR_Cookies, Main.CR_MassSeasons.Item(CB_Season.SelectedIndex).Auth) '
 
             Catch ex As Exception
+                Debug.WriteLine("TEST Failed" + ex.ToString)
                 If CBool(InStr(ex.ToString, "Error - Getting")) Then
                     MsgBox("Error invalid CR respone")
                     Exit Sub
@@ -557,89 +495,17 @@ Public Class Anime_Add
             End Try
 
             'My.Computer.Clipboard.SetText(EpisodeJson)
-            Debug.WriteLine("EpisodeJson: " + EpisodeJson)
+            'Debug.WriteLine("EpisodeJson: " + EpisodeJson)
 
             FillCREpisodes(EpisodeJson)
 
 
-        ElseIf Main.WebbrowserURL = "https://funimation.com/js" Then
-            CB_EP0.Items.Clear()
-            CB_EP1.Items.Clear()
-            CB_EP0.Text = Nothing
-            CB_EP1.Text = Nothing
-            Dim ContentID As String = Nothing
-
-            For i As Integer = 0 To Main.FunimtaionSeasonList.Count - 1
-                If CB_Season.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 EpisodeJson As String = Nothing
-            Debug.WriteLine(EpisodeJsonURL)
-
-            Try
-                Using client As New WebClient()
-                    client.Encoding = System.Text.Encoding.UTF8
-                    client.Headers.Add(My.Settings.User_Agend.Replace(Chr(34), ""))
-                    EpisodeJson = client.DownloadString(EpisodeJsonURL)
-                End Using
-            Catch ex As Exception
-                Debug.WriteLine("error- getting EpisodeJson data")
-                Debug.WriteLine(ex.ToString)
-                Main.FunimationJsonBrowser = "EpisodeJson"
-                Main.LoadBrowser(EpisodeJsonURL)
-                Exit Sub
-            End Try
-
-            FillFunimationEpisodes(EpisodeJson)
-
-
-            If CB_EP0.Items.Count > 0 Then
-                CB_EP0.SelectedIndex = 0
-                CB_EP1.SelectedIndex = CB_EP1.Items.Count - 1
-            End If
-
 
 
         End If
     End Sub
 
 
-    Public Sub FillFunimationEpisodes(ByVal EpisodeJson As String)
-
-        Main.FunimationEpisodeJSON = EpisodeJson
-        CB_EP0.Enabled = True
-        CB_EP1.Enabled = True
-
-        Dim EpisodeSplit() As String = EpisodeJson.Split(New String() {Chr(34) + "episodeNumber" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
-        'EpisodeJson.Split(New String() {Chr(34) + "episodeNumber" + Chr(34) + ": " + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
-        Debug.WriteLine(EpisodeSplit.Count.ToString)
-        For i As Integer = 1 To EpisodeSplit.Count - 1
-            Dim EpisodeSplit2() As String = EpisodeSplit(i).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
-            CB_EP0.Items.Add("Episode " + EpisodeSplit2(0))
-            CB_EP1.Items.Add("Episode " + EpisodeSplit2(0))
-        Next
-        Main.WebbrowserURL = "https://funimation.com/js"
-    End Sub
-
-
-
-
-
-
-
     Private Sub TextBox2_Click(sender As Object, e As EventArgs) Handles TextBox2.Click
         If TextBox2.Text = "Use Custom Name" Then
             TextBox2.Text = Nothing
@@ -723,10 +589,10 @@ Public Class Anime_Add
     End Sub
 
     Private Sub SubTitlesOnlyCB_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DownloadScope.SelectedIndexChanged
-        DownloadScope.SelectedIndex = DownloadScopeEnum.SubsOnly
-        'Main.DownloadScope = DownloadScope.SelectedIndex
-        'My.Settings.DownloadScope = Main.DownloadScope
-        'My.Settings.Save()
+
+        Main.DownloadScope = DownloadScope.SelectedIndex
+        My.Settings.DownloadScope = Main.DownloadScope
+        My.Settings.Save()
     End Sub
 
 

Crunchyroll Downloader/App.config

@@ -27,33 +27,18 @@
    <setting name="Pfad" serializeAs="String">
     <value />
    </setting>
-   <setting name="Fun_Sub" serializeAs="String">
-    <value>None</value>
-   </setting>
    <setting name="ffmpeg_command" serializeAs="String">
     <value> -c copy -c:a copy -bsf:a aac_adtstoasc</value>
    </setting>
    <setting name="AddedSubs" serializeAs="String">
     <value>None</value>
    </setting>
-   <setting name="FunimationDub" serializeAs="String">
-    <value>Disabled</value>
-   </setting>
-   <setting name="FunimationHardsub" serializeAs="String">
-    <value>Disabled</value>
-   </setting>
-   <setting name="DefaultSubFunimation" serializeAs="String">
-    <value>Disabled</value>
-   </setting>
    <setting name="SubFolder_Value" serializeAs="String">
     <value>[ ignore subfolder ]</value>
    </setting>
    <setting name="TempFolder" serializeAs="String">
     <value />
    </setting>
-   <setting name="Startseite" serializeAs="String">
-    <value>https://www.crunchyroll.com/</value>
-   </setting>
    <setting name="Prefix_S" serializeAs="String">
     <value>[default season prefix]</value>
    </setting>
@@ -75,12 +60,6 @@
    <setting name="Dark_Mode" serializeAs="String">
     <value>False</value>
    </setting>
-   <setting name="Funimation_srt" serializeAs="String">
-    <value>False</value>
-   </setting>
-   <setting name="Funimation_vtt" serializeAs="String">
-    <value>False</value>
-   </setting>
    <setting name="QueueMode" serializeAs="String">
     <value>False</value>
    </setting>
@@ -120,9 +99,6 @@
    <setting name="LeadingZero" serializeAs="String">
     <value>0</value>
    </setting>
-   <setting name="Funimation_Bitrate" serializeAs="String">
-    <value>0</value>
-   </setting>
    <setting name="ServerPort" serializeAs="String">
     <value>0</value>
    </setting>
@@ -150,9 +126,6 @@
    <setting name="SaveThumbnail" serializeAs="String">
     <value>False</value>
    </setting>
-   <setting name="SaveMode" serializeAs="String">
-    <value>False</value>
-   </setting>
    <setting name="DownloadScope" serializeAs="String">
     <value>0</value>
    </setting>
@@ -177,6 +150,21 @@
    <setting name="FixCRStream" serializeAs="String">
     <value>True</value>
    </setting>
+   <setting name="Mail" serializeAs="String">
+    <value>na</value>
+   </setting>
+   <setting name="PW" serializeAs="String">
+    <value>na</value>
+   </setting>
+   <setting name="HiddenQueue" serializeAs="String">
+    <value>False</value>
+   </setting>
+   <setting name="UpdateLog" serializeAs="String">
+    <value>0</value>
+   </setting>
+   <setting name="UpdateMode" serializeAs="String">
+    <value>0</value>
+   </setting>
   </Crunchyroll_Downloader.My.MySettings>
  </userSettings>
 </configuration>

Crunchyroll Downloader/Browser.Designer.vb

@@ -1,112 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class Browser
-    Inherits System.Windows.Forms.Form
-
-    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()>
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Wird vom Windows Form-Designer benötigt.
-    Private components As System.ComponentModel.IContainer
-
-    '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()>
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
-        Me.Button1 = New System.Windows.Forms.Button()
-        Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.WebView2 = New Microsoft.Web.WebView2.WinForms.WebView2()
-        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
-        Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
-        Me.Panel1.SuspendLayout()
-        CType(Me.WebView2, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'TextBox1
-        '
-        Me.TextBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.TextBox1.Location = New System.Drawing.Point(114, 1)
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(1153, 26)
-        Me.TextBox1.TabIndex = 1
-        '
-        'Button1
-        '
-        Me.Button1.Location = New System.Drawing.Point(12, 1)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(96, 26)
-        Me.Button1.TabIndex = 2
-        Me.Button1.Text = "Copy URL"
-        Me.Button1.UseVisualStyleBackColor = True
-        '
-        'Panel1
-        '
-        Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Panel1.Controls.Add(Me.WebView2)
-        Me.Panel1.Location = New System.Drawing.Point(0, 30)
-        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(1280, 720)
-        Me.Panel1.TabIndex = 4
-        '
-        'WebView2
-        '
-        Me.WebView2.AllowExternalDrop = True
-        Me.WebView2.CreationProperties = Nothing
-        Me.WebView2.DefaultBackgroundColor = System.Drawing.Color.White
-        Me.WebView2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.WebView2.Location = New System.Drawing.Point(0, 0)
-        Me.WebView2.Name = "WebView2"
-        Me.WebView2.Size = New System.Drawing.Size(1280, 720)
-        Me.WebView2.TabIndex = 0
-        Me.WebView2.ZoomFactor = 1.0R
-        '
-        'Timer1
-        '
-        Me.Timer1.Interval = 60000
-        '
-        'Timer2
-        '
-        Me.Timer2.Interval = 15000
-        '
-        'Browser
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1279, 750)
-        Me.Controls.Add(Me.Panel1)
-        Me.Controls.Add(Me.Button1)
-        Me.Controls.Add(Me.TextBox1)
-        Me.MinimumSize = New System.Drawing.Size(480, 480)
-        Me.Name = "Browser"
-        Me.ShowIcon = False
-        Me.Text = "Browser"
-        Me.Panel1.ResumeLayout(False)
-        CType(Me.WebView2, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Friend WithEvents TextBox1 As TextBox
-    Friend WithEvents Button1 As Button
-    Friend WithEvents Panel1 As Panel
-    Friend WithEvents Timer1 As Timer
-    Friend WithEvents Timer2 As Timer
-    Public WithEvents WebView2 As Microsoft.Web.WebView2.WinForms.WebView2
-End Class

Crunchyroll Downloader/Browser.vb

@@ -1,341 +0,0 @@
-Option Strict On
-
-Imports System.IO
-Imports System.ComponentModel
-Imports System.Threading
-Imports System.Net
-Imports System.Net.WebUtility
-Imports System.IO.Compression
-Imports System.Text
-Imports System.Security.Policy
-Imports Microsoft.Web.WebView2.Core
-Imports MetroFramework.Drawing
-Imports Newtonsoft.Json.Linq
-
-Public Class Browser
-
-
-
-
-    Private Sub WebView2_CoreWebView2InitializationCompleted(sender As Object, e As CoreWebView2InitializationCompletedEventArgs) Handles WebView2.CoreWebView2InitializationCompleted
-        Try
-            WebView2.CoreWebView2.AddWebResourceRequestedFilter("https://www.crunchyroll.com/*", CoreWebView2WebResourceContext.All)
-            WebView2.CoreWebView2.AddWebResourceRequestedFilter("https://www.funimation.com/*", CoreWebView2WebResourceContext.All)
-            'WebView2.CoreWebView2.AddWebResourceRequestedFilter("https://cr-play-service.prd.crunchyrollsvc.com/*", CoreWebView2WebResourceContext.All)
-            '   WebView2.CoreWebView2.AddWebResourceRequestedFilter("*", CoreWebView2WebResourceContext.All)
-            'cr-play-service.prd.crunchyrollsvc.com
-            'WebView2.CoreWebView2.AddWebResourceRequestedFilter("*", CoreWebView2WebResourceContext.All)
-            AddHandler WebView2.CoreWebView2.WebResourceResponseReceived, AddressOf ObserveResponse
-            AddHandler WebView2.CoreWebView2.WebResourceRequested, AddressOf ObserveHttp
-            'WebView2.CoreWebView2.Settings.UserAgent = My.Settings.User_Agend.Replace(Chr(34), "").Replace("User-Agent: ", "")
-            '
-            'WebView2.CoreWebView2.Settings.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Trident/7.0; rv:11.0) like Gecko"
-            My.Settings.User_Agend = Chr(34) + "User-Agent: " + WebView2.CoreWebView2.Settings.UserAgent + Chr(34)
-            'My.Settings.User_Agend = Chr(34) + "User-Agent: " + "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:120.0) Gecko/20100101 Firefox/120.0" + Chr(34)
-
-            'MsgBox(My.Settings.User_Agend)
-
-            If WebView2.CoreWebView2.Source = "about:blank" Or WebView2.CoreWebView2.Source = Nothing Then
-                'TextBox1.Text = Main.Startseite
-                WebView2.CoreWebView2.Navigate(Main.Startseite)
-
-
-            End If
-        Catch ex As Exception
-
-        End Try
-
-
-    End Sub
-
-
-
-    Private Sub WebView2_SourceChanged(sender As Object, e As CoreWebView2SourceChangedEventArgs) Handles WebView2.SourceChanged
-        Try
-            TextBox1.Text = WebView2.CoreWebView2.Source
-
-        Catch ex As Exception
-        End Try
-
-    End Sub
-
-
-
-    Private Sub WebView2_NavigationCompleted(sender As Object, e As CoreWebView2NavigationCompletedEventArgs) Handles WebView2.NavigationCompleted
-        ' Dim HTML As String = WebView2.CoreWebView2.
-        'TextBox1.Text = WebView2.CoreWebView2.Source
-        ' Exit Sub
-
-
-        If e.HttpStatusCode = 200 Then
-            Dim DocumentTitle As String = WebView2.CoreWebView2.DocumentTitle
-
-            Debug.WriteLine("NavigationCompleted: " + Date.Now.ToString)
-            Main.WebbrowserURL = WebView2.CoreWebView2.Source
-            TextBox1.Text = Main.WebbrowserURL
-
-            Main.WebbrowserTitle = DocumentTitle
-            Main.ProcessHTML("", Main.WebbrowserURL, DocumentTitle)
-
-            GetCookies(Main.WebbrowserURL)
-
-            Main.BowserWasOpen = True
-
-            If Application.OpenForms().OfType(Of Anime_Add).Any = True Then
-                Anime_Add.btn_dl.Cursor = Cursors.Default
-                Anime_Add.btn_dl.BackgroundImage = My.Resources.main_button_download_default
-            End If
-
-            If Main.Startseite IsNot My.Settings.Startseite Then
-                Main.LoadBrowser(Main.Startseite, 1)
-                Main.Startseite = My.Settings.Startseite
-            End If
-
-        End If
-    End Sub
-
-    Public Async Sub GetCookies(ByVal Uri As String)
-        Try
-            Main.CookieList = Await WebView2.CoreWebView2.CookieManager.GetCookiesAsync(Uri)
-        Catch ex As Exception
-        End Try
-    End Sub
-
-
-    Private Sub Browser_Load(sender As Object, e As EventArgs) Handles Me.Load
-
-        Main.waveOutSetVolume(0, 0)
-        If Me.Width > My.Computer.Screen.Bounds.Width Then
-            Me.Width = My.Computer.Screen.Bounds.Width
-            Panel1.Width = Me.Size.Width - 15 ', Me.Size.Height - 69)
-            Panel1.Location = New Point(0, 30)
-            TextBox1.Width = My.Computer.Screen.Bounds.Width - 435
-
-        End If
-
-        If Me.Size.Height > My.Computer.Screen.Bounds.Height Then
-            Me.Height = My.Computer.Screen.Bounds.Height
-            Panel1.Height = Me.Size.Height - 69
-            Panel1.Location = New Point(0, 30)
-        End If
-
-
-        Try
-            Me.Icon = My.Resources.icon
-        Catch ex As Exception
-
-        End Try
-
-        If Main.UserBowser = False Then
-            Me.Location = New Point(-10000, 10000)
-            Timer1.Enabled = True
-        End If
-        WebView2.Source = New Uri(Main.Startseite)
-    End Sub
-
-    Private Sub Browser_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        Main.BowserWasOpen = False
-
-        'Main.UserBowser = False
-        'Me.Location = New Point(-10000, -10000)
-        'Main.LoadingUrl = ""
-        'Debug.WriteLine("Collecting")
-        'Dim Collector As New TaskCookieVisitor
-        'Dim CM As ICookieManager = WebBrowser1.GetCookieManager
-        'CM.VisitAllCookies(Collector)
-        'Main.CookieList = Collector.Task.Result()
-        'Debug.WriteLine("Collecting-end")
-        ''e.Cancel = True
-    End Sub
-
-
-
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        'MsgBox(Main.CR_etp_rt)
-        'MsgBox(Main.CR_ajs_user_id)
-        'MsgBox(Main.CheckCRLogin.ToString)
-
-        Try
-            My.Computer.Clipboard.SetText(WebView2.CoreWebView2.Source)
-            MsgBox("copied: " + Chr(34) + WebView2.CoreWebView2.Source + Chr(34))
-        Catch ex As Exception
-        End Try
-
-        'My.Computer.Clipboard.SetText(WebBrowser1.Document.Body.InnerHtml)
-
-    End Sub
-
-    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
-        Try
-            If e.KeyCode = Keys.Return Then
-                e.SuppressKeyPress = True
-                Debug.WriteLine("Start loading: " + Date.Now.ToString)
-                WebView2.CoreWebView2.Navigate(TextBox1.Text)
-            End If
-
-        Catch ex As Exception
-            MsgBox("Error in URL", MsgBoxStyle.Critical)
-        End Try
-    End Sub
-
-
-    Private Async Sub ObserveResponse(ByVal sender As Object, ByVal e As CoreWebView2WebResourceResponseReceivedEventArgs)
-
-
-        If CBool(InStr(Main.LoadingUrl, "crunchyroll.com")) Then
-
-
-
-            If CBool(InStr(e.Request.Uri, "crunchyroll.com/")) And CBool(InStr(e.Request.Uri, "v1/token")) And Main.CR_v1Token = "Get" Then
-                Debug.WriteLine("Crunchyroll-v1_token: " + e.Request.Uri)
-                Dim Content As Stream = Await e.Response.GetContentAsync
-                Dim ContentString As String = Nothing
-                Dim reader As New StreamReader(Content)
-                ContentString = reader.ReadToEnd
-
-                Dim Loc_CR_Cookies = " -H " + Chr(34) + Main.CR_Cookies + Chr(34)
-                Dim Token() As String = ContentString.Split(New String() {Chr(34) + "access_token" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
-                Dim Token2() As String = Token(1).Split(New String() {Chr(34) + "," + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
-
-                Dim Auth As String = "Bearer " + Token2(0)
-                Dim Auth2 As String = " -H " + Chr(34) + "Authorization: " + Auth + Chr(34)
-                Main.ProcessLoading(Main.LoadingUrl, Auth2, Loc_CR_Cookies, 0)
-                Main.CR_v1Token = ""
-                Exit Sub
-
-
-            ElseIf CBool(InStr(e.Request.Uri, "crunchyroll.com/")) And CBool(InStr(e.Request.Uri, "seasons?preferred_audio_language=")) And CBool(InStr(Main.LoadingUrl, "/series/")) Then
-                Debug.WriteLine("Crunchyroll-Season: " + e.Request.Uri)
-                Main.LoadedUrls.Add(e.Request)
-
-                Exit Sub
-                'ElseIf CBool(InStr(e.Request.Uri, "crunchyroll.com/")) And CBool(InStr(e.Request.Uri, "content/v2/cms/objects/")) Then
-                '    Debug.WriteLine("Crunchyroll-objects added to cache: " + e.Request.Uri)
-                '    Main.LoadedUrls.Add(e.Request)
-
-                '    Exit Sub
-                'ElseIf CBool(InStr(e.Request.Uri, "crunchyroll.com/")) And CBool(InStr(e.Request.Uri, "seasons?preferred_audio_language=")) And CBool(InStr(Main.LoadingUrl, "/series/")) Then
-                '    Debug.WriteLine("Crunchyroll-objects added to cache: " + e.Request.Uri)
-                '    Main.LoadedUrls.Add(e.Request)
-
-                '    Exit Sub
-            End If
-
-
-        ElseIf CBool(InStr(Main.LoadingUrl, "funimation.com")) Then
-            If CBool(InStr(e.Request.Uri, "?deviceType=web")) Then
-                'Debug.WriteLine(e.Request.Uri)
-                Dim parms As String() = e.Request.Uri.Split(New String() {"?deviceType="}, System.StringSplitOptions.RemoveEmptyEntries)
-                Main.FunimationDeviceRegion = "?deviceType=" + parms(1)
-
-            End If
-            If CBool(InStr(e.Request.Uri, "https://title-api.prd.funimationsvc.com")) Then
-                Debug.WriteLine("Funimtaion: " + e.Request.Uri)
-                If (Me.InvokeRequired) Then
-                    Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request))
-                    Exit Sub
-                Else
-                    Main.LoadedUrls.Add(e.Request)
-                    Exit Sub
-                End If
-            ElseIf CBool(InStr(e.Request.Uri, "/data/v2/shows/")) Then
-                Debug.WriteLine("Funimtaion: " + e.Request.Uri)
-                If (Me.InvokeRequired) Then
-                    Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request))
-                    Exit Sub
-                Else
-                    Main.LoadedUrls.Add(e.Request)
-                    Exit Sub
-                End If
-            ElseIf CBool(InStr(e.Request.Uri, "/data/v1/episodes/")) Then
-                Debug.WriteLine("Funimtaion: " + e.Request.Uri)
-                If (Me.InvokeRequired) Then
-                    Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request))
-                    Exit Sub
-                Else
-                    Main.LoadedUrls.Add(e.Request)
-                    Exit Sub
-                End If
-            End If
-
-
-
-        End If
-
-    End Sub
-
-
-
-
-
-
-
-    Private Sub ObserveHttp(ByVal sender As Object, ByVal e As CoreWebView2WebResourceRequestedEventArgs) 'Handles RequestResource.GetUrl
-
-
-        ' Debug.WriteLine(e.Request.Uri)
-
-        If CBool(InStr(e.Request.Uri, "crunchyroll.com")) = True And Main.CrBetaBasic = Nothing Then
-            Dim Headers As New List(Of KeyValuePair(Of String, String))
-            Headers.AddRange(e.Request.Headers.ToList)
-            For i As Integer = 0 To Headers.Count
-                If CBool(InStr(Headers.Item(i).Value, "Basic")) Then
-                    Main.CrBetaBasic = Headers.Item(i).Value
-                    Debug.WriteLine("Auth-Basic: " + Main.CrBetaBasic)
-                ElseIf CBool(InStr(Headers.Item(i).Value, "Bearer")) Then
-                    Main.CR_AuthToken = Headers.Item(i).Value
-                    Debug.WriteLine("Auth-Bearer: " + Main.CR_AuthToken)
-                End If
-            Next
-        End If
-
-        'If CBool(InStr(e.Request.Uri, "crunchyroll.com/")) And CBool(InStr(e.Request.Uri, "streams?")) Then
-        '    Dim Headers As New List(Of KeyValuePair(Of String, String))
-        '    Headers.AddRange(e.Request.Headers.ToList)
-        '    For i As Integer = 0 To Headers.Count
-        '        If CBool(InStr(Headers.Item(i).Value, "Bearer")) Then
-        '            Main.CR_AuthToken = Headers.Item(i).Value
-        '            Debug.WriteLine("Auth-Bearer: " + Main.CR_AuthToken)
-        '        End If
-        '    Next
-        'End If
-
-        '
-        '
-        'If CBool(InStr(e.Request.Uri, "9016.2bd48f1e07adf6596b2d.js")) = True Then '
-        '    Debug.WriteLine(e.Request.Uri)
-        '    'MsgBox("Found!")
-        '    e.Response = WebView2.CoreWebView2.Environment.CreateWebResourceResponse(StringToStream(File.ReadAllText(Application.StartupPath + "\WebInterface\9016.2bd48f1e07adf6596b2d.js"), Encoding.UTF8), 200, "Not found", "content-type: application/javascript")
-
-
-        'End If
-
-
-    End Sub
-
-
-    Public Function StringToStream(input As String, enc As Encoding) As Stream
-        Dim memoryStream = New MemoryStream()
-        Dim streamWriter = New StreamWriter(memoryStream, enc)
-        streamWriter.Write(input)
-        streamWriter.Flush()
-        memoryStream.Position = 0
-        Return memoryStream
-    End Function
-
-    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
-        'If Main.UserBowser = False Then
-        '    WebView2.Reload()
-        'Else
-        '    Timer1.Enabled = False
-        'End If
-
-    End Sub
-
-    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
-        Me.Close()
-    End Sub
-
-
-End Class
-

Crunchyroll Downloader/CRD-Classes.vb

@@ -6,6 +6,13 @@
         SubsOnly = 2
         AudioOnly = 3
     End Enum
+    Public Enum UpdateScope
+        Skip = 0
+        Info = 1
+        InfoPre = 2
+        Auto = 3
+        Pre = 4
+    End Enum
 
     Public Enum ConvertSubsEnum
         DisplayText = 0
@@ -15,56 +22,7 @@
 
 End Class
 
-#Region "funimation"
 
-
-Public Class FunimationOverview
-    Public ID As String
-    Public Title As String
-    Public Slug As String
-    Public Sub New(ByVal Slug As String, ByVal ID As String, ByVal Title As String)
-        Me.ID = ID
-        Me.Title = Title
-        Me.Slug = Slug
-    End Sub
-
-    Public Overrides Function ToString() As String
-        Return String.Format("{0}, {1}, {2}", Me.Slug, Me.ID, Me.Title)
-    End Function
-End Class
-
-Public Class FunimationSubs
-    Public LangugageCode As String
-    Public Url As String
-    Public Format As String
-    Public Sub New(ByVal LangugageCode As String, ByVal Format As String, ByVal Url As String)
-        Me.Url = Url
-        Me.LangugageCode = LangugageCode
-        Me.Format = Format
-    End Sub
-
-    Public Overrides Function ToString() As String
-        Return String.Format("{0}, {1}, {2}", Me.LangugageCode, Me.Format, Me.Url)
-    End Function
-End Class
-
-Public Class FunimationStream
-    Public audioLanguage As String
-    Public Url As String
-    Public version As String
-    Public Primary As Boolean
-    Public Sub New(ByVal audioLanguage As String, ByVal version As String, ByVal Url As String, ByVal Primary As Boolean)
-        Me.Primary = Primary
-        Me.Url = Url
-        Me.audioLanguage = audioLanguage
-        Me.version = version
-    End Sub
-
-    Public Overrides Function ToString() As String
-        Return String.Format("{0}, {1}, {2}", Me.audioLanguage, Me.version, Me.Url)
-    End Function
-End Class
-#End Region
 #Region "CR"
 Public Class CR_Beta_Stream
     'Public audioLanguage As String
@@ -84,18 +42,37 @@ Public Class CR_Beta_Stream
 
 End Class
 
+
+Public Class CR_Tokens
+
+    Public access_token As String
+    Public refresh_token As String
+    Public expires_Unix As Integer
+
+    Public Sub New(ByVal access_token As String, ByVal refresh_token As String, ByVal expires_Unix As Integer)
+        Me.access_token = access_token
+        Me.refresh_token = refresh_token
+        Me.expires_Unix = expires_Unix
+    End Sub
+
+    Public Overrides Function ToString() As String
+        Return String.Format("{0}, {1}, {2}", Me.access_token, Me.refresh_token, Me.expires_Unix.ToString)
+    End Function
+
+End Class
+
 Public Class CR_MediaVersion
 
     Public AudioLang As String
-    Public media_guid As String
+    Public guid As String
 
-    Public Sub New(ByVal AudioLang As String, ByVal media_guid As String)
+    Public Sub New(ByVal AudioLang As String, ByVal guid As String)
         Me.AudioLang = AudioLang
-        Me.media_guid = media_guid
+        Me.guid = guid
     End Sub
     'Me.audioLanguage,
     Public Overrides Function ToString() As String
-        Return String.Format("{0}, {1}", Me.AudioLang, Me.media_guid)
+        Return String.Format("{0}, {1}", Me.AudioLang, Me.guid)
     End Function
 
 End Class

Crunchyroll Downloader/CRD_List_Item.vb

@@ -31,10 +31,15 @@ Public Class CRD_List_Item
     Dim TempFolder As String = Nothing
     Dim DownloadPfad As String = Nothing
     Dim ThumbnailSource As String = Nothing
+
     Dim Failed As Boolean = False
     Dim FailedCount As Integer = 0
+
+    Dim FailedKey As Boolean = False
+
     Dim HistoryDL_URL As String
     Dim HistoryDL_Pfad As String
+
     Dim HistoryFilename As String
     Dim Retry As Boolean = False
     Dim HybridMode As Boolean = False
@@ -55,7 +60,7 @@ Public Class CRD_List_Item
 
     Dim FailedSegments As New List(Of FailedSegemtsWithURL)
     Dim LogText As New List(Of String)
-    Dim GlobalLogfile As String
+    'Dim GlobalLogfile As String
 
     Private Event UpdateUI(ByVal Percent As Integer, ByVal di As DirectoryInfo, ByVal Idle As Integer)
 
@@ -301,6 +306,32 @@ Public Class CRD_List_Item
                 StatusRunning = False
                 bt_pause.BackgroundImage = My.Resources.main_pause_play
 
+            ElseIf Failed = True And FailedKey = True Then
+                If Not Directory.Exists(Path.GetDirectoryName(HybridModePath)) Then
+                    ' Nein! Jetzt erstellen...
+                    Try
+                        Directory.Delete(Path.GetDirectoryName(HybridModePath))
+                    Catch ex As Exception
+                        Debug.WriteLine("folder issue - delete")
+                        Exit Sub
+                    End Try
+                End If
+                Dim Evaluator = New Thread(Sub() DownloadHybrid(HistoryDL_URL, HistoryDL_Pfad, HistoryFilename))
+                Evaluator.Start()
+                HybridMode = True
+                HybridRunning = True
+                StatusRunning = True
+                Failed = False
+
+                LastDate = Date.Now
+                LastSize = 0
+                LastDataRate1 = 0
+                LastDataRate2 = 0
+                LastDataRate3 = 0
+                FailedSegments.Clear()
+                LogText.Clear()
+                ZeitGesamtInteger = 0
+
             ElseIf Failed = True Then
                 Dim Result As DialogResult = MessageBox.Show("The hybride mode has failed to download a fragment." + vbNewLine + "Press 'Retry' to retry the fragment or 'Ignore' to continue.", "Download Error", MessageBoxButtons.AbortRetryIgnore) '= DialogResult.Ignore Then
 
@@ -445,8 +476,6 @@ Public Class CRD_List_Item
 #Region "Download + Update UI"
 
     Public Sub StartDownload(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal Filename As String, ByVal DownloadHybridMode As Boolean, ByVal TempFolder As String)
-        'MsgBox(DL_URL)
-
 
 
         Me.StyleManager = MetroStyleManager1
@@ -456,24 +485,6 @@ Public Class CRD_List_Item
         HistoryDL_Pfad = DL_Pfad
         HistoryFilename = Filename
 
-        GlobalLogfile = DL_Pfad.Replace(".mkv", ".txt").Replace(Chr(34), "")
-
-        'Debug.WriteLine(GlobalLogfile)
-
-        'If (Me.InvokeRequired) Then
-        '    Me.Invoke(Sub()
-
-
-        '                  'MsgBox(True.ToString)
-        '                  Label_percent.Text = "selected subtiles have been dowloaded"
-        '                  Canceld = True
-        '              End Sub)
-        'Else
-        '    ' MsgBox(False.ToString)
-        '    Label_percent.Text = "selected subtiles have been dowloaded"
-        '    Canceld = True
-        'End If
-        'Exit Sub
 
         If CBool(InStr(DL_URL, "-i [Subtitles only]")) Then
             Me.Invoke(New Action(Function() As Object
@@ -487,12 +498,16 @@ Public Class CRD_List_Item
                                      Return Nothing
                                  End Function))
         ElseIf DownloadHybridMode = True Then
+
+            DL_URL = DL_URL.Replace("-protocol_whitelist file,http,https,tcp,tls,crypto,data", "") 'remove whitelist for hybrid mode
+            HistoryDL_URL = DL_URL
+
             Dim Evaluator = New Thread(Sub() DownloadHybrid(DL_URL, DL_Pfad, Filename))
             Evaluator.Start()
             HybridMode = True
             HybridRunning = True
         Else
-            DownloadFFMPEG(DL_URL, DL_Pfad, Filename)
+            DownloadFFMPEG(DL_URL, DL_Pfad, Filename) 'DownloadFFMPEG("-protocol_whitelist file,http,https,tcp,tls,crypto,data " + DL_URL, DL_Pfad, Filename)
         End If
 
     End Sub
@@ -962,54 +977,15 @@ Public Class CRD_List_Item
                         KeyLine = KeyFileUri(0) + "URI=" + Chr(34) + KeyFileCache + Chr(34)
                     End If
 
-                    If KeepCacheFiles = True Then
-                        'Dim Bytes() As Byte = File.ReadAllBytes(Application.StartupPath + "\" + KeyFile)
-                        'File.WriteAllBytes(Folder + "\" + KeyFile, Bytes)
-                        Dim Evaluator2 = New Thread(Sub() Me.TS_DownloadAsync(KeyFileUri3, Folder + "\" + KeyFile))
-                        Evaluator2.Start()
-                    End If
+                    'If KeepCacheFiles = True Then
+                    '    'Dim Bytes() As Byte = File.ReadAllBytes(Application.StartupPath + "\" + KeyFile)
+                    '    'File.WriteAllBytes(Folder + "\" + KeyFile, Bytes)
+                    '    Dim Evaluator2 = New Thread(Sub() Me.TS_DownloadAsync(KeyFileUri3, Folder + "\" + KeyFile))
+                    '    Evaluator2.Start()
+                    'End If
                 End If
                 m3u8FileContent = m3u8FileContent + KeyLine + vbLf
 
-            ElseIf CBool(InStr(textLenght(i2), "#EXT-X-ENDLIST")) Then
-                ' ElseIf textLenght(i) =  Then                'And my.Settings.FixCRStream = True Then
-
-                Try
-                    Dim StringCount As String = Count.ToString
-                    Dim StringCount_1 As String = (Count + 1).ToString
-
-                    Debug.WriteLine("old: " + LastUrl)
-
-                    Dim NewUrl As String = Nothing
-
-                    Me.Invoke(New Action(Function() As Object
-                                             NewUrl = LastUrl.Replace("-" + StringCount + "-", "-" + StringCount_1 + "-")
-                                             Return Nothing
-                                         End Function))
-
-                    Debug.WriteLine("new: " + NewUrl)
-
-                    Dim File As String = Folder + String.Format("{0:00000}", Count) + ".ts"
-                    Dim curi As String = GetFullUri(url, NewUrl)
-
-                    WC_TS = New WebClient
-
-                    WC_TS.DownloadFile(New Uri(curi), File)
-                    HybrideLog = HybrideLog + vbNewLine + Date.Now.ToString + ": " + File + " - " + curi
-                    m3u8FileContent = m3u8FileContent + "#EXTINF:4.048," + vbLf 'dummy line
-                    m3u8FileContent = m3u8FileContent + File + vbLf
-                    Dim FragmentsFinised = Count * 100 / FragmentsInt
-                    'Dim Update = New Thread(Sub() Me.TS_StatusAsync(CInt(FragmentsFinised), di, PauseTime))
-                    'Update.Start()
-                    RaiseEvent UpdateUI(CInt(FragmentsFinised), di, PauseTime)
-                    Count = Count + 1
-
-
-                    m3u8FileContent = m3u8FileContent + textLenght(i) + vbLf
-                Catch ex As Exception
-                    HybrideLog = HybrideLog + vbNewLine + Date.Now.ToString + ": CR fix failed to access unlisted file #882"
-                    m3u8FileContent = m3u8FileContent + textLenght(i) + vbLf
-                End Try
             Else
                 m3u8FileContent = m3u8FileContent + textLenght(i) + vbLf
             End If
@@ -1073,7 +1049,16 @@ Public Class CRD_List_Item
 
             Catch ex2 As Exception
                 FailedCount = FailedCount + 1
-                If Item_ErrorTolerance = 0 Then
+                If CBool(InStr(DL_Pfad, ".key")) Then
+                    Failed = True
+                    FailedKey = True
+                    StatusRunning = False
+                    bt_pause.BackgroundImage = My.Resources.main_pause_play
+                    Me.Invoke(New Action(Function() As Object
+                                             Label_percent.Text = "fatal! Failed to download 'encryption.key'"
+                                             Return Nothing
+                                         End Function))
+                ElseIf Item_ErrorTolerance = 0 Then
 
                 ElseIf FailedCount >= Item_ErrorTolerance Then
                     FailedSegments.Add(New FailedSegemtsWithURL(DL_Pfad, DL_URL))
@@ -1085,6 +1070,7 @@ Public Class CRD_List_Item
                                              Label_percent.Text = "Missing segment detected, retry or resume with the play button"
                                              Return Nothing
                                          End Function))
+
                 End If
 
 
@@ -1099,6 +1085,7 @@ Public Class CRD_List_Item
 #End Region
 
     Public Function DownloadHybrid(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal Filename As String) As String
+        'MsgBox(DL_URL)
         LogText.Add(Date.Now.ToString + " " + DL_URL)
 
         Dim Folder As String = GeräteID()
@@ -1147,23 +1134,10 @@ Public Class CRD_List_Item
                                  Return Nothing
                              End Function))
 
-        For i As Integer = 0 To InuputStreams.Count - 1
+        For i As Integer = 1 To InuputStreams.Count - 1
 
             Dim int As Integer = i
 
-            If CBool(InStr(InuputStreams(int), ":\")) Then
-                Continue For
-            End If
-
-            Dim InputURL As String() = InuputStreams(int).Split(New [Char]() {Chr(34)})
-            Dim InputClient As New WebClient
-            InputClient.Encoding = Encoding.UTF8
-
-            If Main.WebbrowserCookie = Nothing Then
-            Else
-                InputClient.Headers.Add(HttpRequestHeader.Cookie, Main.WebbrowserCookie)
-
-            End If
             Dim SubsFile As String = Pfad2 + GeräteID() + ".txt"
 
             If File.Exists(SubsFile) Then
@@ -1171,33 +1145,53 @@ Public Class CRD_List_Item
             End If
 
             Try
-                Dim InputData As String = Nothing
-                Try
-                    InputData = InputClient.DownloadString(InputURL(0))
-                Catch ex As Exception
-                    InputClient.Headers.Add(HttpRequestHeader.AcceptEncoding, "*")
-                    InputData = DecompressString(InputClient.DownloadData(InputURL(0)))
-                End Try
 
+                Dim InputData As String = Nothing
+                Dim InputPath As String = Nothing
+                If CBool(InStr(InuputStreams(int), ":\")) = True Then
+                    Dim InputFile As String() = InuputStreams(int).Split(New [Char]() {Chr(34)})
+                    InputPath = InputFile(0)
+                    InputData = My.Computer.FileSystem.ReadAllText(InputPath)
+
+                Else
+                    Dim InputURL As String() = InuputStreams(int).Split(New [Char]() {Chr(34)})
+                    InputPath = InputURL(0)
+                    Dim InputClient As New WebClient
+                    InputClient.Encoding = Encoding.UTF8
+
+                    If Main.WebbrowserCookie = Nothing Then
+                    Else
+                        InputClient.Headers.Add(HttpRequestHeader.Cookie, Main.WebbrowserCookie)
+
+                    End If
+
+                    Try
+                        InputData = InputClient.DownloadString(InputURL(0))
+                    Catch ex As Exception
+                        InputClient.Headers.Add(HttpRequestHeader.AcceptEncoding, "*")
+                        InputData = DecompressString(InputClient.DownloadData(InputURL(0)))
+                    End Try
+
+                End If
                 If InputData = Nothing Then
                     Throw New System.Exception("No Input Data...")
                 End If
 
-                If CBool(InStr(InputData, "RESOLUTION=")) = True And CBool(InStr(InputData, "#EXT-X-BYTERANGE:")) = False Then 'master m3u8 no fragments 
+                'If CBool(InStr(InputData, "RESOLUTION=")) = True And CBool(InStr(InputData, "#EXT-X-BYTERANGE:")) = False Then 'master m3u8 no fragments 
 
-                    Dim index_m3u8() As String = InputData.Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries)
-                    If TargetReso = 42 Then
-                        TargetReso = 1080
-                    End If
-                    For line As Integer = 0 To index_m3u8.Count - 1
-                        If CBool(InStr(index_m3u8(line), "x" + TargetReso.ToString)) = True Then
+                '    Dim index_m3u8() As String = InputData.Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries)
+                '    If TargetReso = 42 Then
+                '        TargetReso = 1080
+                '    End If
+                '    For line As Integer = 0 To index_m3u8.Count - 1
+                '        If CBool(InStr(index_m3u8(line), "x" + TargetReso.ToString)) = True Then
 
-                            InputData = InputClient.DownloadString(GetFullUri(InputURL(0), index_m3u8(line + 1)))
-                            InputURL(0) = index_m3u8(line + 1)
-                            Exit For
-                        End If
-                    Next
-                End If
+                '            InputData = InputClient.DownloadString(GetFullUri(InputURL(0), index_m3u8(line + 1)))
+                '            InputURL(0) = index_m3u8(line + 1)
+                '            Exit For
+                '        End If
+                '    Next
+                'End If
 
                 If CBool(InStr(InputData, "#EXT-X-VERSION:3")) Or CBool(InStr(InputData, "#EXT-X-VERSION:5")) Then
 
@@ -1205,13 +1199,23 @@ Public Class CRD_List_Item
                         Pfad2 = Path.GetDirectoryName(DL_Pfad.Replace(Chr(34), "")) + "\" + NameP2.Replace(" ", "-") + "\"
                     End If
 
-                    ProcessV3(InputURL(0), InputData, Pfad2, DL_Pfad, DL_URL)
+                    ProcessV3(InputPath, InputData, Pfad2, DL_Pfad, DL_URL)
 
-                    DL_URL = DL_URL.Replace("-i " + Chr(34) + InputURL(0), "-allowed_extensions ALL " + "-i " + Chr(34) + Pfad2 + "index.m3u8")
+                    If CBool(InStr(DL_URL, "-allowed_extensions ALL ")) = True Then
+                        DL_URL = DL_URL.Replace("-allowed_extensions ALL ", "")
+                    End If
+
+                    DL_URL = DL_URL.Replace("-i " + Chr(34) + InputPath, "-allowed_extensions ALL " + "-i " + Chr(34) + Pfad2 + "index.m3u8")
 
                 ElseIf CBool(InStr(InputData, "#EXT-X-VERSION:4")) Then
-                    ProcessV4(InputURL(0), InputData, Pfad2 + "Stream-" + int.ToString + "\")
-                    DL_URL = DL_URL.Replace("-i " + Chr(34) + InputURL(0), "-allowed_extensions ALL " + "-i " + Chr(34) + Pfad2 + "Stream-" + int.ToString + "\index.m3u8")
+                    ProcessV4(InputPath, InputData, Pfad2 + "Stream-" + int.ToString + "\")
+
+
+                    If CBool(InStr(DL_URL, "-allowed_extensions ALL ")) = True Then
+                        DL_URL = DL_URL.Replace("-allowed_extensions ALL ", "")
+                    End If
+
+                    DL_URL = DL_URL.Replace("-i " + Chr(34) + InputPath, "-allowed_extensions ALL " + "-i " + Chr(34) + Pfad2 + "Stream-" + int.ToString + "\index.m3u8")
                 Else
                     'write string to file
                     If Not Directory.Exists(Path.GetDirectoryName(Pfad2)) Then
@@ -1244,11 +1248,11 @@ Public Class CRD_List_Item
 
 
                     Using sink As New StreamWriter(SubsFile, False, utf8WithoutBom2)
-                            sink.WriteLine(InputData)
-                        End Using
-                        'replace url with local file
-                        DL_URL = DL_URL.Replace(InputURL(0), SubsFile)
-                    End If
+                        sink.WriteLine(InputData)
+                    End Using
+                    'replace url with local file
+                    DL_URL = DL_URL.Replace(InputPath, SubsFile)
+                End If
             Catch ex As Exception
                 Debug.WriteLine(ex.ToString)
                 DL_URL = DL_URL_old
@@ -1326,13 +1330,14 @@ Public Class CRD_List_Item
 
         Dim exepath As String = Application.StartupPath + "\ffmpeg.exe"
         Dim startinfo As New System.Diagnostics.ProcessStartInfo
-        Dim cmd As String = "-user_agent " + My.Settings.User_Agend.Replace("User-Agent: ", "") + " -headers " + Chr(34) + "ACCEPT-ENCODING: *" + Chr(34) + " " + DLCommand + " " + DL_Pfad 'start ffmpeg with command strFFCMD string
-        'Dim cmd As String = "-headers " + My.Settings.User_Agend + " -headers " + Chr(34) + "ACCEPT-ENCODING: *" + Chr(34) + " " + DLCommand + " " + DL_Pfad 'start ffmpeg with command strFFCMD string
+        'Dim cmd As String = "-user_agent " + My.Settings.User_Agend.Replace("User-Agent: ", "") + " -headers " + Chr(34) + "ACCEPT-ENCODING: *" + Chr(34) + " " + DLCommand + " " + DL_Pfad 'start ffmpeg with command strFFCMD string
 
-        If CBool(InStr(DLCommand, ":\")) And CBool(InStr(DLCommand, "-i " + Chr(34) + "https://")) Then
-            Dim Replacement As String = "-user_agent " + My.Settings.User_Agend.Replace("User-Agent: ", "") + " -headers " + Chr(34) + "ACCEPT-ENCODING: *" + Chr(34) + " -i " + Chr(34) + "https://"
-            cmd = DLCommand.Replace("-i " + Chr(34) + "https://", Replacement) + " " + DL_Pfad
-        End If
+        Dim cmd As String = DLCommand + " " + DL_Pfad 'start ffmpeg with command strFFCMD string
+
+        'If CBool(InStr(DLCommand, ":\")) And CBool(InStr(DLCommand, "-i " + Chr(34) + "https://")) Then
+        '    Dim Replacement As String = "-user_agent " + My.Settings.User_Agend.Replace("User-Agent: ", "") + " -headers " + Chr(34) + "ACCEPT-ENCODING: *" + Chr(34) + " -i " + Chr(34) + "https://"
+        '    cmd = DLCommand.Replace("-i " + Chr(34) + "https://", Replacement) + " " + DL_Pfad
+        'End If
 
         LogText.Add(Date.Now.ToString + " " + cmd)
         If Debug2 = True Then

Crunchyroll Downloader/Crunchyroll Downloader.vbproj

@@ -106,19 +106,11 @@
   <ItemGroup>
     <Reference Include="MetroFramework, Version=1.4.0.0, Culture=neutral, PublicKeyToken=5f91a84759bf584a, processorArchitecture=AMD64">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\metroframework-modern-ui\MetroFramework\bin\x64\Debug\MetroFramework.dll</HintPath>
+      <HintPath>Resources\CRD_metroframework_x64\MetroFramework.dll</HintPath>
     </Reference>
-    <Reference Include="Microsoft.Web.WebView2.Core, Version=1.0.1418.22, Culture=neutral, PublicKeyToken=2a8ab48044d2601e, processorArchitecture=MSIL">
-      <HintPath>..\packages\Microsoft.Web.WebView2.1.0.1418.22\lib\net45\Microsoft.Web.WebView2.Core.dll</HintPath>
-    </Reference>
-    <Reference Include="Microsoft.Web.WebView2.WinForms, Version=1.0.1418.22, Culture=neutral, PublicKeyToken=2a8ab48044d2601e, processorArchitecture=MSIL">
-      <HintPath>..\packages\Microsoft.Web.WebView2.1.0.1418.22\lib\net45\Microsoft.Web.WebView2.WinForms.dll</HintPath>
-    </Reference>
-    <Reference Include="Microsoft.Web.WebView2.Wpf, Version=1.0.1418.22, Culture=neutral, PublicKeyToken=2a8ab48044d2601e, processorArchitecture=MSIL">
-      <HintPath>..\packages\Microsoft.Web.WebView2.1.0.1418.22\lib\net45\Microsoft.Web.WebView2.Wpf.dll</HintPath>
-    </Reference>
-    <Reference Include="MyProvider">
-      <HintPath>..\..\..\MyProvider\MyProvider\bin\x64\Debug\MyProvider.dll</HintPath>
+    <Reference Include="MyProvider, Version=1.0.0.0, Culture=neutral, processorArchitecture=AMD64">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>Resources\CRD_SettingsProvider_x64\MyProvider.dll</HintPath>
     </Reference>
     <Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
       <HintPath>..\packages\Newtonsoft.Json.13.0.1\lib\net45\Newtonsoft.Json.dll</HintPath>
@@ -151,6 +143,18 @@
   </ItemGroup>
   <ItemGroup>
     <Compile Include="CRD-Classes.vb" />
+    <Compile Include="Error_msg.Designer.vb">
+      <DependentUpon>Error_msg.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Error_msg.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="LoginForm.Designer.vb">
+      <DependentUpon>LoginForm.vb</DependentUpon>
+    </Compile>
+    <Compile Include="LoginForm.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="ffmpeg_option.Designer.vb">
       <DependentUpon>ffmpeg_option.vb</DependentUpon>
     </Compile>
@@ -195,12 +199,6 @@
     <Compile Include="einstellungen.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="Browser.Designer.vb">
-      <DependentUpon>Browser.vb</DependentUpon>
-    </Compile>
-    <Compile Include="Browser.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="ProcessSleep.vb" />
     <Compile Include="ErrorDialog.Designer.vb">
       <DependentUpon>ErrorDialog.vb</DependentUpon>
@@ -234,6 +232,13 @@
     <Compile Include="Subfolder.vb" />
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="Error_msg.resx">
+      <DependentUpon>Error_msg.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="LoginForm.resx">
+      <DependentUpon>LoginForm.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="ffmpeg_option.resx">
       <DependentUpon>ffmpeg_option.vb</DependentUpon>
     </EmbeddedResource>
@@ -252,9 +257,6 @@
     <EmbeddedResource Include="einstellungen.resx">
       <DependentUpon>einstellungen.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="Browser.resx">
-      <DependentUpon>Browser.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="CRD_List_Item.resx">
       <DependentUpon>CRD_List_Item.vb</DependentUpon>
     </EmbeddedResource>
@@ -382,6 +384,7 @@
     <Content Include="bin\x86\Debug\Lib\swiftshader\libEGL.dll" />
     <Content Include="bin\x86\Debug\Lib\swiftshader\libGLESv2.dll" />
     <Content Include="icon.ico" />
+    <None Include="Resources\error_dis.png" />
     <None Include="Resources\BG.png" />
     <None Include="Resources\ffmpeg_OK_cL.png" />
     <None Include="Resources\ffmpeg_OK_cL_hover.png" />
@@ -433,11 +436,4 @@
     <WCFMetadata Include="Connected Services\" />
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
-  <Import Project="..\packages\Microsoft.Web.WebView2.1.0.1418.22\build\Microsoft.Web.WebView2.targets" Condition="Exists('..\packages\Microsoft.Web.WebView2.1.0.1418.22\build\Microsoft.Web.WebView2.targets')" />
-  <Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
-    <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\Microsoft.Web.WebView2.1.0.1418.22\build\Microsoft.Web.WebView2.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Microsoft.Web.WebView2.1.0.1418.22\build\Microsoft.Web.WebView2.targets'))" />
-  </Target>
 </Project>

Crunchyroll Downloader/ErrorDialog.vb

@@ -40,22 +40,14 @@ Public Class ErrorDialog
             Debug.WriteLine(Main.ResoNotFoundString)
             Debug.WriteLine("ResoNotFoundString")
 
-            Dim lang_avalibe As String() = Main.ResoNotFoundString.Split(New String() {"hardsub_locale" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+            Dim lang_avalibe As String() = Main.ResoNotFoundString.Split(New String() {";"}, System.StringSplitOptions.RemoveEmptyEntries)
 
-            For i As Integer = 1 To lang_avalibe.Count - 1
-                If CBool(InStr(lang_avalibe(i), "https://")) Then
-                Else
-                    Continue For
-                End If
-                If lang_avalibe(i).Substring(0, 1) = Chr(34) Then
-                    ComboBox1.Items.Add("No Hardsubs")
-                    Continue For 'Chr(34) +
-                End If
-                'MsgBox(lang_avalibe(i))
-                Dim langsplit As String() = lang_avalibe(i).Split(New String() {Chr(34) + ","}, System.StringSplitOptions.RemoveEmptyEntries)
-                ComboBox1.Items.Add(Main.ConvertSubValue(langsplit(0), ConvertSubsEnum.DisplayText))
+            For i As Integer = 0 To lang_avalibe.Count - 1
+                ComboBox1.Items.Add(Main.ConvertSubValue(lang_avalibe(i), ConvertSubsEnum.DisplayText))
             Next
+
             SurroundingSub()
+
         ElseIf Main.DialogTaskString = "Resolution" Then
             StatusLabel.Text = Main.LabelResoNotFoundText
             Dim Reso_avaible1 As String() = Main.ResoNotFoundString.Split(New String() {"RESOLUTION="}, System.StringSplitOptions.RemoveEmptyEntries)
@@ -70,35 +62,11 @@ Public Class ErrorDialog
             End Try
         ElseIf Main.DialogTaskString = "AudioOnlyResolution" Then
             StatusLabel.Text = "" 'Main.LabelResoNotFoundText
+            ComboBox1.Items.Add("x240,")
+            ComboBox1.Items.Add("x360,")
             ComboBox1.Items.Add("x480,")
             ComboBox1.Items.Add("x720,")
             ComboBox1.Items.Add("x1080,")
-        ElseIf Main.DialogTaskString = "Funimation_Resolution" Then
-            StatusLabel.Text = Main.LabelResoNotFoundText
-            'Try
-            '    My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\Funimation-Resolution.log", Main.ResoNotFoundString, True)
-            'Catch ex As Exception
-            'End Try
-            Dim ResoList As New List(Of String)
-            Dim m3u8_split As String() = Main.ResoNotFoundString.Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries)
-            For i As Integer = 0 To m3u8_split.Count - 1
-                If CBool(InStr(m3u8_split(i), "RESOLUTION=")) Then
-                    ResoList.Add(m3u8_split(i))
-                End If
-            Next
-
-            Dim Reso_avaible1 As String() = Main.ResoNotFoundString.Split(New String() {"RESOLUTION="}, System.StringSplitOptions.RemoveEmptyEntries)
-            For i As Integer = 0 To ResoList.Count - 1
-                Dim Reso_avaible As String() = ResoList.Item(i).Split(New String() {"RESOLUTION="}, System.StringSplitOptions.RemoveEmptyEntries)
-                If CBool(InStr(Reso_avaible(1), ",")) Then
-                    Dim Reso_avaible2 As String() = Reso_avaible(1).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries)
-                    ComboBox1.Items.Add(Reso_avaible2(0))
-                Else
-                    ComboBox1.Items.Add(Reso_avaible(1))
-                End If
-            Next
-            SurroundingSub()
-
 
         End If
 

Crunchyroll Downloader/Error_msg.Designer.vb

@@ -0,0 +1,183 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Error_msg
+    Inherits MetroFramework.Forms.MetroForm
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    '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()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.btn_cl = New System.Windows.Forms.Button()
+        Me.btn_ign = New System.Windows.Forms.Button()
+        Me.btn_ok = New System.Windows.Forms.Button()
+        Me.ErrorLabel = New MetroFramework.Controls.MetroLabel()
+        Me.Delay = New System.Windows.Forms.Timer(Me.components)
+        Me.Btn_Close = New System.Windows.Forms.Button()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.ErrorBox = New System.Windows.Forms.RichTextBox()
+        Me.GroupBox3.SuspendLayout()
+        Me.GroupBox1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'GroupBox3
+        '
+        Me.GroupBox3.BackColor = System.Drawing.Color.Transparent
+        Me.GroupBox3.Controls.Add(Me.btn_cl)
+        Me.GroupBox3.Controls.Add(Me.btn_ign)
+        Me.GroupBox3.Controls.Add(Me.btn_ok)
+        Me.GroupBox3.Controls.Add(Me.ErrorLabel)
+        Me.GroupBox3.Location = New System.Drawing.Point(13, 60)
+        Me.GroupBox3.Name = "GroupBox3"
+        Me.GroupBox3.Size = New System.Drawing.Size(613, 203)
+        Me.GroupBox3.TabIndex = 38
+        Me.GroupBox3.TabStop = False
+        '
+        'btn_cl
+        '
+        Me.btn_cl.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.ffmpeg_OK_cL
+        Me.btn_cl.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.btn_cl.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.btn_cl.FlatAppearance.BorderSize = 0
+        Me.btn_cl.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_cl.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btn_cl.ForeColor = System.Drawing.SystemColors.Control
+        Me.btn_cl.Location = New System.Drawing.Point(28, 121)
+        Me.btn_cl.Name = "btn_cl"
+        Me.btn_cl.Size = New System.Drawing.Size(150, 40)
+        Me.btn_cl.TabIndex = 77
+        Me.btn_cl.Text = "Details"
+        Me.btn_cl.UseVisualStyleBackColor = True
+        '
+        'btn_ign
+        '
+        Me.btn_ign.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.ffmpeg_OK_cL
+        Me.btn_ign.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.btn_ign.FlatAppearance.BorderSize = 0
+        Me.btn_ign.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_ign.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btn_ign.ForeColor = System.Drawing.SystemColors.Control
+        Me.btn_ign.Location = New System.Drawing.Point(235, 121)
+        Me.btn_ign.Name = "btn_ign"
+        Me.btn_ign.Size = New System.Drawing.Size(150, 40)
+        Me.btn_ign.TabIndex = 78
+        Me.btn_ign.Text = "Ignore"
+        Me.btn_ign.UseVisualStyleBackColor = True
+        '
+        'btn_ok
+        '
+        Me.btn_ok.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.ffmpeg_OK_cL
+        Me.btn_ok.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.btn_ok.FlatAppearance.BorderSize = 0
+        Me.btn_ok.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_ok.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btn_ok.ForeColor = System.Drawing.SystemColors.Control
+        Me.btn_ok.Location = New System.Drawing.Point(424, 121)
+        Me.btn_ok.Name = "btn_ok"
+        Me.btn_ok.Size = New System.Drawing.Size(150, 40)
+        Me.btn_ok.TabIndex = 78
+        Me.btn_ok.Text = "Ok"
+        Me.btn_ok.UseVisualStyleBackColor = True
+        '
+        'ErrorLabel
+        '
+        Me.ErrorLabel.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.ErrorLabel.BackColor = System.Drawing.Color.Transparent
+        Me.ErrorLabel.FontSize = MetroFramework.MetroLabelSize.Tall
+        Me.ErrorLabel.FontWeight = MetroFramework.MetroLabelWeight.Bold
+        Me.ErrorLabel.ForeColor = System.Drawing.Color.Black
+        Me.ErrorLabel.Location = New System.Drawing.Point(6, 16)
+        Me.ErrorLabel.Name = "ErrorLabel"
+        Me.ErrorLabel.Size = New System.Drawing.Size(601, 53)
+        Me.ErrorLabel.TabIndex = 34
+        Me.ErrorLabel.Text = "Status: idle"
+        Me.ErrorLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Delay
+        '
+        Me.Delay.Interval = 2000
+        '
+        'Btn_Close
+        '
+        Me.Btn_Close.BackColor = System.Drawing.Color.Transparent
+        Me.Btn_Close.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
+        Me.Btn_Close.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.Btn_Close.FlatAppearance.BorderSize = 0
+        Me.Btn_Close.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Transparent
+        Me.Btn_Close.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Btn_Close.ForeColor = System.Drawing.Color.Transparent
+        Me.Btn_Close.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_close
+        Me.Btn_Close.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Btn_Close.Location = New System.Drawing.Point(581, 8)
+        Me.Btn_Close.Name = "Btn_Close"
+        Me.Btn_Close.Size = New System.Drawing.Size(35, 35)
+        Me.Btn_Close.TabIndex = 39
+        Me.Btn_Close.UseVisualStyleBackColor = False
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.BackColor = System.Drawing.Color.Transparent
+        Me.GroupBox1.Controls.Add(Me.ErrorBox)
+        Me.GroupBox1.Location = New System.Drawing.Point(13, 286)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(613, 203)
+        Me.GroupBox1.TabIndex = 79
+        Me.GroupBox1.TabStop = False
+        '
+        'ErrorBox
+        '
+        Me.ErrorBox.BackColor = System.Drawing.SystemColors.ButtonHighlight
+        Me.ErrorBox.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.ErrorBox.Location = New System.Drawing.Point(10, 19)
+        Me.ErrorBox.Name = "ErrorBox"
+        Me.ErrorBox.ReadOnly = True
+        Me.ErrorBox.Size = New System.Drawing.Size(593, 170)
+        Me.ErrorBox.TabIndex = 0
+        Me.ErrorBox.Text = ""
+        '
+        'Error_msg
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(640, 275)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Controls.Add(Me.Btn_Close)
+        Me.Controls.Add(Me.GroupBox3)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "Error_msg"
+        Me.Text = "CRD-Error"
+        Me.TextAlign = MetroFramework.Forms.MetroFormTextAlign.Center
+        Me.GroupBox3.ResumeLayout(False)
+        Me.GroupBox1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+    Private WithEvents GroupBox3 As GroupBox
+    Public WithEvents ErrorLabel As MetroFramework.Controls.MetroLabel
+    Friend WithEvents Delay As Timer
+    Friend WithEvents Btn_Close As Button
+    Friend WithEvents btn_cl As Button
+    Friend WithEvents btn_ok As Button
+    Private WithEvents GroupBox1 As GroupBox
+    Friend WithEvents ErrorBox As RichTextBox
+    Friend WithEvents btn_ign As Button
+End Class

Crunchyroll Downloader/Error_msg.resx

@@ -117,10 +117,7 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <metadata name="Delay.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
-  <metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>106, 17</value>
-  </metadata>
 </root>

Crunchyroll Downloader/Error_msg.vb

@@ -0,0 +1,98 @@
+Option Strict On
+Imports Crunchyroll_Downloader.CRD_Classes
+Imports MetroFramework
+Imports MetroFramework.Components
+
+Public Class Error_msg
+
+    Dim Manager As MetroStyleManager = Main.Manager
+
+    Private Sub Btn_Close_MouseEnter(sender As Object, e As EventArgs) Handles Btn_Close.MouseEnter, Btn_Close.GotFocus
+        If Manager.Theme = MetroThemeStyle.Dark Then
+            Btn_Close.Image = My.Resources.main_close_dark_hover
+        Else
+            Btn_Close.Image = My.Resources.main_close_hover
+        End If
+    End Sub
+
+    Private Sub Btn_Close_MouseLeave(sender As Object, e As EventArgs) Handles Btn_Close.MouseLeave, Btn_Close.LostFocus
+        Btn_Close.Image = Main.CloseImg
+    End Sub
+
+    Private Sub Btn_Close_Click(sender As Object, e As EventArgs) Handles Btn_Close.Click
+        Me.Close()
+    End Sub
+
+    Private Sub Error_msg_Resize(sender As Object, e As EventArgs) Handles Me.Resize
+        Btn_Close.Location = New Point(Me.Width - 36, 1)
+
+    End Sub
+
+    Private Sub btn_cl_Click(sender As Object, e As EventArgs) Handles btn_cl.Click
+        If Me.Height = 500 Then
+            Me.Height = 275
+        Else
+            Me.Height = 500
+        End If
+    End Sub
+    Private Sub Reso_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.TopMost = True
+        Manager.Owner = Me
+        Me.StyleManager = Manager
+
+        Btn_Close.Image = Main.CloseImg
+
+        Try
+            Me.Icon = My.Resources.icon
+        Catch ex As Exception
+
+        End Try
+
+        Me.Location = New Point(CInt(Main.Location.X + Main.Width / 2 - Me.Width / 2), CInt(Main.Location.Y + Main.Height / 2 - Me.Height / 2))
+
+    End Sub
+
+    Public Sub ShowErrorDia(ByVal Details As String, ShortError As String, Optional ByVal IgnoreOption As Boolean = False)
+        Me.Show()
+        ErrorBox.Text = Details
+        ErrorLabel.Text = ShortError
+        If IgnoreOption = False Then
+            btn_ign.BackgroundImage = My.Resources.error_dis
+            btn_ign.Cursor = Cursors.No
+            btn_ign.Enabled = False
+        End If
+    End Sub
+
+    Private Sub btn_ok_Click(sender As Object, e As EventArgs) Handles btn_ok.Click
+        Me.Close()
+    End Sub
+
+
+    Private Sub Btn_ok_MouseEnter(sender As Object, e As EventArgs) Handles btn_ok.MouseEnter
+        btn_ok.BackgroundImage = My.Resources.ffmpeg_OK_cL_hover
+    End Sub
+
+    Private Sub Btn_ok_MouseLeave(sender As Object, e As EventArgs) Handles btn_ok.MouseLeave
+        btn_ok.BackgroundImage = My.Resources.ffmpeg_OK_cL
+    End Sub
+
+    Private Sub Btn_cl_MouseEnter(sender As Object, e As EventArgs) Handles btn_cl.MouseEnter
+        btn_cl.BackgroundImage = My.Resources.ffmpeg_OK_cL_hover
+    End Sub
+
+    Private Sub Btn_cl_MouseLeave(sender As Object, e As EventArgs) Handles btn_cl.MouseLeave
+        btn_cl.BackgroundImage = My.Resources.ffmpeg_OK_cL
+    End Sub
+    Private Sub Btn_ign_MouseEnter(sender As Object, e As EventArgs) Handles btn_ign.MouseEnter
+        btn_ign.BackgroundImage = My.Resources.ffmpeg_OK_cL_hover
+    End Sub
+
+    Private Sub Btn_ign_MouseLeave(sender As Object, e As EventArgs) Handles btn_ign.MouseLeave
+        btn_ign.BackgroundImage = My.Resources.ffmpeg_OK_cL
+    End Sub
+
+    Private Sub btn_ign_Click(sender As Object, e As EventArgs) Handles btn_ign.Click
+        Main.IgnoreErrorDia = True
+        Me.Close()
+    End Sub
+End Class

Crunchyroll Downloader/GetData.vb

@@ -80,8 +80,8 @@ Module GetData
         Dim cmd As String = ""
         If Main.Curl_insecure = True Then
             cmd = "--insecure "
-        End If
-        cmd = cmd + "--no-alpn -fsSLm 15 -A " + My.Settings.User_Agend.Replace("User-Agent: ", "") + Cookies + Auth + Post + " " + Chr(34) + Url + Chr(34)
+        End If '-fsSLm 
+        cmd = cmd + "--no-alpn -sSLm 15 -w " + Chr(34) + "\nHTTP Status: %{http_code}\n" + Chr(34) + " -A " + My.Settings.User_Agend.Replace("User-Agent: ", "") + Cookies + Auth + Post + " " + Chr(34) + Url + Chr(34)
         Dim Proc As New Process
         'Debug.WriteLine("CurlPost: " + cmd)
         Dim CurlOutput As String = Nothing
@@ -114,27 +114,26 @@ Module GetData
 
         Loop Until Proc.HasExited Or Microsoft.VisualBasic.DateAndTime.Timer < finish
 
-        If CBool(InStr(CurlOutput, "curl:")) = True And CBool(InStr(CurlOutput, "400")) = True Then
+        If CurlOutput = Nothing And CurlError = Nothing Then
+            Throw New System.Exception("Error - Getting" + Sender + vbNewLine + CurlError)
+            Return Nothing
+        ElseIf CBool(InStr(CurlOutput, "HTTP Status: 4")) Then
             Return CurlOutput
-        ElseIf CBool(InStr(CurlError, "curl:")) = True And CBool(InStr(CurlError, "400")) = True Then
+        ElseIf CBool(InStr(CurlError, "HTTP Status: 4")) Then
             Return CurlError
-        ElseIf CBool(InStr(CurlError, "curl:")) Then
-            Debug.WriteLine(CurlError)
-            Throw New System.Exception("Error - Getting" + Sender + vbNewLine + CurlError)
-            Return Nothing
-
-        ElseIf CBool(InStr(CurlOutput, "curl:")) Then
-            Debug.WriteLine(CurlOutput)
-            Throw New System.Exception("Error - Getting" + Sender + vbNewLine + CurlError)
-            Return Nothing
+        ElseIf CurlError = Nothing Then
+            Dim OutputBody() As String = CurlOutput.Split(New String() {"HTTP Status:"}, System.StringSplitOptions.RemoveEmptyEntries)
+            Dim Output As String = OutputBody(0)
+            Return Output
         Else
-            Return CurlOutput
+            Return CurlError
         End If
 
+
     End Function
 
 
-    Public Function CurlAuthNew(ByVal Url As String, ByVal Cookies As String, ByVal Auth As String, Optional ByVal Test As Boolean = False) As String
+    Public Function CurlAuthNew(ByVal Url As String, ByVal Cookies As String, ByVal Auth As String, Optional ByVal Test As Boolean = False, Optional ByVal UserAgent As String = Chr(34) + "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:126.0) Gecko/20100101 Firefox/126.0" + Chr(34)) As String
         If Test = True Then
             Throw New System.Exception("Error - Getting" + vbNewLine + "Test")
 
@@ -153,7 +152,78 @@ Module GetData
         If Main.Curl_insecure = True Then
             cmd = "--insecure "
         End If
-        cmd = cmd + "--no-alpn -fsSLm 15 -A " + My.Settings.User_Agend.Replace("User-Agent: ", "") + Cookies + Auth + " " + Chr(34) + Url + Chr(34)
+        cmd = cmd + "--no-alpn -sSLm 15 -w " + Chr(34) + "\nHTTP Status: %{http_code}\n" + Chr(34) + " -A " + UserAgent + Cookies + Auth + " " + Chr(34) + Url + Chr(34)
+        Dim Proc As New Process
+        'MsgBox(cmd)
+        Dim CurlOutput As String = Nothing
+        Dim CurlError As String = Nothing
+        ' all parameters required to run the process
+        startinfo.FileName = exepath
+        startinfo.Arguments = cmd
+        startinfo.UseShellExecute = False
+        startinfo.WindowStyle = ProcessWindowStyle.Normal
+        startinfo.RedirectStandardError = True
+        startinfo.RedirectStandardOutput = True
+        startinfo.CreateNoWindow = True
+        startinfo.StandardOutputEncoding = Encoding.UTF8
+        startinfo.StandardErrorEncoding = Encoding.UTF8
+        Proc.StartInfo = startinfo
+        Proc.Start() ' start the process
+        sr = Proc.StandardOutput 'standard error is used by ffmpeg
+        sr2 = Proc.StandardError
+        'sw = proc.StandardInput
+
+        Dim start, finish, pau As Double
+        start = CSng(Microsoft.VisualBasic.DateAndTime.Timer)
+        pau = 5
+        finish = start + pau
+
+        Do
+            CurlOutput = CurlOutput + sr.ReadToEnd
+            CurlError = CurlError + sr2.ReadToEnd
+            'ffmpegOutput2 = sr.ReadLine
+            'Debug.WriteLine(CurlOutput)
+
+        Loop Until Proc.HasExited Or Microsoft.VisualBasic.DateAndTime.Timer < finish
+
+
+        If CBool(InStr(CurlError, "HTTP Status: 420")) Then
+            Return CurlError
+        ElseIf CBool(InStr(CurlOutput, "HTTP Status: 420")) Then
+            Return CurlOutput
+        ElseIf CBool(InStr(CurlError, "HTTP Status: 4")) Then
+            Debug.WriteLine(CurlError)
+            Throw New System.Exception("Error - Getting" + vbNewLine + CurlError)
+            Return Nothing
+        ElseIf CBool(InStr(CurlOutput, "HTTP Status: 4")) Then
+            Debug.WriteLine(CurlOutput)
+            Throw New System.Exception("Error - Getting" + vbNewLine + CurlOutput)
+            Return Nothing
+        Else
+            Dim OutputBody() As String = CurlOutput.Split(New String() {"HTTP Status:"}, System.StringSplitOptions.RemoveEmptyEntries)
+            Dim Output As String = OutputBody(0)
+            Return Output
+        End If
+
+    End Function
+
+    Public Function CurlDeleteNew(ByVal Url As String, ByVal Auth As String, Optional ByVal UserAgent As String = Chr(34) + "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:126.0) Gecko/20100101 Firefox/126.0" + Chr(34)) As String
+
+
+
+        Dim exepath As String = Path.Combine(Application.StartupPath, "lib", "curl.exe")
+
+        Dim startinfo As New System.Diagnostics.ProcessStartInfo
+        Dim sr As StreamReader
+        Dim sr2 As StreamReader
+
+
+
+        Dim cmd As String = ""
+        If Main.Curl_insecure = True Then
+            cmd = "--insecure "
+        End If
+        cmd = cmd + "--no-alpn -sSLm 15 -w " + Chr(34) + "\nHTTP Status: %{http_code}\n" + Chr(34) + " -A " + UserAgent + Auth + " -X DELETE " + Chr(34) + Url + Chr(34)
         Dim Proc As New Process
         'MsgBox(cmd)
         Dim CurlOutput As String = Nothing
@@ -189,13 +259,13 @@ Module GetData
 
 
 
-        If CBool(InStr(CurlError, "curl:")) Then
+        If CBool(InStr(CurlError, "HTTP Status: 4")) Then
             Debug.WriteLine(CurlError)
             Throw New System.Exception("Error - Getting" + vbNewLine + CurlError)
             Return Nothing
-        ElseIf CBool(InStr(CurlOutput, "curl:")) Then
+        ElseIf CBool(InStr(CurlOutput, "HTTP Status: 4")) Then
             Debug.WriteLine(CurlOutput)
-            Throw New System.Exception("Error - Getting" + vbNewLine + CurlError)
+            Throw New System.Exception("Error - Getting" + vbNewLine + CurlOutput)
             Return Nothing
         Else
             Return CurlOutput
@@ -204,8 +274,6 @@ Module GetData
     End Function
 
 
-
-
 #End Region
 
 

Crunchyroll Downloader/LoginForm.Designer.vb

@@ -0,0 +1,195 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class LoginForm
+    Inherits MetroFramework.Forms.MetroForm
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    '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()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.Btn_Save = New System.Windows.Forms.Button()
+        Me.Save = New MetroFramework.Controls.MetroCheckBox()
+        Me.IssueLink = New MetroFramework.Controls.MetroLink()
+        Me.PW = New MetroFramework.Controls.MetroTextBox()
+        Me.Mail = New MetroFramework.Controls.MetroTextBox()
+        Me.StatusLabel = New MetroFramework.Controls.MetroLabel()
+        Me.Delay = New System.Windows.Forms.Timer(Me.components)
+        Me.GroupBox3.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'GroupBox3
+        '
+        Me.GroupBox3.BackColor = System.Drawing.Color.Transparent
+        Me.GroupBox3.Controls.Add(Me.Btn_Save)
+        Me.GroupBox3.Controls.Add(Me.Save)
+        Me.GroupBox3.Controls.Add(Me.IssueLink)
+        Me.GroupBox3.Controls.Add(Me.PW)
+        Me.GroupBox3.Controls.Add(Me.Mail)
+        Me.GroupBox3.Controls.Add(Me.StatusLabel)
+        Me.GroupBox3.Location = New System.Drawing.Point(13, 60)
+        Me.GroupBox3.Name = "GroupBox3"
+        Me.GroupBox3.Size = New System.Drawing.Size(480, 308)
+        Me.GroupBox3.TabIndex = 38
+        Me.GroupBox3.TabStop = False
+        '
+        'Btn_Save
+        '
+        Me.Btn_Save.BackColor = System.Drawing.Color.Transparent
+        Me.Btn_Save.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Btn_Save.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.Btn_Save.FlatAppearance.BorderSize = 0
+        Me.Btn_Save.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Transparent
+        Me.Btn_Save.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Btn_Save.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Submit
+        Me.Btn_Save.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Btn_Save.Location = New System.Drawing.Point(165, 246)
+        Me.Btn_Save.Name = "Btn_Save"
+        Me.Btn_Save.Size = New System.Drawing.Size(150, 40)
+        Me.Btn_Save.TabIndex = 3
+        Me.Btn_Save.UseVisualStyleBackColor = False
+        '
+        'Save
+        '
+        Me.Save.AutoSize = True
+        Me.Save.FontSize = MetroFramework.MetroCheckBoxSize.Medium
+        Me.Save.Location = New System.Drawing.Point(177, 203)
+        Me.Save.Name = "Save"
+        Me.Save.Size = New System.Drawing.Size(129, 19)
+        Me.Save.TabIndex = 2
+        Me.Save.Text = "Remember Login"
+        Me.Save.UseSelectable = True
+        '
+        'IssueLink
+        '
+        Me.IssueLink.FontSize = MetroFramework.MetroLinkSize.Medium
+        Me.IssueLink.Location = New System.Drawing.Point(166, 72)
+        Me.IssueLink.Name = "IssueLink"
+        Me.IssueLink.Size = New System.Drawing.Size(149, 23)
+        Me.IssueLink.TabIndex = 41
+        Me.IssueLink.Text = "See here: Github"
+        Me.IssueLink.UseSelectable = True
+        '
+        'PW
+        '
+        '
+        '
+        '
+        Me.PW.CustomButton.Image = Nothing
+        Me.PW.CustomButton.Location = New System.Drawing.Point(138, 1)
+        Me.PW.CustomButton.Name = ""
+        Me.PW.CustomButton.Size = New System.Drawing.Size(21, 21)
+        Me.PW.CustomButton.Style = MetroFramework.MetroColorStyle.Blue
+        Me.PW.CustomButton.TabIndex = 1
+        Me.PW.CustomButton.Theme = MetroFramework.MetroThemeStyle.Light
+        Me.PW.CustomButton.UseSelectable = True
+        Me.PW.CustomButton.Visible = False
+        Me.PW.FontSize = MetroFramework.MetroTextBoxSize.Medium
+        Me.PW.Lines = New String() {"Password"}
+        Me.PW.Location = New System.Drawing.Point(165, 140)
+        Me.PW.MaxLength = 32767
+        Me.PW.Name = "PW"
+        Me.PW.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
+        Me.PW.ScrollBars = System.Windows.Forms.ScrollBars.None
+        Me.PW.SelectedText = ""
+        Me.PW.SelectionLength = 0
+        Me.PW.SelectionStart = 0
+        Me.PW.ShortcutsEnabled = True
+        Me.PW.Size = New System.Drawing.Size(160, 23)
+        Me.PW.TabIndex = 1
+        Me.PW.Text = "Password"
+        Me.PW.UseSelectable = True
+        Me.PW.WaterMarkColor = System.Drawing.Color.FromArgb(CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer))
+        Me.PW.WaterMarkFont = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Pixel)
+        '
+        'Mail
+        '
+        '
+        '
+        '
+        Me.Mail.CustomButton.Image = Nothing
+        Me.Mail.CustomButton.Location = New System.Drawing.Point(138, 1)
+        Me.Mail.CustomButton.Name = ""
+        Me.Mail.CustomButton.Size = New System.Drawing.Size(21, 21)
+        Me.Mail.CustomButton.Style = MetroFramework.MetroColorStyle.Blue
+        Me.Mail.CustomButton.TabIndex = 1
+        Me.Mail.CustomButton.Theme = MetroFramework.MetroThemeStyle.Light
+        Me.Mail.CustomButton.UseSelectable = True
+        Me.Mail.CustomButton.Visible = False
+        Me.Mail.FontSize = MetroFramework.MetroTextBoxSize.Medium
+        Me.Mail.Lines = New String() {"E-Mail"}
+        Me.Mail.Location = New System.Drawing.Point(165, 101)
+        Me.Mail.MaxLength = 32767
+        Me.Mail.Name = "Mail"
+        Me.Mail.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
+        Me.Mail.ScrollBars = System.Windows.Forms.ScrollBars.None
+        Me.Mail.SelectedText = ""
+        Me.Mail.SelectionLength = 0
+        Me.Mail.SelectionStart = 0
+        Me.Mail.ShortcutsEnabled = True
+        Me.Mail.Size = New System.Drawing.Size(160, 23)
+        Me.Mail.TabIndex = 0
+        Me.Mail.Text = "E-Mail"
+        Me.Mail.UseSelectable = True
+        Me.Mail.WaterMarkColor = System.Drawing.Color.FromArgb(CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer))
+        Me.Mail.WaterMarkFont = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Pixel)
+        '
+        'StatusLabel
+        '
+        Me.StatusLabel.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            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.FontSize = MetroFramework.MetroLabelSize.Tall
+        Me.StatusLabel.FontWeight = MetroFramework.MetroLabelWeight.Regular
+        Me.StatusLabel.ForeColor = System.Drawing.Color.Black
+        Me.StatusLabel.Location = New System.Drawing.Point(6, 16)
+        Me.StatusLabel.Name = "StatusLabel"
+        Me.StatusLabel.Size = New System.Drawing.Size(468, 53)
+        Me.StatusLabel.TabIndex = 34
+        Me.StatusLabel.Text = "For the changed switch API i need the direct login now"
+        Me.StatusLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Delay
+        '
+        Me.Delay.Interval = 2000
+        '
+        'LoginForm
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(507, 379)
+        Me.Controls.Add(Me.GroupBox3)
+        Me.Name = "LoginForm"
+        Me.Text = "CRD-Login"
+        Me.TextAlign = MetroFramework.Forms.MetroFormTextAlign.Center
+        Me.GroupBox3.ResumeLayout(False)
+        Me.GroupBox3.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Private WithEvents GroupBox3 As GroupBox
+    Public WithEvents StatusLabel As MetroFramework.Controls.MetroLabel
+    Friend WithEvents Delay As Timer
+    Friend WithEvents PW As MetroFramework.Controls.MetroTextBox
+    Friend WithEvents Mail As MetroFramework.Controls.MetroTextBox
+    Friend WithEvents IssueLink As MetroFramework.Controls.MetroLink
+    Friend WithEvents Save As MetroFramework.Controls.MetroCheckBox
+    Friend WithEvents Btn_Save As Button
+End Class

Crunchyroll Downloader/LoginForm.resx

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="Delay.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

Crunchyroll Downloader/LoginForm.vb

@@ -0,0 +1,78 @@
+Option Strict On
+Imports Crunchyroll_Downloader.CRD_Classes
+Imports MetroFramework.Components
+
+Public Class LoginForm
+
+    Dim Manager As MetroStyleManager = Main.Manager
+
+
+    Private Sub Reso_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        'Me.TopMost = True
+        Manager.Owner = Me
+        Me.StyleManager = Manager
+
+
+        Me.StartPosition = 0
+        Try
+            Me.Icon = My.Resources.icon
+        Catch ex As Exception
+
+        End Try
+
+        Me.Location = New Point(CInt(Main.Location.X + Main.Width / 2 - Me.Width / 2), CInt(Main.Location.Y + Main.Height / 2 - Me.Height / 2))
+        'MsgBox(CInt(Main.Location.X + Main.Width / 2 - Me.Width / 2).ToString)
+
+        If My.Settings.Mail = "na" Then
+        Else
+            Mail.Text = My.Settings.Mail
+            Save.Checked = True
+        End If
+        If My.Settings.PW = "na" Then
+        Else
+            PW.Text = My.Settings.PW
+            'PW.UseSystemPasswordChar = False
+            PW.PasswordChar = Nothing
+        End If
+    End Sub
+
+    Private Sub Btn_Save_Click(sender As Object, e As EventArgs) Handles Btn_Save.Click
+        If PW.Text = "Password" Or Mail.Text = "E-Mail" Then
+            MsgBox("Invalid Input", MsgBoxStyle.Information)
+            Exit Sub
+        ElseIf Save.Checked = True Then
+            My.Settings.Mail = Mail.Text
+            My.Settings.PW = PW.Text
+        End If
+        Main.PW = PW.Text
+        Main.Mail = Mail.Text
+        Me.Close()
+    End Sub
+
+    Private Sub Submit_MouseEnter(sender As Object, e As EventArgs) Handles Btn_Save.MouseEnter
+        Btn_Save.Image = My.Resources.DialogNotFound_Submit_hover
+    End Sub
+
+    Private Sub Submit_MouseLeave(sender As Object, e As EventArgs) Handles Btn_Save.MouseLeave
+        Btn_Save.Image = My.Resources.DialogNotFound_Submit
+    End Sub
+
+
+    Private Sub MetroLink1_Click(sender As Object, e As EventArgs) Handles IssueLink.Click
+        Process.Start("https://github.com/hama3254/Crunchyroll-Downloader-v3.0/issues/938#issuecomment-2067383212")
+    End Sub
+
+    Private Sub PW_Click(sender As Object, e As EventArgs) Handles PW.Click
+        If PW.Text = "Password" Then
+            PW.Text = Nothing
+        End If
+    End Sub
+
+    Private Sub Mail_Click(sender As Object, e As EventArgs) Handles Mail.Click
+        If Mail.Text = "E-Mail" Then
+            Mail.Text = Nothing
+        End If
+    End Sub
+
+
+End Class

Crunchyroll Downloader/Main.designer.vb

@@ -34,16 +34,13 @@ Partial Class Main
         Me.MetroStyleManager1 = New MetroFramework.Components.MetroStyleManager(Me.components)
         Me.Timer4 = New System.Windows.Forms.Timer(Me.components)
         Me.Btn_add = New System.Windows.Forms.Button()
-        Me.Btn_Browser = New System.Windows.Forms.Button()
         Me.Btn_Settings = New System.Windows.Forms.Button()
         Me.Btn_min = New System.Windows.Forms.Button()
         Me.Btn_Close = New System.Windows.Forms.Button()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.QueueToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.SaveModeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.SaveThumbnailAsImageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToggleDebugModeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.Funimation_Token = New System.Windows.Forms.ToolStripMenuItem()
         Me.CheckCRBetaTokenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Timer3OffToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ThreadCount = New System.Windows.Forms.ToolStripMenuItem()
@@ -51,8 +48,11 @@ Partial Class Main
         Me.UrlJsonsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.DummyItemToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.AudioOnlyQualityToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.LoginFormToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ErrorDiaTestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.Btn_Queue = New System.Windows.Forms.Button()
+        Me.BGW_Update = New System.ComponentModel.BackgroundWorker()
         CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.ConsoleBar, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -113,17 +113,6 @@ Partial Class Main
         Me.Btn_add.Name = "Btn_add"
         Me.Btn_add.UseVisualStyleBackColor = False
         '
-        'Btn_Browser
-        '
-        Me.Btn_Browser.BackColor = System.Drawing.Color.Transparent
-        resources.ApplyResources(Me.Btn_Browser, "Btn_Browser")
-        Me.Btn_Browser.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.Btn_Browser.FlatAppearance.BorderSize = 0
-        Me.Btn_Browser.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Transparent
-        Me.Btn_Browser.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_browser
-        Me.Btn_Browser.Name = "Btn_Browser"
-        Me.Btn_Browser.UseVisualStyleBackColor = False
-        '
         'Btn_Settings
         '
         Me.Btn_Settings.BackColor = System.Drawing.Color.Transparent
@@ -161,7 +150,7 @@ Partial Class Main
         '
         'ContextMenuStrip1
         '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.QueueToolStripMenuItem, Me.SaveModeToolStripMenuItem, Me.SaveThumbnailAsImageToolStripMenuItem, Me.ToggleDebugModeToolStripMenuItem, Me.Funimation_Token, Me.CheckCRBetaTokenToolStripMenuItem, Me.Timer3OffToolStripMenuItem, Me.ThreadCount, Me.CRCookieToolStripMenuItem, Me.UrlJsonsToolStripMenuItem, Me.DummyItemToolStripMenuItem, Me.AudioOnlyQualityToolStripMenuItem})
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.QueueToolStripMenuItem, Me.SaveThumbnailAsImageToolStripMenuItem, Me.ToggleDebugModeToolStripMenuItem, Me.CheckCRBetaTokenToolStripMenuItem, Me.Timer3OffToolStripMenuItem, Me.ThreadCount, Me.CRCookieToolStripMenuItem, Me.UrlJsonsToolStripMenuItem, Me.DummyItemToolStripMenuItem, Me.AudioOnlyQualityToolStripMenuItem, Me.LoginFormToolStripMenuItem, Me.ErrorDiaTestToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
         resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
         '
@@ -170,11 +159,6 @@ Partial Class Main
         Me.QueueToolStripMenuItem.Name = "QueueToolStripMenuItem"
         resources.ApplyResources(Me.QueueToolStripMenuItem, "QueueToolStripMenuItem")
         '
-        'SaveModeToolStripMenuItem
-        '
-        Me.SaveModeToolStripMenuItem.Name = "SaveModeToolStripMenuItem"
-        resources.ApplyResources(Me.SaveModeToolStripMenuItem, "SaveModeToolStripMenuItem")
-        '
         'SaveThumbnailAsImageToolStripMenuItem
         '
         Me.SaveThumbnailAsImageToolStripMenuItem.Name = "SaveThumbnailAsImageToolStripMenuItem"
@@ -185,11 +169,6 @@ Partial Class Main
         Me.ToggleDebugModeToolStripMenuItem.Name = "ToggleDebugModeToolStripMenuItem"
         resources.ApplyResources(Me.ToggleDebugModeToolStripMenuItem, "ToggleDebugModeToolStripMenuItem")
         '
-        'Funimation_Token
-        '
-        Me.Funimation_Token.Name = "Funimation_Token"
-        resources.ApplyResources(Me.Funimation_Token, "Funimation_Token")
-        '
         'CheckCRBetaTokenToolStripMenuItem
         '
         Me.CheckCRBetaTokenToolStripMenuItem.Name = "CheckCRBetaTokenToolStripMenuItem"
@@ -225,6 +204,16 @@ Partial Class Main
         Me.AudioOnlyQualityToolStripMenuItem.Name = "AudioOnlyQualityToolStripMenuItem"
         resources.ApplyResources(Me.AudioOnlyQualityToolStripMenuItem, "AudioOnlyQualityToolStripMenuItem")
         '
+        'LoginFormToolStripMenuItem
+        '
+        Me.LoginFormToolStripMenuItem.Name = "LoginFormToolStripMenuItem"
+        resources.ApplyResources(Me.LoginFormToolStripMenuItem, "LoginFormToolStripMenuItem")
+        '
+        'ErrorDiaTestToolStripMenuItem
+        '
+        Me.ErrorDiaTestToolStripMenuItem.Name = "ErrorDiaTestToolStripMenuItem"
+        resources.ApplyResources(Me.ErrorDiaTestToolStripMenuItem, "ErrorDiaTestToolStripMenuItem")
+        '
         'Panel1
         '
         resources.ApplyResources(Me.Panel1, "Panel1")
@@ -241,6 +230,9 @@ Partial Class Main
         Me.Btn_Queue.Name = "Btn_Queue"
         Me.Btn_Queue.UseVisualStyleBackColor = False
         '
+        'BGW_Update
+        '
+        '
         'Main
         '
         Me.ApplyImageInvert = True
@@ -252,7 +244,6 @@ Partial Class Main
         Me.Controls.Add(Me.Btn_Close)
         Me.Controls.Add(Me.Btn_min)
         Me.Controls.Add(Me.Btn_Settings)
-        Me.Controls.Add(Me.Btn_Browser)
         Me.Controls.Add(Me.Btn_add)
         Me.Controls.Add(Me.TheTextBox)
         Me.Controls.Add(Me.ConsoleBar)
@@ -281,13 +272,11 @@ Partial Class Main
     Friend WithEvents MetroStyleManager1 As MetroFramework.Components.MetroStyleManager
     Friend WithEvents Timer4 As Timer
     Friend WithEvents Btn_add As Button
-    Friend WithEvents Btn_Browser As Button
     Friend WithEvents Btn_Settings As Button
     Friend WithEvents Btn_min As Button
     Friend WithEvents Btn_Close As Button
     Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
     Friend WithEvents ToggleDebugModeToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents Funimation_Token As ToolStripMenuItem
     Friend WithEvents CheckCRBetaTokenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents Timer3OffToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ThreadCount As ToolStripMenuItem
@@ -298,6 +287,8 @@ Partial Class Main
     Friend WithEvents QueueToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents Btn_Queue As Button
     Friend WithEvents SaveThumbnailAsImageToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents SaveModeToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents AudioOnlyQualityToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents LoginFormToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ErrorDiaTestToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents BGW_Update As System.ComponentModel.BackgroundWorker
 End Class

Crunchyroll Downloader/Main.resx

@@ -148,7 +148,7 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;PictureBox5.ZOrder" xml:space="preserve">
-    <value>10</value>
+    <value>9</value>
   </data>
   <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>383, 18</value>
@@ -187,7 +187,7 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;TheTextBox.ZOrder" xml:space="preserve">
-    <value>8</value>
+    <value>7</value>
   </data>
   <data name="ConsoleBar.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
     <value>Stretch</value>
@@ -214,7 +214,7 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;ConsoleBar.ZOrder" xml:space="preserve">
-    <value>9</value>
+    <value>8</value>
   </data>
   <metadata name="MetroStyleExtender1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
@@ -241,7 +241,7 @@
     <value>NoControl</value>
   </data>
   <data name="Btn_Queue.Location" type="System.Drawing.Point, System.Drawing">
-    <value>575, 18</value>
+    <value>150, 18</value>
   </data>
   <data name="Btn_Queue.Size" type="System.Drawing.Size, System.Drawing">
     <value>80, 35</value>
@@ -378,33 +378,6 @@
   <data name="&gt;&gt;Btn_Settings.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>140, 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>6</value>
-  </data>
   <data name="Btn_add.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
     <value>Zoom</value>
   </data>
@@ -433,7 +406,7 @@
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Btn_add.ZOrder" xml:space="preserve">
-    <value>7</value>
+    <value>6</value>
   </data>
   <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
     <value>Microsoft Sans Serif, 8.25pt</value>
@@ -489,12 +462,6 @@
   <data name="&gt;&gt;QueueToolStripMenuItem.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;SaveModeToolStripMenuItem.Name" xml:space="preserve">
-    <value>SaveModeToolStripMenuItem</value>
-  </data>
-  <data name="&gt;&gt;SaveModeToolStripMenuItem.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;SaveThumbnailAsImageToolStripMenuItem.Name" xml:space="preserve">
     <value>SaveThumbnailAsImageToolStripMenuItem</value>
   </data>
@@ -507,12 +474,6 @@
   <data name="&gt;&gt;ToggleDebugModeToolStripMenuItem.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;Funimation_Token.Name" xml:space="preserve">
-    <value>Funimation_Token</value>
-  </data>
-  <data name="&gt;&gt;Funimation_Token.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;CheckCRBetaTokenToolStripMenuItem.Name" xml:space="preserve">
     <value>CheckCRBetaTokenToolStripMenuItem</value>
   </data>
@@ -555,6 +516,24 @@
   <data name="&gt;&gt;AudioOnlyQualityToolStripMenuItem.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;LoginFormToolStripMenuItem.Name" xml:space="preserve">
+    <value>LoginFormToolStripMenuItem</value>
+  </data>
+  <data name="&gt;&gt;LoginFormToolStripMenuItem.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;ErrorDiaTestToolStripMenuItem.Name" xml:space="preserve">
+    <value>ErrorDiaTestToolStripMenuItem</value>
+  </data>
+  <data name="&gt;&gt;ErrorDiaTestToolStripMenuItem.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;BGW_Update.Name" xml:space="preserve">
+    <value>BGW_Update</value>
+  </data>
+  <data name="&gt;&gt;BGW_Update.Type" xml:space="preserve">
+    <value>System.ComponentModel.BackgroundWorker, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>Main</value>
   </data>
@@ -573,12 +552,6 @@
   <data name="QueueToolStripMenuItem.Text" xml:space="preserve">
     <value>ffmpeg option</value>
   </data>
-  <data name="SaveModeToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>233, 22</value>
-  </data>
-  <data name="SaveModeToolStripMenuItem.Text" xml:space="preserve">
-    <value>*Save Mode*</value>
-  </data>
   <data name="SaveThumbnailAsImageToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
     <value>233, 22</value>
   </data>
@@ -591,12 +564,6 @@
   <data name="ToggleDebugModeToolStripMenuItem.Text" xml:space="preserve">
     <value>Toggle Debug Mode</value>
   </data>
-  <data name="Funimation_Token.Size" type="System.Drawing.Size, System.Drawing">
-    <value>233, 22</value>
-  </data>
-  <data name="Funimation_Token.Text" xml:space="preserve">
-    <value>Check Funimation Token</value>
-  </data>
   <data name="CheckCRBetaTokenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
     <value>233, 22</value>
   </data>
@@ -639,6 +606,18 @@
   <data name="AudioOnlyQualityToolStripMenuItem.Text" xml:space="preserve">
     <value>audio only Quality</value>
   </data>
+  <data name="LoginFormToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>233, 22</value>
+  </data>
+  <data name="LoginFormToolStripMenuItem.Text" xml:space="preserve">
+    <value>Login Form</value>
+  </data>
+  <data name="ErrorDiaTestToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>233, 22</value>
+  </data>
+  <data name="ErrorDiaTestToolStripMenuItem.Text" xml:space="preserve">
+    <value>ErrorDiaTest</value>
+  </data>
   <data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
     <value>234, 268</value>
   </data>
@@ -648,4 +627,7 @@
   <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>
+  <metadata name="BGW_Update.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>509, 49</value>
+  </metadata>
 </root>

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.19")>
-<Assembly: AssemblyFileVersion("3.19")>
+<Assembly: AssemblyVersion("3.23.7")>
+<Assembly: AssemblyFileVersion("3.23.7")>
 <Assembly: NeutralResourcesLanguage("en")>

Crunchyroll Downloader/My Project/Resources.Designer.vb

@@ -90,60 +90,6 @@ Namespace My.Resources
             End Get
         End Property
         
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die {&quot;sources&quot;:[{&quot;file&quot;:&quot; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property AoD_files() As String
-            Get
-                Return ResourceManager.GetString("AoD_files", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &lt;h1 itemprop=&quot;name&quot;&gt; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property AoD_HTML_Anime_Title() As String
-            Get
-                Return ResourceManager.GetString("AoD_HTML_Anime_Title", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &lt;h3 class=&quot;episodebox-title&quot; title=&quot; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property AoD_HTML_Episode_Title() As String
-            Get
-                Return ResourceManager.GetString("AoD_HTML_Episode_Title", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &quot;image&quot;:&quot; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property AoD_Image() As String
-            Get
-                Return ResourceManager.GetString("AoD_Image", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &quot;mediaid&quot;: ähnelt.
-        '''</summary>
-        Friend ReadOnly Property AoD_MediaID() As String
-            Get
-                Return ResourceManager.GetString("AoD_MediaID", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &quot;title&quot;:&quot; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property AoD_Titel() As String
-            Get
-                Return ResourceManager.GetString("AoD_Titel", resourceCulture)
-            End Get
-        End Property
-        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die [Script Info]
         '''; Template for error handling in the Crunchyrol Downloader by hama3254 https://github.com/hama3254/Crunchyroll-Downloader-v3.0
@@ -187,78 +133,6 @@ Namespace My.Resources
             End Get
         End Property
         
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &lt;img id=&quot;footer_country_flag&quot; src=&quot;https://www.crunchyroll.com/i/country_flags/ ähnelt.
-        '''</summary>
-        Friend ReadOnly Property CC_String() As String
-            Get
-                Return ResourceManager.GetString("CC_String", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die display_episode_number&quot;:&quot; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property CR_Episode_Nr() As String
-            Get
-                Return ResourceManager.GetString("CR_Episode_Nr", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &lt;meta property=&quot;og:url&quot; content=&quot; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property CR_Head_Url_Split() As String
-            Get
-                Return ResourceManager.GetString("CR_Head_Url_Split", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &lt;h4 id=&quot;showmedia_about_name&quot; class=&quot;strong&quot;&gt;“ ähnelt.
-        '''</summary>
-        Friend ReadOnly Property CR_MediaName() As String
-            Get
-                Return ResourceManager.GetString("CR_MediaName", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die ”&lt;/h4&gt; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property CR_MediaName2() As String
-            Get
-                Return ResourceManager.GetString("CR_MediaName2", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &lt;/span&gt; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property CR_MovieBT() As String
-            Get
-                Return ResourceManager.GetString("CR_MovieBT", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &lt;span itemprop=&quot;name&quot;&gt; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property CR_MovieTop() As String
-            Get
-                Return ResourceManager.GetString("CR_MovieTop", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die seasonNumber&quot;:&quot; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property CR_Season_Nr() As String
-            Get
-                Return ResourceManager.GetString("CR_Season_Nr", resourceCulture)
-            End Get
-        End Property
-        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -336,6 +210,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property error_dis() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("error_dis", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die ;FFMETADATA1
         '''
@@ -396,114 +280,6 @@ Namespace My.Resources
             End Get
         End Property
         
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die src=&quot;/player/ ähnelt.
-        '''</summary>
-        Friend ReadOnly Property Funimation_Player_ID() As String
-            Get
-                Return ResourceManager.GetString("Funimation_Player_ID", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die src=&quot;https://www.funimation.com/player/ ähnelt.
-        '''</summary>
-        Friend ReadOnly Property Funimation_Player_ID_2() As String
-            Get
-                Return ResourceManager.GetString("Funimation_Player_ID_2", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &lt;a class=&quot;trackVideo ng-binding&quot; href=&quot; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property Funimation_Split_1() As String
-            Get
-                Return ResourceManager.GetString("Funimation_Split_1", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &quot;&gt; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property Funimation_Split_2() As String
-            Get
-                Return ResourceManager.GetString("Funimation_Split_2", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &quot;src&quot;: ähnelt.
-        '''</summary>
-        Friend ReadOnly Property Funimation_src_string() As String
-            Get
-                Return ResourceManager.GetString("Funimation_src_string", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die {&quot;src&quot;: &quot; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property Funimation_subs_src() As String
-            Get
-                Return ResourceManager.GetString("Funimation_subs_src", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &quot;, &quot;kind&quot;: &quot;subtitle&quot;, &quot;type&quot;: &quot;CC&quot;, &quot;language&quot;: &quot; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property Funimation_Subtitle_String() As String
-            Get
-                Return ResourceManager.GetString("Funimation_Subtitle_String", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &quot;, &quot;kind&quot;: &quot;subtitle&quot;, &quot;type&quot;: &quot;Full&quot;, &quot;language&quot;: &quot; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property Funimation_Subtitle_String2() As String
-            Get
-                Return ResourceManager.GetString("Funimation_Subtitle_String2", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &quot;, &quot;kind&quot;: &quot;subtitle&quot;, &quot;type&quot;: &quot;full&quot;, &quot;language&quot;: &quot; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property Funimation_Subtitle_String3() As String
-            Get
-                Return ResourceManager.GetString("Funimation_Subtitle_String3", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &lt;meta property=&quot;og:image&quot; content=&quot; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property Funimation_thumbnail() As String
-            Get
-                Return ResourceManager.GetString("Funimation_thumbnail", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &quot;,&quot;resolution&quot;:&quot;adaptive&quot; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property hls_endString() As String
-            Get
-                Return ResourceManager.GetString("hls_endString", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &quot;format&quot;:&quot;adaptive_hls&quot;, ähnelt.
-        '''</summary>
-        Friend ReadOnly Property hls_Value() As String
-            Get
-                Return ResourceManager.GetString("hls_Value", resourceCulture)
-            End Get
-        End Property
-        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die &lt;script&gt;
         '''
@@ -657,15 +433,6 @@ Namespace My.Resources
             End Get
         End Property
         
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die &quot;error&quot;:false,&quot;code&quot;:&quot;ok&quot; ähnelt.
-        '''</summary>
-        Friend ReadOnly Property LoginSuccess() As String
-            Get
-                Return ResourceManager.GetString("LoginSuccess", resourceCulture)
-            End Get
-        End Property
-        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -1037,15 +804,5 @@ Namespace My.Resources
                 Return ResourceManager.GetString("thumbnailString", resourceCulture)
             End Get
         End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die US cookies can&apos;t be used as long you are logged in.
-        '''I delete the curremt session with the unlock, if you want to be logged in with the US cookie you need to enter you data on the left. ähnelt.
-        '''</summary>
-        Friend ReadOnly Property US_ToolTip() As String
-            Get
-                Return ResourceManager.GetString("US_ToolTip", resourceCulture)
-            End Get
-        End Property
     End Module
 End Namespace

Crunchyroll Downloader/My Project/Resources.resx

@@ -130,27 +130,15 @@
   <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="Funimation_Split_2" xml:space="preserve">
-    <value>"&gt;</value>
-  </data>
   <data name="main_background" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\main-background.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Funimation_Split_1" xml:space="preserve">
-    <value>&lt;a class="trackVideo ng-binding" href="</value>
-  </data>
   <data name="add_mass_cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\add_mass_cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="about_icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\about_icon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="AoD_Titel" xml:space="preserve">
-    <value>"title":"</value>
-  </data>
-  <data name="Funimation_Subtitle_String2" xml:space="preserve">
-    <value>", "kind": "subtitle", "type": "Full", "language": "</value>
-  </data>
   <data name="htmlTitlel" xml:space="preserve">
     <value>&lt;a class="main_titel"&gt;Placeholder&lt;/a&gt;
 &lt;img alt="image error" src="balken.png" class="class-balken"&gt;</value>
@@ -166,9 +154,6 @@
 &lt;address&gt;Server at Crunchyroll Downloader Port 8080&lt;/address&gt;
 &lt;/body&gt;&lt;/html&gt;</value>
   </data>
-  <data name="Funimation_Player_ID" xml:space="preserve">
-    <value>src="/player/</value>
-  </data>
   <data name="Post_error_Top" xml:space="preserve">
     <value>&lt;html&gt;
   &lt;head&gt;
@@ -219,15 +204,6 @@
   <data name="main_pause_play" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\main-pause-play.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="LoginSuccess" xml:space="preserve">
-    <value>"error":false,"code":"ok"</value>
-  </data>
-  <data name="AoD_Image" xml:space="preserve">
-    <value>"image":"</value>
-  </data>
-  <data name="Funimation_Subtitle_String" xml:space="preserve">
-    <value>", "kind": "subtitle", "type": "CC", "language": "</value>
-  </data>
   <data name="htmlEnd" xml:space="preserve">
     <value>&lt;script&gt;
 
@@ -250,13 +226,6 @@ setInterval(function loadXMLDoc() {
       &lt;/div&gt;
     &lt;/body&gt;
 &lt;/html&gt;</value>
-  </data>
-  <data name="Funimation_src_string" xml:space="preserve">
-    <value>"src":</value>
-  </data>
-  <data name="US_ToolTip" xml:space="preserve">
-    <value>US cookies can't be used as long you are logged in.
-I delete the curremt session with the unlock, if you want to be logged in with the US cookie you need to enter you data on the left.</value>
   </data>
   <data name="ass_template" xml:space="preserve">
     <value>[Script Info]
@@ -281,12 +250,6 @@ Style: Default,Arial,20,&amp;H00FFFFFF,&amp;H0000FFFF,&amp;H00000000,&amp;H00000
 Format: Layer, Start, End, Style, Name, MarginL, MarginR, MarginV, Effect, Text
 Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how templated karaoke could work in auto4/lua</value>
   </data>
-  <data name="hls_endString" xml:space="preserve">
-    <value>","resolution":"adaptive"</value>
-  </data>
-  <data name="hls_Value" xml:space="preserve">
-    <value>"format":"adaptive_hls",</value>
-  </data>
   <data name="main_settings" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\main-settings.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -341,9 +304,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_hovert" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\main_button_download_hovert.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <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="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>
@@ -394,9 +354,6 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
   <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>
   </data>
-  <data name="Funimation_thumbnail" xml:space="preserve">
-    <value>&lt;meta property="og:image" content="</value>
-  </data>
   <data name="main_pause_play_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\main-pause-play-hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -411,12 +368,6 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
   <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>
-  <data name="AoD_files" xml:space="preserve">
-    <value>{"sources":[{"file":"</value>
-  </data>
-  <data name="CR_Head_Url_Split" xml:space="preserve">
-    <value>&lt;meta property="og:url" content="</value>
-  </data>
   <data name="htmlTop" xml:space="preserve">
     <value>&lt;!DOCTYPE html&gt;
 &lt;head&gt;
@@ -460,21 +411,6 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
   <data name="main_setting_invert" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\main-setting_invert.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Funimation_subs_src" xml:space="preserve">
-    <value>{"src": "</value>
-  </data>
-  <data name="AoD_HTML_Anime_Title" xml:space="preserve">
-    <value>&lt;h1 itemprop="name"&gt;</value>
-  </data>
-  <data name="AoD_HTML_Episode_Title" xml:space="preserve">
-    <value>&lt;h3 class="episodebox-title" title="</value>
-  </data>
-  <data name="CR_MediaName" xml:space="preserve">
-    <value>&lt;h4 id="showmedia_about_name" class="strong"&gt;“</value>
-  </data>
-  <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>
@@ -493,21 +429,6 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
   <data name="main_mini_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\main-mini_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="CR_Episode_Nr" xml:space="preserve">
-    <value>display_episode_number":"</value>
-  </data>
-  <data name="CR_Season_Nr" xml:space="preserve">
-    <value>seasonNumber":"</value>
-  </data>
-  <data name="Funimation_Subtitle_String3" xml:space="preserve">
-    <value>", "kind": "subtitle", "type": "full", "language": "</value>
-  </data>
-  <data name="Funimation_Player_ID_2" xml:space="preserve">
-    <value>src="https://www.funimation.com/player/</value>
-  </data>
-  <data name="AoD_MediaID" xml:space="preserve">
-    <value>"mediaid":</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>
@@ -520,12 +441,6 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
   <data name="main_mini_dark_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\main-mini_dark_hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="CR_MovieBT" xml:space="preserve">
-    <value>&lt;/span&gt;</value>
-  </data>
-  <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>
@@ -575,4 +490,7 @@ title=Ending</value>
   <data name="ffmpeg_OK_cL_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ffmpeg_OK_cL_hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="error_dis" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\error_dis.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>

Crunchyroll Downloader/My Project/Settings.Designer.vb

@@ -78,18 +78,6 @@ Namespace My
             End Set
         End Property
         
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("None")>  _
-        Public Property Fun_Sub() As String
-            Get
-                Return CType(Me("Fun_Sub"),String)
-            End Get
-            Set
-                Me("Fun_Sub") = value
-            End Set
-        End Property
-        
         <Global.System.Configuration.UserScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute(" -c copy -c:a copy -bsf:a aac_adtstoasc")>  _
@@ -114,42 +102,6 @@ Namespace My
             End Set
         End Property
         
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Disabled")>  _
-        Public Property FunimationDub() As String
-            Get
-                Return CType(Me("FunimationDub"),String)
-            End Get
-            Set
-                Me("FunimationDub") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Disabled")>  _
-        Public Property FunimationHardsub() As String
-            Get
-                Return CType(Me("FunimationHardsub"),String)
-            End Get
-            Set
-                Me("FunimationHardsub") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Disabled")>  _
-        Public Property DefaultSubFunimation() As String
-            Get
-                Return CType(Me("DefaultSubFunimation"),String)
-            End Get
-            Set
-                Me("DefaultSubFunimation") = value
-            End Set
-        End Property
-        
         <Global.System.Configuration.UserScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute("[ ignore subfolder ]")>  _
@@ -174,18 +126,6 @@ Namespace My
             End Set
         End Property
         
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("https://www.crunchyroll.com/")>  _
-        Public Property Startseite() As String
-            Get
-                Return CType(Me("Startseite"),String)
-            End Get
-            Set
-                Me("Startseite") = value
-            End Set
-        End Property
-        
         <Global.System.Configuration.UserScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute("[default season prefix]")>  _
@@ -270,30 +210,6 @@ Namespace My
             End Set
         End Property
         
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
-        Public Property Funimation_srt() As Boolean
-            Get
-                Return CType(Me("Funimation_srt"),Boolean)
-            End Get
-            Set
-                Me("Funimation_srt") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
-        Public Property Funimation_vtt() As Boolean
-            Get
-                Return CType(Me("Funimation_vtt"),Boolean)
-            End Get
-            Set
-                Me("Funimation_vtt") = value
-            End Set
-        End Property
-        
         <Global.System.Configuration.UserScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
@@ -450,18 +366,6 @@ Namespace My
             End Set
         End Property
         
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("0")>  _
-        Public Property Funimation_Bitrate() As Integer
-            Get
-                Return CType(Me("Funimation_Bitrate"),Integer)
-            End Get
-            Set
-                Me("Funimation_Bitrate") = value
-            End Set
-        End Property
-        
         <Global.System.Configuration.UserScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute("0")>  _
@@ -570,18 +474,6 @@ Namespace My
             End Set
         End Property
         
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
-        Public Property SaveMode() As Boolean
-            Get
-                Return CType(Me("SaveMode"),Boolean)
-            End Get
-            Set
-                Me("SaveMode") = value
-            End Set
-        End Property
-        
         <Global.System.Configuration.UserScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute("0")>  _
@@ -678,6 +570,66 @@ Namespace My
                 Me("FixCRStream") = value
             End Set
         End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("na")>  _
+        Public Property Mail() As String
+            Get
+                Return CType(Me("Mail"),String)
+            End Get
+            Set
+                Me("Mail") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("na")>  _
+        Public Property PW() As String
+            Get
+                Return CType(Me("PW"),String)
+            End Get
+            Set
+                Me("PW") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+        Public Property HiddenQueue() As Boolean
+            Get
+                Return CType(Me("HiddenQueue"),Boolean)
+            End Get
+            Set
+                Me("HiddenQueue") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("0")>  _
+        Public Property UpdateLog() As String
+            Get
+                Return CType(Me("UpdateLog"),String)
+            End Get
+            Set
+                Me("UpdateLog") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("0")>  _
+        Public Property UpdateMode() As Integer
+            Get
+                Return CType(Me("UpdateMode"),Integer)
+            End Get
+            Set
+                Me("UpdateMode") = value
+            End Set
+        End Property
     End Class
 End Namespace
 

Crunchyroll Downloader/My Project/Settings.settings

@@ -8,33 +8,18 @@
     <Setting Name="Pfad" Type="System.String" Scope="User">
       <Value Profile="(Default)" />
     </Setting>
-    <Setting Name="Fun_Sub" Type="System.String" Scope="User">
-      <Value Profile="(Default)">None</Value>
-    </Setting>
     <Setting Name="ffmpeg_command" Type="System.String" Scope="User">
       <Value Profile="(Default)"> -c copy -c:a copy -bsf:a aac_adtstoasc</Value>
     </Setting>
     <Setting Name="AddedSubs" Type="System.String" Scope="User">
       <Value Profile="(Default)">None</Value>
     </Setting>
-    <Setting Name="FunimationDub" Type="System.String" Scope="User">
-      <Value Profile="(Default)">Disabled</Value>
-    </Setting>
-    <Setting Name="FunimationHardsub" Type="System.String" Scope="User">
-      <Value Profile="(Default)">Disabled</Value>
-    </Setting>
-    <Setting Name="DefaultSubFunimation" Type="System.String" Scope="User">
-      <Value Profile="(Default)">Disabled</Value>
-    </Setting>
     <Setting Name="SubFolder_Value" Type="System.String" Scope="User">
       <Value Profile="(Default)">[ ignore subfolder ]</Value>
     </Setting>
     <Setting Name="TempFolder" Type="System.String" Scope="User">
       <Value Profile="(Default)" />
     </Setting>
-    <Setting Name="Startseite" Type="System.String" Scope="User">
-      <Value Profile="(Default)">https://www.crunchyroll.com/</Value>
-    </Setting>
     <Setting Name="Prefix_S" Type="System.String" Scope="User">
       <Value Profile="(Default)">[default season prefix]</Value>
     </Setting>
@@ -56,12 +41,6 @@
     <Setting Name="Dark_Mode" Type="System.Boolean" Scope="User">
       <Value Profile="(Default)">False</Value>
     </Setting>
-    <Setting Name="Funimation_srt" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">False</Value>
-    </Setting>
-    <Setting Name="Funimation_vtt" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">False</Value>
-    </Setting>
     <Setting Name="QueueMode" Type="System.Boolean" Scope="User">
       <Value Profile="(Default)">False</Value>
     </Setting>
@@ -101,9 +80,6 @@
     <Setting Name="LeadingZero" Type="System.Int32" Scope="User">
       <Value Profile="(Default)">0</Value>
     </Setting>
-    <Setting Name="Funimation_Bitrate" Type="System.Int32" Scope="User">
-      <Value Profile="(Default)">0</Value>
-    </Setting>
     <Setting Name="ServerPort" Type="System.Int32" Scope="User">
       <Value Profile="(Default)">0</Value>
     </Setting>
@@ -131,9 +107,6 @@
     <Setting Name="SaveThumbnail" Type="System.Boolean" Scope="User">
       <Value Profile="(Default)">False</Value>
     </Setting>
-    <Setting Name="SaveMode" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">False</Value>
-    </Setting>
     <Setting Name="DownloadScope" Type="System.Int32" Scope="User">
       <Value Profile="(Default)">0</Value>
     </Setting>
@@ -158,5 +131,20 @@
     <Setting Name="FixCRStream" Type="System.Boolean" Scope="User">
       <Value Profile="(Default)">True</Value>
     </Setting>
+    <Setting Name="Mail" Type="System.String" Scope="User">
+      <Value Profile="(Default)">na</Value>
+    </Setting>
+    <Setting Name="PW" Type="System.String" Scope="User">
+      <Value Profile="(Default)">na</Value>
+    </Setting>
+    <Setting Name="HiddenQueue" Type="System.Boolean" Scope="User">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
+    <Setting Name="UpdateLog" Type="System.String" Scope="User">
+      <Value Profile="(Default)">0</Value>
+    </Setting>
+    <Setting Name="UpdateMode" Type="System.Int32" Scope="User">
+      <Value Profile="(Default)">0</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

Crunchyroll Downloader/Resources/CRD_SettingsProvider_x64/source.url

@@ -0,0 +1,5 @@
+[{000214A0-0000-0000-C000-000000000046}]
+Prop3=19,11
+[InternetShortcut]
+IDList=
+URL=https://www.vb-paradise.de/index.php/Thread/101710-UserSettingsProvider-Persistieren-von-UserSettings/?pageNo=1&s=21f5b5753290312d4aa7fe7e470f638c5fe2e4aa

Crunchyroll Downloader/einstellungen.Designer.vb

@@ -38,6 +38,7 @@ Partial Class Einstellungen
         Me.TabPage2 = New MetroFramework.Controls.MetroTabPage()
         Me.GroupBox23 = New System.Windows.Forms.GroupBox()
         Me.GroupBox18 = New System.Windows.Forms.GroupBox()
+        Me.CB_HideQueue = New MetroFramework.Controls.MetroCheckBox()
         Me.ListViewAdd_True = New MetroFramework.Controls.MetroCheckBox()
         Me.GroupBox16 = New System.Windows.Forms.GroupBox()
         Me.MetroLabel3 = New MetroFramework.Controls.MetroLabel()
@@ -83,7 +84,7 @@ Partial Class Einstellungen
         Me.ListBit_1000 = New System.Windows.Forms.ToolStripMenuItem()
         Me.FFMPEG_CommandP4 = New System.Windows.Forms.ToolStripMenuItem()
         Me.GB_Resolution = New System.Windows.Forms.GroupBox()
-        Me.AAuto = New MetroFramework.Controls.MetroRadioButton()
+        Me.A240p = New MetroFramework.Controls.MetroRadioButton()
         Me.A480p = New MetroFramework.Controls.MetroRadioButton()
         Me.A360p = New MetroFramework.Controls.MetroRadioButton()
         Me.A720p = New MetroFramework.Controls.MetroRadioButton()
@@ -100,9 +101,6 @@ Partial Class Einstellungen
         Me.Chb_Ign_tls = New MetroFramework.Controls.MetroCheckBox()
         Me.http_support = New MetroFramework.Controls.MetroComboBox()
         Me.DarkMode = New MetroFramework.Controls.MetroCheckBox()
-        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
-        Me.Label1 = New MetroFramework.Controls.MetroLabel()
-        Me.TextBox1 = New MetroFramework.Controls.MetroTextBox()
         Me.DL_Count_simultaneous = New System.Windows.Forms.GroupBox()
         Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
         Me.TabControl1 = New MetroFramework.Controls.MetroTabControl()
@@ -132,23 +130,6 @@ Partial Class Einstellungen
         Me.GroupBox19 = New System.Windows.Forms.GroupBox()
         Me.CB_OverrideDub = New MetroFramework.Controls.MetroCheckBox()
         Me.CB_CR_Audio = New MetroFramework.Controls.MetroComboBox()
-        Me.TabPage6 = New MetroFramework.Controls.MetroTabPage()
-        Me.GroupBox15 = New System.Windows.Forms.GroupBox()
-        Me.Bitrate_Funi = New MetroFramework.Controls.MetroComboBox()
-        Me.GroupBox10 = New System.Windows.Forms.GroupBox()
-        Me.Fun_Dub_Over = New MetroFramework.Controls.MetroComboBox()
-        Me.GroupBox7 = New System.Windows.Forms.GroupBox()
-        Me.CB_Fun_HardSubs = New MetroFramework.Controls.MetroComboBox()
-        Me.GroupBox9 = New System.Windows.Forms.GroupBox()
-        Me.GroupBox13 = New System.Windows.Forms.GroupBox()
-        Me.FunSubDef = New MetroFramework.Controls.MetroComboBox()
-        Me.GroupBox11 = New System.Windows.Forms.GroupBox()
-        Me.CB_srt = New MetroFramework.Controls.MetroCheckBox()
-        Me.CB_vtt = New MetroFramework.Controls.MetroCheckBox()
-        Me.GroupBox8 = New System.Windows.Forms.GroupBox()
-        Me.CB_fun_eng = New MetroFramework.Controls.MetroCheckBox()
-        Me.CB_fun_es = New MetroFramework.Controls.MetroCheckBox()
-        Me.CB_fun_ptbr = New MetroFramework.Controls.MetroCheckBox()
         Me.TabPage7 = New System.Windows.Forms.TabPage()
         Me.LastVersion = New MetroFramework.Controls.MetroLabel()
         Me.Label8 = New MetroFramework.Controls.MetroLabel()
@@ -161,6 +142,7 @@ Partial Class Einstellungen
         Me.Label5 = New MetroFramework.Controls.MetroLabel()
         Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
         Me.Btn_Save = New System.Windows.Forms.Button()
+        Me.DD_Update = New MetroFramework.Controls.MetroComboBox()
         CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox14.SuspendLayout()
         Me.SoftSubs.SuspendLayout()
@@ -179,7 +161,6 @@ Partial Class Einstellungen
         Me.GroupBox6.SuspendLayout()
         CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox5.SuspendLayout()
-        Me.GroupBox1.SuspendLayout()
         Me.DL_Count_simultaneous.SuspendLayout()
         CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabControl1.SuspendLayout()
@@ -192,14 +173,6 @@ Partial Class Einstellungen
         Me.GroupBox22.SuspendLayout()
         Me.GroupBox20.SuspendLayout()
         Me.GroupBox19.SuspendLayout()
-        Me.TabPage6.SuspendLayout()
-        Me.GroupBox15.SuspendLayout()
-        Me.GroupBox10.SuspendLayout()
-        Me.GroupBox7.SuspendLayout()
-        Me.GroupBox9.SuspendLayout()
-        Me.GroupBox13.SuspendLayout()
-        Me.GroupBox11.SuspendLayout()
-        Me.GroupBox8.SuspendLayout()
         Me.TabPage7.SuspendLayout()
         CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -359,12 +332,12 @@ Partial Class Einstellungen
         Me.TabPage2.HorizontalScrollbarBarColor = True
         Me.TabPage2.HorizontalScrollbarHighlightOnWheel = False
         Me.TabPage2.HorizontalScrollbarSize = 10
-        Me.TabPage2.Location = New System.Drawing.Point(4, 44)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 54)
         Me.TabPage2.Name = "TabPage2"
         Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(501, 519)
+        Me.TabPage2.Size = New System.Drawing.Size(501, 509)
         Me.TabPage2.TabIndex = 1
-        Me.TabPage2.Text = "Output"
+        Me.TabPage2.Text = "  Output  "
         Me.TabPage2.VerticalScrollbarBarColor = True
         Me.TabPage2.VerticalScrollbarHighlightOnWheel = False
         Me.TabPage2.VerticalScrollbarSize = 10
@@ -387,6 +360,7 @@ Partial Class Einstellungen
         'GroupBox18
         '
         Me.GroupBox18.BackColor = System.Drawing.Color.Transparent
+        Me.GroupBox18.Controls.Add(Me.CB_HideQueue)
         Me.GroupBox18.Controls.Add(Me.ListViewAdd_True)
         Me.GroupBox18.Font = New System.Drawing.Font("Arial", 9.75!)
         Me.GroupBox18.ForeColor = System.Drawing.Color.Black
@@ -397,11 +371,22 @@ Partial Class Einstellungen
         Me.GroupBox18.TabStop = False
         Me.GroupBox18.Text = "Multi-Download"
         '
+        'CB_HideQueue
+        '
+        Me.CB_HideQueue.AutoSize = True
+        Me.CB_HideQueue.FontSize = MetroFramework.MetroCheckBoxSize.Medium
+        Me.CB_HideQueue.Location = New System.Drawing.Point(328, 21)
+        Me.CB_HideQueue.Name = "CB_HideQueue"
+        Me.CB_HideQueue.Size = New System.Drawing.Size(112, 19)
+        Me.CB_HideQueue.TabIndex = 6
+        Me.CB_HideQueue.Text = "hidden Queue"
+        Me.CB_HideQueue.UseSelectable = True
+        '
         'ListViewAdd_True
         '
         Me.ListViewAdd_True.AutoSize = True
         Me.ListViewAdd_True.FontSize = MetroFramework.MetroCheckBoxSize.Medium
-        Me.ListViewAdd_True.Location = New System.Drawing.Point(119, 25)
+        Me.ListViewAdd_True.Location = New System.Drawing.Point(40, 21)
         Me.ListViewAdd_True.Name = "ListViewAdd_True"
         Me.ListViewAdd_True.Size = New System.Drawing.Size(255, 19)
         Me.ListViewAdd_True.TabIndex = 5
@@ -776,7 +761,7 @@ Partial Class Einstellungen
         'GB_Resolution
         '
         Me.GB_Resolution.BackColor = System.Drawing.Color.Transparent
-        Me.GB_Resolution.Controls.Add(Me.AAuto)
+        Me.GB_Resolution.Controls.Add(Me.A240p)
         Me.GB_Resolution.Controls.Add(Me.A480p)
         Me.GB_Resolution.Controls.Add(Me.A360p)
         Me.GB_Resolution.Controls.Add(Me.A720p)
@@ -790,18 +775,18 @@ Partial Class Einstellungen
         Me.GB_Resolution.TabStop = False
         Me.GB_Resolution.Text = "Auflösung"
         '
-        'AAuto
+        'A240p
         '
-        Me.AAuto.AutoSize = True
-        Me.AAuto.FontSize = MetroFramework.MetroCheckBoxSize.Medium
-        Me.AAuto.ForeColor = System.Drawing.Color.Black
-        Me.AAuto.Location = New System.Drawing.Point(377, 21)
-        Me.AAuto.Name = "AAuto"
-        Me.AAuto.Size = New System.Drawing.Size(63, 19)
-        Me.AAuto.TabIndex = 16
-        Me.AAuto.TabStop = True
-        Me.AAuto.Text = "[Auto]"
-        Me.AAuto.UseSelectable = True
+        Me.A240p.AutoSize = True
+        Me.A240p.FontSize = MetroFramework.MetroCheckBoxSize.Medium
+        Me.A240p.ForeColor = System.Drawing.Color.Black
+        Me.A240p.Location = New System.Drawing.Point(377, 21)
+        Me.A240p.Name = "A240p"
+        Me.A240p.Size = New System.Drawing.Size(57, 19)
+        Me.A240p.TabIndex = 16
+        Me.A240p.TabStop = True
+        Me.A240p.Text = "240p"
+        Me.A240p.UseSelectable = True
         '
         'A480p
         '
@@ -862,19 +847,18 @@ Partial Class Einstellungen
         Me.TabPage1.Controls.Add(Me.GroupBox21)
         Me.TabPage1.Controls.Add(Me.GroupBox6)
         Me.TabPage1.Controls.Add(Me.GroupBox5)
-        Me.TabPage1.Controls.Add(Me.GroupBox1)
         Me.TabPage1.Controls.Add(Me.DL_Count_simultaneous)
         Me.TabPage1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.TabPage1.HorizontalScrollbar = True
         Me.TabPage1.HorizontalScrollbarBarColor = True
         Me.TabPage1.HorizontalScrollbarHighlightOnWheel = False
         Me.TabPage1.HorizontalScrollbarSize = 10
-        Me.TabPage1.Location = New System.Drawing.Point(4, 35)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 54)
         Me.TabPage1.Name = "TabPage1"
         Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(501, 528)
+        Me.TabPage1.Size = New System.Drawing.Size(501, 509)
         Me.TabPage1.TabIndex = 0
-        Me.TabPage1.Text = "  Main"
+        Me.TabPage1.Text = "   Main    "
         Me.TabPage1.VerticalScrollbar = True
         Me.TabPage1.VerticalScrollbarBarColor = True
         Me.TabPage1.VerticalScrollbarHighlightOnWheel = False
@@ -886,7 +870,7 @@ Partial Class Einstellungen
         Me.GroupBox21.Controls.Add(Me.CB_HideSF)
         Me.GroupBox21.Font = New System.Drawing.Font("Arial", 9.75!)
         Me.GroupBox21.ForeColor = System.Drawing.Color.Black
-        Me.GroupBox21.Location = New System.Drawing.Point(5, 417)
+        Me.GroupBox21.Location = New System.Drawing.Point(5, 349)
         Me.GroupBox21.Name = "GroupBox21"
         Me.GroupBox21.Size = New System.Drawing.Size(490, 67)
         Me.GroupBox21.TabIndex = 81
@@ -916,7 +900,7 @@ Partial Class Einstellungen
         Me.GroupBox6.Controls.Add(Me.NumericUpDown2)
         Me.GroupBox6.Font = New System.Drawing.Font("Arial", 9.75!)
         Me.GroupBox6.ForeColor = System.Drawing.Color.Black
-        Me.GroupBox6.Location = New System.Drawing.Point(5, 299)
+        Me.GroupBox6.Location = New System.Drawing.Point(5, 231)
         Me.GroupBox6.Name = "GroupBox6"
         Me.GroupBox6.Size = New System.Drawing.Size(490, 112)
         Me.GroupBox6.TabIndex = 80
@@ -965,14 +949,15 @@ Partial Class Einstellungen
         'GroupBox5
         '
         Me.GroupBox5.BackColor = System.Drawing.Color.Transparent
+        Me.GroupBox5.Controls.Add(Me.DD_Update)
         Me.GroupBox5.Controls.Add(Me.Chb_Ign_tls)
         Me.GroupBox5.Controls.Add(Me.http_support)
         Me.GroupBox5.Controls.Add(Me.DarkMode)
         Me.GroupBox5.Font = New System.Drawing.Font("Arial", 9.75!)
         Me.GroupBox5.ForeColor = System.Drawing.Color.Black
-        Me.GroupBox5.Location = New System.Drawing.Point(5, 179)
+        Me.GroupBox5.Location = New System.Drawing.Point(5, 85)
         Me.GroupBox5.Name = "GroupBox5"
-        Me.GroupBox5.Size = New System.Drawing.Size(490, 114)
+        Me.GroupBox5.Size = New System.Drawing.Size(490, 140)
         Me.GroupBox5.TabIndex = 70
         Me.GroupBox5.TabStop = False
         Me.GroupBox5.Text = "Other"
@@ -981,7 +966,7 @@ Partial Class Einstellungen
         '
         Me.Chb_Ign_tls.AutoSize = True
         Me.Chb_Ign_tls.FontSize = MetroFramework.MetroCheckBoxSize.Medium
-        Me.Chb_Ign_tls.Location = New System.Drawing.Point(135, 80)
+        Me.Chb_Ign_tls.Location = New System.Drawing.Point(242, 43)
         Me.Chb_Ign_tls.Name = "Chb_Ign_tls"
         Me.Chb_Ign_tls.Size = New System.Drawing.Size(223, 19)
         Me.Chb_Ign_tls.TabIndex = 46
@@ -997,9 +982,9 @@ Partial Class Einstellungen
         Me.http_support.IntegralHeight = False
         Me.http_support.ItemHeight = 23
         Me.http_support.Items.AddRange(New Object() {"add-on support disabled", "80", "8080"})
-        Me.http_support.Location = New System.Drawing.Point(214, 25)
+        Me.http_support.Location = New System.Drawing.Point(242, 90)
         Me.http_support.Name = "http_support"
-        Me.http_support.Size = New System.Drawing.Size(237, 29)
+        Me.http_support.Size = New System.Drawing.Size(223, 29)
         Me.http_support.TabIndex = 45
         Me.http_support.UseSelectable = True
         '
@@ -1007,70 +992,13 @@ Partial Class Einstellungen
         '
         Me.DarkMode.AutoSize = True
         Me.DarkMode.FontSize = MetroFramework.MetroCheckBoxSize.Medium
-        Me.DarkMode.Location = New System.Drawing.Point(41, 30)
+        Me.DarkMode.Location = New System.Drawing.Point(39, 43)
         Me.DarkMode.Name = "DarkMode"
         Me.DarkMode.Size = New System.Drawing.Size(135, 19)
         Me.DarkMode.TabIndex = 5
         Me.DarkMode.Text = "enable dark mode"
         Me.DarkMode.UseSelectable = True
         '
-        'GroupBox1
-        '
-        Me.GroupBox1.BackColor = System.Drawing.Color.Transparent
-        Me.GroupBox1.Controls.Add(Me.Label1)
-        Me.GroupBox1.Controls.Add(Me.TextBox1)
-        Me.GroupBox1.Font = New System.Drawing.Font("Arial", 9.75!)
-        Me.GroupBox1.ForeColor = System.Drawing.Color.Black
-        Me.GroupBox1.Location = New System.Drawing.Point(5, 85)
-        Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(490, 88)
-        Me.GroupBox1.TabIndex = 60
-        Me.GroupBox1.TabStop = False
-        Me.GroupBox1.Text = "Browser Settings"
-        '
-        'Label1
-        '
-        Me.Label1.FontWeight = MetroFramework.MetroLabelWeight.Regular
-        Me.Label1.Location = New System.Drawing.Point(6, 20)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(469, 22)
-        Me.Label1.TabIndex = 2
-        Me.Label1.Text = "Default Website"
-        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
-        '
-        'TextBox1
-        '
-        '
-        '
-        '
-        Me.TextBox1.CustomButton.Image = Nothing
-        Me.TextBox1.CustomButton.Location = New System.Drawing.Point(445, 1)
-        Me.TextBox1.CustomButton.Name = ""
-        Me.TextBox1.CustomButton.Size = New System.Drawing.Size(23, 23)
-        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.FontSize = MetroFramework.MetroTextBoxSize.Medium
-        Me.TextBox1.Lines = New String() {"https://www.crunchyroll.com/"}
-        Me.TextBox1.Location = New System.Drawing.Point(6, 45)
-        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(469, 25)
-        Me.TextBox1.TabIndex = 2
-        Me.TextBox1.Text = "https://www.crunchyroll.com/"
-        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)
-        '
         'DL_Count_simultaneous
         '
         Me.DL_Count_simultaneous.BackColor = System.Drawing.Color.Transparent
@@ -1100,13 +1028,13 @@ Partial Class Einstellungen
         Me.TabControl1.Controls.Add(Me.TabPage2)
         Me.TabControl1.Controls.Add(Me.MetroTabPage2)
         Me.TabControl1.Controls.Add(Me.MetroTabPage1)
-        Me.TabControl1.Controls.Add(Me.TabPage6)
         Me.TabControl1.Controls.Add(Me.TabPage7)
         Me.TabControl1.FontSize = MetroFramework.MetroTabControlSize.Tall
         Me.TabControl1.FontWeight = MetroFramework.MetroTabControlWeight.Regular
+        Me.TabControl1.ItemSize = New System.Drawing.Size(86, 50)
         Me.TabControl1.Location = New System.Drawing.Point(22, 60)
         Me.TabControl1.Name = "TabControl1"
-        Me.TabControl1.SelectedIndex = 3
+        Me.TabControl1.SelectedIndex = 0
         Me.TabControl1.Size = New System.Drawing.Size(509, 567)
         Me.TabControl1.TabIndex = 0
         Me.TabControl1.UseSelectable = True
@@ -1120,11 +1048,11 @@ Partial Class Einstellungen
         Me.MetroTabPage2.HorizontalScrollbarBarColor = True
         Me.MetroTabPage2.HorizontalScrollbarHighlightOnWheel = False
         Me.MetroTabPage2.HorizontalScrollbarSize = 10
-        Me.MetroTabPage2.Location = New System.Drawing.Point(4, 35)
+        Me.MetroTabPage2.Location = New System.Drawing.Point(4, 54)
         Me.MetroTabPage2.Name = "MetroTabPage2"
-        Me.MetroTabPage2.Size = New System.Drawing.Size(501, 528)
+        Me.MetroTabPage2.Size = New System.Drawing.Size(501, 509)
         Me.MetroTabPage2.TabIndex = 8
-        Me.MetroTabPage2.Text = "Naming"
+        Me.MetroTabPage2.Text = "   Naming   "
         Me.MetroTabPage2.VerticalScrollbarBarColor = True
         Me.MetroTabPage2.VerticalScrollbarHighlightOnWheel = False
         Me.MetroTabPage2.VerticalScrollbarSize = 10
@@ -1426,11 +1354,11 @@ Partial Class Einstellungen
         Me.MetroTabPage1.HorizontalScrollbarBarColor = True
         Me.MetroTabPage1.HorizontalScrollbarHighlightOnWheel = False
         Me.MetroTabPage1.HorizontalScrollbarSize = 10
-        Me.MetroTabPage1.Location = New System.Drawing.Point(4, 44)
+        Me.MetroTabPage1.Location = New System.Drawing.Point(4, 54)
         Me.MetroTabPage1.Name = "MetroTabPage1"
-        Me.MetroTabPage1.Size = New System.Drawing.Size(501, 519)
+        Me.MetroTabPage1.Size = New System.Drawing.Size(501, 509)
         Me.MetroTabPage1.TabIndex = 7
-        Me.MetroTabPage1.Text = "Crunchyroll"
+        Me.MetroTabPage1.Text = "   Crunchyroll   "
         Me.MetroTabPage1.VerticalScrollbarBarColor = True
         Me.MetroTabPage1.VerticalScrollbarHighlightOnWheel = False
         Me.MetroTabPage1.VerticalScrollbarSize = 10
@@ -1523,241 +1451,6 @@ Partial Class Einstellungen
         Me.CB_CR_Audio.TabIndex = 21
         Me.CB_CR_Audio.UseSelectable = True
         '
-        'TabPage6
-        '
-        Me.TabPage6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
-        Me.TabPage6.Controls.Add(Me.GroupBox15)
-        Me.TabPage6.Controls.Add(Me.GroupBox10)
-        Me.TabPage6.Controls.Add(Me.GroupBox7)
-        Me.TabPage6.Controls.Add(Me.GroupBox9)
-        Me.TabPage6.HorizontalScrollbarBarColor = True
-        Me.TabPage6.HorizontalScrollbarHighlightOnWheel = False
-        Me.TabPage6.HorizontalScrollbarSize = 10
-        Me.TabPage6.Location = New System.Drawing.Point(4, 35)
-        Me.TabPage6.Name = "TabPage6"
-        Me.TabPage6.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage6.Size = New System.Drawing.Size(501, 528)
-        Me.TabPage6.TabIndex = 4
-        Me.TabPage6.Text = " Funimation"
-        Me.TabPage6.VerticalScrollbarBarColor = True
-        Me.TabPage6.VerticalScrollbarHighlightOnWheel = False
-        Me.TabPage6.VerticalScrollbarSize = 10
-        Me.TabPage6.Visible = False
-        '
-        'GroupBox15
-        '
-        Me.GroupBox15.BackColor = System.Drawing.Color.Transparent
-        Me.GroupBox15.Controls.Add(Me.Bitrate_Funi)
-        Me.GroupBox15.Font = New System.Drawing.Font("Arial", 9.75!)
-        Me.GroupBox15.ForeColor = System.Drawing.Color.Black
-        Me.GroupBox15.Location = New System.Drawing.Point(0, 365)
-        Me.GroupBox15.Name = "GroupBox15"
-        Me.GroupBox15.Size = New System.Drawing.Size(490, 69)
-        Me.GroupBox15.TabIndex = 41
-        Me.GroupBox15.TabStop = False
-        Me.GroupBox15.Text = "Bitrate"
-        '
-        'Bitrate_Funi
-        '
-        Me.Bitrate_Funi.DropDownHeight = 250
-        Me.Bitrate_Funi.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Bitrate_Funi.FormattingEnabled = True
-        Me.Bitrate_Funi.IntegralHeight = False
-        Me.Bitrate_Funi.ItemHeight = 23
-        Me.Bitrate_Funi.Items.AddRange(New Object() {"prefer high bitrate", "prefer low bitrate"})
-        Me.Bitrate_Funi.Location = New System.Drawing.Point(79, 24)
-        Me.Bitrate_Funi.Name = "Bitrate_Funi"
-        Me.Bitrate_Funi.Size = New System.Drawing.Size(326, 29)
-        Me.Bitrate_Funi.Sorted = True
-        Me.Bitrate_Funi.TabIndex = 32
-        Me.Bitrate_Funi.UseSelectable = True
-        '
-        'GroupBox10
-        '
-        Me.GroupBox10.BackColor = System.Drawing.Color.Transparent
-        Me.GroupBox10.Controls.Add(Me.Fun_Dub_Over)
-        Me.GroupBox10.Font = New System.Drawing.Font("Arial", 9.75!)
-        Me.GroupBox10.ForeColor = System.Drawing.Color.Black
-        Me.GroupBox10.Location = New System.Drawing.Point(0, 6)
-        Me.GroupBox10.Name = "GroupBox10"
-        Me.GroupBox10.Size = New System.Drawing.Size(490, 69)
-        Me.GroupBox10.TabIndex = 80
-        Me.GroupBox10.TabStop = False
-        Me.GroupBox10.Text = "Funimation Dub"
-        '
-        'Fun_Dub_Over
-        '
-        Me.Fun_Dub_Over.DropDownHeight = 250
-        Me.Fun_Dub_Over.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Fun_Dub_Over.FormattingEnabled = True
-        Me.Fun_Dub_Over.IntegralHeight = False
-        Me.Fun_Dub_Over.ItemHeight = 23
-        Me.Fun_Dub_Over.Items.AddRange(New Object() {"Disabled", "english", "japanese", "portuguese(Brazil)", "spanish(Mexico)"})
-        Me.Fun_Dub_Over.Location = New System.Drawing.Point(79, 30)
-        Me.Fun_Dub_Over.Name = "Fun_Dub_Over"
-        Me.Fun_Dub_Over.Size = New System.Drawing.Size(326, 29)
-        Me.Fun_Dub_Over.Sorted = True
-        Me.Fun_Dub_Over.TabIndex = 40
-        Me.Fun_Dub_Over.UseSelectable = True
-        '
-        'GroupBox7
-        '
-        Me.GroupBox7.BackColor = System.Drawing.Color.Transparent
-        Me.GroupBox7.Controls.Add(Me.CB_Fun_HardSubs)
-        Me.GroupBox7.Font = New System.Drawing.Font("Arial", 9.75!)
-        Me.GroupBox7.ForeColor = System.Drawing.Color.Black
-        Me.GroupBox7.Location = New System.Drawing.Point(0, 440)
-        Me.GroupBox7.Name = "GroupBox7"
-        Me.GroupBox7.Size = New System.Drawing.Size(490, 69)
-        Me.GroupBox7.TabIndex = 40
-        Me.GroupBox7.TabStop = False
-        Me.GroupBox7.Text = "Hard Subtitle (post-processed)"
-        '
-        'CB_Fun_HardSubs
-        '
-        Me.CB_Fun_HardSubs.DropDownHeight = 250
-        Me.CB_Fun_HardSubs.Enabled = False
-        Me.CB_Fun_HardSubs.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CB_Fun_HardSubs.FormattingEnabled = True
-        Me.CB_Fun_HardSubs.IntegralHeight = False
-        Me.CB_Fun_HardSubs.ItemHeight = 23
-        Me.CB_Fun_HardSubs.Items.AddRange(New Object() {"Disabled", "English", "Español (LA)", "Português (Brasil)"})
-        Me.CB_Fun_HardSubs.Location = New System.Drawing.Point(79, 30)
-        Me.CB_Fun_HardSubs.Name = "CB_Fun_HardSubs"
-        Me.CB_Fun_HardSubs.Size = New System.Drawing.Size(326, 29)
-        Me.CB_Fun_HardSubs.Sorted = True
-        Me.CB_Fun_HardSubs.TabIndex = 32
-        Me.CB_Fun_HardSubs.UseSelectable = True
-        '
-        'GroupBox9
-        '
-        Me.GroupBox9.BackColor = System.Drawing.Color.Transparent
-        Me.GroupBox9.Controls.Add(Me.GroupBox13)
-        Me.GroupBox9.Controls.Add(Me.GroupBox11)
-        Me.GroupBox9.Controls.Add(Me.GroupBox8)
-        Me.GroupBox9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.GroupBox9.Location = New System.Drawing.Point(0, 80)
-        Me.GroupBox9.Name = "GroupBox9"
-        Me.GroupBox9.Size = New System.Drawing.Size(490, 275)
-        Me.GroupBox9.TabIndex = 50
-        Me.GroupBox9.TabStop = False
-        Me.GroupBox9.Text = "Soft-Subtitle"
-        '
-        'GroupBox13
-        '
-        Me.GroupBox13.BackColor = System.Drawing.Color.Transparent
-        Me.GroupBox13.Controls.Add(Me.FunSubDef)
-        Me.GroupBox13.Font = New System.Drawing.Font("Arial", 9.75!)
-        Me.GroupBox13.ForeColor = System.Drawing.Color.Black
-        Me.GroupBox13.Location = New System.Drawing.Point(10, 180)
-        Me.GroupBox13.Name = "GroupBox13"
-        Me.GroupBox13.Size = New System.Drawing.Size(474, 82)
-        Me.GroupBox13.TabIndex = 70
-        Me.GroupBox13.TabStop = False
-        Me.GroupBox13.Text = "Default Subtitle"
-        '
-        'FunSubDef
-        '
-        Me.FunSubDef.DropDownHeight = 250
-        Me.FunSubDef.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.FunSubDef.FormattingEnabled = True
-        Me.FunSubDef.IntegralHeight = False
-        Me.FunSubDef.ItemHeight = 23
-        Me.FunSubDef.Items.AddRange(New Object() {"[Disabled]"})
-        Me.FunSubDef.Location = New System.Drawing.Point(69, 30)
-        Me.FunSubDef.Name = "FunSubDef"
-        Me.FunSubDef.Size = New System.Drawing.Size(326, 29)
-        Me.FunSubDef.Sorted = True
-        Me.FunSubDef.TabIndex = 39
-        Me.FunSubDef.UseSelectable = True
-        '
-        'GroupBox11
-        '
-        Me.GroupBox11.BackColor = System.Drawing.Color.Transparent
-        Me.GroupBox11.Controls.Add(Me.CB_srt)
-        Me.GroupBox11.Controls.Add(Me.CB_vtt)
-        Me.GroupBox11.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.GroupBox11.Location = New System.Drawing.Point(10, 100)
-        Me.GroupBox11.Name = "GroupBox11"
-        Me.GroupBox11.Size = New System.Drawing.Size(474, 75)
-        Me.GroupBox11.TabIndex = 60
-        Me.GroupBox11.TabStop = False
-        Me.GroupBox11.Text = "Format"
-        '
-        'CB_srt
-        '
-        Me.CB_srt.AutoSize = True
-        Me.CB_srt.FontSize = MetroFramework.MetroCheckBoxSize.Medium
-        Me.CB_srt.ForeColor = System.Drawing.Color.Black
-        Me.CB_srt.Location = New System.Drawing.Point(139, 35)
-        Me.CB_srt.Name = "CB_srt"
-        Me.CB_srt.Size = New System.Drawing.Size(41, 19)
-        Me.CB_srt.TabIndex = 36
-        Me.CB_srt.Text = "srt"
-        Me.CB_srt.UseSelectable = True
-        '
-        'CB_vtt
-        '
-        Me.CB_vtt.AutoSize = True
-        Me.CB_vtt.FontSize = MetroFramework.MetroCheckBoxSize.Medium
-        Me.CB_vtt.ForeColor = System.Drawing.Color.Black
-        Me.CB_vtt.Location = New System.Drawing.Point(261, 35)
-        Me.CB_vtt.Name = "CB_vtt"
-        Me.CB_vtt.Size = New System.Drawing.Size(42, 19)
-        Me.CB_vtt.TabIndex = 37
-        Me.CB_vtt.Text = "vtt"
-        Me.CB_vtt.UseSelectable = True
-        '
-        'GroupBox8
-        '
-        Me.GroupBox8.BackColor = System.Drawing.Color.Transparent
-        Me.GroupBox8.Controls.Add(Me.CB_fun_eng)
-        Me.GroupBox8.Controls.Add(Me.CB_fun_es)
-        Me.GroupBox8.Controls.Add(Me.CB_fun_ptbr)
-        Me.GroupBox8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.GroupBox8.Location = New System.Drawing.Point(10, 21)
-        Me.GroupBox8.Name = "GroupBox8"
-        Me.GroupBox8.Size = New System.Drawing.Size(474, 75)
-        Me.GroupBox8.TabIndex = 61
-        Me.GroupBox8.TabStop = False
-        Me.GroupBox8.Text = "Language"
-        '
-        'CB_fun_eng
-        '
-        Me.CB_fun_eng.AutoSize = True
-        Me.CB_fun_eng.FontSize = MetroFramework.MetroCheckBoxSize.Medium
-        Me.CB_fun_eng.ForeColor = System.Drawing.Color.Black
-        Me.CB_fun_eng.Location = New System.Drawing.Point(34, 35)
-        Me.CB_fun_eng.Name = "CB_fun_eng"
-        Me.CB_fun_eng.Size = New System.Drawing.Size(68, 19)
-        Me.CB_fun_eng.TabIndex = 33
-        Me.CB_fun_eng.Text = "English"
-        Me.CB_fun_eng.UseSelectable = True
-        '
-        'CB_fun_es
-        '
-        Me.CB_fun_es.AutoSize = True
-        Me.CB_fun_es.FontSize = MetroFramework.MetroCheckBoxSize.Medium
-        Me.CB_fun_es.ForeColor = System.Drawing.Color.Black
-        Me.CB_fun_es.Location = New System.Drawing.Point(148, 35)
-        Me.CB_fun_es.Name = "CB_fun_es"
-        Me.CB_fun_es.Size = New System.Drawing.Size(100, 19)
-        Me.CB_fun_es.TabIndex = 34
-        Me.CB_fun_es.Text = "Español (LA)"
-        Me.CB_fun_es.UseSelectable = True
-        '
-        'CB_fun_ptbr
-        '
-        Me.CB_fun_ptbr.AutoSize = True
-        Me.CB_fun_ptbr.FontSize = MetroFramework.MetroCheckBoxSize.Medium
-        Me.CB_fun_ptbr.ForeColor = System.Drawing.Color.Black
-        Me.CB_fun_ptbr.Location = New System.Drawing.Point(270, 35)
-        Me.CB_fun_ptbr.Name = "CB_fun_ptbr"
-        Me.CB_fun_ptbr.Size = New System.Drawing.Size(131, 19)
-        Me.CB_fun_ptbr.TabIndex = 35
-        Me.CB_fun_ptbr.Text = "Português (Brasil)"
-        Me.CB_fun_ptbr.UseSelectable = True
-        '
         'TabPage7
         '
         Me.TabPage7.BackColor = System.Drawing.Color.Transparent
@@ -1770,11 +1463,11 @@ Partial Class Einstellungen
         Me.TabPage7.Controls.Add(Me.Label4)
         Me.TabPage7.Controls.Add(Me.Label6)
         Me.TabPage7.Controls.Add(Me.Label5)
-        Me.TabPage7.Location = New System.Drawing.Point(4, 35)
+        Me.TabPage7.Location = New System.Drawing.Point(4, 54)
         Me.TabPage7.Name = "TabPage7"
-        Me.TabPage7.Size = New System.Drawing.Size(501, 528)
+        Me.TabPage7.Size = New System.Drawing.Size(501, 509)
         Me.TabPage7.TabIndex = 5
-        Me.TabPage7.Text = " About  "
+        Me.TabPage7.Text = "   About   "
         '
         'LastVersion
         '
@@ -1904,6 +1597,20 @@ Partial Class Einstellungen
         Me.Btn_Save.TabIndex = 9
         Me.Btn_Save.UseVisualStyleBackColor = False
         '
+        'DD_Update
+        '
+        Me.DD_Update.DropDownHeight = 275
+        Me.DD_Update.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.DD_Update.FormattingEnabled = True
+        Me.DD_Update.IntegralHeight = False
+        Me.DD_Update.ItemHeight = 23
+        Me.DD_Update.Items.AddRange(New Object() {"Skip Updates", "Notify Only", "Notify Only (Beta Versions)", "Automatic Updates", "Automatic Updates (Beta Versions)"})
+        Me.DD_Update.Location = New System.Drawing.Point(21, 90)
+        Me.DD_Update.Name = "DD_Update"
+        Me.DD_Update.Size = New System.Drawing.Size(215, 29)
+        Me.DD_Update.TabIndex = 47
+        Me.DD_Update.UseSelectable = True
+        '
         'Einstellungen
         '
         Me.ApplyImageInvert = True
@@ -1947,7 +1654,6 @@ Partial Class Einstellungen
         CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GroupBox5.ResumeLayout(False)
         Me.GroupBox5.PerformLayout()
-        Me.GroupBox1.ResumeLayout(False)
         Me.DL_Count_simultaneous.ResumeLayout(False)
         CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabControl1.ResumeLayout(False)
@@ -1963,16 +1669,6 @@ Partial Class Einstellungen
         Me.GroupBox20.ResumeLayout(False)
         Me.GroupBox20.PerformLayout()
         Me.GroupBox19.ResumeLayout(False)
-        Me.TabPage6.ResumeLayout(False)
-        Me.GroupBox15.ResumeLayout(False)
-        Me.GroupBox10.ResumeLayout(False)
-        Me.GroupBox7.ResumeLayout(False)
-        Me.GroupBox9.ResumeLayout(False)
-        Me.GroupBox13.ResumeLayout(False)
-        Me.GroupBox11.ResumeLayout(False)
-        Me.GroupBox11.PerformLayout()
-        Me.GroupBox8.ResumeLayout(False)
-        Me.GroupBox8.PerformLayout()
         Me.TabPage7.ResumeLayout(False)
         CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
@@ -2005,7 +1701,6 @@ Partial Class Einstellungen
     Friend WithEvents FFMPEG_CommandP4 As ToolStripMenuItem
     Friend WithEvents GB_Resolution As GroupBox
     Friend WithEvents GroupBox5 As GroupBox
-    Friend WithEvents GroupBox1 As GroupBox
     Friend WithEvents DL_Count_simultaneous As GroupBox
     Friend WithEvents NumericUpDown1 As NumericUpDown
     Friend WithEvents SoftSubs As GroupBox
@@ -2016,26 +1711,15 @@ Partial Class Einstellungen
     Private WithEvents TabPage2 As MetroFramework.Controls.MetroTabPage
     Private WithEvents TabPage1 As MetroFramework.Controls.MetroTabPage
     Private WithEvents TabControl1 As MetroFramework.Controls.MetroTabControl
-    Private WithEvents TabPage6 As MetroFramework.Controls.MetroTabPage
     Friend WithEvents TabPage7 As TabPage
     Friend WithEvents PictureBox7 As PictureBox
-    Friend WithEvents GroupBox7 As GroupBox
-    Friend WithEvents GroupBox9 As GroupBox
-    Friend WithEvents GroupBox10 As GroupBox
-    Friend WithEvents GroupBox11 As GroupBox
     Friend WithEvents Button1 As Button
-    Friend WithEvents Label1 As MetroFramework.Controls.MetroLabel
     Friend WithEvents Label2 As MetroFramework.Controls.MetroLabel
     Public WithEvents Label4 As MetroFramework.Controls.MetroLabel
     Public WithEvents Label6 As MetroFramework.Controls.MetroLabel
     Public WithEvents Label5 As MetroFramework.Controls.MetroLabel
     Friend WithEvents CheckBox2 As MetroFramework.Controls.MetroCheckBox
-    Friend WithEvents CB_fun_ptbr As MetroFramework.Controls.MetroCheckBox
-    Friend WithEvents CB_fun_es As MetroFramework.Controls.MetroCheckBox
-    Friend WithEvents CB_fun_eng As MetroFramework.Controls.MetroCheckBox
-    Friend WithEvents CB_srt As MetroFramework.Controls.MetroCheckBox
-    Friend WithEvents CB_vtt As MetroFramework.Controls.MetroCheckBox
-    Friend WithEvents AAuto As MetroFramework.Controls.MetroRadioButton
+    Friend WithEvents A240p As MetroFramework.Controls.MetroRadioButton
     Friend WithEvents A480p As MetroFramework.Controls.MetroRadioButton
     Friend WithEvents A360p As MetroFramework.Controls.MetroRadioButton
     Friend WithEvents A720p As MetroFramework.Controls.MetroRadioButton
@@ -2046,15 +1730,10 @@ Partial Class Einstellungen
     Public WithEvents Label3 As MetroFramework.Controls.MetroLabel
     Friend WithEvents MetroLabel1 As MetroFramework.Controls.MetroLabel
     Friend WithEvents DarkMode As MetroFramework.Controls.MetroCheckBox
-    Friend WithEvents TextBox1 As MetroFramework.Controls.MetroTextBox
     Friend WithEvents CB_CR_Harsubs As MetroFramework.Controls.MetroComboBox
-    Friend WithEvents CB_Fun_HardSubs As MetroFramework.Controls.MetroComboBox
-    Friend WithEvents Fun_Dub_Over As MetroFramework.Controls.MetroComboBox
     Public WithEvents LastVersion As MetroFramework.Controls.MetroLabel
     Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
     Friend WithEvents http_support As MetroFramework.Controls.MetroComboBox
-    Friend WithEvents GroupBox13 As GroupBox
-    Friend WithEvents FunSubDef As MetroFramework.Controls.MetroComboBox
     Friend WithEvents GroupBox14 As GroupBox
     Friend WithEvents CB_Format As MetroFramework.Controls.MetroComboBox
     Friend WithEvents MetroTabPage1 As MetroFramework.Controls.MetroTabPage
@@ -2068,9 +1747,6 @@ Partial Class Einstellungen
     Friend WithEvents ListBit_4500 As ToolStripMenuItem
     Friend WithEvents ListBit_3500 As ToolStripMenuItem
     Friend WithEvents ListBit_2500 As ToolStripMenuItem
-    Friend WithEvents GroupBox8 As GroupBox
-    Friend WithEvents GroupBox15 As GroupBox
-    Friend WithEvents Bitrate_Funi As MetroFramework.Controls.MetroComboBox
     Friend WithEvents GroupBox16 As GroupBox
     Friend WithEvents DD_DLMode As MetroFramework.Controls.MetroComboBox
     Friend WithEvents MetroTabPage2 As MetroFramework.Controls.MetroTabPage
@@ -2118,4 +1794,6 @@ Partial Class Einstellungen
     Friend WithEvents CB_Mod1 As MetroFramework.Controls.MetroCheckBox
     Friend WithEvents CB_vttStyle As MetroFramework.Controls.MetroCheckBox
     Friend WithEvents AMD_AV1 As ToolStripMenuItem
+    Friend WithEvents CB_HideQueue As MetroFramework.Controls.MetroCheckBox
+    Friend WithEvents DD_Update As MetroFramework.Controls.MetroComboBox
 End Class

Crunchyroll Downloader/einstellungen.resx

@@ -126,6 +126,9 @@
   <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <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>118, 20</value>
+  </metadata>
   <metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>332, 20</value>
   </metadata>

Crunchyroll Downloader/einstellungen.vb

@@ -19,13 +19,14 @@ Public Class Einstellungen
     Public CR_SoftSubsTemp As New List(Of String)
     Dim TempCheckSubMod1 As Boolean = False
     Dim TempVTTStyle As Boolean = False
+    Dim TempMultiDL As Boolean = False
 
     Private Sub Einstellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
         Label6.Text = "You have: v" + Application.ProductVersion.ToString '+ " WebView2_Test"
 
         BackgroundWorker1.RunWorkerAsync()
-
+        DD_Update.SelectedIndex = My.Settings.UpdateMode
 
         'CR_Anime_Folge = CR_Name_Staffel0_Folge1(1)
         'If GitHubLastTag1(0)
@@ -34,6 +35,8 @@ Public Class Einstellungen
         Manager.Owner = Me
         Me.StyleManager = Manager
 
+        CB_HideQueue.Checked = My.Settings.HiddenQueue
+
         CB_OverrideDub.Checked = My.Settings.OverrideDub
         CB_Cap.Checked = My.Settings.Captions
 
@@ -44,8 +47,6 @@ Public Class Einstellungen
         TempTB.Text = Main.TempFolder
         LeadingZeroDD.SelectedIndex = Main.LeadingZero
 
-        Bitrate_Funi.SelectedIndex = Main.Funimation_Bitrate
-
         CB_Ignore.SelectedIndex = Main.IgnoreSeason
 
         CB_HideSF.SelectedIndex = Main.HideFLInt
@@ -106,16 +107,7 @@ Public Class Einstellungen
 
 #End Region
 
-        For i As Integer = 0 To Main.SubFunimation.Count - 1
-            If Main.SubFunimation(i) = "en" Then
-                CB_fun_eng.Checked = True
-            ElseIf Main.SubFunimation(i) = "es" Then
-                CB_fun_es.Checked = True
-            ElseIf Main.SubFunimation(i) = "pt" Then
-                CB_fun_ptbr.Checked = True
-            End If
 
-        Next
 
         Me.Location = New Point(CInt(Main.Location.X + Main.Width / 2 - Me.Width / 2), CInt(Main.Location.Y + Main.Height / 2 - Me.Height / 2))
         Try
@@ -132,32 +124,8 @@ Public Class Einstellungen
             DD_DLMode.SelectedIndex = 0
         End If
 
-        If Main.Funimation_srt = True Then
-            CB_srt.Checked = True
-        Else
-            CB_srt.Checked = False
-        End If
-
-        If Main.Funimation_vtt = True Then
-            CB_vtt.Checked = True
-        Else
-            CB_vtt.Checked = False
-        End If
 
 
-        If Main.HardSubFunimation = "en" Then
-            CB_Fun_HardSubs.SelectedItem = "English"
-
-        ElseIf Main.HardSubFunimation = "pt" Then
-            CB_Fun_HardSubs.SelectedItem = "Português (Brasil)"
-
-        ElseIf Main.HardSubFunimation = "es" Then
-            CB_Fun_HardSubs.SelectedItem = "Español (LA)"
-
-        Else
-            CB_Fun_HardSubs.SelectedItem = "Disabled"
-            'FunimationHardsub.Checked = True
-        End If
         If Main.VideoFormat = ".mkv" Then
             CB_Format.SelectedItem = "MKV"
         ElseIf Main.VideoFormat = ".aac" Then
@@ -166,22 +134,6 @@ Public Class Einstellungen
             CB_Format.SelectedItem = "MP4"
         End If
 
-        If Main.DubFunimation = "english" Then
-            Fun_Dub_Over.SelectedItem = "english"
-
-        ElseIf Main.DubFunimation = "japanese" Then
-            Fun_Dub_Over.SelectedItem = "japanese"
-
-        ElseIf Main.DubFunimation = "portuguese(Brazil)" Then
-            Fun_Dub_Over.SelectedItem = "portuguese(Brazil)"
-
-        ElseIf Main.DubFunimation = "spanish(Mexico)" Then
-            Fun_Dub_Over.SelectedItem = "spanish(Mexico)"
-
-        Else
-            Fun_Dub_Over.SelectedItem = "Disabled"
-        End If
-
 
         Try
             GB_Resolution.Text = Main.GB_Resolution_Text
@@ -199,8 +151,8 @@ Public Class Einstellungen
             A480p.Checked = True
         ElseIf Main.Reso = 360 Then
             A360p.Checked = True
-        ElseIf Main.Reso = 42 Then
-            AAuto.Checked = True
+        ElseIf Main.Reso = 240 Then
+            A240p.Checked = True
         End If
 
         CB_CR_Harsubs.Items.Clear()
@@ -238,7 +190,7 @@ Public Class Einstellungen
 
         NumericUpDown2.Value = Main.ErrorTolerance
         NumericUpDown1.Value = Main.MaxDL
-        TextBox1.Text = Main.Startseite
+
 
         Try
 
@@ -291,18 +243,6 @@ Public Class Einstellungen
         End If
 
 
-        If Main.DefaultSubFunimation = "en" Then
-            FunSubDef.SelectedItem = "English"
-        ElseIf Main.DefaultSubFunimation = "pt" Then
-            FunSubDef.SelectedItem = "Português (Brasil)"
-        ElseIf Main.DefaultSubFunimation = "es" Then
-            FunSubDef.SelectedItem = "Español (LA)"
-        Else
-            FunSubDef.SelectedItem = "[Disabled]"
-            'FunimationHardsub.Checked = True
-        End If
-
-
 
         If Main.DefaultSubCR = "de-DE" Then
             CR_SoftSubDefault.SelectedItem = "Deutsch"
@@ -358,9 +298,7 @@ Public Class Einstellungen
         My.Settings.LeadingZero = LeadingZeroDD.SelectedIndex
         My.Settings.OverrideDub = CB_OverrideDub.Checked
         My.Settings.Captions = CB_Cap.Checked
-        Main.Funimation_Bitrate = Bitrate_Funi.SelectedIndex
-        My.Settings.Funimation_Bitrate = Bitrate_Funi.SelectedIndex
-
+        My.Settings.UpdateMode = DD_Update.SelectedIndex
 
         If http_support.Text = "add-on support disabled" Then
             My.Settings.ServerPort = 0
@@ -430,15 +368,9 @@ Public Class Einstellungen
         End If
 
         '  MsgBox(Name_season.Text)
-        If CBool(InStr(TextBox1.Text, "https://")) Then
-            Main.Startseite = TextBox1.Text
-            My.Settings.Startseite = Main.Startseite
-        ElseIf TextBox1.Text = Nothing Then
-            Main.Startseite = "https://www.crunchyroll.com/"
-            My.Settings.Startseite = Main.Startseite
-        Else
 
-        End If
+
+
         If DD_Season_Prefix.Text IsNot "[default season prefix]" Then
             Main.Season_Prefix = DD_Season_Prefix.Text
             My.Settings.Prefix_S = Main.Season_Prefix
@@ -461,8 +393,8 @@ Public Class Einstellungen
         ElseIf A480p.Checked Then
             Main.Reso = 480
             My.Settings.Reso = Main.Reso
-        ElseIf AAuto.Checked Then
-            Main.Reso = 42
+        ElseIf A240p.Checked Then
+            Main.Reso = 240
             My.Settings.Reso = Main.Reso
         End If
 
@@ -570,101 +502,6 @@ Public Class Einstellungen
         My.Settings.Keep_Cache = Main.KeepCache
 
 
-#Region "funimation"
-
-
-
-
-        Main.DubFunimation = Fun_Dub_Over.SelectedItem.ToString
-
-
-        My.Settings.FunimationDub = Main.DubFunimation
-
-
-        'If CB_Fun_HardSubs.SelectedItem.ToString = "Disabled" Then
-        '    Main.HardSubFunimation = "Disabled"
-        '    rk.SetValue("FunimationHardsub", "Disabled", RegistryValueKind.String)
-
-        'ElseIf CB_Fun_HardSubs.SelectedItem.ToString = "English" Then
-        '    Main.HardSubFunimation = "en"
-        '    rk.SetValue("FunimationHardsub", "en", RegistryValueKind.String)
-
-        'ElseIf CB_Fun_HardSubs.SelectedItem.ToString = "Português (Brasil)" Then
-        '    Main.HardSubFunimation = "pt"
-        '    rk.SetValue("FunimationHardsub", "pt", RegistryValueKind.String)
-
-        'ElseIf CB_Fun_HardSubs.SelectedItem.ToString = "Español (LA)" Then
-        '    Main.HardSubFunimation = "es"
-        '    rk.SetValue("FunimationHardsub", "es", RegistryValueKind.String)
-
-        'End If
-
-        If FunSubDef.SelectedItem.ToString = "[Disabled]" Then
-            Main.DefaultSubFunimation = "Disabled"
-            My.Settings.DefaultSubFunimation = Main.DefaultSubFunimation
-        ElseIf FunSubDef.SelectedItem.ToString = "English" Then
-            Main.DefaultSubFunimation = "en"
-            My.Settings.DefaultSubFunimation = Main.DefaultSubFunimation
-        ElseIf FunSubDef.SelectedItem.ToString = "Português (Brasil)" Then
-            Main.DefaultSubFunimation = "pt"
-            My.Settings.DefaultSubFunimation = Main.DefaultSubFunimation
-        ElseIf FunSubDef.SelectedItem.ToString = "Español (LA)" Then
-            Main.DefaultSubFunimation = "es"
-            My.Settings.DefaultSubFunimation = Main.DefaultSubFunimation
-        End If
-
-        Main.SubFunimation.Clear()
-        If CB_fun_eng.Checked = True Then
-            Main.SubFunimation.Add("en")
-        End If
-
-        If CB_fun_es.Checked = True Then
-            Main.SubFunimation.Add("es")
-
-        End If
-
-        If CB_fun_ptbr.Checked = True Then
-            Main.SubFunimation.Add("pt")
-        End If
-
-        If Main.SubFunimation.Count > 0 And CB_vtt.Checked = False And CB_srt.Checked = False Then
-            CB_vtt.Checked = True
-        End If
-
-
-        If CB_srt.Checked = True Then
-            Main.Funimation_srt = True
-            My.Settings.Funimation_srt = True
-        Else
-            Main.Funimation_srt = False
-            My.Settings.Funimation_srt = False
-        End If
-        If CB_vtt.Checked = True Then
-            Main.Funimation_vtt = True
-            My.Settings.Funimation_vtt = True
-        Else
-            Main.Funimation_vtt = False
-            My.Settings.Funimation_vtt = False
-        End If
-
-
-        Dim FunimationSaveString As String = Nothing
-        For ii As Integer = 0 To Main.SubFunimation.Count - 1
-            If FunimationSaveString = Nothing Then
-                FunimationSaveString = Main.SubFunimation(ii)
-            Else
-                FunimationSaveString = FunimationSaveString + "," + Main.SubFunimation(ii)
-            End If
-        Next
-        If FunimationSaveString = Nothing Then
-            FunimationSaveString = "None"
-        End If
-        My.Settings.Fun_Sub = FunimationSaveString
-
-#End Region
-
-
-
 
 
         Dim ffpmeg_cmd As String = Nothing
@@ -706,14 +543,10 @@ Public Class Einstellungen
         Main.ErrorTolerance = CInt(NumericUpDown2.Value)
         My.Settings.ErrorTolerance = Main.ErrorTolerance
 
-        If ListViewAdd_True.Checked = True Then
-            Main.UseQueue = True
-            My.Settings.QueueMode = Main.UseQueue
-        ElseIf ListViewAdd_True.Checked = False Then
-            Main.UseQueue = False
-            My.Settings.QueueMode = Main.UseQueue
-        End If
+        Main.UseQueue = ListViewAdd_True.Checked
+        My.Settings.QueueMode = Main.UseQueue
 
+        My.Settings.HiddenQueue = CB_HideQueue.Checked
 
         Main.SoftSubs.Clear()
         Main.SoftSubs.AddRange(CR_SoftSubsTemp)
@@ -789,7 +622,7 @@ Public Class Einstellungen
     End Sub
 
 
-    Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles CB_CR_Harsubs.DrawItem, CB_Fun_HardSubs.DrawItem, Fun_Dub_Over.DrawItem
+    Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles CB_CR_Harsubs.DrawItem
         Dim CB As ComboBox = CType(sender, ComboBox)
         CB.BackColor = Color.White
         If e.Index >= 0 Then
@@ -804,52 +637,6 @@ Public Class Einstellungen
     End Sub
 
 
-
-
-
-
-    Private Sub AAuto_Click(sender As Object, e As EventArgs) Handles AAuto.Click
-        If CB_Merge.SelectedIndex > 0 Then
-            If AAuto.Checked = True Then
-                If MessageBox.Show("Resolution '[Auto]' and merge the subtitle with the video file will download all resolutions!" + vbNewLine + "Press 'Yes' to enable it anyway", "Prepare for unforeseen consequences.", MessageBoxButtons.YesNo) = DialogResult.Yes Then
-
-                Else
-                    AAuto.Checked = False
-                    A360p.Checked = True
-                End If
-            End If
-            'ElseIf HybridMode_CB.Checked = True Then
-            '    If AAuto.Checked = True Then
-            '        MsgBox("Resolution '[Auto]' and 'Hybride Mode' does not work together", MsgBoxStyle.Information)
-            '        AAuto.Checked = False
-            '        A1080p.Checked = True
-            '    End If
-        End If
-    End Sub
-
-    Private Sub MergeMP4_Click(sender As Object, e As EventArgs)
-        If CB_Merge.SelectedIndex > 0 Then
-            If AAuto.Checked = True Then
-                If MessageBox.Show("Resolution '[Auto]' and merge the subtitle with the video file will download all resolutions!" + vbNewLine + "Press 'Yes' to enable it anyway", "Prepare for unforeseen consequences.", MessageBoxButtons.YesNo) = DialogResult.Yes Then
-
-                Else
-                    CB_Merge.SelectedIndex = 0
-                End If
-            End If
-        End If
-    End Sub
-
-
-
-
-
-
-
-
-
-
-
-
     Private Sub ListC1_Click(sender As Object, e As EventArgs) Handles copy.Click, nv_h264.Click, nv_hevc.Click, nv_AV1.Click, CPU_h264.Click, CPU_h265.Click, CPU_AV1.Click, AMD_h264.Click, AMD_hevc.Click, AMD_AV1.Click, Intel_h264.Click, Intel_hevc.Click, Intel_AV1.Click
         Dim Button As ToolStripMenuItem = CType(sender, ToolStripMenuItem)
 
@@ -892,21 +679,6 @@ Public Class Einstellungen
     End Sub
 
 
-
-    Private Sub Label7_Click(sender As Object, e As EventArgs)
-        Process.Start("https://learn.microsoft.com/de-de/microsoft-edge/webview2/")
-    End Sub
-
-    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)
-        Process.Start("https://github.com/hama3254/metroframework-modern-ui")
-    End Sub
-
-
-
     Sub GroupBoxColor(ByVal color As Color)
         NumericUpDown1.ForeColor = color
         NumericUpDown2.ForeColor = color
@@ -919,21 +691,13 @@ Public Class Einstellungen
         DL_Count_simultaneous.ForeColor = color
         GB_Resolution.ForeColor = color
         GB_Filename_Pre.ForeColor = color
-        GroupBox1.ForeColor = color
         GroupBox2.ForeColor = color
         GroupBox3.ForeColor = color
         GroupBox4.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
-        GroupBox13.ForeColor = color
         GroupBox14.ForeColor = color
-        GroupBox15.ForeColor = color
         GroupBox16.ForeColor = color
         GroupBox17.ForeColor = color
         GroupBox18.ForeColor = color
@@ -973,12 +737,6 @@ Public Class Einstellungen
     End Sub
 
 
-    Private Sub Server_Click(sender As Object, e As EventArgs)
-        'If Server.Checked = True Then
-        '    MsgBox("This feature requires a restart of the downloader", MsgBoxStyle.Information)
-        'End If
-    End Sub
-
     Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
         Try
             Dim client0 As New WebClient
@@ -1014,60 +772,6 @@ Public Class Einstellungen
 
 
 
-    Private Sub CB_Fun_HardSubs_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CB_Fun_HardSubs.SelectedIndexChanged
-        If CB_Fun_HardSubs.SelectedIndex = 0 Then
-        Else
-            If Main.HardSubFunimation = "Disabled" Then
-                If FFMPEG_CommandP1.Text = "-c copy" Then
-                    If MessageBox.Show("Funimation hard subtitle are post-processed." + vbNewLine + "This cost a lot of performance and it should not more than one download run at the time!", "Prepare for unforeseen consequences.", MessageBoxButtons.YesNo) = DialogResult.Yes Then
-
-                    Else
-                        CB_Fun_HardSubs.SelectedIndex = 0
-                    End If
-                End If
-            End If
-
-        End If
-
-        'MetroMessageBox.Show(Me, "Test", "Test Box", MessageBoxButtons.YesNo, MessageBoxIcon.None, 150)
-        'MetroMessageBox.Show(Me, "Test", "Test Box", MessageBoxButtons.YesNo, MessageBoxIcon.None, MessageBoxDefaultButton.Button2, 150, MetroThemeStyle.Dark)
-
-    End Sub
-
-    Private Sub CB_fun_eng_CheckedChanged(sender As Object, e As EventArgs) Handles CB_fun_eng.CheckedChanged
-        If CB_fun_eng.Checked = True Then
-            FunSubDef.Items.Add("English")
-        Else
-            FunSubDef.Items.Remove("English")
-            If FunSubDef.Text = "English" Then
-                FunSubDef.SelectedItem = "[Disabled]"
-            End If
-        End If
-    End Sub
-
-    Private Sub CB_fun_es_CheckedChanged(sender As Object, e As EventArgs) Handles CB_fun_es.CheckedChanged
-        If CB_fun_es.Checked = True Then
-            FunSubDef.Items.Add("Español (LA)")
-        Else
-            FunSubDef.Items.Remove("Español (LA)")
-            If FunSubDef.Text = "Español (LA)" Then
-                FunSubDef.SelectedItem = "[Disabled]"
-            End If
-        End If
-    End Sub
-
-    Private Sub CB_fun_ptbr_CheckedChanged(sender As Object, e As EventArgs) Handles CB_fun_ptbr.CheckedChanged
-        If CB_fun_ptbr.Checked = True Then
-            FunSubDef.Items.Add("Português (Brasil)")
-        Else
-            FunSubDef.Items.Remove("Português (Brasil)")
-            If FunSubDef.Text = "Português (Brasil)" Then
-                FunSubDef.SelectedItem = "[Disabled]"
-            End If
-        End If
-    End Sub
-
-
     Private Sub MetroLink1_Click(sender As Object, e As EventArgs)
         Process.Start("https://github.com/hama3254/Crunchyroll-Downloader-v3.0/discussions/276")
     End Sub
@@ -1256,15 +960,17 @@ Public Class Einstellungen
         End If
     End Sub
 
+    Private Sub CB_HideQueue_CheckedChanged(sender As Object, e As EventArgs) Handles CB_HideQueue.CheckedChanged
+        If CB_HideQueue.Checked = True Then
+            TempMultiDL = ListViewAdd_True.Checked
+            ListViewAdd_True.Checked = True
+            ListViewAdd_True.Enabled = False
 
-
-
-    'Private Sub CB_CR_Audio_Click(sender As Object, e As EventArgs) Handles CB_CR_Audio.Click
-    '    Dim Popup As New CheckBoxComboBox
-    '    Popup.Text = "CR Dub selection"
-    '    Popup.Show()
-    'End Sub
-
+        Else
+            ListViewAdd_True.Checked = TempMultiDL
+            ListViewAdd_True.Enabled = True
+        End If
+    End Sub
 
 
 

Crunchyroll Downloader/packages.config

@@ -1,5 +1,4 @@
 <?xml version="1.0" encoding="utf-8"?>
 <packages>
-  <package id="Microsoft.Web.WebView2" version="1.0.1418.22" targetFramework="net48" />
   <package id="Newtonsoft.Json" version="13.0.1" targetFramework="net452" />
 </packages>

Crunchyroll Downloader/queue.vb

@@ -16,14 +16,22 @@ Public Class Queue
         ListBox1.ForeColor = Main.ForeColorValue
         bs.DataSource = Main.ListBoxList
         ListBox1.DataSource = bs
-
+        Me.Icon = My.Resources.icon
         Btn_min.Image = Main.MinImg
         Btn_Close.Image = Main.CloseImg
 
+        Me.StartPosition = 0
+        If Main.UserQueue = False Then
+            Me.Location = New Point(-10000, -10000)
+            'Me.ShowInTaskbar = False
+            'Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
+            RunQueue.Checked = True
+        End If
     End Sub
 
 
     Private Sub Btn_Close_Click(sender As Object, e As EventArgs) Handles Btn_Close.Click
+        Main.UserQueue = False
         Me.Close()
     End Sub
 
@@ -44,7 +52,6 @@ Public Class Queue
         If Main.ListBoxList.Count <> ListBox1.Items.Count Then
             bs.ResetBindings(False)
         End If
-
     End Sub
 
     Private Sub Queue_Resize(sender As Object, e As EventArgs) Handles Me.Resize
@@ -84,48 +91,8 @@ Public Class Queue
         If Main.RunningDownloads < Main.MaxDL Then
             If Main.ListBoxList.Count > 0 Then
 
-                If CBool(InStr(ListBox1.GetItemText(Main.ListBoxList(0)), "funimation.com")) Then
-                    If Main.Funimation_Grapp_RDY = True Then
-                        Dim UriUsed As String = ListBox1.GetItemText(Main.ListBoxList(0))
 
-                        If CBool(InStr(UriUsed, "funimation.com/v/")) Then
-                            Dim Episode0() As String = UriUsed.Split(New String() {"?"}, System.StringSplitOptions.RemoveEmptyEntries)
-                            Dim Episode() As String = Episode0(0).Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
-
-                            Dim v1JsonUrl As String = "https://d33et77evd9bgg.cloudfront.net/data/v1/episodes/" + Episode(Episode.Length - 1) + ".json"
-                            Dim v1Json As String = Nothing
-                            Try
-                                Using client As New WebClient()
-                                    client.Encoding = System.Text.Encoding.UTF8
-                                    client.Headers.Add(My.Settings.User_Agend.Replace(Chr(34), ""))
-                                    v1Json = client.DownloadString(v1JsonUrl)
-                                End Using
-                                Main.Funimation_Grapp_RDY = False
-                                Main.WebbrowserURL = UriUsed
-                                Main.ListBoxList.Remove(UriUsed)
-                                Main.b = False
-                                Main.Invalidate()
-                                Main.GetFunimationNewJS_VideoProxy(Nothing, v1Json)
-                                Exit Sub
-                            Catch ex As Exception
-                                Debug.WriteLine("error- getting v1Json data for the bypasss")
-                                Debug.WriteLine(ex.ToString)
-                            End Try
-
-                        End If
-
-                        Main.Funimation_Grapp_RDY = False
-                        Main.WebbrowserURL = UriUsed
-                        Main.ListBoxList.Remove(UriUsed)
-                        Main.b = False
-
-
-                        Main.Text = "Status: loading in browser"
-                        Main.LoadBrowser(UriUsed)
-                    End If
-
-                Else
-                    Dim UriUsed As String = ListBox1.GetItemText(Main.ListBoxList(0))
+                Dim UriUsed As String = ListBox1.GetItemText(Main.ListBoxList(0))
 
                     If Main.Grapp_RDY = True Then
                         Main.Grapp_RDY = False
@@ -137,8 +104,6 @@ Public Class Queue
                 End If
 
 
-
-            End If
         End If
     End Sub
 

README.md

@@ -1,9 +1,12 @@
-# Crunchyroll-Downloader-v3.0 is deprecated since Crunchyroll updated to a DRM only system.
-
-[This is the end.](https://www.youtube.com/watch?v=OUyfQLd3bCs)
-
 <details>
   <summary></summary>
+  
+  untrue (for now)
+  
+  # Crunchyroll-Downloader-v3.0 is deprecated since Crunchyroll updated to a DRM only system.
+
+[This is the end.](https://www.youtube.com/watch?v=OUyfQLd3bCs)
+</details>
 
 ## Crunchyroll-Downloader-v3.0
 A simple to use Download Client for Crunchyroll, Funimation and Anime on Demand 
@@ -70,4 +73,4 @@ The main screen you after starting the application looks like this (v3.6)
    
  #### to be continued 
  
-</details>
+