fixes

-bugfix at name of movies
-bugfix US unlock got stuck
- replaced ffmpeg.exe with newer version

Crunchyroll Downloader/GeckoFX.vb

@@ -49,6 +49,8 @@ Public Class GeckoFX
                 Main.Pause(1)
                 If Main.LoginDialog = True Then
                     Login.ShowDialog()
+                Else
+                    WebBrowser1.Navigate("https://www.crunchyroll.com/")
                 End If
 
             End If
@@ -375,6 +377,7 @@ Public Class GeckoFX
             MsgBox("copied: " + Chr(34) + WebBrowser1.Url.ToString + Chr(34))
         Catch ex As Exception
         End Try
+
         'MsgBox(WebBrowser1.Document.Cookie)
     End Sub
 

Crunchyroll Downloader/Login.vb

@@ -90,7 +90,8 @@ Public Class Login
     End Sub
 
     Private Sub pictureBox3_Click(sender As Object, e As EventArgs) Handles pictureBox3.Click
-        Main.UserCloseDialog = True
+        'Main.UserCloseDialog = True
+        GeckoFX.WebBrowser1.Navigate("https://www.crunchyroll.com/")
         Me.Close()
     End Sub
 
@@ -111,6 +112,7 @@ Public Class Login
     End Sub
 
     Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+        GeckoFX.WebBrowser1.Navigate("https://www.crunchyroll.com/")
         Me.Close()
     End Sub
 End Class

Crunchyroll Downloader/Main.vb

@@ -652,13 +652,32 @@ Public Class Main
 
 #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()
+
         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()
+        Dim CR_Title As String = Nothing
+        If CR_Name_by_Titel_2.Count > 2 Then
+            For i As Integer = 0 To CR_Name_by_Titel_2.Count - 2
+                If CR_Title = Nothing Then
+                    CR_Title = CR_Name_by_Titel_2(i).Trim()
+                Else
+                    CR_Title = CR_Title + " " + CR_Name_by_Titel_2(i).Trim()
+                End If
 
+            Next
+        End If
+        CR_FilenName = CR_Title
+        CR_FilenName_Backup = CR_Title
+        'MsgBox(CR_FilenName)
         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]() {"-"})
@@ -1095,12 +1114,32 @@ Public Class Main
 #Region "Name von Crunchyroll"
             If TextBox2_Text = Nothing Or TextBox2_Text = "Name of the Anime" Then
                 'MsgBox("True")
+                '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() '+ " " + CR_Name_by_Script2(0).Trim
+
                 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() '+ " " + CR_Name_by_Script2(0).Trim
+                Dim CR_Title As String = Nothing
+                If CR_Name_by_Titel_2.Count > 2 Then
+                    For i As Integer = 0 To CR_Name_by_Titel_2.Count - 2
+                        If CR_Title = Nothing Then
+                            CR_Title = CR_Name_by_Titel_2(i).Trim()
+                        Else
+                            CR_Title = CR_Title + " " + CR_Name_by_Titel_2(i).Trim()
+                        End If
+
+                    Next
+                End If
+                CR_FilenName = CR_Title
+                CR_FilenName_Backup = CR_Title
+                'MsgBox(CR_FilenName)
 
                 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)

Crunchyroll Downloader/My Project/AssemblyInfo.vb

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