funimation bitrate selection

added funimation bitrate selection

Crunchyroll Downloader/Main.vb

@@ -126,6 +126,7 @@ Public Class Main
     Public UserBowser As Boolean = False
     Public HybridMode As Boolean = False
     Public HardSubFunimation As String = "Disabled"
+    Public Funimation_Bitrate As Integer = 0
     Public DubFunimation As String = "Disabled"
     Public Funimation_srt As Boolean = False
     Public Funimation_vtt As Boolean = False
@@ -333,7 +334,7 @@ Public Class Main
         End If
 
         For i As Integer = 0 To LeadingZero + 1
-            If txt.Count = LeadingZero + 1 Then
+            If txt.Count = LeadingZero + 1 Or txt.Count > LeadingZero + 1 Then
                 Exit For
             Else
                 txt = "0" + txt
@@ -493,6 +494,14 @@ Public Class Main
             'MsgBox(Resu)
         Catch ex As Exception
         End Try
+
+        Try
+            Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
+            Funimation_Bitrate = Integer.Parse(rkg.GetValue("Funimation_Bitrate").ToString)
+            'MsgBox(Resu)
+        Catch ex As Exception
+        End Try
+
         Try
             Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
             SubSprache = rkg.GetValue("Sub").ToString
@@ -3694,7 +3703,7 @@ Public Class Main
             Catch ex As Exception
                 Debug.WriteLine(ex.ToString)
                 Pause(2)
-                Debug.WriteLine("showexperience data via browser")
+                Debug.WriteLine("showexperience 2nd try")
                 'Me.Invoke(New Action(Function() As Object
                 'PlayerClient.Headers.Add(HttpRequestHeader.AcceptEncoding, "gzip")
                 'EpisodeJsonString = DecompressString(PlayerClient.DownloadData(BaseUrl + FunimationEpisodeJson + FunimationDeviceRegion))
@@ -3851,148 +3860,147 @@ Public Class Main
                     Dim FunimationAudio3() As String = FunimationAudio2(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
                     FunimationAudioMap = " -headers " + My.Resources.ffmpeg_user_agend + " -i " + Chr(34) + FunimationAudio3(0) + Chr(34)
                 End If
-                Dim Streams() As String = str1.Split(New String() {"RESOLUTION="}, System.StringSplitOptions.RemoveEmptyEntries)
+
-                'MsgBox(Funimation_m3u8_Main)
+                Dim str2() As String = str1.Split(New String() {"# keyframes"}, System.StringSplitOptions.RemoveEmptyEntries)
+
+
+                Dim Streams() As String = str2(0).Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries)
+
                 Dim FunimationBackupm3u8 As String = Nothing
+
+                Dim Tartegt_m3u8_list As New List(Of String)
+
+                Dim Secondary_m3u8_list As New List(Of String)
+
+
                 For i As Integer = 0 To Streams.Length - 1
-                    Try
+
-                        If CBool(InStr(Streams(i), "x" + Reso.ToString)) Then
+
-                            Dim Streams2() As String = Streams(i).Split(New String() {"https://"}, System.StringSplitOptions.RemoveEmptyEntries)
+                    If CBool(InStr(Streams(i), "x" + Reso.ToString)) Then
-                            Dim Streams3() As String = Streams2(1).Split(New String() {"#EXT-"}, System.StringSplitOptions.RemoveEmptyEntries)
+
-                            Dim StreamURL As String = "https://" + Streams3(0).Trim
+                        Tartegt_m3u8_list.Add(Streams(i) + vbCrLf + Streams(i + 1))
-                            Dim CheckClient As New WebClient
+                        FunimationBackupm3u8 = Streams(i + 1)
-                            CheckClient.Encoding = Encoding.UTF8
+
-                            If Not WebbrowserCookie = Nothing Then
+                    ElseIf CBool(InStr(Streams(i), ResoFunBackup)) And FunimationBackupm3u8 = Nothing Then
-                                CheckClient.Headers.Add(HttpRequestHeader.Cookie, WebbrowserCookie)
+
-                            ElseIf Not SystemWebBrowserCookie = Nothing Then
+                        Secondary_m3u8_list.Add(Streams(i) + vbCrLf + Streams(i + 1))
-                                CheckClient.Headers.Add(HttpRequestHeader.Cookie, SystemWebBrowserCookie)
+                        FunimationBackupm3u8 = Streams(i + 1)
-                            End If
+
-                            Dim m3u8String As String = CheckClient.DownloadString(StreamURL)
+                    End If
-                            'MsgBox(m3u8String)
+
-                            Dim keyfileurl() As String = m3u8String.Split(New String() {"URI=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
-                            Dim keyfileurl2() As String = keyfileurl(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
-                            Dim keyfileurl3 As String = keyfileurl2(0)
-                            If CBool(InStr(keyfileurl2(0), "https://")) Then
-                            Else
-                                Dim c() As String = New Uri(StreamURL).Segments
-                                Dim path As String = "https://" + New Uri(StreamURL).Host
-                                For i3 As Integer = 0 To c.Count - 2
-                                    path = path + c(i3)
-                                Next
-                                keyfileurl3 = path + keyfileurl2(0) 'New Uri(textLenght(i)).LocalPath + keyfileurl2(0)
-                            End If
-                            'MsgBox(keyfileurl3)
-                            Try
-                                Dim CheckClient2 As New WebClient
-                                CheckClient2.Encoding = System.Text.Encoding.UTF8
-                                Dim testdl As String = CheckClient2.DownloadString(keyfileurl3)
-                                Funimation_m3u8_final = StreamURL
-                                FunimationBackupm3u8 = StreamURL
-                                Exit For
-                            Catch ex As Exception
-                                Debug.WriteLine(keyfileurl3 + vbNewLine + vbNewLine + ex.ToString)
-                            End Try
-                        ElseIf CBool(InStr(Streams(i), ResoFunBackup)) And FunimationBackupm3u8 = Nothing Then
-                            Dim Streams2() As String = Streams(i).Split(New String() {"https://"}, System.StringSplitOptions.RemoveEmptyEntries)
-                            Dim Streams3() As String = Streams2(1).Split(New String() {"#EXT-"}, System.StringSplitOptions.RemoveEmptyEntries)
-                            Dim StreamURL As String = "https://" + Streams3(0).Trim
-                            Dim CheckClient As New WebClient
-                            CheckClient.Encoding = Encoding.UTF8
-                            If Not WebbrowserCookie = Nothing Then
-                                CheckClient.Headers.Add(HttpRequestHeader.Cookie, WebbrowserCookie)
-                            ElseIf Not SystemWebBrowserCookie = Nothing Then
-                                CheckClient.Headers.Add(HttpRequestHeader.Cookie, SystemWebBrowserCookie)
-                            End If
-                            Dim m3u8String As String = CheckClient.DownloadString(StreamURL)
-                            Dim keyfileurl() As String = m3u8String.Split(New String() {"URI=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
-                            Dim keyfileurl2() As String = keyfileurl(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
-                            Dim keyfileurl3 As String = keyfileurl2(0)
-                            If CBool(InStr(keyfileurl2(0), "https://")) Then
-                            Else
-                                Dim c() As String = New Uri(StreamURL).Segments
-                                Dim path As String = "https://" + New Uri(StreamURL).Host
-                                For i3 As Integer = 0 To c.Count - 2
-                                    path = path + c(i3)
-                                Next
-                                keyfileurl3 = path + keyfileurl2(0) 'New Uri(textLenght(i)).LocalPath + keyfileurl2(0)
-                            End If
-                            'MsgBox(keyfileurl3)
-                            Try
-                                Dim CheckClient2 As New WebClient
-                                CheckClient2.Encoding = System.Text.Encoding.UTF8
-                                Dim testdl As String = CheckClient2.DownloadString(keyfileurl3)
-                                FunimationBackupm3u8 = StreamURL
-                            Catch ex As Exception
-                                Debug.WriteLine(keyfileurl3 + vbNewLine + vbNewLine + ex.ToString)
-                            End Try
-                        End If
-                    Catch ex As Exception
-                    End Try
                 Next
-                If Funimation_m3u8_final = Nothing And FunimationBackupm3u8 = Nothing Then
+
-                    Me.Invoke(New Action(Function() As Object
+                If Tartegt_m3u8_list.Count = 0 And Secondary_m3u8_list.Count > 0 Then
-                                             Me.Text = "Status: Resolution not found!"
+                    Tartegt_m3u8_list = Secondary_m3u8_list
-                                             Anime_Add.StatusLabel.Text = "Status: Resolution not found!"
+                End If
-                                             Me.Invalidate()
+
-                                             DialogTaskString = "Funimation_Resolution"
+                If Tartegt_m3u8_list.Count > 1 Then
-                                             ResoNotFoundString = str1
+                    Dim HigestBitrate As Integer = 0
-                                             ErrorDialog.ShowDialog()
+                    For i2 As Integer = 0 To Tartegt_m3u8_list.Count - 1
-                                             Return Nothing
+                        Dim Bandwidth_String As String = Nothing
-                                         End Function))
+                        If CBool(InStr(Tartegt_m3u8_list.Item(i2), "AVERAGE-BANDWIDTH=")) = True Then
-                    ResoFunBackup = ResoBackString
+                            Bandwidth_String = "AVERAGE-BANDWIDTH="
-                    For i As Integer = 0 To Streams.Length - 1
+                        ElseIf CBool(InStr(Tartegt_m3u8_list.Item(i2), "BANDWIDTH=")) = True Then
-                        If CBool(InStr(Streams(i), ResoBackString)) Then
+                            Bandwidth_String = "BANDWIDTH="
-                            Dim Streams2() As String = Streams(i).Split(New String() {"https://"}, System.StringSplitOptions.RemoveEmptyEntries)
+                        Else
-                            Dim Streams3() As String = Streams2(1).Split(New String() {"#EXT-"}, System.StringSplitOptions.RemoveEmptyEntries)
+                            Continue For
-                            Dim StreamURL As String = "https://" + Streams3(0).Trim
+                        End If
-                            Dim CheckClient As New WebClient
+
-                            CheckClient.Encoding = Encoding.UTF8
+                        Dim BitRate() As String = Tartegt_m3u8_list.Item(i2).Split(New String() {Bandwidth_String}, System.StringSplitOptions.RemoveEmptyEntries)
-                            If Not WebbrowserCookie = Nothing Then
+                        Dim BitRate2() As String = BitRate(1).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries)
-                                CheckClient.Headers.Add(HttpRequestHeader.Cookie, WebbrowserCookie)
+                        If Funimation_Bitrate = 0 Then
-                            ElseIf Not SystemWebBrowserCookie = Nothing Then
+                            If CInt(BitRate2(0)) > HigestBitrate Then
-                                CheckClient.Headers.Add(HttpRequestHeader.Cookie, SystemWebBrowserCookie)
+                                HigestBitrate = CInt(BitRate2(0))
                             End If
-                            Dim m3u8String As String = CheckClient.DownloadString(StreamURL)
+                        Else
-                            'MsgBox(textLenght(i))
+
-                            Dim keyfileurl() As String = m3u8String.Split(New String() {"URI=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+                            If HigestBitrate > CInt(BitRate2(0)) Then
-                            Dim keyfileurl2() As String = keyfileurl(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+                                HigestBitrate = CInt(BitRate2(0))
-                            Dim keyfileurl3 As String = keyfileurl2(0)
+                            ElseIf HigestBitrate = 0 Then
-                            If CBool(InStr(keyfileurl2(0), "https://")) Then
+                                HigestBitrate = CInt(BitRate2(0))
-                            Else
-                                Dim c() As String = New Uri(StreamURL).Segments
-                                Dim path As String = "https://" + New Uri(StreamURL).Host
-                                For i3 As Integer = 0 To c.Count - 2
-                                    path = path + c(i3)
-                                Next
-                                keyfileurl3 = path + keyfileurl2(0) 'New Uri(textLenght(i)).LocalPath + keyfileurl2(0)
                             End If
-                            Try
-                                Dim CheckClient2 As New WebClient
-                                CheckClient2.Encoding = System.Text.Encoding.UTF8
-                                Dim testdl As String = CheckClient2.DownloadString(keyfileurl3)
-                                Funimation_m3u8_final = StreamURL
-                                Exit For
-                            Catch ex As Exception
-                                Debug.WriteLine(keyfileurl3 + vbNewLine + ex.ToString)
-                            End Try
-                            'Funimation_m3u8_final = textLenght(i)
-                            'Exit For
                         End If
                     Next
-                ElseIf Funimation_m3u8_final = Nothing Then
+
-                    Funimation_m3u8_final = FunimationBackupm3u8
+                    For i2 As Integer = 0 To Tartegt_m3u8_list.Count - 1
+                        If CBool(InStr(Tartegt_m3u8_list.Item(i2), HigestBitrate.ToString)) = True Then
+                            Dim new_m3u8_2() As String = Tartegt_m3u8_list.Item(i2).Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries)
+                            Funimation_m3u8_final = new_m3u8_2(1)
+                            FunimationBackupm3u8 = new_m3u8_2(1)
+                        End If
+                    Next
+                ElseIf Tartegt_m3u8_list.Count = 1 Then
+                    Dim new_m3u8_2() As String = Tartegt_m3u8_list.Item(0).Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries)
+                    Funimation_m3u8_final = new_m3u8_2(1)
+                    FunimationBackupm3u8 = new_m3u8_2(1)
+                End If
+
+
+
+                If Funimation_m3u8_final = Nothing And FunimationBackupm3u8 = Nothing Then
+                        Me.Invoke(New Action(Function() As Object
+                                                 Me.Text = "Status: Resolution not found!"
+                                                 Anime_Add.StatusLabel.Text = "Status: Resolution not found!"
+                                                 Me.Invalidate()
+                                                 DialogTaskString = "Funimation_Resolution"
+                                                 ResoNotFoundString = str1
+                                                 ErrorDialog.ShowDialog()
+                                                 Return Nothing
+                                             End Function))
+                        ResoFunBackup = ResoBackString
+                        For i As Integer = 0 To Streams.Length - 1
+                            If CBool(InStr(Streams(i), ResoBackString)) Then
+                                Dim Streams2() As String = Streams(i).Split(New String() {"https://"}, System.StringSplitOptions.RemoveEmptyEntries)
+                                Dim Streams3() As String = Streams2(1).Split(New String() {"#EXT-"}, System.StringSplitOptions.RemoveEmptyEntries)
+                                Dim StreamURL As String = "https://" + Streams3(0).Trim
+                                Dim CheckClient As New WebClient
+                                CheckClient.Encoding = Encoding.UTF8
+                                If Not WebbrowserCookie = Nothing Then
+                                    CheckClient.Headers.Add(HttpRequestHeader.Cookie, WebbrowserCookie)
+                                ElseIf Not SystemWebBrowserCookie = Nothing Then
+                                    CheckClient.Headers.Add(HttpRequestHeader.Cookie, SystemWebBrowserCookie)
+                                End If
+                                Dim m3u8String As String = CheckClient.DownloadString(StreamURL)
+                                'MsgBox(textLenght(i))
+                                Dim keyfileurl() As String = m3u8String.Split(New String() {"URI=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+                                Dim keyfileurl2() As String = keyfileurl(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+                                Dim keyfileurl3 As String = keyfileurl2(0)
+                                If CBool(InStr(keyfileurl2(0), "https://")) Then
+                                Else
+                                    Dim c() As String = New Uri(StreamURL).Segments
+                                    Dim path As String = "https://" + New Uri(StreamURL).Host
+                                    For i3 As Integer = 0 To c.Count - 2
+                                        path = path + c(i3)
+                                    Next
+                                    keyfileurl3 = path + keyfileurl2(0) 'New Uri(textLenght(i)).LocalPath + keyfileurl2(0)
+                                End If
+                                Try
+                                    Dim CheckClient2 As New WebClient
+                                    CheckClient2.Encoding = System.Text.Encoding.UTF8
+                                    Dim testdl As String = CheckClient2.DownloadString(keyfileurl3)
+                                    Funimation_m3u8_final = StreamURL
+                                    Exit For
+                                Catch ex As Exception
+                                    Debug.WriteLine(keyfileurl3 + vbNewLine + ex.ToString)
+                                End Try
+                                'Funimation_m3u8_final = textLenght(i)
+                                'Exit For
+                            End If
+                        Next
+                    ElseIf Funimation_m3u8_final = Nothing Then
+                        Funimation_m3u8_final = FunimationBackupm3u8
+                    Else
+                        Me.Invoke(New Action(Function() As Object
+                                                 Me.Text = "Status: Resolution found!"
+                                                 Anime_Add.StatusLabel.Text = "Status: Resolution found!"
+                                                 Me.Invalidate()
+                                                 Return Nothing
+                                             End Function))
+                    End If
+                    Debug.WriteLine("Funimation_m3u8_final: " + Funimation_m3u8_final)
+                    Funimation_m3u8_final = Funimation_m3u8_final.Replace(Chr(34), "")
                 Else
                     Me.Invoke(New Action(Function() As Object
-                                             Me.Text = "Status: Resolution found!"
-                                             Anime_Add.StatusLabel.Text = "Status: Resolution found!"
-                                             Me.Invalidate()
-                                             Return Nothing
-                                         End Function))
-                End If
-                Debug.WriteLine("Funimation_m3u8_final: " + Funimation_m3u8_final)
-                Funimation_m3u8_final = Funimation_m3u8_final.Replace(Chr(34), "")
-            Else
-                Me.Invoke(New Action(Function() As Object
                                          Me.Text = "Status: Substitles only mode - skipped video"
                                          Anime_Add.StatusLabel.Text = "Status: Substitles only mode - skipped video"
                                          Me.Invalidate()

Crunchyroll Downloader/My Project/AssemblyInfo.vb

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

Crunchyroll Downloader/einstellungen.Designer.vb

@@ -45,6 +45,7 @@ Partial Class Einstellungen
         Me.KodiSupport = New MetroFramework.Controls.MetroToggle()
         Me.MetroLink1 = New MetroFramework.Controls.MetroLink()
         Me.GroupBox12 = New System.Windows.Forms.GroupBox()
+        Me.LeadingZeroDD = New MetroFramework.Controls.MetroComboBox()
         Me.IgnoreS1 = New MetroFramework.Controls.MetroCheckBox()
         Me.DD_Episode_Prefix = New MetroFramework.Controls.MetroComboBox()
         Me.DD_Season_Prefix = New MetroFramework.Controls.MetroComboBox()
@@ -111,19 +112,20 @@ Partial Class Einstellungen
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
         Me.CB_SoftSubSettings = New MetroFramework.Controls.MetroComboBox()
         Me.TabPage6 = New MetroFramework.Controls.MetroTabPage()
-        Me.GroupBox13 = New System.Windows.Forms.GroupBox()
+        Me.GroupBox8 = New System.Windows.Forms.GroupBox()
-        Me.FunSubDef = New MetroFramework.Controls.MetroComboBox()
+        Me.CB_fun_eng = New MetroFramework.Controls.MetroCheckBox()
-        Me.GroupBox11 = New System.Windows.Forms.GroupBox()
+        Me.CB_fun_es = New MetroFramework.Controls.MetroCheckBox()
-        Me.CB_srt = New MetroFramework.Controls.MetroCheckBox()
+        Me.CB_fun_ptbr = New MetroFramework.Controls.MetroCheckBox()
-        Me.CB_vtt = New MetroFramework.Controls.MetroCheckBox()
         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.CB_fun_eng = New MetroFramework.Controls.MetroCheckBox()
+        Me.GroupBox13 = New System.Windows.Forms.GroupBox()
-        Me.CB_fun_es = New MetroFramework.Controls.MetroCheckBox()
+        Me.FunSubDef = New MetroFramework.Controls.MetroComboBox()
-        Me.CB_fun_ptbr = New MetroFramework.Controls.MetroCheckBox()
+        Me.GroupBox11 = New System.Windows.Forms.GroupBox()
+        Me.CB_srt = New MetroFramework.Controls.MetroCheckBox()
+        Me.CB_vtt = New MetroFramework.Controls.MetroCheckBox()
         Me.TabPage7 = New System.Windows.Forms.TabPage()
         Me.LastVersion = New MetroFramework.Controls.MetroLabel()
         Me.Label8 = New MetroFramework.Controls.MetroLabel()
@@ -136,7 +138,8 @@ Partial Class Einstellungen
         Me.Label5 = New MetroFramework.Controls.MetroLabel()
         Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
         Me.Btn_Save = New System.Windows.Forms.Button()
-        Me.LeadingZeroDD = New MetroFramework.Controls.MetroComboBox()
+        Me.GroupBox15 = New System.Windows.Forms.GroupBox()
+        Me.Bitrate_Funi = New MetroFramework.Controls.MetroComboBox()
         CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox14.SuspendLayout()
         Me.SoftSubs.SuspendLayout()
@@ -160,13 +163,15 @@ Partial Class Einstellungen
         Me.MetroTabPage1.SuspendLayout()
         Me.GroupBox3.SuspendLayout()
         Me.TabPage6.SuspendLayout()
-        Me.GroupBox13.SuspendLayout()
+        Me.GroupBox8.SuspendLayout()
-        Me.GroupBox11.SuspendLayout()
         Me.GroupBox10.SuspendLayout()
         Me.GroupBox7.SuspendLayout()
         Me.GroupBox9.SuspendLayout()
+        Me.GroupBox13.SuspendLayout()
+        Me.GroupBox11.SuspendLayout()
         Me.TabPage7.SuspendLayout()
         CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox15.SuspendLayout()
         Me.SuspendLayout()
         '
         'ToolTip1
@@ -448,6 +453,20 @@ Partial Class Einstellungen
         Me.GroupBox12.TabStop = False
         Me.GroupBox12.Text = "Filename"
         '
+        'LeadingZeroDD
+        '
+        Me.LeadingZeroDD.DropDownHeight = 250
+        Me.LeadingZeroDD.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.LeadingZeroDD.FormattingEnabled = True
+        Me.LeadingZeroDD.IntegralHeight = False
+        Me.LeadingZeroDD.ItemHeight = 23
+        Me.LeadingZeroDD.Items.AddRange(New Object() {"1", "01", "001", "0001"})
+        Me.LeadingZeroDD.Location = New System.Drawing.Point(6, 151)
+        Me.LeadingZeroDD.Name = "LeadingZeroDD"
+        Me.LeadingZeroDD.Size = New System.Drawing.Size(225, 29)
+        Me.LeadingZeroDD.TabIndex = 20
+        Me.LeadingZeroDD.UseSelectable = True
+        '
         'IgnoreS1
         '
         Me.IgnoreS1.AutoSize = True
@@ -1105,7 +1124,7 @@ Partial Class Einstellungen
         Me.TabControl1.FontWeight = MetroFramework.MetroTabControlWeight.Regular
         Me.TabControl1.Location = New System.Drawing.Point(22, 60)
         Me.TabControl1.Name = "TabControl1"
-        Me.TabControl1.SelectedIndex = 1
+        Me.TabControl1.SelectedIndex = 3
         Me.TabControl1.Size = New System.Drawing.Size(509, 567)
         Me.TabControl1.TabIndex = 0
         Me.TabControl1.UseSelectable = True
@@ -1119,9 +1138,9 @@ Partial Class Einstellungen
         Me.MetroTabPage1.HorizontalScrollbarBarColor = True
         Me.MetroTabPage1.HorizontalScrollbarHighlightOnWheel = False
         Me.MetroTabPage1.HorizontalScrollbarSize = 10
-        Me.MetroTabPage1.Location = New System.Drawing.Point(4, 35)
+        Me.MetroTabPage1.Location = New System.Drawing.Point(4, 44)
         Me.MetroTabPage1.Name = "MetroTabPage1"
-        Me.MetroTabPage1.Size = New System.Drawing.Size(501, 528)
+        Me.MetroTabPage1.Size = New System.Drawing.Size(501, 519)
         Me.MetroTabPage1.TabIndex = 7
         Me.MetroTabPage1.Text = "Crunchyroll"
         Me.MetroTabPage1.VerticalScrollbarBarColor = True
@@ -1159,18 +1178,17 @@ Partial Class Einstellungen
         '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.GroupBox13)
+        Me.TabPage6.Controls.Add(Me.GroupBox15)
-        Me.TabPage6.Controls.Add(Me.GroupBox11)
         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.Location = New System.Drawing.Point(4, 44)
         Me.TabPage6.Name = "TabPage6"
         Me.TabPage6.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage6.Size = New System.Drawing.Size(501, 528)
+        Me.TabPage6.Size = New System.Drawing.Size(501, 519)
         Me.TabPage6.TabIndex = 4
         Me.TabPage6.Text = "Funimation"
         Me.TabPage6.VerticalScrollbarBarColor = True
@@ -1178,18 +1196,139 @@ Partial Class Einstellungen
         Me.TabPage6.VerticalScrollbarSize = 10
         Me.TabPage6.Visible = False
         '
+        '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, 82)
+        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
+        '
+        '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, 450)
+        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, 288)
+        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(5, 270)
+        Me.GroupBox13.Location = New System.Drawing.Point(10, 193)
         Me.GroupBox13.Name = "GroupBox13"
-        Me.GroupBox13.Size = New System.Drawing.Size(490, 69)
+        Me.GroupBox13.Size = New System.Drawing.Size(474, 82)
         Me.GroupBox13.TabIndex = 70
         Me.GroupBox13.TabStop = False
-        Me.GroupBox13.Text = "default subtitle"
+        Me.GroupBox13.Text = "Default Subtitle"
         '
         'FunSubDef
         '
@@ -1212,12 +1351,12 @@ Partial Class Einstellungen
         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(5, 182)
+        Me.GroupBox11.Location = New System.Drawing.Point(10, 105)
         Me.GroupBox11.Name = "GroupBox11"
-        Me.GroupBox11.Size = New System.Drawing.Size(490, 82)
+        Me.GroupBox11.Size = New System.Drawing.Size(474, 82)
         Me.GroupBox11.TabIndex = 60
         Me.GroupBox11.TabStop = False
-        Me.GroupBox11.Text = "Soft-Subtitle Format"
+        Me.GroupBox11.Text = "Format"
         '
         'CB_srt
         '
@@ -1243,113 +1382,6 @@ Partial Class Einstellungen
         Me.CB_vtt.Text = "vtt"
         Me.CB_vtt.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(5, 345)
-        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(69, 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(5, 6)
-        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(69, 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.CB_fun_eng)
-        Me.GroupBox9.Controls.Add(Me.CB_fun_es)
-        Me.GroupBox9.Controls.Add(Me.CB_fun_ptbr)
-        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(5, 81)
-        Me.GroupBox9.Name = "GroupBox9"
-        Me.GroupBox9.Size = New System.Drawing.Size(490, 95)
-        Me.GroupBox9.TabIndex = 50
-        Me.GroupBox9.TabStop = False
-        Me.GroupBox9.Text = "Soft-Subtitle"
-        '
-        '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(51, 50)
-        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(165, 50)
-        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(287, 50)
-        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
@@ -1362,9 +1394,9 @@ 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, 44)
         Me.TabPage7.Name = "TabPage7"
-        Me.TabPage7.Size = New System.Drawing.Size(501, 528)
+        Me.TabPage7.Size = New System.Drawing.Size(501, 519)
         Me.TabPage7.TabIndex = 5
         Me.TabPage7.Text = "About   "
         '
@@ -1496,19 +1528,33 @@ Partial Class Einstellungen
         Me.Btn_Save.TabIndex = 9
         Me.Btn_Save.UseVisualStyleBackColor = False
         '
-        'LeadingZeroDD
+        'GroupBox15
         '
-        Me.LeadingZeroDD.DropDownHeight = 250
+        Me.GroupBox15.BackColor = System.Drawing.Color.Transparent
-        Me.LeadingZeroDD.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GroupBox15.Controls.Add(Me.Bitrate_Funi)
-        Me.LeadingZeroDD.FormattingEnabled = True
+        Me.GroupBox15.Font = New System.Drawing.Font("Arial", 9.75!)
-        Me.LeadingZeroDD.IntegralHeight = False
+        Me.GroupBox15.ForeColor = System.Drawing.Color.Black
-        Me.LeadingZeroDD.ItemHeight = 23
+        Me.GroupBox15.Location = New System.Drawing.Point(0, 375)
-        Me.LeadingZeroDD.Items.AddRange(New Object() {"1", "01", "001", "0001"})
+        Me.GroupBox15.Name = "GroupBox15"
-        Me.LeadingZeroDD.Location = New System.Drawing.Point(6, 151)
+        Me.GroupBox15.Size = New System.Drawing.Size(490, 69)
-        Me.LeadingZeroDD.Name = "LeadingZeroDD"
+        Me.GroupBox15.TabIndex = 41
-        Me.LeadingZeroDD.Size = New System.Drawing.Size(225, 29)
+        Me.GroupBox15.TabStop = False
-        Me.LeadingZeroDD.TabIndex = 20
+        Me.GroupBox15.Text = "Bitrate"
-        Me.LeadingZeroDD.UseSelectable = True
+        '
+        '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
         '
         'Einstellungen
         '
@@ -1560,15 +1606,17 @@ Partial Class Einstellungen
         Me.MetroTabPage1.ResumeLayout(False)
         Me.GroupBox3.ResumeLayout(False)
         Me.TabPage6.ResumeLayout(False)
-        Me.GroupBox13.ResumeLayout(False)
+        Me.GroupBox8.ResumeLayout(False)
-        Me.GroupBox11.ResumeLayout(False)
+        Me.GroupBox8.PerformLayout()
-        Me.GroupBox11.PerformLayout()
         Me.GroupBox10.ResumeLayout(False)
         Me.GroupBox7.ResumeLayout(False)
         Me.GroupBox9.ResumeLayout(False)
-        Me.GroupBox9.PerformLayout()
+        Me.GroupBox13.ResumeLayout(False)
+        Me.GroupBox11.ResumeLayout(False)
+        Me.GroupBox11.PerformLayout()
         Me.TabPage7.ResumeLayout(False)
         CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox15.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -1688,4 +1736,7 @@ Partial Class Einstellungen
     Friend WithEvents ListBit_3500 As ToolStripMenuItem
     Friend WithEvents ListBit_2500 As ToolStripMenuItem
     Friend WithEvents LeadingZeroDD As MetroFramework.Controls.MetroComboBox
+    Friend WithEvents GroupBox8 As GroupBox
+    Friend WithEvents GroupBox15 As GroupBox
+    Friend WithEvents Bitrate_Funi 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

@@ -18,7 +18,7 @@ Public Class Einstellungen
 
     Private Sub Einstellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
-        Label6.Text = "You have: v" + Application.ProductVersion.ToString + " Chromium-U10.1"
+        Label6.Text = "You have: v" + Application.ProductVersion.ToString + " Chromium-U11"
 
         BackgroundWorker1.RunWorkerAsync()
 
@@ -33,6 +33,9 @@ Public Class Einstellungen
 
         ProfileTextBox.Text = Main.ProfileFolder
         LeadingZeroDD.SelectedIndex = Main.LeadingZero
+
+        Bitrate_Funi.SelectedIndex = Main.Funimation_Bitrate
+
         If Main.IgnoreS1 = True Then
             IgnoreS1.Checked = True
         End If
@@ -330,6 +333,10 @@ Public Class Einstellungen
         Main.LeadingZero = LeadingZeroDD.SelectedIndex
         rk.SetValue("LeadingZero", LeadingZeroDD.SelectedIndex, RegistryValueKind.String)
 
+        Main.Funimation_Bitrate = Bitrate_Funi.SelectedIndex
+        rk.SetValue("Funimation_Bitrate", Bitrate_Funi.SelectedIndex, RegistryValueKind.String)
+
+
         If http_support.Text = "add-on support disabled" Then
             rk.SetValue("ServerPort", 0, RegistryValueKind.String)
             Main.StartServer = CInt(False)
@@ -907,11 +914,14 @@ Public Class Einstellungen
         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
     End Sub
 
 
@@ -1198,13 +1208,6 @@ Public Class Einstellungen
         End If
     End Sub
 
-    Private Sub TabPage6_Click(sender As Object, e As EventArgs) Handles TabPage6.Click
-
-    End Sub
-
-
-
-
 
 
 

Crunchyroll Downloader/obj/x64/Debug/Crunchyroll Downloader.vbproj.FileListAbsolute.txt

@@ -104,6 +104,6 @@ D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Ce
 D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - CefSharp\Crunchyroll Downloader\obj\x64\Debug\Crunchyroll Downloader.vbproj.CopyComplete
 D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - CefSharp\Crunchyroll Downloader\obj\x64\Debug\Crunchyroll Downloader.exe
 D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - CefSharp\Crunchyroll Downloader\obj\x64\Debug\Crunchyroll Downloader.pdb
-D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - CefSharp\Crunchyroll Downloader\obj\x64\Debug\Crunchyroll Downloader.vbprojAssemblyReference.cache
 D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - CefSharp\Crunchyroll Downloader\bin\x64\Debug\libcef.dll
 D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - CefSharp\Crunchyroll Downloader\obj\x64\Debug\Crunchyroll_Downloader.ErrorBrowser.resources
+D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - CefSharp\Crunchyroll Downloader\obj\x64\Debug\Crunchyroll Downloader.vbprojAssemblyReference.cache