subtile changes, UI adjustments

- Softsubtile can now be merged with the mp4 video file!
-batch download for subtiles only now
-adjustments for the settings UI

Crunchyroll Downloader/Anime_Add.vb

@@ -420,6 +420,8 @@ Public Class Anime_Add
     End Sub
 
 
+
+
 #End Region
 
 End Class

Crunchyroll Downloader/Crunchyroll Downloader.vbproj

@@ -148,12 +148,6 @@
       <DesignTime>True</DesignTime>
       <DependentUpon>Resources.resx</DependentUpon>
     </Compile>
-    <Compile Include="SoftSub.Designer.vb">
-      <DependentUpon>SoftSub.vb</DependentUpon>
-    </Compile>
-    <Compile Include="SoftSub.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="Startup.Designer.vb">
       <DependentUpon>Startup.vb</DependentUpon>
     </Compile>
@@ -193,9 +187,6 @@
     <EmbeddedResource Include="GeckoFX.resx">
       <DependentUpon>GeckoFX.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="SoftSub.resx">
-      <DependentUpon>SoftSub.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="Startup.resx">
       <DependentUpon>Startup.vb</DependentUpon>
     </EmbeddedResource>
@@ -248,6 +239,9 @@
     <Content Include="Firefox\softokn3.dll" />
     <Content Include="Firefox\xul.dll" />
     <Content Include="icon.ico" />
+    <None Include="Resources\softsubs_download_hover.png" />
+    <None Include="Resources\softsubs_download_gray.png" />
+    <None Include="Resources\softsubs_download.png" />
     <None Include="packages.config" />
     <None Include="Resources\main-del-hover.png" />
     <None Include="Resources\main-del.png" />

Crunchyroll Downloader/GeckoFX.vb

@@ -8,7 +8,7 @@ Imports System.Net
 Imports System.Net.WebUtility
 Public Class GeckoFX
     Public keks As String = Nothing
-    Public c As Boolean = True
+    'Public c As Boolean = True
     Dim t As Thread
     Dim ScanTrue As Boolean = False
     Private Sub GeckoWebBrowser1_DocumentCompleted(sender As Object, e As EventArgs) Handles WebBrowser1.DocumentCompleted
@@ -76,10 +76,20 @@ Public Class GeckoFX
                             Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
                             Main.WebbrowserTitle = WebBrowser1.DocumentTitle
                             Main.b = True
-                            t = New Thread(AddressOf Main.GrappURL)
-                            t.Priority = ThreadPriority.Normal
-                            t.IsBackground = True
-                            t.Start()
+                            If Main.d = False Then
+                                Main.d = True
+                                t = New Thread(AddressOf Main.DownloadSubsOnly)
+                                t.Priority = ThreadPriority.Normal
+                                t.IsBackground = True
+                                t.Start()
+                            Else
+                                t = New Thread(AddressOf Main.GrappURL)
+                                t.Priority = ThreadPriority.Normal
+                                t.IsBackground = True
+                                t.Start()
+                            End If
+
+
 
                         ElseIf CBool(InStr(WebBrowser1.Document.Body.OuterHtml, "season-dropdown content-menu block")) Then
                             Main.b = True
@@ -87,29 +97,45 @@ Public Class GeckoFX
                             Main.WebbrowserURL = WebBrowser1.Url.ToString
                             Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
                             Main.WebbrowserTitle = WebBrowser1.DocumentTitle
-                            Main.SeasonDropdownGrapp()
+                            If Main.d = False Then
+                                Main.d = True
+                                Main.SeasonDropdownGrappSubs()
+                                einstellungen.StatusLabel.Text = "Status: Multi Download detected!"
+                            Else
+                                Main.SeasonDropdownGrapp()
+                            End If
                         ElseIf CBool(InStr(WebBrowser1.Document.Body.OuterHtml, "wrapper container-shadow hover-classes")) Then
                             Main.b = True
                             Anime_Add.textBox2.Text = "Name of the Anime"
                             Main.WebbrowserURL = WebBrowser1.Url.ToString
                             Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
                             Main.WebbrowserTitle = WebBrowser1.DocumentTitle
-                            Main.MassGrapp()
+                            If Main.d = False Then
+                                Main.d = True
+                                Main.MassGrappSubs()
+                                einstellungen.StatusLabel.Text = "Status: Multi Download detected!"
+
+                            Else
+                                Main.MassGrapp()
+                            End If
                         Else
                             MsgBox(Main.No_Stream, MsgBoxStyle.OkOnly)
                         End If
                     Catch ex As Exception
+                        MsgBox(ex.ToString)
                         Main.LabelUpdate = "Status: idle"
                     End Try
-                ElseIf c = False Then
+                ElseIf main.c = False Then
                     If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, "hardsub_lang")) Then
-                        c = True
+                        Main.c = True
                         Main.WebbrowserURL = WebBrowser1.Url.ToString
                         Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
                         Main.WebbrowserTitle = WebBrowser1.DocumentTitle
-                        SoftSub.DownloadSubs()
+                        'SoftSub.DownloadSubs()
                         Me.Close()
                     End If
+
+
                 End If
                 If Main.UserBowser = False Then
                     Main.WebbrowserURL = WebBrowser1.Url.ToString

Crunchyroll Downloader/Main.vb

@@ -6,9 +6,11 @@ Imports System.ComponentModel
 Public Class Main
     Public LoggingBrowser As Boolean = False
     Public Thumbnail As String = Nothing
+    Public MergeSubstoMP4 As Boolean = False
     Dim ListOfStreams As New List(Of String)
     Public NonCR_Timeout As Integer = 5
     Public NonCR_URL As String = Nothing
+    Public DlSoftSubsRDY As Boolean = True
     Public gIndexH As Integer = -1
     Public DialogTaskString As String
     Public UserCloseDialog As Boolean = False
@@ -17,10 +19,12 @@ Public Class Main
     Public LabelUpdate As String = "Status: idle"
     Public LabelEpisode As String = "..."
     Public b As Boolean = True
+    Public c As Boolean = True
+    Public d As Boolean = True
     Public LoginOnly As String = "False"
     Public CreditsOnly As Boolean = False
     Public Pfad As String = My.Computer.FileSystem.CurrentDirectory
-    Dim ffmpeg_command As String
+    Dim ffmpeg_command As String = " -c copy -bsf:a aac_adtstoasc"
     Public Resu As Integer
     Dim Resu2 As String
     Public ResuSave As String = "6666x6666"
@@ -175,12 +179,12 @@ Public Class Main
 
 
 
-        Try
-            Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
-            ffmpeg_command = rkg.GetValue("ffmpeg_command").ToString
-        Catch ex As Exception
-            ffmpeg_command = "-c copy -bsf:a aac_adtstoasc -movflags +faststart"
-        End Try
+        'Try
+        '    Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
+        '    ffmpeg_command = rkg.GetValue("ffmpeg_command").ToString
+        'Catch ex As Exception
+        '    ffmpeg_command = " -c copy -bsf:a aac_adtstoasc"
+        'End Try
         Try
             Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
             Resu = Integer.Parse(rkg.GetValue("Resu").ToString)
@@ -209,6 +213,12 @@ Public Class Main
         Catch ex As Exception
             MaxDL = 1
         End Try
+        Try
+            Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
+            MergeSubstoMP4 = CBool(Integer.Parse(rkg.GetValue("MergeMP4").ToString))
+        Catch ex As Exception
+
+        End Try
 #Region "removed softsubtitle"
 
         Try
@@ -237,7 +247,7 @@ Public Class Main
 
     End Sub
 
-    Public Sub ListAdd(ByVal NameKomplett As String, ByVal NameP1 As String, ByVal NameP2 As String, ByVal Reso As String, ByVal HardSub As String, ByVal SoftSubs As String, ByVal ThumbnialURL As String, ByVal VideoURL As String)
+    Public Sub ListAdd(ByVal NameKomplett As String, ByVal NameP1 As String, ByVal NameP2 As String, ByVal Reso As String, ByVal HardSub As String, ByVal SoftSubs As String, ByVal ThumbnialURL As String)
         'MsgBox(NameKomplett)
         Dim ReDl As Boolean = False
         Dim index As Integer = 0
@@ -500,17 +510,6 @@ Public Class Main
                     Aktuell = d.ToString
                     '  AnzahlFertig.Text = d.ToString
                     Anime_Add.Add_Display.Text = Aktuell + " / " + Gesamt
-                    If CBool(InStr(WebbrowserText, Chr(34) + "premium_status" + Chr(34) + ":" + Chr(34) + "premium" + Chr(34))) Then
-                    ElseIf CBool(InStr(WebbrowserText, Chr(34) + "premium_status" + Chr(34) + ":" + Chr(34) + "free_trial" + Chr(34))) Then
-                        'Else
-                        '    'MsgBox(CR_Premium_Failed, MsgBoxStyle.Information)
-                        '    Anime_Add.groupBox1.Visible = True
-                        '    Anime_Add.groupBox2.Visible = False
-                        '    Anime_Add.GroupBox3.Visible = False
-                        '    Anime_Add.Mass_DL_Cancel = False
-                        '    Anime_Add.pictureBox4.Image = My.Resources.main_button_download_default
-                        '    Exit Sub
-                    End If
                 Next
 
 
@@ -538,6 +537,314 @@ Public Class Main
         Anime_Add.pictureBox4.Image = My.Resources.main_button_download_default
     End Sub
 #End Region
+
+#Region "SubsOnly"
+
+    Public Sub MassGrappSubs()
+        einstellungen.MultiDLSoftSubs.Enabled = True
+        einstellungen.PictureBox3.Image = My.Resources.softsubs_download
+        einstellungen.ComboBox1.Items.Clear()
+        einstellungen.comboBox3.Items.Clear()
+        einstellungen.comboBox4.Items.Clear()
+        einstellungen.ComboBox2.Enabled = False
+        Dim Anzahl As String() = WebbrowserText.Split(New String() {"wrapper container-shadow hover-classes"}, System.StringSplitOptions.RemoveEmptyEntries)
+        Dim Titel As String() = Anzahl(0).Split(New String() {"<meta content=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+        Dim Titel2 As String() = Titel(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+        Dim c As Integer = Anzahl.Count - 1
+        Array.Reverse(Anzahl)
+        For i As Integer = 0 To Anzahl.Count - 2
+            Dim URLGrapp As String() = Anzahl(i).Split(New String() {"title=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+            Dim URLGrapp2 As String() = URLGrapp(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+
+            einstellungen.comboBox3.Items.Add(URLGrapp2(0))
+            einstellungen.comboBox4.Items.Add(URLGrapp2(0))
+        Next
+
+    End Sub
+
+    Public Sub SeasonDropdownGrappSubs()
+        einstellungen.MultiDLSoftSubs.Enabled = True
+        einstellungen.PictureBox3.Image = My.Resources.softsubs_download
+        einstellungen.ComboBox1.Items.Clear()
+        einstellungen.comboBox3.Items.Clear()
+        einstellungen.comboBox4.Items.Clear()
+        einstellungen.ComboBox2.Enabled = True
+        einstellungen.comboBox3.Enabled = True
+        einstellungen.comboBox4.Enabled = True
+        Dim Anzahl As String() = WebbrowserText.Split(New String() {"season-dropdown content-menu block"}, System.StringSplitOptions.RemoveEmptyEntries)
+        Array.Reverse(Anzahl)
+        For i As Integer = 0 To Anzahl.Count - 2
+            Dim Titel As String() = Anzahl(i).Split(New String() {"</a>"}, System.StringSplitOptions.RemoveEmptyEntries)
+            Dim Titel2 As String() = Titel(0).Split(New String() {">"}, System.StringSplitOptions.RemoveEmptyEntries)
+            'MsgBox(Titel2(0))
+            einstellungen.ComboBox2.Items.Add(Titel2(1))
+        Next
+
+    End Sub
+
+    Public Sub DownloadSubsOnly()
+        'Try
+        'Throw New System.Exception("Test")
+        DlSoftSubsRDY = False
+        Dim CR_Anime_Titel As String = Nothing
+        Dim CR_Anime_Staffel As String = Nothing
+        Dim CR_Anime_Folge As String = Nothing
+#Region "Name + Pfad"
+        Dim Pfad2 As String
+        Dim CR_FilenName As String = Nothing
+        Dim SubfolderValue As String = Nothing
+        Dim CR_FilenName_Backup As String = Nothing
+
+
+#Region "Name von Crunchyroll"
+
+        Dim Bug_Deutsch As String = "-"
+        If CBool(InStr(WebbrowserTitle, "Anschauen auf Crunchyroll")) Then
+            Bug_Deutsch = ":"
+        End If
+        Dim CR_Name_by_Titel_2 As String() = WebbrowserTitle.Split(New String() {Bug_Deutsch}, System.StringSplitOptions.RemoveEmptyEntries)
+        CR_FilenName = CR_Name_by_Titel_2(0).Trim()
+
+        If CBool(InStr(WebbrowserText, "<h4>")) Then ' false on movie true on series
+            Dim CR_Name_1 As String() = WebbrowserText.Split(New String() {"<h4>"}, System.StringSplitOptions.RemoveEmptyEntries)
+            Dim CR_Name_2 As String() = CR_Name_1(1).Split(New String() {"</h4>"}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"})
+            Dim CR_Name_Staffel0_Folge1 As String()
+            If CBool(InStr(CR_Name_2(0), ",")) Then
+                CR_Name_Staffel0_Folge1 = CR_Name_2(0).Split(New [Char]() {System.Convert.ToChar(",")}, System.StringSplitOptions.RemoveEmptyEntries)
+                CR_Anime_Staffel = CR_Name_Staffel0_Folge1(0).Trim()
+                CR_Anime_Folge = CR_Name_Staffel0_Folge1(1).Trim()
+                CR_Anime_Folge = System.Text.RegularExpressions.Regex.Replace(CR_Anime_Folge, "[^\w\\-]", " ")
+            Else
+                CR_Anime_Staffel = Nothing
+                CR_Anime_Folge = CR_Name_2(0).Trim()
+                CR_Anime_Folge = System.Text.RegularExpressions.Regex.Replace(CR_Anime_Folge, "[^\w\\-]", " ")
+            End If
+
+
+            Dim CR_Name_4 As String() = CR_Name_1(0).Split(New String() {"class=" + Chr(34) + "text-link" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"})
+            Dim CR_Name_Anime0 As String() = CR_Name_4(CR_Name_4.Length - 1).Split(New String() {"</a>"}, System.StringSplitOptions.RemoveEmptyEntries)
+            CR_Name_Anime0(0) = System.Text.RegularExpressions.Regex.Replace(CR_Name_Anime0(0), "[^\w\\-]", " ")
+            CR_Anime_Titel = CR_Name_Anime0(0).Trim
+            If CR_Anime_Staffel = Nothing Then
+                CR_FilenName = CR_Anime_Titel + " " + CR_Anime_Folge
+            Else
+                CR_FilenName = CR_Anime_Titel + " " + CR_Anime_Staffel + " " + CR_Anime_Folge
+            End If
+
+            CR_FilenName_Backup = RemoveExtraSpaces(CR_FilenName)
+
+
+        End If
+#End Region
+        CR_FilenName = System.Text.RegularExpressions.Regex.Replace(CR_FilenName, "[^\w\\-]", " ")
+        CR_FilenName = RemoveExtraSpaces(CR_FilenName)
+
+        If SubfolderValue = Nothing Then
+            Pfad2 = Pfad + "\" + CR_FilenName + ".mp4"
+        Else
+            Pfad2 = Pfad + "\" + SubfolderValue + CR_FilenName + ".mp4"
+        End If
+        If Not Directory.Exists(Path.GetDirectoryName(Pfad2)) Then
+            ' Nein! Jetzt erstellen...
+            Try
+                Directory.CreateDirectory(Path.GetDirectoryName(Pfad2))
+            Catch ex As Exception
+                ' Ordner wurde nich erstellt
+                Pfad2 = Pfad + "\" + CR_FilenName_Backup + ".mp4"
+            End Try
+        End If
+        Pfad2 = Chr(34) + Pfad2 + Chr(34)
+
+#End Region
+#Region "Subs"
+        Dim SoftSubs2 As New List(Of String)
+        If SoftSubs.Count > 0 Then
+            For i As Integer = 0 To SoftSubs.Count - 1
+                If CBool(InStr(WebbrowserText, Chr(34) + "language" + Chr(34) + ":" + Chr(34) + SoftSubs(i) + Chr(34) + ",")) Then
+                    SoftSubs2.Add(SoftSubs(i))
+                Else
+                    'MsgBox("Softsubtitle for " + SoftSubs(i) + " is not avalible.", MsgBoxStyle.Information)
+                End If
+            Next
+
+        End If
+        If SubSprache = "None" Then
+            If CBool(InStr(WebbrowserText, Chr(34) + "hardsub_lang" + Chr(34) + ":null")) Then
+                SubSprache2 = "null"
+            Else
+                Me.Invoke(New Action(Function()
+                                         ResoNotFoundString = WebbrowserText
+                                         DialogTaskString = "Language"
+                                         Reso.ShowDialog()
+                                         Return Nothing
+                                     End Function))
+                If UserCloseDialog = True Then
+                    Throw New System.Exception(Chr(34) + "UserAbort" + Chr(34))
+                Else
+                    If ResoBackString = Nothing Then
+                    Else
+                        SubSprache2 = ResoBackString
+                    End If
+                End If
+                'Throw New System.Exception("Could not find the sub language")
+            End If
+
+
+        Else
+            If CBool(InStr(WebbrowserText, Chr(34) + "hardsub_lang" + Chr(34) + ":" + Chr(34) + SubSprache + Chr(34) + ",")) Then
+                SubSprache2 = Chr(34) + SubSprache + Chr(34)
+
+            ElseIf CBool(InStr(WebbrowserText, Chr(34) + "language" + Chr(34) + ":" + Chr(34) + SubSprache + Chr(34) + ",")) Then
+                If MessageBox.Show("It look like only Softsubtitle are avalibe." + vbNewLine + "Are you want to use Softsubtitle this time instead?", "No Hardsubtitle", MessageBoxButtons.YesNo) = DialogResult.Yes Then
+                    SubSprache2 = "null"
+                    SoftSubs2.Add(SubSprache)
+                Else
+                    Throw New System.Exception("Could not find the sub language")
+                End If
+
+
+            Else
+                Me.Invoke(New Action(Function()
+                                         ResoNotFoundString = WebbrowserText
+                                         DialogTaskString = "Language"
+                                         Reso.ShowDialog()
+                                         Return Nothing
+                                     End Function))
+                If UserCloseDialog = True Then
+                    Throw New System.Exception(Chr(34) + "UserAbort" + Chr(34))
+                Else
+                    If ResoBackString = Nothing Then
+                    Else
+                        SubSprache2 = ResoBackString
+                    End If
+                End If
+            End If
+        End If
+
+
+#End Region
+        If Grapp_Abord = True Then
+            Grapp_RDY = True
+            Grapp_Abord = False
+            'MsgBox("grapp_abourd")
+            Exit Sub
+
+        End If
+
+
+#Region "Download softsub file"
+
+        If SoftSubs2.Count > 0 Then
+            For i As Integer = 0 To SoftSubs2.Count - 1
+                LabelUpdate = "Status: downloading subtitle file"
+                LabelEpisode = SoftSubs2(i)
+                Dim SoftSub As String() = WebbrowserText.Split(New String() {Chr(34) + "language" + Chr(34) + ":" + Chr(34) + SoftSubs2(i) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+                Dim SoftSub_2 As String() = SoftSub(1).Split(New [Char]() {Chr(34)})
+                Dim SoftSub_3 As String = SoftSub_2(0).Replace("\/", "/")
+                Dim client0 As New WebClient
+                client0.Encoding = Encoding.UTF8
+                Dim str0 As String = client0.DownloadString(SoftSub_3)
+                Dim Pfad3 As String = Pfad2.Replace(Chr(34), "")
+                Dim FN As String = Path.ChangeExtension(Path.Combine(Path.GetFileNameWithoutExtension(Pfad3) + " " + SoftSubs2(i) + Path.GetExtension(Pfad3)), "ass")
+                'MsgBox(FN)
+                If i = 0 Then
+                    FN = Path.ChangeExtension(Path.GetFileName(Pfad3), "ass")
+                    'MsgBox(FN)
+                End If
+                Dim Pfad4 As String = Path.Combine(Path.GetDirectoryName(Pfad3), FN)
+                'MsgBox(Pfad4)
+                File.WriteAllText(Pfad4, str0, Encoding.UTF8)
+                Pause(1)
+            Next
+
+
+        End If
+#End Region
+
+        DlSoftSubsRDY = True
+
+        'Catch ex As Exception
+        'End Try
+    End Sub
+
+    Public Async Sub MassSubsDL()
+        If einstellungen.comboBox3.Text = Nothing Then
+            Exit Sub
+        ElseIf einstellungen.comboBox4.Text = Nothing Then
+            Exit Sub
+        End If
+        einstellungen.SoftSubsMass.Text = "preparing ..."
+        Dim Website As String = WebbrowserText
+
+        If einstellungen.ComboBox2.Enabled = True Then
+            Dim SeasonDropdownAnzahl As String() = Website.Split(New String() {"season-dropdown content-menu block"}, System.StringSplitOptions.RemoveEmptyEntries)
+            Array.Reverse(SeasonDropdownAnzahl)
+            Dim SDV As Integer = 0
+            For i As Integer = 0 To SeasonDropdownAnzahl.Count - 1
+                If InStr(SeasonDropdownAnzahl(i), Chr(34) + ">" + einstellungen.ComboBox2.SelectedItem.ToString + "</a>") Then
+                    SDV = i
+                End If
+            Next
+            Website = SeasonDropdownAnzahl(SDV)
+        End If
+        Try
+            Dim Anzahl As String() = Website.Split(New String() {"wrapper container-shadow hover-classes"}, System.StringSplitOptions.RemoveEmptyEntries)
+            Array.Reverse(Anzahl)
+            Dim c As Integer = einstellungen.comboBox4.SelectedIndex - einstellungen.comboBox3.SelectedIndex + 1
+            'AnzahlGesamt.Text = c.ToString
+            Gesamt = c.ToString
+            Aktuell = "0"
+            If einstellungen.comboBox4.SelectedIndex > einstellungen.comboBox3.SelectedIndex Then
+
+                For i As Integer = einstellungen.comboBox3.SelectedIndex To einstellungen.comboBox4.SelectedIndex
+
+                    For e As Integer = 0 To Integer.MaxValue
+
+                        If DlSoftSubsRDY = True Then
+                            Exit For
+                        Else
+                            Await Task.Delay(2000)
+                        End If
+                    Next
+
+                    Dim dd As Integer = i - einstellungen.comboBox3.SelectedIndex + 1
+                    Dim URLGrapp As String() = Anzahl(i).Split(New String() {"<a href=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+                    Dim URLGrapp2 As String() = URLGrapp(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+                    'MsgBox("https://www.crunchyroll.com" + URLGrapp2(0))
+                    DlSoftSubsRDY = False
+                    b = False
+                    d = False
+                    GeckoFX.WebBrowser1.Navigate("https://www.crunchyroll.com" + URLGrapp2(0))
+                    Aktuell = dd.ToString
+                    einstellungen.SoftSubsMass.Text = Aktuell + " / " + Gesamt
+                Next
+
+
+
+            End If
+        Catch ex As Exception
+            Anime_Add.comboBox4.Items.Clear()
+            Anime_Add.comboBox3.Items.Clear()
+            ' MsgBox(Error_Mass_DL, MsgBoxStyle.Information)
+            'MsgBox(ex.ToString)
+            Aktuell = 0.ToString
+            Gesamt = 0.ToString
+
+            Anime_Add.groupBox1.Visible = True
+            Anime_Add.groupBox2.Visible = False
+            Anime_Add.GroupBox3.Visible = False
+            Anime_Add.Mass_DL_Cancel = False
+            Anime_Add.pictureBox4.Image = My.Resources.main_button_download_default
+        End Try
+        Pause(5)
+        Anime_Add.groupBox1.Visible = True
+        Anime_Add.groupBox2.Visible = False
+        Anime_Add.GroupBox3.Visible = False
+        Anime_Add.Mass_DL_Cancel = False
+        Anime_Add.pictureBox4.Image = My.Resources.main_button_download_default
+    End Sub
+#End Region
+
 #Region "Sub to display"
 
     Public Function SubValuesToDisplay() As String
@@ -680,6 +987,36 @@ Public Class Main
 
     End Function
 
+    Public Function CCtoMP4CC(ByVal HardSub As String) As String
+        Try
+            If HardSub = "deDE" Then
+                Return "ger"
+            ElseIf HardSub = "enUS" Then
+                Return "eng"
+            ElseIf HardSub = "ptBR" Then
+                Return "por"
+            ElseIf HardSub = "esLA" Then
+                Return "spa"
+            ElseIf HardSub = "frFR" Then
+                Return "fre"
+            ElseIf HardSub = "arME" Then
+                Return "ara"
+            ElseIf HardSub = "ruRU" Then
+                Return "rus"
+            ElseIf HardSub = "itIT" Then
+                Return "ita"
+            ElseIf HardSub = "esES" Then
+                Return "spa"
+            End If
+
+            Return "chi"
+
+        Catch ex As Exception
+            Return Nothing
+        End Try
+
+    End Function
+
 #End Region
 
     Public Sub GrappURL()
@@ -895,31 +1232,55 @@ Public Class Main
             End If
 #End Region
 
-#Region "Download softsub file"
+#Region "Download softsub file or build ffmpeg cmd"
+            Dim SoftSubMergeURLs As String = Nothing
+            Dim SoftSubMergeMaps As String = " -map 0:v -map 0:a"
+            Dim SoftSubMergeMetatata As String = Nothing
+
             If SoftSubs2.Count > 0 Then
-                For i As Integer = 0 To SoftSubs2.Count - 1
-                    'EpisodeLabel.Text = SoftSubs2(i)
-                    'StatusLabel.Text = "Status: downloading subtitle file"
-                    LabelUpdate = "Status: downloading subtitle file"
-                    LabelEpisode = SoftSubs2(i)
-                    Dim SoftSub As String() = WebbrowserText.Split(New String() {Chr(34) + "language" + Chr(34) + ":" + Chr(34) + SoftSubs2(i) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
-                    Dim SoftSub_2 As String() = SoftSub(1).Split(New [Char]() {Chr(34)})
-                    Dim SoftSub_3 As String = SoftSub_2(0).Replace("\/", "/")
-                    Dim client0 As New WebClient
-                    client0.Encoding = Encoding.UTF8
-                    Dim str0 As String = client0.DownloadString(SoftSub_3)
-                    Dim Pfad3 As String = Pfad2.Replace(Chr(34), "")
-                    Dim FN As String = Path.ChangeExtension(Path.Combine(Path.GetFileNameWithoutExtension(Pfad3) + " " + SoftSubs2(i) + Path.GetExtension(Pfad3)), "ass")
-                    'MsgBox(FN)
-                    If i = 0 Then
-                        FN = Path.ChangeExtension(Path.GetFileName(Pfad3), "ass")
+                If MergeSubstoMP4 = True Then
+                    For i As Integer = 0 To SoftSubs2.Count - 1
+                        Dim SoftSub As String() = WebbrowserText.Split(New String() {Chr(34) + "language" + Chr(34) + ":" + Chr(34) + SoftSubs2(i) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+                        Dim SoftSub_2 As String() = SoftSub(1).Split(New [Char]() {Chr(34)})
+                        Dim SoftSub_3 As String = SoftSub_2(0).Replace("\/", "/")
+                        If SoftSubMergeURLs = Nothing Then
+                            SoftSubMergeURLs = " -i " + Chr(34) + SoftSub_3 + Chr(34)
+                        Else
+                            SoftSubMergeURLs = SoftSubMergeURLs + " -i " + Chr(34) + SoftSub_3 + Chr(34)
+                        End If
+                        SoftSubMergeMaps = SoftSubMergeMaps + " -map " + (i + 1).ToString
+                        If SoftSubMergeMetatata = Nothing Then
+                            SoftSubMergeMetatata = " -metadata:s:s:" + i.ToString + " language=" + CCtoMP4CC(SoftSubs2(i))
+                        Else
+                            SoftSubMergeMetatata = SoftSubMergeMetatata + " -metadata:s:s:" + i.ToString + " language=" + CCtoMP4CC(SoftSubs2(i))
+                        End If
+
+                    Next
+
+                Else
+                    For i As Integer = 0 To SoftSubs2.Count - 1
+                        LabelUpdate = "Status: downloading subtitle file"
+                        LabelEpisode = SoftSubs2(i)
+                        Dim SoftSub As String() = WebbrowserText.Split(New String() {Chr(34) + "language" + Chr(34) + ":" + Chr(34) + SoftSubs2(i) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+                        Dim SoftSub_2 As String() = SoftSub(1).Split(New [Char]() {Chr(34)})
+                        Dim SoftSub_3 As String = SoftSub_2(0).Replace("\/", "/")
+                        Dim client0 As New WebClient
+                        client0.Encoding = Encoding.UTF8
+                        Dim str0 As String = client0.DownloadString(SoftSub_3)
+                        Dim Pfad3 As String = Pfad2.Replace(Chr(34), "")
+                        Dim FN As String = Path.ChangeExtension(Path.Combine(Path.GetFileNameWithoutExtension(Pfad3) + " " + SoftSubs2(i) + Path.GetExtension(Pfad3)), "ass")
                         'MsgBox(FN)
-                    End If
-                    Dim Pfad4 As String = Path.Combine(Path.GetDirectoryName(Pfad3), FN)
-                    'MsgBox(Pfad4)
-                    File.WriteAllText(Pfad4, str0, Encoding.UTF8)
-                    Pause(1)
-                Next
+                        If i = 0 Then
+                            FN = Path.ChangeExtension(Path.GetFileName(Pfad3), "ass")
+                            'MsgBox(FN)
+                        End If
+                        Dim Pfad4 As String = Path.Combine(Path.GetDirectoryName(Pfad3), FN)
+                        'MsgBox(Pfad4)
+                        File.WriteAllText(Pfad4, str0, Encoding.UTF8)
+                        Pause(1)
+                    Next
+
+                End If
             End If
 #End Region
 
@@ -940,7 +1301,12 @@ Public Class Main
             End If
 #End Region
             If Resu = 42 Then
-                URL_DL = CR_URI_Master
+                If MergeSubstoMP4 = True Then
+                    URL_DL = "-i " + Chr(34) + CR_URI_Master + Chr(34) + SoftSubMergeURLs + SoftSubMergeMaps + " " + ffmpeg_command + " -c:s mov_text" + SoftSubMergeMetatata
+                Else
+                    URL_DL = CR_URI_Master
+                End If
+                MsgBox(URL_DL)
             Else
 
 
@@ -977,7 +1343,12 @@ Public Class Main
                 Dim VLC_URI_1 As String() = str.Split(New String() {Resu2 + ","}, System.StringSplitOptions.RemoveEmptyEntries)
                 Dim VLC_URI_2 As String() = VLC_URI_1(1).Split(New [Char]() {Chr(34)})
                 Dim VLC_URI_3 As String() = VLC_URI_2(2).Split(New [Char]() {System.Convert.ToChar("#")})
-                URL_DL = VLC_URI_3(0).Trim()
+                If MergeSubstoMP4 = True Then
+                    URL_DL = "-i " + Chr(34) + VLC_URI_3(0).Trim() + Chr(34) + SoftSubMergeURLs + SoftSubMergeMaps + " " + ffmpeg_command + " -c:s mov_text" + SoftSubMergeMetatata
+                Else
+                    URL_DL = VLC_URI_3(0).Trim()
+                End If
+                MsgBox(URL_DL)
             End If
 #Region "thumbnail"
             Dim thumbnail As String() = WebbrowserText.Split(New String() {My.Resources.thumbnailString}, System.StringSplitOptions.RemoveEmptyEntries)
@@ -1008,10 +1379,11 @@ Public Class Main
             Dim L1Name_Split As String() = WebbrowserURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
             Dim L1Name As String = L1Name_Split(1).Replace("www.", "")
             Me.Invoke(New Action(Function()
-                                     ListAdd(Pfad_DL, L1Name, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail3, URL_DL)
+                                     ListAdd(Pfad_DL, L1Name, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail3)
                                      Return Nothing
                                  End Function))
 #End Region
+
             AsyncWorkerX.RunAsync(AddressOf DownloadFFMPEG, URL_DL, Pfad_DL, Pfad_DL)
             Grapp_RDY = True
             Me.Invoke(New Action(Function()
@@ -1100,6 +1472,10 @@ Public Class Main
         Dim startinfo As New System.Diagnostics.ProcessStartInfo
         'Dim cmd As String = "-i " + Chr(34) + URL_DL + Chr(34) + " -c copy -bsf:a aac_adtstoasc " + Pfad_DL 'start ffmpeg with command strFFCMD string
         Dim cmd As String = "-i " + Chr(34) + URL_DL + Chr(34) + " " + ffmpeg_command + " " + DL_Pfad 'start ffmpeg with command strFFCMD string
+        If MergeSubstoMP4 = True Then
+            cmd = DL_URL + " " + DL_Pfad
+        End If
+
         'MsgBox(cmd)
         'all parameters required to run the process
         startinfo.FileName = exepath
@@ -1131,43 +1507,44 @@ Public Class Main
             Dim pr As Process = sender
             Dim FileNameSplit As String() = pr.StartInfo.Arguments.ToString().Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
             Dim FileName As String = Chr(34) + FileNameSplit(FileNameSplit.Count - 1) + Chr(34)
-            If CBool(InStr(e.Data, "Stream #")) And CBool(InStr(e.Data, "Video")) = True Then
-                'MsgBox(True.ToString + vbNewLine + e.Data)
-                ListOfStreams.Add(e.Data)
-            End If
-            If InStr(e.Data, "Stream #") And InStr(e.Data, " -> ") Then
-                'UsesStreams.Add(e.Data)
-                'MsgBox(e.Data)
-                Dim StreamSearch() As String = e.Data.Split(New String() {" -> "}, System.StringSplitOptions.RemoveEmptyEntries)
-                Dim StreamSearch2 As String = StreamSearch(0) + ":"
-                For i As Integer = 0 To ListOfStreams.Count - 1
-                    If CBool(InStr(ListOfStreams(i), StreamSearch2)) Then 'And CBool(InStr(ListOfStreams(i), " Video:")) Then
-                        'MsgBox(ListOfStreams(i))
-                        Dim ResoSearch() As String = ListOfStreams(i).Split(New String() {"x"}, System.StringSplitOptions.RemoveEmptyEntries)
-                        'MsgBox(ResoSearch(1))
-                        If CBool(InStr(ResoSearch(2), " [")) = True Then
-                            Dim ResoSearch2() As String = ResoSearch(2).Split(New String() {" ["}, System.StringSplitOptions.RemoveEmptyEntries)
-                            For ii As Integer = 0 To PB_list.Count - 1
-                                If PB_list(ii).Name = FileName Then
-                                    Dim p As PictureBox = PB_list(ii)
-                                    p.Image = p.BackgroundImage
-                                    Dim g As Graphics = Graphics.FromImage(p.Image)
-                                    Dim TextPointL4 As Point = New Point(195, 101)
-                                    Dim Weiß As Brush = New SolidBrush(Color.FromArgb(242, 242, 242))
-                                    g.FillRectangle(Weiß, TextPointL4.X - 3, TextPointL4.Y - 3, 70, 30)
-                                    g.DrawString(ResoSearch2(0) + "p", FontLabel.Font, Brushes.Black, TextPointL4)
-                                    Dim brGradient As Brush = New SolidBrush(Color.FromArgb(125, 0, 0))
-                                    g.Dispose()
-                                    Exit For
-                                End If
-                            Next
+            If MergeSubstoMP4 = False Then
+                If CBool(InStr(e.Data, "Stream #")) And CBool(InStr(e.Data, "Video")) = True Then
+                    'MsgBox(True.ToString + vbNewLine + e.Data)
+                    ListOfStreams.Add(e.Data)
+                End If
+                If InStr(e.Data, "Stream #") And InStr(e.Data, " -> ") Then
+                    'UsesStreams.Add(e.Data)
+                    'MsgBox(e.Data)
+                    Dim StreamSearch() As String = e.Data.Split(New String() {" -> "}, System.StringSplitOptions.RemoveEmptyEntries)
+                    Dim StreamSearch2 As String = StreamSearch(0) + ":"
+                    For i As Integer = 0 To ListOfStreams.Count - 1
+                        If CBool(InStr(ListOfStreams(i), StreamSearch2)) Then 'And CBool(InStr(ListOfStreams(i), " Video:")) Then
+                            'MsgBox(ListOfStreams(i))
+                            Dim ResoSearch() As String = ListOfStreams(i).Split(New String() {"x"}, System.StringSplitOptions.RemoveEmptyEntries)
+                            'MsgBox(ResoSearch(1))
+                            If CBool(InStr(ResoSearch(2), " [")) = True Then
+                                Dim ResoSearch2() As String = ResoSearch(2).Split(New String() {" ["}, System.StringSplitOptions.RemoveEmptyEntries)
+                                For ii As Integer = 0 To PB_list.Count - 1
+                                    If PB_list(ii).Name = FileName Then
+                                        Dim p As PictureBox = PB_list(ii)
+                                        p.Image = p.BackgroundImage
+                                        Dim g As Graphics = Graphics.FromImage(p.Image)
+                                        Dim TextPointL4 As Point = New Point(195, 101)
+                                        Dim Weiß As Brush = New SolidBrush(Color.FromArgb(242, 242, 242))
+                                        g.FillRectangle(Weiß, TextPointL4.X - 3, TextPointL4.Y - 3, 70, 30)
+                                        g.DrawString(ResoSearch2(0) + "p", FontLabel.Font, Brushes.Black, TextPointL4)
+                                        Dim brGradient As Brush = New SolidBrush(Color.FromArgb(125, 0, 0))
+                                        g.Dispose()
+                                        Exit For
+                                    End If
+                                Next
+                            End If
+
                         End If
-
-                    End If
-                Next
+                    Next
+                End If
             End If
 
-
             If Me.Visible = False Or AbourtList.Contains(FileName) Then
                 ' Try
                 pr.Kill()
@@ -1180,11 +1557,13 @@ Public Class Main
                                      For i As Integer = 0 To PB_list.Count - 1
 
                                          If PB_list(i).Name = FileName Then
+                                             If InStr(e.Data, "Duration: N/A, bitrate: N/A") Then
 
-                                             If InStr(e.Data, "Duration: ") Then
+                                             ElseIf InStr(e.Data, "Duration: ") Then
                                                  Dim ZeitGesamt As String() = e.Data.Split(New String() {"Duration: "}, System.StringSplitOptions.RemoveEmptyEntries)
                                                  Dim ZeitGesamt2 As String() = ZeitGesamt(1).Split(New [Char]() {System.Convert.ToChar(".")})
                                                  Dim ZeitGesamtSplit() As String = ZeitGesamt2(0).Split(New [Char]() {System.Convert.ToChar(":")})
+                                                 MsgBox(ZeitGesamt2(0))
                                                  Dim ZeitGesamtInteger As Integer = CInt(ZeitGesamtSplit(0)) * 3600 + CInt(ZeitGesamtSplit(1)) * 60 + CInt(ZeitGesamtSplit(2))
 
                                                  ListView1.Items.Item(i).Text = ZeitGesamtInteger
@@ -1554,7 +1933,7 @@ Public Class Main
         Dim L1Name As String = L1Name_Split(1)
         Pfad_DL = Chr(34) + Pfad + "\" + Video_FilenName + Chr(34)
         Me.Invoke(New Action(Function()
-                                 ListAdd(Pfad_DL, L1Name, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail4, URL_DL)
+                                 ListAdd(Pfad_DL, L1Name, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail4)
                                  Return Nothing
                              End Function))
 #End Region

Crunchyroll Downloader/My Project/Resources.Designer.vb

@@ -576,6 +576,36 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property softsubs_download() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("softsubs_download", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property softsubs_download_gray() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("softsubs_download_gray", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property softsubs_download_hover() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("softsubs_download_hover", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die &lt;!DOCTYPE html&gt;
         '''&lt;html&gt;

Crunchyroll Downloader/My Project/Resources.resx

@@ -345,4 +345,13 @@
   <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="softsubs_download" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\softsubs_download.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="softsubs_download_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\softsubs_download_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="softsubs_download_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\softsubs_download_hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>

Crunchyroll Downloader/SoftSub.Designer.vb

@@ -1,287 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class SoftSub
-    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.pictureBox1 = New System.Windows.Forms.PictureBox()
-        Me.pictureBox4 = New System.Windows.Forms.PictureBox()
-        Me.textBox1 = New System.Windows.Forms.TextBox()
-        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.SoftSubs = New System.Windows.Forms.GroupBox()
-        Me.CBesES = New System.Windows.Forms.CheckBox()
-        Me.CBitIT = New System.Windows.Forms.CheckBox()
-        Me.CBruRU = New System.Windows.Forms.CheckBox()
-        Me.CBarME = New System.Windows.Forms.CheckBox()
-        Me.CBfrFR = New System.Windows.Forms.CheckBox()
-        Me.CBesLA = New System.Windows.Forms.CheckBox()
-        Me.CBptBR = New System.Windows.Forms.CheckBox()
-        Me.CBdeDE = New System.Windows.Forms.CheckBox()
-        Me.CBenUS = New System.Windows.Forms.CheckBox()
-        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
-        CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.pictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SoftSubs.SuspendLayout()
-        Me.GroupBox1.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'pictureBox1
-        '
-        Me.pictureBox1.BackColor = System.Drawing.Color.Transparent
-        Me.pictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.pictureBox1.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_close
-        Me.pictureBox1.Location = New System.Drawing.Point(479, 1)
-        Me.pictureBox1.Name = "pictureBox1"
-        Me.pictureBox1.Size = New System.Drawing.Size(50, 40)
-        Me.pictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
-        Me.pictureBox1.TabIndex = 8
-        Me.pictureBox1.TabStop = False
-        '
-        'pictureBox4
-        '
-        Me.pictureBox4.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.pictureBox4.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Button_SafeExit
-        Me.pictureBox4.Location = New System.Drawing.Point(76, 207)
-        Me.pictureBox4.Name = "pictureBox4"
-        Me.pictureBox4.Size = New System.Drawing.Size(355, 30)
-        Me.pictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
-        Me.pictureBox4.TabIndex = 9
-        Me.pictureBox4.TabStop = False
-        '
-        'textBox1
-        '
-        Me.textBox1.BackColor = System.Drawing.Color.White
-        Me.textBox1.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.textBox1.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.textBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
-        Me.textBox1.Location = New System.Drawing.Point(34, 48)
-        Me.textBox1.Name = "textBox1"
-        Me.textBox1.Size = New System.Drawing.Size(417, 22)
-        Me.textBox1.TabIndex = 43
-        Me.textBox1.TabStop = False
-        Me.textBox1.Text = "URL"
-        Me.textBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'PictureBox2
-        '
-        Me.PictureBox2.BackColor = System.Drawing.Color.Transparent
-        Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.PictureBox2.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.download_subs
-        Me.PictureBox2.Location = New System.Drawing.Point(140, 85)
-        Me.PictureBox2.Name = "PictureBox2"
-        Me.PictureBox2.Size = New System.Drawing.Size(199, 40)
-        Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
-        Me.PictureBox2.TabIndex = 45
-        Me.PictureBox2.TabStop = False
-        '
-        'Label2
-        '
-        Me.Label2.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.Label2.BackColor = System.Drawing.Color.Transparent
-        Me.Label2.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label2.ForeColor = System.Drawing.Color.Black
-        Me.Label2.Location = New System.Drawing.Point(6, 91)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(475, 29)
-        Me.Label2.TabIndex = 47
-        Me.Label2.Text = "Status : idle"
-        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
-        '
-        'SoftSubs
-        '
-        Me.SoftSubs.BackColor = System.Drawing.Color.Transparent
-        Me.SoftSubs.Controls.Add(Me.CBesES)
-        Me.SoftSubs.Controls.Add(Me.CBitIT)
-        Me.SoftSubs.Controls.Add(Me.CBruRU)
-        Me.SoftSubs.Controls.Add(Me.CBarME)
-        Me.SoftSubs.Controls.Add(Me.CBfrFR)
-        Me.SoftSubs.Controls.Add(Me.CBesLA)
-        Me.SoftSubs.Controls.Add(Me.CBptBR)
-        Me.SoftSubs.Controls.Add(Me.CBdeDE)
-        Me.SoftSubs.Controls.Add(Me.CBenUS)
-        Me.SoftSubs.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.SoftSubs.Location = New System.Drawing.Point(18, 64)
-        Me.SoftSubs.Name = "SoftSubs"
-        Me.SoftSubs.Size = New System.Drawing.Size(487, 137)
-        Me.SoftSubs.TabIndex = 48
-        Me.SoftSubs.TabStop = False
-        Me.SoftSubs.Text = "SoftSubs"
-        '
-        'CBesES
-        '
-        Me.CBesES.AutoSize = True
-        Me.CBesES.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CBesES.Location = New System.Drawing.Point(162, 69)
-        Me.CBesES.Name = "CBesES"
-        Me.CBesES.Size = New System.Drawing.Size(151, 20)
-        Me.CBesES.TabIndex = 5
-        Me.CBesES.Text = "Español (España)"
-        Me.CBesES.UseVisualStyleBackColor = True
-        '
-        'CBitIT
-        '
-        Me.CBitIT.AutoSize = True
-        Me.CBitIT.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CBitIT.Location = New System.Drawing.Point(21, 106)
-        Me.CBitIT.Name = "CBitIT"
-        Me.CBitIT.Size = New System.Drawing.Size(134, 20)
-        Me.CBitIT.TabIndex = 5
-        Me.CBitIT.Text = "Italiano (Italian)"
-        Me.CBitIT.UseVisualStyleBackColor = True
-        '
-        'CBruRU
-        '
-        Me.CBruRU.AutoSize = True
-        Me.CBruRU.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CBruRU.Location = New System.Drawing.Point(326, 31)
-        Me.CBruRU.Name = "CBruRU"
-        Me.CBruRU.Size = New System.Drawing.Size(158, 20)
-        Me.CBruRU.TabIndex = 5
-        Me.CBruRU.Text = "Русский (Russian)"
-        Me.CBruRU.UseVisualStyleBackColor = True
-        '
-        'CBarME
-        '
-        Me.CBarME.AutoSize = True
-        Me.CBarME.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CBarME.Location = New System.Drawing.Point(162, 106)
-        Me.CBarME.Name = "CBarME"
-        Me.CBarME.Size = New System.Drawing.Size(124, 20)
-        Me.CBarME.TabIndex = 5
-        Me.CBarME.Text = "العربية (Arabic)"
-        Me.CBarME.UseVisualStyleBackColor = True
-        '
-        'CBfrFR
-        '
-        Me.CBfrFR.AutoSize = True
-        Me.CBfrFR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CBfrFR.Location = New System.Drawing.Point(326, 106)
-        Me.CBfrFR.Name = "CBfrFR"
-        Me.CBfrFR.Size = New System.Drawing.Size(149, 20)
-        Me.CBfrFR.TabIndex = 4
-        Me.CBfrFR.Text = "Français (France)"
-        Me.CBfrFR.UseVisualStyleBackColor = True
-        '
-        'CBesLA
-        '
-        Me.CBesLA.AutoSize = True
-        Me.CBesLA.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CBesLA.Location = New System.Drawing.Point(162, 31)
-        Me.CBesLA.Name = "CBesLA"
-        Me.CBesLA.Size = New System.Drawing.Size(116, 20)
-        Me.CBesLA.TabIndex = 3
-        Me.CBesLA.Text = "Español (LA)"
-        Me.CBesLA.UseVisualStyleBackColor = True
-        '
-        'CBptBR
-        '
-        Me.CBptBR.AutoSize = True
-        Me.CBptBR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CBptBR.Location = New System.Drawing.Point(326, 69)
-        Me.CBptBR.Name = "CBptBR"
-        Me.CBptBR.Size = New System.Drawing.Size(151, 20)
-        Me.CBptBR.TabIndex = 2
-        Me.CBptBR.Text = "Português (Brasil)"
-        Me.CBptBR.UseVisualStyleBackColor = True
-        '
-        'CBdeDE
-        '
-        Me.CBdeDE.AutoSize = True
-        Me.CBdeDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CBdeDE.Location = New System.Drawing.Point(21, 69)
-        Me.CBdeDE.Name = "CBdeDE"
-        Me.CBdeDE.Size = New System.Drawing.Size(83, 20)
-        Me.CBdeDE.TabIndex = 1
-        Me.CBdeDE.Text = "Deutsch"
-        Me.CBdeDE.UseVisualStyleBackColor = True
-        '
-        'CBenUS
-        '
-        Me.CBenUS.AutoSize = True
-        Me.CBenUS.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CBenUS.Location = New System.Drawing.Point(21, 31)
-        Me.CBenUS.Name = "CBenUS"
-        Me.CBenUS.Size = New System.Drawing.Size(78, 20)
-        Me.CBenUS.TabIndex = 0
-        Me.CBenUS.Text = "English"
-        Me.CBenUS.UseVisualStyleBackColor = True
-        '
-        'GroupBox1
-        '
-        Me.GroupBox1.BackColor = System.Drawing.Color.Transparent
-        Me.GroupBox1.Controls.Add(Me.textBox1)
-        Me.GroupBox1.Controls.Add(Me.PictureBox2)
-        Me.GroupBox1.Controls.Add(Me.Label2)
-        Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.GroupBox1.Location = New System.Drawing.Point(18, 252)
-        Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(487, 135)
-        Me.GroupBox1.TabIndex = 49
-        Me.GroupBox1.TabStop = False
-        Me.GroupBox1.Text = "Download only Subtitle"
-        '
-        'SoftSub
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.SoftSubs_Baclground
-        Me.ClientSize = New System.Drawing.Size(530, 400)
-        Me.Controls.Add(Me.GroupBox1)
-        Me.Controls.Add(Me.SoftSubs)
-        Me.Controls.Add(Me.pictureBox4)
-        Me.Controls.Add(Me.pictureBox1)
-        Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
-        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
-        Me.Name = "SoftSub"
-        Me.Text = "SoftSubs"
-        CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.pictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.SoftSubs.ResumeLayout(False)
-        Me.SoftSubs.PerformLayout()
-        Me.GroupBox1.ResumeLayout(False)
-        Me.GroupBox1.PerformLayout()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-
-    Private WithEvents pictureBox1 As PictureBox
-    Private WithEvents pictureBox4 As PictureBox
-    Public WithEvents textBox1 As TextBox
-    Private WithEvents PictureBox2 As PictureBox
-    Public WithEvents Label2 As Label
-    Friend WithEvents SoftSubs As GroupBox
-    Friend WithEvents CBesES As CheckBox
-    Friend WithEvents CBitIT As CheckBox
-    Friend WithEvents CBruRU As CheckBox
-    Friend WithEvents CBarME As CheckBox
-    Friend WithEvents CBfrFR As CheckBox
-    Friend WithEvents CBesLA As CheckBox
-    Friend WithEvents CBptBR As CheckBox
-    Friend WithEvents CBdeDE As CheckBox
-    Friend WithEvents CBenUS As CheckBox
-    Friend WithEvents GroupBox1 As GroupBox
-End Class

Crunchyroll Downloader/SoftSub.resx

@@ -1,120 +0,0 @@
-<?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>
-</root>

Crunchyroll Downloader/SoftSub.vb

@@ -1,320 +0,0 @@
-Imports System.Net
-Imports System.Text
-Imports System.IO
-Imports Microsoft.Win32
-Imports System.ComponentModel
-Public Class SoftSub
-#Region "UI"
-
-#Region " Move Form "
-
-    ' [ Move Form ]
-    '
-    ' // By Elektro 
-
-    Public MoveForm As Boolean
-    Public MoveForm_MousePosition As Point
-
-    Public Sub MoveForm_MouseDown(sender As Object, e As MouseEventArgs) Handles _
-    MyBase.MouseDown ' Add more handles here (Example: PictureBox1.MouseDown)
-
-        If e.Button = MouseButtons.Left Then
-            MoveForm = True
-            Me.Cursor = Cursors.NoMove2D
-            MoveForm_MousePosition = e.Location
-        End If
-
-    End Sub
-
-    Public Sub MoveForm_MouseMove(sender As Object, e As MouseEventArgs) Handles _
-    MyBase.MouseMove ' Add more handles here (Example: PictureBox1.MouseMove)
-
-        If MoveForm Then
-            Me.Location = Me.Location + (e.Location - MoveForm_MousePosition)
-        End If
-
-    End Sub
-
-    Public Sub MoveForm_MouseUp(sender As Object, e As MouseEventArgs) Handles _
-    MyBase.MouseUp ' Add more handles here (Example: PictureBox1.MouseUp)
-
-        If e.Button = MouseButtons.Left Then
-            MoveForm = False
-            Me.Cursor = Cursors.Default
-        End If
-
-    End Sub
-#End Region
-
-
-    Private Sub PictureBox2_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox2.MouseEnter
-        PictureBox2.Image = My.Resources.download_subs_hover
-    End Sub
-
-    Private Sub PictureBox2_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox2.MouseLeave
-        PictureBox2.Image = My.Resources.download_subs
-    End Sub
-    Private Sub PictureBox4_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox4.MouseEnter
-        pictureBox4.Image = My.Resources.crdSettings_Button_SafeExit_hover
-    End Sub
-
-    Private Sub PictureBox4_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox4.MouseLeave
-        pictureBox4.Image = My.Resources.crdSettings_Button_SafeExit
-    End Sub
-    Private Sub PictureBox1_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox1.MouseEnter
-        pictureBox1.BackColor = SystemColors.Control
-    End Sub
-
-    Private Sub PictureBox1_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox1.MouseLeave
-        pictureBox1.BackColor = Color.Transparent
-    End Sub
-
-    Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles textBox1.Click
-        If textBox1.Text = "URL" Then
-            textBox1.Text = Nothing
-        End If
-    End Sub
-#End Region
-    Dim LocalSoftSubs As New List(Of String)
-    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles pictureBox1.Click
-        Me.Close()
-    End Sub
-
-    Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles pictureBox4.Click
-        Main.SoftSubs.Clear()
-        If CBdeDE.Checked = True Then
-            Main.SoftSubs.Add("deDE")
-        End If
-        If CBenUS.Checked = True Then
-            Main.SoftSubs.Add("enUS")
-        End If
-        If CBptBR.Checked = True Then
-            Main.SoftSubs.Add("ptBR")
-        End If
-        If CBesLA.Checked = True Then
-            Main.SoftSubs.Add("esLA")
-        End If
-        If CBfrFR.Checked = True Then
-            Main.SoftSubs.Add("frFR")
-        End If
-        If CBarME.Checked = True Then
-            Main.SoftSubs.Add("arME")
-        End If
-        If CBruRU.Checked = True Then
-            Main.SoftSubs.Add("ruRU")
-        End If
-        If CBitIT.Checked = True Then
-            Main.SoftSubs.Add("itIT")
-        End If
-        If CBesES.Checked = True Then
-            Main.SoftSubs.Add("esES")
-        End If
-
-        Dim SaveString As String = Nothing
-        For ii As Integer = 0 To Main.SoftSubs.Count - 1
-            If SaveString = Nothing Then
-                SaveString = Main.SoftSubs(ii)
-            Else
-                SaveString = SaveString + "," + Main.SoftSubs(ii)
-            End If
-        Next
-        If SaveString = Nothing Then
-            SaveString = "none"
-        End If
-        Dim rk As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader")
-        rk.SetValue("AddedSubs", SaveString, RegistryValueKind.String)
-        Me.Close()
-    End Sub
-
-    Private Sub SoftSubs_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.Icon = My.Resources.icon
-        Me.Location = New Point(Main.Location.X + Main.Width / 2 - Me.Width / 2, Main.Location.Y + Main.Height / 2 - Me.Height / 2)
-
-        For i As Integer = 0 To Main.SoftSubs.Count - 1
-            If Main.SoftSubs(i) = "deDE" Then
-                CBdeDE.Checked = True
-            ElseIf Main.SoftSubs(i) = "enUS" Then
-                CBenUS.Checked = True
-            ElseIf Main.SoftSubs(i) = "ptBR" Then
-                CBptBR.Checked = True
-            ElseIf Main.SoftSubs(i) = "esLA" Then
-                CBesLA.Checked = True
-            ElseIf Main.SoftSubs(i) = "frFR" Then
-                CBfrFR.Checked = True
-            ElseIf Main.SoftSubs(i) = "arME" Then
-                CBarME.Checked = True
-            ElseIf Main.SoftSubs(i) = "ruRU" Then
-                CBruRU.Checked = True
-            ElseIf Main.SoftSubs(i) = "itIT" Then
-                CBitIT.Checked = True
-            ElseIf Main.SoftSubs(i) = "esES" Then
-                CBesES.Checked = True
-            End If
-        Next
-    End Sub
-    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
-        Try
-            LocalSoftSubs.Clear()
-
-            If CBdeDE.Checked = True Then
-                LocalSoftSubs.Add("deDE")
-            End If
-            If CBenUS.Checked = True Then
-                LocalSoftSubs.Add("enUS")
-            End If
-            If CBptBR.Checked = True Then
-                LocalSoftSubs.Add("ptBR")
-            End If
-            If CBesLA.Checked = True Then
-                LocalSoftSubs.Add("esLA")
-            End If
-            If CBfrFR.Checked = True Then
-                LocalSoftSubs.Add("frFR")
-            End If
-            If CBarME.Checked = True Then
-                LocalSoftSubs.Add("arME")
-            End If
-            If CBruRU.Checked = True Then
-                LocalSoftSubs.Add("ruRU")
-            End If
-            If CBitIT.Checked = True Then
-                LocalSoftSubs.Add("itIT")
-            End If
-            If CBesES.Checked = True Then
-                LocalSoftSubs.Add("esES")
-            End If
-        Catch ex As Exception
-            'MsgBox(ex.ToString)
-        End Try
-        If LocalSoftSubs.Count > 0 Then
-            If CBool(InStr(textBox1.Text, "crunchyroll.com")) Then
-                GeckoFX.WebBrowser1.Navigate(textBox1.Text)
-                GeckoFX.c = False
-                Label2.Text = "Status: looking for sub file"
-                PictureBox2.Visible = False
-            End If
-        Else
-            'Label2.Text = "Status: Error - nothing selected"
-            MsgBox("Error: no language selected", MsgBoxStyle.Information, "CRD Subtitel")
-            PictureBox2.Visible = True
-        End If
-    End Sub
-    Public Sub DownloadSubs()
-
-        Try
-
-#Region "Name + Pfad"
-            Dim NameTextBox As Boolean = False
-            Dim Pfad2 As String
-            Dim CR_FilenName As String
-            Dim Bug_Deutsch As String = "-"
-            Dim CR_Anime_Titel As String
-            Dim CR_Anime_Staffel As String
-            Dim CR_Anime_Folge As String
-            'Dim CR_Name_by_Titel As String() = GeckoFX.WebBrowser1.Document.Body.OuterHtml.Split(New String() {"<title>"}, System.StringSplitOptions.RemoveEmptyEntries)
-            'Dim CR_Name_by_Titel_2_Patch As String =CR_Name_by_Titel(1).Split(New String() {"</title>"}, System.StringSplitOptions.RemoveEmptyEntries)
-            If CBool(InStr(GeckoFX.WebBrowser1.DocumentTitle, "Anschauen auf Crunchyroll")) Then
-                Bug_Deutsch = ":"
-                'Throw New System.Exception("Test")
-            Else
-            End If
-            Dim CR_Name_by_Titel_2 As String() = Main.WebbrowserTitle.Split(New String() {Bug_Deutsch}, System.StringSplitOptions.RemoveEmptyEntries)
-            'Dim CR_Name_by_Script As String() = Main.WebbrowserText.Split(New String() {Chr(34) + "name" + Chr(34) + ": " + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
-            'Dim CR_Name_by_Script2 As String() = CR_Name_by_Script(1).Split(New [Char]() {Chr(34)})
-            CR_FilenName = CR_Name_by_Titel_2(0).Trim() '+ " " + CR_Name_by_Script2(0).Trim
-
-            Dim CR_FilenName_Backup As String = Nothing
-
-            Dim SubfolderValue As String = Nothing
-            If CBool(InStr(GeckoFX.WebBrowser1.Document.Body.OuterHtml, "<h4>")) Then ' Film statt Serie
-                Dim CR_Name_1 As String() = Main.WebbrowserText.Split(New String() {"<h4>"}, System.StringSplitOptions.RemoveEmptyEntries)
-                Dim CR_Name_2 As String() = CR_Name_1(1).Split(New String() {"</h4>"}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"})
-                Dim CR_Name_Staffel0_Folge1 As String()
-                If CBool(InStr(CR_Name_2(0), ",")) Then
-                    CR_Name_Staffel0_Folge1 = CR_Name_2(0).Split(New [Char]() {System.Convert.ToChar(",")}, System.StringSplitOptions.RemoveEmptyEntries)
-                    CR_Anime_Staffel = CR_Name_Staffel0_Folge1(0).Trim()
-                    CR_Anime_Folge = CR_Name_Staffel0_Folge1(1).Trim()
-                    CR_Anime_Folge = System.Text.RegularExpressions.Regex.Replace(CR_Anime_Folge, "[^\w\\-]", " ")
-                Else
-                    CR_Anime_Staffel = ""
-                    CR_Anime_Folge = CR_Name_2(0).Trim()
-                    CR_Anime_Folge = System.Text.RegularExpressions.Regex.Replace(CR_Anime_Folge, "[^\w\\-]", " ")
-                End If
-
-
-                Dim CR_Name_4 As String() = CR_Name_1(0).Split(New String() {"class=" + Chr(34) + "text-link" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"})
-                Dim CR_Name_Anime0 As String() = CR_Name_4(CR_Name_4.Length - 1).Split(New String() {"</a>"}, System.StringSplitOptions.RemoveEmptyEntries)
-                CR_Name_Anime0(0) = System.Text.RegularExpressions.Regex.Replace(CR_Name_Anime0(0), "[^\w\\-]", " ")
-                CR_Anime_Titel = CR_Name_Anime0(0).Trim
-                If CR_Anime_Staffel = Nothing Then
-                    CR_FilenName = CR_Anime_Titel + " " + CR_Anime_Folge
-                Else
-                    CR_FilenName = CR_Anime_Titel + " " + CR_Anime_Staffel + " " + CR_Anime_Folge
-                End If
-
-                CR_FilenName_Backup = Main.RemoveExtraSpaces(CR_FilenName)
-                If Anime_Add.ComboBox2.Text = Main.SubFolder_automatic Then
-                    If Main.SubFolder = 2 Then
-                        SubfolderValue = CR_Anime_Titel + "\" + CR_Anime_Staffel + "\"
-                    ElseIf Main.SubFolder = 1 Then
-                        SubfolderValue = CR_Anime_Titel + "\"
-                    End If
-                ElseIf Anime_Add.ComboBox2.Text = Main.SubFolder_Nothing Then
-                Else
-                    SubfolderValue = Anime_Add.ComboBox2.Text + "\"
-                End If
-            End If
-            CR_FilenName = System.Text.RegularExpressions.Regex.Replace(CR_FilenName, "[^\w\\-]", " ")
-            CR_FilenName = Main.RemoveExtraSpaces(CR_FilenName)
-
-            Pfad2 = Main.Pfad + "\" + CR_FilenName + ".ass"
-
-#End Region
-#Region "Subs"
-            Dim SoftSubs2 As New List(Of String)
-            If LocalSoftSubs.Count > 0 Then
-                For i As Integer = 0 To LocalSoftSubs.Count - 1
-                    If CBool(InStr(Main.WebbrowserText, Chr(34) + "language" + Chr(34) + ":" + Chr(34) + LocalSoftSubs(i) + Chr(34) + ",")) Then
-                        SoftSubs2.Add(LocalSoftSubs(i))
-                    Else
-                        MsgBox("Softsubtitle for " + LocalSoftSubs(i) + " is not avalible.", MsgBoxStyle.Information)
-                    End If
-                Next
-
-            End If
-
-#End Region
-
-
-#Region "Download softsub file"
-            If SoftSubs2.Count > 0 Then
-                For i As Integer = 0 To SoftSubs2.Count - 1
-                    Label2.Text = "Status: downloading subtitle file - " + SoftSubs2(i)
-                    Dim SoftSub As String() = Main.WebbrowserText.Split(New String() {Chr(34) + "language" + Chr(34) + ":" + Chr(34) + SoftSubs2(i) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
-                    Dim SoftSub_2 As String() = SoftSub(1).Split(New [Char]() {Chr(34)})
-                    Dim SoftSub_3 As String = SoftSub_2(0).Replace("\/", "/")
-                    Dim client0 As New Net.WebClient
-                    client0.Encoding = Encoding.UTF8
-                    Dim str0 As String = client0.DownloadString(SoftSub_3)
-                    If File.Exists(Pfad2) Then
-                        Pfad2 = Main.Pfad + "\" + CR_FilenName + " " + SoftSubs2(i) + ".ass"
-                    End If
-                    'MsgBox(Pfad2 + vbNewLine + Main.Pfad)
-                    File.WriteAllText(Pfad2, str0, Encoding.UTF8)
-                    Main.Pause(1)
-                Next
-            End If
-#End Region
-
-        Catch ex As Exception
-
-        End Try
-        Label2.Text = "Status: idle"
-        PictureBox2.Visible = True
-    End Sub
-
-
-
-
-
-End Class

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

@@ -306,6 +306,21 @@ Crunchyroll Downloader
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
 </summary>
 </member>
+<member name="P:Crunchyroll_Downloader.My.Resources.Resources.softsubs_download">
+<summary>
+  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+</summary>
+</member>
+<member name="P:Crunchyroll_Downloader.My.Resources.Resources.softsubs_download_gray">
+<summary>
+  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+</summary>
+</member>
+<member name="P:Crunchyroll_Downloader.My.Resources.Resources.softsubs_download_hover">
+<summary>
+  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+</summary>
+</member>
 <member name="P:Crunchyroll_Downloader.My.Resources.Resources.Startuphtml">
 <summary>
   Sucht eine lokalisierte Zeichenfolge, die &lt;!DOCTYPE html&gt;

Crunchyroll Downloader/einstellungen.Designer.vb

@@ -23,172 +23,76 @@ Partial Class einstellungen
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
+        Me.GB_Sub_Path = New System.Windows.Forms.GroupBox()
+        Me.RBStaffel = New System.Windows.Forms.RadioButton()
+        Me.RBAnime = New System.Windows.Forms.RadioButton()
+        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
+        Me.DL_Count_simultaneous = New System.Windows.Forms.GroupBox()
+        Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
+        Me.pictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.pictureBox4 = New System.Windows.Forms.PictureBox()
+        Me.TabControl1 = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.PictureBox6 = New System.Windows.Forms.PictureBox()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Firefox_True = New System.Windows.Forms.CheckBox()
+        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.SoftSubs = New System.Windows.Forms.GroupBox()
+        Me.MergeMP4 = New System.Windows.Forms.CheckBox()
+        Me.CBesES = New System.Windows.Forms.CheckBox()
+        Me.CBitIT = New System.Windows.Forms.CheckBox()
+        Me.CBruRU = New System.Windows.Forms.CheckBox()
+        Me.CBarME = New System.Windows.Forms.CheckBox()
+        Me.CBfrFR = New System.Windows.Forms.CheckBox()
+        Me.CBesLA = New System.Windows.Forms.CheckBox()
+        Me.CBptBR = New System.Windows.Forms.CheckBox()
+        Me.CBdeDE = New System.Windows.Forms.CheckBox()
+        Me.CBenUS = New System.Windows.Forms.CheckBox()
+        Me.GB_SubLanguage = New System.Windows.Forms.GroupBox()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
         Me.GB_Resolution = New System.Windows.Forms.GroupBox()
         Me.AAuto = New System.Windows.Forms.RadioButton()
         Me.A480p = New System.Windows.Forms.RadioButton()
         Me.A360p = New System.Windows.Forms.RadioButton()
         Me.A720p = New System.Windows.Forms.RadioButton()
         Me.A1080p = New System.Windows.Forms.RadioButton()
-        Me.GB_SubLanguage = New System.Windows.Forms.GroupBox()
+        Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
         Me.PictureBox5 = New System.Windows.Forms.PictureBox()
-        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
-        Me.GB_Sub_Path = New System.Windows.Forms.GroupBox()
-        Me.RBStaffel = New System.Windows.Forms.RadioButton()
-        Me.RBAnime = New System.Windows.Forms.RadioButton()
-        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
-        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
-        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
-        Me.DL_Count_simultaneous = New System.Windows.Forms.GroupBox()
-        Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
-        Me.pictureBox1 = New System.Windows.Forms.PictureBox()
-        Me.pictureBox4 = New System.Windows.Forms.PictureBox()
-        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
-        Me.Firefox_True = New System.Windows.Forms.CheckBox()
-        Me.PictureBox6 = New System.Windows.Forms.PictureBox()
-        Me.TabControl1 = New System.Windows.Forms.TabControl()
-        Me.TabPage1 = New System.Windows.Forms.TabPage()
-        Me.TabPage2 = New System.Windows.Forms.TabPage()
-        Me.GB_Resolution.SuspendLayout()
-        Me.GB_SubLanguage.SuspendLayout()
-        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.StatusLabel = New System.Windows.Forms.Label()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.MultiDLSoftSubs = New System.Windows.Forms.GroupBox()
+        Me.SoftSubsMass = New System.Windows.Forms.Label()
+        Me.PictureBox3 = New System.Windows.Forms.PictureBox()
+        Me.comboBox4 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox2 = New System.Windows.Forms.ComboBox()
+        Me.comboBox3 = New System.Windows.Forms.ComboBox()
         Me.GB_Sub_Path.SuspendLayout()
-        Me.GroupBox4.SuspendLayout()
-        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.DL_Count_simultaneous.SuspendLayout()
         CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.pictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.GroupBox1.SuspendLayout()
-        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabControl1.SuspendLayout()
         Me.TabPage1.SuspendLayout()
+        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox1.SuspendLayout()
+        Me.GroupBox4.SuspendLayout()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabPage2.SuspendLayout()
+        Me.SoftSubs.SuspendLayout()
+        Me.GB_SubLanguage.SuspendLayout()
+        Me.GB_Resolution.SuspendLayout()
+        Me.TabPage3.SuspendLayout()
+        Me.GroupBox3.SuspendLayout()
+        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.MultiDLSoftSubs.SuspendLayout()
+        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        'GB_Resolution
-        '
-        Me.GB_Resolution.BackColor = System.Drawing.Color.Transparent
-        Me.GB_Resolution.Controls.Add(Me.AAuto)
-        Me.GB_Resolution.Controls.Add(Me.A480p)
-        Me.GB_Resolution.Controls.Add(Me.A360p)
-        Me.GB_Resolution.Controls.Add(Me.A720p)
-        Me.GB_Resolution.Controls.Add(Me.A1080p)
-        Me.GB_Resolution.Font = New System.Drawing.Font("Arial", 9.75!)
-        Me.GB_Resolution.ForeColor = System.Drawing.Color.Black
-        Me.GB_Resolution.Location = New System.Drawing.Point(6, 158)
-        Me.GB_Resolution.Name = "GB_Resolution"
-        Me.GB_Resolution.Size = New System.Drawing.Size(339, 68)
-        Me.GB_Resolution.TabIndex = 0
-        Me.GB_Resolution.TabStop = False
-        Me.GB_Resolution.Text = "Auflösung"
-        '
-        'AAuto
-        '
-        Me.AAuto.AutoSize = True
-        Me.AAuto.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.AAuto.ForeColor = System.Drawing.Color.Black
-        Me.AAuto.Location = New System.Drawing.Point(267, 22)
-        Me.AAuto.Name = "AAuto"
-        Me.AAuto.Size = New System.Drawing.Size(66, 22)
-        Me.AAuto.TabIndex = 3
-        Me.AAuto.TabStop = True
-        Me.AAuto.Text = "[Auto]"
-        Me.AAuto.UseVisualStyleBackColor = True
-        '
-        'A480p
-        '
-        Me.A480p.AutoSize = True
-        Me.A480p.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.A480p.ForeColor = System.Drawing.Color.Black
-        Me.A480p.Location = New System.Drawing.Point(141, 21)
-        Me.A480p.Name = "A480p"
-        Me.A480p.Size = New System.Drawing.Size(62, 22)
-        Me.A480p.TabIndex = 2
-        Me.A480p.TabStop = True
-        Me.A480p.Text = "480p"
-        Me.A480p.UseVisualStyleBackColor = True
-        '
-        'A360p
-        '
-        Me.A360p.AutoSize = True
-        Me.A360p.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.A360p.ForeColor = System.Drawing.Color.Black
-        Me.A360p.Location = New System.Drawing.Point(205, 22)
-        Me.A360p.Name = "A360p"
-        Me.A360p.Size = New System.Drawing.Size(62, 22)
-        Me.A360p.TabIndex = 2
-        Me.A360p.TabStop = True
-        Me.A360p.Text = "360p"
-        Me.A360p.UseVisualStyleBackColor = True
-        '
-        'A720p
-        '
-        Me.A720p.AutoSize = True
-        Me.A720p.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.A720p.ForeColor = System.Drawing.Color.Black
-        Me.A720p.Location = New System.Drawing.Point(82, 21)
-        Me.A720p.Name = "A720p"
-        Me.A720p.Size = New System.Drawing.Size(62, 22)
-        Me.A720p.TabIndex = 1
-        Me.A720p.TabStop = True
-        Me.A720p.Text = "720p"
-        Me.A720p.UseVisualStyleBackColor = True
-        '
-        'A1080p
-        '
-        Me.A1080p.AutoSize = True
-        Me.A1080p.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.A1080p.ForeColor = System.Drawing.Color.Black
-        Me.A1080p.Location = New System.Drawing.Point(9, 21)
-        Me.A1080p.Name = "A1080p"
-        Me.A1080p.Size = New System.Drawing.Size(71, 22)
-        Me.A1080p.TabIndex = 0
-        Me.A1080p.TabStop = True
-        Me.A1080p.Text = "1080p"
-        Me.A1080p.UseVisualStyleBackColor = True
-        '
-        'GB_SubLanguage
-        '
-        Me.GB_SubLanguage.BackColor = System.Drawing.Color.Transparent
-        Me.GB_SubLanguage.Controls.Add(Me.PictureBox5)
-        Me.GB_SubLanguage.Controls.Add(Me.ComboBox1)
-        Me.GB_SubLanguage.Font = New System.Drawing.Font("Arial", 9.75!)
-        Me.GB_SubLanguage.ForeColor = System.Drawing.Color.Black
-        Me.GB_SubLanguage.Location = New System.Drawing.Point(3, 232)
-        Me.GB_SubLanguage.Name = "GB_SubLanguage"
-        Me.GB_SubLanguage.Size = New System.Drawing.Size(342, 95)
-        Me.GB_SubLanguage.TabIndex = 1
-        Me.GB_SubLanguage.TabStop = False
-        Me.GB_SubLanguage.Text = "Sub Sprache"
-        '
-        'PictureBox5
-        '
-        Me.PictureBox5.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.PictureBox5.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.settings_add_softsubs
-        Me.PictureBox5.Location = New System.Drawing.Point(102, 59)
-        Me.PictureBox5.Name = "PictureBox5"
-        Me.PictureBox5.Size = New System.Drawing.Size(127, 30)
-        Me.PictureBox5.TabIndex = 34
-        Me.PictureBox5.TabStop = False
-        '
-        'ComboBox1
-        '
-        Me.ComboBox1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
-        Me.ComboBox1.DropDownHeight = 250
-        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.ComboBox1.FormattingEnabled = True
-        Me.ComboBox1.IntegralHeight = False
-        Me.ComboBox1.ItemHeight = 16
-        Me.ComboBox1.Items.AddRange(New Object() {"Deutsch", "English", "Español (España)", "Español (LA)", "Français (France)", "Italiano (Italian)", "Português (Brasil)", "Русский (Russian)", "العربية (Arabic)"})
-        Me.ComboBox1.Location = New System.Drawing.Point(44, 25)
-        Me.ComboBox1.Name = "ComboBox1"
-        Me.ComboBox1.Size = New System.Drawing.Size(265, 22)
-        Me.ComboBox1.Sorted = True
-        Me.ComboBox1.TabIndex = 33
-        '
         'GB_Sub_Path
         '
         Me.GB_Sub_Path.BackColor = System.Drawing.Color.Transparent
@@ -198,7 +102,7 @@ Partial Class einstellungen
         Me.GB_Sub_Path.ForeColor = System.Drawing.Color.Black
         Me.GB_Sub_Path.Location = New System.Drawing.Point(6, 85)
         Me.GB_Sub_Path.Name = "GB_Sub_Path"
-        Me.GB_Sub_Path.Size = New System.Drawing.Size(342, 67)
+        Me.GB_Sub_Path.Size = New System.Drawing.Size(456, 51)
         Me.GB_Sub_Path.TabIndex = 3
         Me.GB_Sub_Path.TabStop = False
         Me.GB_Sub_Path.Text = "Unterordner "
@@ -208,7 +112,7 @@ Partial Class einstellungen
         Me.RBStaffel.AutoSize = True
         Me.RBStaffel.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.RBStaffel.ForeColor = System.Drawing.Color.Black
-        Me.RBStaffel.Location = New System.Drawing.Point(159, 24)
+        Me.RBStaffel.Location = New System.Drawing.Point(251, 21)
         Me.RBStaffel.Name = "RBStaffel"
         Me.RBStaffel.Size = New System.Drawing.Size(174, 22)
         Me.RBStaffel.TabIndex = 1
@@ -222,7 +126,7 @@ Partial Class einstellungen
         Me.RBAnime.AutoSize = True
         Me.RBAnime.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.RBAnime.ForeColor = System.Drawing.Color.Black
-        Me.RBAnime.Location = New System.Drawing.Point(9, 24)
+        Me.RBAnime.Location = New System.Drawing.Point(30, 21)
         Me.RBAnime.Name = "RBAnime"
         Me.RBAnime.Size = New System.Drawing.Size(113, 22)
         Me.RBAnime.TabIndex = 1
@@ -231,45 +135,22 @@ Partial Class einstellungen
         Me.ToolTip1.SetToolTip(Me.RBAnime, "Erstelle einen Ordner für den Anime, unabhänig der Staffeln")
         Me.RBAnime.UseVisualStyleBackColor = True
         '
-        'GroupBox4
-        '
-        Me.GroupBox4.BackColor = System.Drawing.Color.Transparent
-        Me.GroupBox4.Controls.Add(Me.PictureBox2)
-        Me.GroupBox4.Font = New System.Drawing.Font("Arial", 9.75!)
-        Me.GroupBox4.ForeColor = System.Drawing.Color.Black
-        Me.GroupBox4.Location = New System.Drawing.Point(6, 173)
-        Me.GroupBox4.Name = "GroupBox4"
-        Me.GroupBox4.Size = New System.Drawing.Size(339, 81)
-        Me.GroupBox4.TabIndex = 4
-        Me.GroupBox4.TabStop = False
-        Me.GroupBox4.Text = "Crunchyroll US"
-        '
-        'PictureBox2
-        '
-        Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.PictureBox2.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setUScookie_button
-        Me.PictureBox2.Location = New System.Drawing.Point(94, 32)
-        Me.PictureBox2.Name = "PictureBox2"
-        Me.PictureBox2.Size = New System.Drawing.Size(150, 30)
-        Me.PictureBox2.TabIndex = 4
-        Me.PictureBox2.TabStop = False
-        '
         'DL_Count_simultaneous
         '
         Me.DL_Count_simultaneous.BackColor = System.Drawing.Color.Transparent
         Me.DL_Count_simultaneous.Controls.Add(Me.NumericUpDown1)
         Me.DL_Count_simultaneous.Font = New System.Drawing.Font("Arial", 9.75!)
         Me.DL_Count_simultaneous.ForeColor = System.Drawing.Color.Black
-        Me.DL_Count_simultaneous.Location = New System.Drawing.Point(12, 11)
+        Me.DL_Count_simultaneous.Location = New System.Drawing.Point(6, 11)
         Me.DL_Count_simultaneous.Name = "DL_Count_simultaneous"
-        Me.DL_Count_simultaneous.Size = New System.Drawing.Size(333, 68)
+        Me.DL_Count_simultaneous.Size = New System.Drawing.Size(456, 68)
         Me.DL_Count_simultaneous.TabIndex = 5
         Me.DL_Count_simultaneous.TabStop = False
         Me.DL_Count_simultaneous.Text = "simultaneous downloads"
         '
         'NumericUpDown1
         '
-        Me.NumericUpDown1.Location = New System.Drawing.Point(35, 31)
+        Me.NumericUpDown1.Location = New System.Drawing.Point(98, 30)
         Me.NumericUpDown1.Maximum = New Decimal(New Integer() {12, 0, 0, 0})
         Me.NumericUpDown1.Name = "NumericUpDown1"
         Me.NumericUpDown1.Size = New System.Drawing.Size(265, 22)
@@ -282,7 +163,7 @@ Partial Class einstellungen
         Me.pictureBox1.BackColor = System.Drawing.Color.Transparent
         Me.pictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
         Me.pictureBox1.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_close
-        Me.pictureBox1.Location = New System.Drawing.Point(328, 1)
+        Me.pictureBox1.Location = New System.Drawing.Point(449, 1)
         Me.pictureBox1.Name = "pictureBox1"
         Me.pictureBox1.Size = New System.Drawing.Size(50, 40)
         Me.pictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
@@ -293,13 +174,50 @@ Partial Class einstellungen
         '
         Me.pictureBox4.Cursor = System.Windows.Forms.Cursors.Hand
         Me.pictureBox4.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Button_SafeExit
-        Me.pictureBox4.Location = New System.Drawing.Point(10, 429)
+        Me.pictureBox4.Location = New System.Drawing.Point(67, 505)
         Me.pictureBox4.Name = "pictureBox4"
         Me.pictureBox4.Size = New System.Drawing.Size(355, 30)
         Me.pictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
         Me.pictureBox4.TabIndex = 8
         Me.pictureBox4.TabStop = False
         '
+        'TabControl1
+        '
+        Me.TabControl1.Controls.Add(Me.TabPage1)
+        Me.TabControl1.Controls.Add(Me.TabPage2)
+        Me.TabControl1.Controls.Add(Me.TabPage3)
+        Me.TabControl1.Location = New System.Drawing.Point(12, 47)
+        Me.TabControl1.Name = "TabControl1"
+        Me.TabControl1.SelectedIndex = 0
+        Me.TabControl1.Size = New System.Drawing.Size(476, 441)
+        Me.TabControl1.TabIndex = 38
+        '
+        'TabPage1
+        '
+        Me.TabPage1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
+        Me.TabPage1.Controls.Add(Me.PictureBox6)
+        Me.TabPage1.Controls.Add(Me.GroupBox1)
+        Me.TabPage1.Controls.Add(Me.GroupBox4)
+        Me.TabPage1.Controls.Add(Me.DL_Count_simultaneous)
+        Me.TabPage1.Controls.Add(Me.GB_Sub_Path)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(468, 415)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Settings"
+        '
+        'PictureBox6
+        '
+        Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.PictureBox6.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_credits_default
+        Me.PictureBox6.Location = New System.Drawing.Point(195, 359)
+        Me.PictureBox6.Name = "PictureBox6"
+        Me.PictureBox6.Size = New System.Drawing.Size(76, 39)
+        Me.PictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+        Me.PictureBox6.TabIndex = 41
+        Me.PictureBox6.TabStop = False
+        '
         'GroupBox1
         '
         Me.GroupBox1.BackColor = System.Drawing.Color.Transparent
@@ -308,17 +226,17 @@ Partial Class einstellungen
         Me.GroupBox1.Controls.Add(Me.Firefox_True)
         Me.GroupBox1.Font = New System.Drawing.Font("Arial", 9.75!)
         Me.GroupBox1.ForeColor = System.Drawing.Color.Black
-        Me.GroupBox1.Location = New System.Drawing.Point(6, 17)
+        Me.GroupBox1.Location = New System.Drawing.Point(6, 215)
         Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(339, 138)
-        Me.GroupBox1.TabIndex = 4
+        Me.GroupBox1.Size = New System.Drawing.Size(456, 138)
+        Me.GroupBox1.TabIndex = 7
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "Browser Settings"
         '
         'Label1
         '
         Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(120, 28)
+        Me.Label1.Location = New System.Drawing.Point(186, 29)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(100, 16)
         Me.Label1.TabIndex = 2
@@ -328,76 +246,451 @@ Partial Class einstellungen
         '
         Me.TextBox1.Location = New System.Drawing.Point(6, 57)
         Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(327, 22)
+        Me.TextBox1.Size = New System.Drawing.Size(444, 22)
         Me.TextBox1.TabIndex = 1
         Me.TextBox1.Text = "https://www.crunchyroll.com/"
+        Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'Firefox_True
         '
         Me.Firefox_True.AutoSize = True
         Me.Firefox_True.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Firefox_True.ForeColor = System.Drawing.Color.Black
-        Me.Firefox_True.Location = New System.Drawing.Point(88, 99)
+        Me.Firefox_True.Location = New System.Drawing.Point(141, 99)
         Me.Firefox_True.Name = "Firefox_True"
         Me.Firefox_True.Size = New System.Drawing.Size(166, 20)
         Me.Firefox_True.TabIndex = 0
         Me.Firefox_True.Text = "Use Firefox Profil Folder"
         Me.Firefox_True.UseVisualStyleBackColor = True
         '
-        'PictureBox6
+        'GroupBox4
         '
-        Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.PictureBox6.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_credits_default
-        Me.PictureBox6.Location = New System.Drawing.Point(131, 276)
-        Me.PictureBox6.Name = "PictureBox6"
-        Me.PictureBox6.Size = New System.Drawing.Size(76, 39)
-        Me.PictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
-        Me.PictureBox6.TabIndex = 37
-        Me.PictureBox6.TabStop = False
+        Me.GroupBox4.BackColor = System.Drawing.Color.Transparent
+        Me.GroupBox4.Controls.Add(Me.PictureBox2)
+        Me.GroupBox4.Font = New System.Drawing.Font("Arial", 9.75!)
+        Me.GroupBox4.ForeColor = System.Drawing.Color.Black
+        Me.GroupBox4.Location = New System.Drawing.Point(6, 142)
+        Me.GroupBox4.Name = "GroupBox4"
+        Me.GroupBox4.Size = New System.Drawing.Size(456, 67)
+        Me.GroupBox4.TabIndex = 6
+        Me.GroupBox4.TabStop = False
+        Me.GroupBox4.Text = "Crunchyroll US"
         '
-        'TabControl1
+        'PictureBox2
         '
-        Me.TabControl1.Controls.Add(Me.TabPage1)
-        Me.TabControl1.Controls.Add(Me.TabPage2)
-        Me.TabControl1.Location = New System.Drawing.Point(10, 46)
-        Me.TabControl1.Name = "TabControl1"
-        Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(359, 364)
-        Me.TabControl1.TabIndex = 38
-        '
-        'TabPage1
-        '
-        Me.TabPage1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
-        Me.TabPage1.Controls.Add(Me.DL_Count_simultaneous)
-        Me.TabPage1.Controls.Add(Me.GB_SubLanguage)
-        Me.TabPage1.Controls.Add(Me.GB_Resolution)
-        Me.TabPage1.Controls.Add(Me.GB_Sub_Path)
-        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage1.Name = "TabPage1"
-        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(351, 338)
-        Me.TabPage1.TabIndex = 0
-        Me.TabPage1.Text = "Download Settings"
+        Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.PictureBox2.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setUScookie_button
+        Me.PictureBox2.Location = New System.Drawing.Point(154, 21)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(150, 30)
+        Me.PictureBox2.TabIndex = 4
+        Me.PictureBox2.TabStop = False
         '
         'TabPage2
         '
         Me.TabPage2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
-        Me.TabPage2.Controls.Add(Me.GroupBox1)
-        Me.TabPage2.Controls.Add(Me.PictureBox6)
-        Me.TabPage2.Controls.Add(Me.GroupBox4)
+        Me.TabPage2.Controls.Add(Me.SoftSubs)
+        Me.TabPage2.Controls.Add(Me.GB_SubLanguage)
+        Me.TabPage2.Controls.Add(Me.GB_Resolution)
         Me.TabPage2.Location = New System.Drawing.Point(4, 22)
         Me.TabPage2.Name = "TabPage2"
         Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(351, 338)
+        Me.TabPage2.Size = New System.Drawing.Size(468, 415)
         Me.TabPage2.TabIndex = 1
-        Me.TabPage2.Text = "Additional Settings"
+        Me.TabPage2.Text = "Output Settings"
+        '
+        'SoftSubs
+        '
+        Me.SoftSubs.BackColor = System.Drawing.Color.Transparent
+        Me.SoftSubs.Controls.Add(Me.MergeMP4)
+        Me.SoftSubs.Controls.Add(Me.CBesES)
+        Me.SoftSubs.Controls.Add(Me.CBitIT)
+        Me.SoftSubs.Controls.Add(Me.CBruRU)
+        Me.SoftSubs.Controls.Add(Me.CBarME)
+        Me.SoftSubs.Controls.Add(Me.CBfrFR)
+        Me.SoftSubs.Controls.Add(Me.CBesLA)
+        Me.SoftSubs.Controls.Add(Me.CBptBR)
+        Me.SoftSubs.Controls.Add(Me.CBdeDE)
+        Me.SoftSubs.Controls.Add(Me.CBenUS)
+        Me.SoftSubs.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.SoftSubs.Location = New System.Drawing.Point(6, 134)
+        Me.SoftSubs.Name = "SoftSubs"
+        Me.SoftSubs.Size = New System.Drawing.Size(449, 203)
+        Me.SoftSubs.TabIndex = 49
+        Me.SoftSubs.TabStop = False
+        Me.SoftSubs.Text = "SoftSubs"
+        '
+        'MergeMP4
+        '
+        Me.MergeMP4.AutoSize = True
+        Me.MergeMP4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MergeMP4.Location = New System.Drawing.Point(129, 165)
+        Me.MergeMP4.Name = "MergeMP4"
+        Me.MergeMP4.Size = New System.Drawing.Size(194, 20)
+        Me.MergeMP4.TabIndex = 6
+        Me.MergeMP4.Text = "Merge softubs with video file"
+        Me.MergeMP4.UseVisualStyleBackColor = True
+        '
+        'CBesES
+        '
+        Me.CBesES.AutoSize = True
+        Me.CBesES.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.CBesES.Location = New System.Drawing.Point(166, 74)
+        Me.CBesES.Name = "CBesES"
+        Me.CBesES.Size = New System.Drawing.Size(135, 20)
+        Me.CBesES.TabIndex = 5
+        Me.CBesES.Text = "Español (España)"
+        Me.CBesES.UseVisualStyleBackColor = True
+        '
+        'CBitIT
+        '
+        Me.CBitIT.AutoSize = True
+        Me.CBitIT.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.CBitIT.Location = New System.Drawing.Point(25, 111)
+        Me.CBitIT.Name = "CBitIT"
+        Me.CBitIT.Size = New System.Drawing.Size(116, 20)
+        Me.CBitIT.TabIndex = 5
+        Me.CBitIT.Text = "Italiano (Italian)"
+        Me.CBitIT.UseVisualStyleBackColor = True
+        '
+        'CBruRU
+        '
+        Me.CBruRU.AutoSize = True
+        Me.CBruRU.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.CBruRU.Location = New System.Drawing.Point(306, 111)
+        Me.CBruRU.Name = "CBruRU"
+        Me.CBruRU.Size = New System.Drawing.Size(141, 20)
+        Me.CBruRU.TabIndex = 5
+        Me.CBruRU.Text = "Русский (Russian)"
+        Me.CBruRU.UseVisualStyleBackColor = True
+        '
+        'CBarME
+        '
+        Me.CBarME.AutoSize = True
+        Me.CBarME.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.CBarME.Location = New System.Drawing.Point(166, 111)
+        Me.CBarME.Name = "CBarME"
+        Me.CBarME.Size = New System.Drawing.Size(108, 20)
+        Me.CBarME.TabIndex = 5
+        Me.CBarME.Text = "العربية (Arabic)"
+        Me.CBarME.UseVisualStyleBackColor = True
+        '
+        'CBfrFR
+        '
+        Me.CBfrFR.AutoSize = True
+        Me.CBfrFR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.CBfrFR.Location = New System.Drawing.Point(306, 36)
+        Me.CBfrFR.Name = "CBfrFR"
+        Me.CBfrFR.Size = New System.Drawing.Size(132, 20)
+        Me.CBfrFR.TabIndex = 4
+        Me.CBfrFR.Text = "Français (France)"
+        Me.CBfrFR.UseVisualStyleBackColor = True
+        '
+        'CBesLA
+        '
+        Me.CBesLA.AutoSize = True
+        Me.CBesLA.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.CBesLA.Location = New System.Drawing.Point(166, 36)
+        Me.CBesLA.Name = "CBesLA"
+        Me.CBesLA.Size = New System.Drawing.Size(104, 20)
+        Me.CBesLA.TabIndex = 3
+        Me.CBesLA.Text = "Español (LA)"
+        Me.CBesLA.UseVisualStyleBackColor = True
+        '
+        'CBptBR
+        '
+        Me.CBptBR.AutoSize = True
+        Me.CBptBR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.CBptBR.Location = New System.Drawing.Point(306, 74)
+        Me.CBptBR.Name = "CBptBR"
+        Me.CBptBR.Size = New System.Drawing.Size(133, 20)
+        Me.CBptBR.TabIndex = 2
+        Me.CBptBR.Text = "Português (Brasil)"
+        Me.CBptBR.UseVisualStyleBackColor = True
+        '
+        'CBdeDE
+        '
+        Me.CBdeDE.AutoSize = True
+        Me.CBdeDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.CBdeDE.Location = New System.Drawing.Point(25, 74)
+        Me.CBdeDE.Name = "CBdeDE"
+        Me.CBdeDE.Size = New System.Drawing.Size(76, 20)
+        Me.CBdeDE.TabIndex = 1
+        Me.CBdeDE.Text = "Deutsch"
+        Me.CBdeDE.UseVisualStyleBackColor = True
+        '
+        'CBenUS
+        '
+        Me.CBenUS.AutoSize = True
+        Me.CBenUS.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.CBenUS.Location = New System.Drawing.Point(25, 36)
+        Me.CBenUS.Name = "CBenUS"
+        Me.CBenUS.Size = New System.Drawing.Size(71, 20)
+        Me.CBenUS.TabIndex = 0
+        Me.CBenUS.Text = "English"
+        Me.CBenUS.UseVisualStyleBackColor = True
+        '
+        'GB_SubLanguage
+        '
+        Me.GB_SubLanguage.BackColor = System.Drawing.Color.Transparent
+        Me.GB_SubLanguage.Controls.Add(Me.ComboBox1)
+        Me.GB_SubLanguage.Font = New System.Drawing.Font("Arial", 9.75!)
+        Me.GB_SubLanguage.ForeColor = System.Drawing.Color.Black
+        Me.GB_SubLanguage.Location = New System.Drawing.Point(6, 65)
+        Me.GB_SubLanguage.Name = "GB_SubLanguage"
+        Me.GB_SubLanguage.Size = New System.Drawing.Size(449, 63)
+        Me.GB_SubLanguage.TabIndex = 39
+        Me.GB_SubLanguage.TabStop = False
+        Me.GB_SubLanguage.Text = "Sub Sprache"
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
+        Me.ComboBox1.DropDownHeight = 250
+        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.IntegralHeight = False
+        Me.ComboBox1.ItemHeight = 16
+        Me.ComboBox1.Items.AddRange(New Object() {"Deutsch", "English", "Español (España)", "Español (LA)", "Français (France)", "Italiano (Italian)", "Português (Brasil)", "Русский (Russian)", "العربية (Arabic)"})
+        Me.ComboBox1.Location = New System.Drawing.Point(60, 25)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(326, 22)
+        Me.ComboBox1.Sorted = True
+        Me.ComboBox1.TabIndex = 33
+        '
+        'GB_Resolution
+        '
+        Me.GB_Resolution.BackColor = System.Drawing.Color.Transparent
+        Me.GB_Resolution.Controls.Add(Me.AAuto)
+        Me.GB_Resolution.Controls.Add(Me.A480p)
+        Me.GB_Resolution.Controls.Add(Me.A360p)
+        Me.GB_Resolution.Controls.Add(Me.A720p)
+        Me.GB_Resolution.Controls.Add(Me.A1080p)
+        Me.GB_Resolution.Font = New System.Drawing.Font("Arial", 9.75!)
+        Me.GB_Resolution.ForeColor = System.Drawing.Color.Black
+        Me.GB_Resolution.Location = New System.Drawing.Point(6, 6)
+        Me.GB_Resolution.Name = "GB_Resolution"
+        Me.GB_Resolution.Size = New System.Drawing.Size(449, 53)
+        Me.GB_Resolution.TabIndex = 38
+        Me.GB_Resolution.TabStop = False
+        Me.GB_Resolution.Text = "Auflösung"
+        '
+        'AAuto
+        '
+        Me.AAuto.AutoSize = True
+        Me.AAuto.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        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(66, 22)
+        Me.AAuto.TabIndex = 3
+        Me.AAuto.TabStop = True
+        Me.AAuto.Text = "[Auto]"
+        Me.AAuto.UseVisualStyleBackColor = True
+        '
+        'A480p
+        '
+        Me.A480p.AutoSize = True
+        Me.A480p.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.A480p.ForeColor = System.Drawing.Color.Black
+        Me.A480p.Location = New System.Drawing.Point(198, 21)
+        Me.A480p.Name = "A480p"
+        Me.A480p.Size = New System.Drawing.Size(62, 22)
+        Me.A480p.TabIndex = 2
+        Me.A480p.TabStop = True
+        Me.A480p.Text = "480p"
+        Me.A480p.UseVisualStyleBackColor = True
+        '
+        'A360p
+        '
+        Me.A360p.AutoSize = True
+        Me.A360p.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.A360p.ForeColor = System.Drawing.Color.Black
+        Me.A360p.Location = New System.Drawing.Point(286, 21)
+        Me.A360p.Name = "A360p"
+        Me.A360p.Size = New System.Drawing.Size(62, 22)
+        Me.A360p.TabIndex = 2
+        Me.A360p.TabStop = True
+        Me.A360p.Text = "360p"
+        Me.A360p.UseVisualStyleBackColor = True
+        '
+        'A720p
+        '
+        Me.A720p.AutoSize = True
+        Me.A720p.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.A720p.ForeColor = System.Drawing.Color.Black
+        Me.A720p.Location = New System.Drawing.Point(119, 21)
+        Me.A720p.Name = "A720p"
+        Me.A720p.Size = New System.Drawing.Size(62, 22)
+        Me.A720p.TabIndex = 1
+        Me.A720p.TabStop = True
+        Me.A720p.Text = "720p"
+        Me.A720p.UseVisualStyleBackColor = True
+        '
+        'A1080p
+        '
+        Me.A1080p.AutoSize = True
+        Me.A1080p.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.A1080p.ForeColor = System.Drawing.Color.Black
+        Me.A1080p.Location = New System.Drawing.Point(25, 21)
+        Me.A1080p.Name = "A1080p"
+        Me.A1080p.Size = New System.Drawing.Size(71, 22)
+        Me.A1080p.TabIndex = 0
+        Me.A1080p.TabStop = True
+        Me.A1080p.Text = "1080p"
+        Me.A1080p.UseVisualStyleBackColor = True
+        '
+        'TabPage3
+        '
+        Me.TabPage3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
+        Me.TabPage3.Controls.Add(Me.GroupBox3)
+        Me.TabPage3.Controls.Add(Me.MultiDLSoftSubs)
+        Me.TabPage3.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage3.Name = "TabPage3"
+        Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage3.Size = New System.Drawing.Size(468, 415)
+        Me.TabPage3.TabIndex = 2
+        Me.TabPage3.Text = "Subtile Download"
+        '
+        'GroupBox3
+        '
+        Me.GroupBox3.BackColor = System.Drawing.Color.Transparent
+        Me.GroupBox3.Controls.Add(Me.PictureBox5)
+        Me.GroupBox3.Controls.Add(Me.StatusLabel)
+        Me.GroupBox3.Controls.Add(Me.TextBox2)
+        Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GroupBox3.Location = New System.Drawing.Point(9, 6)
+        Me.GroupBox3.Name = "GroupBox3"
+        Me.GroupBox3.Size = New System.Drawing.Size(450, 162)
+        Me.GroupBox3.TabIndex = 46
+        Me.GroupBox3.TabStop = False
+        Me.GroupBox3.Text = "Single Download "
+        '
+        'PictureBox5
+        '
+        Me.PictureBox5.BackColor = System.Drawing.Color.Transparent
+        Me.PictureBox5.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.PictureBox5.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.softsubs_download
+        Me.PictureBox5.Location = New System.Drawing.Point(24, 116)
+        Me.PictureBox5.Name = "PictureBox5"
+        Me.PictureBox5.Size = New System.Drawing.Size(403, 36)
+        Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+        Me.PictureBox5.TabIndex = 46
+        Me.PictureBox5.TabStop = False
+        '
+        '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.Font = New System.Drawing.Font("Arial", 12.0!)
+        Me.StatusLabel.ForeColor = System.Drawing.SystemColors.InactiveCaptionText
+        Me.StatusLabel.Location = New System.Drawing.Point(8, 71)
+        Me.StatusLabel.Name = "StatusLabel"
+        Me.StatusLabel.Size = New System.Drawing.Size(433, 29)
+        Me.StatusLabel.TabIndex = 38
+        Me.StatusLabel.Text = "Status: idle"
+        Me.StatusLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'TextBox2
+        '
+        Me.TextBox2.BackColor = System.Drawing.Color.White
+        Me.TextBox2.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.TextBox2.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.TextBox2.Location = New System.Drawing.Point(6, 35)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(435, 22)
+        Me.TextBox2.TabIndex = 4
+        Me.TextBox2.TabStop = False
+        Me.TextBox2.Text = "URL"
+        Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'MultiDLSoftSubs
+        '
+        Me.MultiDLSoftSubs.BackColor = System.Drawing.Color.Transparent
+        Me.MultiDLSoftSubs.Controls.Add(Me.SoftSubsMass)
+        Me.MultiDLSoftSubs.Controls.Add(Me.PictureBox3)
+        Me.MultiDLSoftSubs.Controls.Add(Me.comboBox4)
+        Me.MultiDLSoftSubs.Controls.Add(Me.ComboBox2)
+        Me.MultiDLSoftSubs.Controls.Add(Me.comboBox3)
+        Me.MultiDLSoftSubs.Enabled = False
+        Me.MultiDLSoftSubs.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MultiDLSoftSubs.Location = New System.Drawing.Point(9, 174)
+        Me.MultiDLSoftSubs.Name = "MultiDLSoftSubs"
+        Me.MultiDLSoftSubs.Size = New System.Drawing.Size(450, 223)
+        Me.MultiDLSoftSubs.TabIndex = 45
+        Me.MultiDLSoftSubs.TabStop = False
+        Me.MultiDLSoftSubs.Text = "Multi Download"
+        '
+        'SoftSubsMass
+        '
+        Me.SoftSubsMass.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.SoftSubsMass.BackColor = System.Drawing.Color.Transparent
+        Me.SoftSubsMass.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.SoftSubsMass.ForeColor = System.Drawing.Color.Black
+        Me.SoftSubsMass.Location = New System.Drawing.Point(6, 130)
+        Me.SoftSubsMass.Name = "SoftSubsMass"
+        Me.SoftSubsMass.Size = New System.Drawing.Size(438, 26)
+        Me.SoftSubsMass.TabIndex = 46
+        Me.SoftSubsMass.Text = "Status: idle"
+        Me.SoftSubsMass.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'PictureBox3
+        '
+        Me.PictureBox3.BackColor = System.Drawing.Color.Transparent
+        Me.PictureBox3.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.PictureBox3.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.softsubs_download_gray
+        Me.PictureBox3.Location = New System.Drawing.Point(24, 169)
+        Me.PictureBox3.Name = "PictureBox3"
+        Me.PictureBox3.Size = New System.Drawing.Size(403, 36)
+        Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+        Me.PictureBox3.TabIndex = 45
+        Me.PictureBox3.TabStop = False
+        '
+        'comboBox4
+        '
+        Me.comboBox4.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
+        Me.comboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.comboBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.comboBox4.FormattingEnabled = True
+        Me.comboBox4.Location = New System.Drawing.Point(6, 97)
+        Me.comboBox4.Name = "comboBox4"
+        Me.comboBox4.Size = New System.Drawing.Size(441, 23)
+        Me.comboBox4.TabIndex = 2
+        '
+        'ComboBox2
+        '
+        Me.ComboBox2.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
+        Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.ComboBox2.FormattingEnabled = True
+        Me.ComboBox2.Location = New System.Drawing.Point(6, 25)
+        Me.ComboBox2.Name = "ComboBox2"
+        Me.ComboBox2.Size = New System.Drawing.Size(441, 23)
+        Me.ComboBox2.TabIndex = 1
+        '
+        'comboBox3
+        '
+        Me.comboBox3.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
+        Me.comboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.comboBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.comboBox3.FormattingEnabled = True
+        Me.comboBox3.Location = New System.Drawing.Point(6, 62)
+        Me.comboBox3.Name = "comboBox3"
+        Me.comboBox3.Size = New System.Drawing.Size(441, 23)
+        Me.comboBox3.TabIndex = 1
         '
         'einstellungen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Background
-        Me.ClientSize = New System.Drawing.Size(379, 470)
+        Me.ClientSize = New System.Drawing.Size(500, 550)
         Me.Controls.Add(Me.TabControl1)
         Me.Controls.Add(Me.pictureBox4)
         Me.Controls.Add(Me.pictureBox1)
@@ -406,55 +699,82 @@ Partial Class einstellungen
         Me.MinimizeBox = False
         Me.Name = "einstellungen"
         Me.Text = "crunchyroll downloader"
-        Me.GB_Resolution.ResumeLayout(False)
-        Me.GB_Resolution.PerformLayout()
-        Me.GB_SubLanguage.ResumeLayout(False)
-        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GB_Sub_Path.ResumeLayout(False)
         Me.GB_Sub_Path.PerformLayout()
-        Me.GroupBox4.ResumeLayout(False)
-        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.DL_Count_simultaneous.ResumeLayout(False)
         CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.pictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.GroupBox1.ResumeLayout(False)
-        Me.GroupBox1.PerformLayout()
-        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabControl1.ResumeLayout(False)
         Me.TabPage1.ResumeLayout(False)
+        Me.TabPage1.PerformLayout()
+        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        Me.GroupBox4.ResumeLayout(False)
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabPage2.ResumeLayout(False)
-        Me.TabPage2.PerformLayout()
+        Me.SoftSubs.ResumeLayout(False)
+        Me.SoftSubs.PerformLayout()
+        Me.GB_SubLanguage.ResumeLayout(False)
+        Me.GB_Resolution.ResumeLayout(False)
+        Me.GB_Resolution.PerformLayout()
+        Me.TabPage3.ResumeLayout(False)
+        Me.GroupBox3.ResumeLayout(False)
+        Me.GroupBox3.PerformLayout()
+        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.MultiDLSoftSubs.ResumeLayout(False)
+        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
-
-    Friend WithEvents GB_Resolution As GroupBox
-    Friend WithEvents GB_SubLanguage As GroupBox
-    Friend WithEvents A360p As RadioButton
-    Friend WithEvents A720p As RadioButton
-    Friend WithEvents A1080p As RadioButton
     Friend WithEvents GB_Sub_Path As GroupBox
     Friend WithEvents RBStaffel As RadioButton
     Friend WithEvents RBAnime As RadioButton
     Friend WithEvents ToolTip1 As ToolTip
-    Friend WithEvents GroupBox4 As GroupBox
-    Friend WithEvents A480p As RadioButton
     Friend WithEvents DL_Count_simultaneous As GroupBox
     Friend WithEvents NumericUpDown1 As NumericUpDown
-    Friend WithEvents ComboBox1 As ComboBox
     Private WithEvents pictureBox1 As PictureBox
     Private WithEvents pictureBox4 As PictureBox
-    Private WithEvents PictureBox2 As PictureBox
-    Friend WithEvents GroupBox1 As GroupBox
-    Friend WithEvents Firefox_True As CheckBox
-    Private WithEvents PictureBox5 As PictureBox
-    Private WithEvents PictureBox6 As PictureBox
     Friend WithEvents TabControl1 As TabControl
     Friend WithEvents TabPage1 As TabPage
     Friend WithEvents TabPage2 As TabPage
+    Friend WithEvents GroupBox1 As GroupBox
     Friend WithEvents Label1 As Label
     Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Firefox_True As CheckBox
+    Friend WithEvents GroupBox4 As GroupBox
+    Private WithEvents PictureBox2 As PictureBox
+    Friend WithEvents GB_SubLanguage As GroupBox
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents GB_Resolution As GroupBox
     Friend WithEvents AAuto As RadioButton
+    Friend WithEvents A480p As RadioButton
+    Friend WithEvents A360p As RadioButton
+    Friend WithEvents A720p As RadioButton
+    Friend WithEvents A1080p As RadioButton
+    Friend WithEvents SoftSubs As GroupBox
+    Friend WithEvents CBesES As CheckBox
+    Friend WithEvents CBitIT As CheckBox
+    Friend WithEvents CBruRU As CheckBox
+    Friend WithEvents CBarME As CheckBox
+    Friend WithEvents CBfrFR As CheckBox
+    Friend WithEvents CBesLA As CheckBox
+    Friend WithEvents CBptBR As CheckBox
+    Friend WithEvents CBdeDE As CheckBox
+    Friend WithEvents CBenUS As CheckBox
+    Private WithEvents PictureBox6 As PictureBox
+    Friend WithEvents MergeMP4 As CheckBox
+    Friend WithEvents TabPage3 As TabPage
+    Public WithEvents GroupBox3 As GroupBox
+    Public WithEvents PictureBox5 As PictureBox
+    Public WithEvents StatusLabel As Label
+    Public WithEvents TextBox2 As TextBox
+    Public WithEvents MultiDLSoftSubs As GroupBox
+    Public WithEvents SoftSubsMass As Label
+    Public WithEvents PictureBox3 As PictureBox
+    Public WithEvents comboBox4 As ComboBox
+    Public WithEvents ComboBox2 As ComboBox
+    Public WithEvents comboBox3 As ComboBox
 End Class

Crunchyroll Downloader/einstellungen.resx

@@ -120,4 +120,7 @@
   <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
+  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
 </root>

Crunchyroll Downloader/einstellungen.vb

@@ -6,8 +6,32 @@ Imports System.Net
 
 Public Class einstellungen
     Private Sub einstellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        For i As Integer = 0 To Main.SoftSubs.Count - 1
+            If Main.SoftSubs(i) = "deDE" Then
+                CBdeDE.Checked = True
+            ElseIf Main.SoftSubs(i) = "enUS" Then
+                CBenUS.Checked = True
+            ElseIf Main.SoftSubs(i) = "ptBR" Then
+                CBptBR.Checked = True
+            ElseIf Main.SoftSubs(i) = "esLA" Then
+                CBesLA.Checked = True
+            ElseIf Main.SoftSubs(i) = "frFR" Then
+                CBfrFR.Checked = True
+            ElseIf Main.SoftSubs(i) = "arME" Then
+                CBarME.Checked = True
+            ElseIf Main.SoftSubs(i) = "ruRU" Then
+                CBruRU.Checked = True
+            ElseIf Main.SoftSubs(i) = "itIT" Then
+                CBitIT.Checked = True
+            ElseIf Main.SoftSubs(i) = "esES" Then
+                CBesES.Checked = True
+            End If
+        Next
         Me.Location = New Point(Main.Location.X + Main.Width / 2 - Me.Width / 2, Main.Location.Y + Main.Height / 2 - Me.Height / 2)
         Me.Icon = My.Resources.icon
+        If Main.MergeSubstoMP4 = True Then
+            MergeMP4.Checked = True
+        End If
         Try
             GB_Resolution.Text = Main.GB_Resolution_Text
             GB_SubLanguage.Text = Main.GB_SubLanguage_Text
@@ -155,6 +179,13 @@ Public Class einstellungen
             rk.SetValue("Sub", "None", RegistryValueKind.String)
 
         End If
+        If MergeMP4.Checked = True Then
+            Main.MergeSubstoMP4 = True
+            rk.SetValue("MergeMP4", "1", RegistryValueKind.String)
+        Else
+            Main.MergeSubstoMP4 = False
+            rk.SetValue("MergeMP4", "0", RegistryValueKind.String)
+        End If
         'If RawVideo.Checked = True Then
         '    Main.SoftSubs = True
         '    rk.SetValue("RawVideo", 1, RegistryValueKind.String)
@@ -177,6 +208,49 @@ Public Class einstellungen
         ElseIf Firefox_True.Checked = False Then
             rk.SetValue("NoUse", 0, RegistryValueKind.String)
         End If
+#Region "sof subs"
+        Main.SoftSubs.Clear()
+        If CBdeDE.Checked = True Then
+            Main.SoftSubs.Add("deDE")
+        End If
+        If CBenUS.Checked = True Then
+            Main.SoftSubs.Add("enUS")
+        End If
+        If CBptBR.Checked = True Then
+            Main.SoftSubs.Add("ptBR")
+        End If
+        If CBesLA.Checked = True Then
+            Main.SoftSubs.Add("esLA")
+        End If
+        If CBfrFR.Checked = True Then
+            Main.SoftSubs.Add("frFR")
+        End If
+        If CBarME.Checked = True Then
+            Main.SoftSubs.Add("arME")
+        End If
+        If CBruRU.Checked = True Then
+            Main.SoftSubs.Add("ruRU")
+        End If
+        If CBitIT.Checked = True Then
+            Main.SoftSubs.Add("itIT")
+        End If
+        If CBesES.Checked = True Then
+            Main.SoftSubs.Add("esES")
+        End If
+
+        Dim SaveString As String = Nothing
+        For ii As Integer = 0 To Main.SoftSubs.Count - 1
+            If SaveString = Nothing Then
+                SaveString = Main.SoftSubs(ii)
+            Else
+                SaveString = SaveString + "," + Main.SoftSubs(ii)
+            End If
+        Next
+        If SaveString = Nothing Then
+            SaveString = "none"
+        End If
+        rk.SetValue("AddedSubs", SaveString, RegistryValueKind.String)
+#End Region
         Me.Close()
     End Sub
 
@@ -194,44 +268,13 @@ Public Class einstellungen
         Next
         Return C
     End Function
-    Private Sub pictureBox3_Click(sender As Object, e As EventArgs)
-        Main.LoginOnly = "US_UnBlock"
-        GeckoFX.keks = InputBox("Please insert the cookie below.")
-        If GeckoFX.keks = Nothing Then Exit Sub
-        GeckoFX.Show()
-        GeckoFX.WebBrowser1.Navigate("https://www.crunchyroll.com/")
-    End Sub
-
-    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
 
+    Private Sub PictureBox2_Click(sender As Object, e As EventArgs)
         Main.LoginOnly = "US_UnBlock"
         Dim wb As New WebClient
         Dim Session As String = wb.DownloadString("https://api.criater-stiftung.org/cr-cookie-hama3254.php") '"https://api1.cr-unblocker.com/getsession.php?version=1.1&device_type=com.crunchyroll.windows.desktop&access_token=LNDJgOit5yaRIWN&device_id=" + GeräteID())
-        'MsgBox(Session)
-        'If CBool(InStr(Session, "bad_request")) Then
-        'Session = wb.DownloadString("https://api2.cr-unblocker.com/start_session?version=1.1&device_type=com.crunchyroll.iphone&access_token=QWjz212GspMHH9h&device_id=" + GeräteID())
-        'End If
-        'If CBool(InStr(Session, "bad_request")) Then
-        '    MsgBox(Main.CR_Unlock_Error_String, MsgBoxStyle.OkOnly)
-        '    Exit Sub
-        'ElseIf CBool(InStr(Session, "Unauthenticated request")) Then
-        '    MsgBox(Main.CR_Unlock_Error_String, MsgBoxStyle.OkOnly)
-        '    Exit Sub
-        '    'ElseIf CBool(InStr(Session, chr(34) + "country_code" + chr(34) + ":" + chr(34) + "US" + chr(34))) = False Then
-        '    'MsgBox(Main.CR_Unlock_Error_String, MsgBoxStyle.OkOnly)
-        '    'Exit Sub
-        'Else
-        'MsgBox(Session)
         GeckoFX.Show()
-            GeckoFX.WebBrowser1.Navigate("https://www.crunchyroll.com/")
-            'Dim SessionID1 As String() = Session.Split(New String() {Chr(34) + "session_id" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
-            'Dim SessionID2 As String() = SessionID1(1).Split(New [Char]() {Chr(34)})
-            GeckoFX.keks = Session.Replace(" ", "") 'SessionID2(0)
-
-        'End If
-        'MsgBox(Session)
-        'Dim JS As String = "javascript:console.log(`got session id.Setting cookie " + GeckoFX.keks + ".`);browser.cookies.set({url:`http:name:'session_id',value:" + GeckoFX.keks + ",domain:`crunchyroll.com`,httpOnly:true},()=>{browser.cookies.set({url:`http:name:'sess_id',value:" + GeckoFX.keks + ",domain:`crunchyroll.com`,httpOnly:true},()=>{browser.cookies.set({url:`http:name:'c_locale',value:'enUS',domain:`crunchyroll.com`,httpOnly:true}})});"
-
+        GeckoFX.WebBrowser1.Navigate("https://www.crunchyroll.com/")
     End Sub
 
     Private Function GeräteID() As String
@@ -258,14 +301,6 @@ Public Class einstellungen
         pictureBox1.BackColor = Color.Transparent
     End Sub
 
-    Private Sub pictureBox3_MouseEnter(sender As Object, e As EventArgs)
-        'pictureBox3.Image = My.Resources.crdsettings_setowncookie_button_hover
-    End Sub
-
-    Private Sub pictureBox3_MouseLeave(sender As Object, e As EventArgs)
-        'pictureBox3.Image = My.Resources.crdsettings_setowncookie_button
-    End Sub
-
     Private Sub pictureBox4_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox4.MouseEnter
         pictureBox4.Image = My.Resources.crdSettings_Button_SafeExit_hover
     End Sub
@@ -322,7 +357,7 @@ Public Class einstellungen
 
 
 
-    Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboBox1.DrawItem
+    Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboBox1.DrawItem, ComboBox2.DrawItem, comboBox3.DrawItem, comboBox4.DrawItem
         sender.BackColor = Color.White
         If e.Index >= 0 Then
             Using st As New StringFormat With {.Alignment = StringAlignment.Center}
@@ -335,18 +370,6 @@ Public Class einstellungen
         End If
     End Sub
 
-    Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
-        'MsgBox("Crunchyroll removed the softsubs, there are not available anymore.", MsgBoxStyle.OkOnly)
-        SoftSub.ShowDialog()
-    End Sub
-
-    Private Sub PictureBox5_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox5.MouseEnter
-        PictureBox5.Image = My.Resources.settings_add_softsubs_hover
-    End Sub
-
-    Private Sub PictureBox5_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox5.MouseLeave
-        PictureBox5.Image = My.Resources.settings_add_softsubs
-    End Sub
 
     Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
         Startup.ShowDialog()
@@ -354,27 +377,97 @@ Public Class einstellungen
 
 
 #End Region
-    Private Sub PictureBox6_MouseEnter(sender As Object, e As EventArgs)
+    Private Sub PictureBox6_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox6.MouseEnter
         PictureBox6.Image = My.Resources.main_credits_hover
     End Sub
 
-    Private Sub PictureBox6_MouseLeave(sender As Object, e As EventArgs)
+    Private Sub PictureBox6_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox6.MouseLeave
         PictureBox6.Image = My.Resources.main_credits_default
     End Sub
 
-    Private Sub Button1_Click_1(sender As Object, e As EventArgs)
-        GeckoFX.WebBrowser1.Navigate("about:config")
+    Private Sub AAuto_Click(sender As Object, e As EventArgs) Handles AAuto.Click
+        If MergeMP4.Checked = True 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
+                    MergeMP4.Checked = False
+                End If
+            End If
+        End If
     End Sub
 
-    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles AAuto.CheckedChanged
+    Private Sub MergeMP4_Click(sender As Object, e As EventArgs) Handles MergeMP4.Click
+        If MergeMP4.Checked = True 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
+                    MergeMP4.Checked = False
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
+        If CBool(InStr(TextBox2.Text, "crunchyroll.com")) Then
+            GeckoFX.WebBrowser1.Navigate(TextBox2.Text)
+            StatusLabel.Text = "Status: looking for subtitles"
+            Main.d = False
+            Main.b = False
+        End If
 
     End Sub
 
-    Private Sub GB_SubLanguage_Enter(sender As Object, e As EventArgs) Handles GB_SubLanguage.Enter
-
+    Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
+        Main.MassSubsDL()
     End Sub
 
+    Private Sub PictureBox3_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox3.MouseEnter
+        PictureBox3.Image = My.Resources.softsubs_download_hover
+    End Sub
 
+    Private Sub PictureBox3_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox3.MouseLeave
+        PictureBox3.Image = My.Resources.softsubs_download
+    End Sub
+    Private Sub PictureBox5_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox5.MouseEnter
+        PictureBox5.Image = My.Resources.softsubs_download_hover
+    End Sub
+
+    Private Sub PictureBox5_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox5.MouseLeave
+        PictureBox5.Image = My.Resources.softsubs_download
+    End Sub
+
+    Private Sub TextBox2_Click(sender As Object, e As EventArgs) Handles TextBox2.Click
+        If TextBox2.Text = "URL" Then
+            TextBox2.Text = Nothing
+        End If
+    End Sub
+
+    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
+
+        comboBox3.Items.Clear()
+        comboBox4.Items.Clear()
+        Dim SeasonDropdownAnzahl As String() = Main.WebbrowserText.Split(New String() {"season-dropdown content-menu block"}, System.StringSplitOptions.RemoveEmptyEntries)
+        Array.Reverse(SeasonDropdownAnzahl)
+        Dim SDV As Integer = 0
+        For i As Integer = 0 To SeasonDropdownAnzahl.Count - 1
+            If InStr(SeasonDropdownAnzahl(i), Chr(34) + ">" + ComboBox2.SelectedItem.ToString + "</a>") Then
+                SDV = i
+            End If
+        Next
+        Dim Anzahl As String() = SeasonDropdownAnzahl(SDV).Split(New String() {"wrapper container-shadow hover-classes"}, System.StringSplitOptions.RemoveEmptyEntries)
+        Dim c As Integer = Anzahl.Count - 1
+        Array.Reverse(Anzahl)
+        For i As Integer = 0 To Anzahl.Count - 2
+            Dim URLGrapp As String() = Anzahl(i).Split(New String() {"title=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+
+            Dim URLGrapp2 As String() = URLGrapp(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+
+            comboBox3.Items.Add(URLGrapp2(0))
+            comboBox4.Items.Add(URLGrapp2(0))
+        Next
+    End Sub
 
 
 #End Region

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

@@ -1 +1 @@
-2f3d561e57fba3d5ed06087aba83d29826ede4fb
+03c44a8ecd06599a1e72803d9a2714315e3ebee0

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

@@ -29,7 +29,6 @@ D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crun
 D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Anime_Add.resources
 D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.einstellungen.resources
 D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.GeckoFX.resources
-D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.SoftSub.resources
 D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Startup.resources
 D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Main.resources
 D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Resources.resources

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

@@ -306,6 +306,21 @@ Crunchyroll Downloader
   Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
 </summary>
 </member>
+<member name="P:Crunchyroll_Downloader.My.Resources.Resources.softsubs_download">
+<summary>
+  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+</summary>
+</member>
+<member name="P:Crunchyroll_Downloader.My.Resources.Resources.softsubs_download_gray">
+<summary>
+  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+</summary>
+</member>
+<member name="P:Crunchyroll_Downloader.My.Resources.Resources.softsubs_download_hover">
+<summary>
+  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+</summary>
+</member>
 <member name="P:Crunchyroll_Downloader.My.Resources.Resources.Startuphtml">
 <summary>
   Sucht eine lokalisierte Zeichenfolge, die &lt;!DOCTYPE html&gt;