bugfixes

bugfixes

Crunchyroll Downloader/Anime_Add.Designer.vb

@@ -273,9 +273,9 @@ Partial Class Anime_Add
         Me.ClientSize = New System.Drawing.Size(630, 275)
         Me.Controls.Add(Me.pictureBox3)
         Me.Controls.Add(Me.pictureBox4)
-        Me.Controls.Add(Me.groupBox1)
         Me.Controls.Add(Me.GroupBox3)
         Me.Controls.Add(Me.groupBox2)
+        Me.Controls.Add(Me.groupBox1)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
         Me.Name = "Anime_Add"
         Me.Text = "Add"

Crunchyroll Downloader/Anime_Add.vb

@@ -5,6 +5,7 @@ Imports System.IO
 Public Class Anime_Add
     Public Mass_DL_Cancel As Boolean = False
     Public List_DL_Cancel As Boolean = False
+
     Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
         Try
             If ComboBox2.Text = Main.SubFolder_Nothing Then
@@ -24,6 +25,14 @@ Public Class Anime_Add
 
     Private Sub Anime_Add_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.Icon = My.Resources.icon
+        Try
+            For i As Integer = 0 To Main.ListBoxList.Count - 1
+                ListBox1.Items.Add(Main.ListBoxList.Item(i))
+
+            Next
+        Catch ex As Exception
+
+        End Try
         Try
             Main.waveOutSetVolume(0, 0)
         Catch ex As Exception
@@ -171,12 +180,19 @@ Public Class Anime_Add
     End Sub
 
     Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles pictureBox3.Click
+        If ListBox1.Items.Count > 0 Then
+            Main.ListBoxList.Clear()
+            For i As Integer = 0 To ListBox1.Items.Count - 1
+                Main.ListBoxList.Add(ListBox1.Items.Item(i))
+            Next
+        End If
         Me.Close()
     End Sub
 
     Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles pictureBox4.Click
         'pictureBox4.Enabled = False
         Main.RemoveFinishedTask()
+        Main.LoginOnly = "Download Mode!"
         If groupBox1.Visible = True Then
             Try
                 If CBool(InStr(textBox1.Text, "crunchyroll.com")) Then
@@ -271,7 +287,10 @@ Public Class Anime_Add
             List_DL_Cancel = False
             pictureBox4.Image = My.Resources.main_button_download_default
         End If
-
+        If InStr(My.Computer.Info.OSFullName, "Server") Then
+            MsgBox("Windows Server is not supported!", MsgBoxStyle.Critical)
+            Me.Close()
+        End If
         pictureBox4.Enabled = True
     End Sub
 
@@ -371,10 +390,6 @@ Public Class Anime_Add
 
 #Region "Listbox"
 
-    Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs)
-        ListBox1.Items.Remove(ListBox1.SelectedItem)
-    End Sub
-
     Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
         If GroupBox3.Visible = True Then
             If ListBox1.Items.Count = 0 Then
@@ -420,6 +435,11 @@ Public Class Anime_Add
     End Sub
 
 
+    Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick
+        ListBox1.Items.Remove(ListBox1.SelectedItem)
+    End Sub
+
+
 
 
 #End Region

Crunchyroll Downloader/GeckoFX.Designer.vb

@@ -48,7 +48,7 @@ Partial Class GeckoFX
         '
         'Button1
         '
-        Me.Button1.Location = New System.Drawing.Point(187, 2)
+        Me.Button1.Location = New System.Drawing.Point(187, 1)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(96, 26)
         Me.Button1.TabIndex = 2
@@ -60,7 +60,7 @@ Partial Class GeckoFX
         Me.Button2.Enabled = False
         Me.Button2.Location = New System.Drawing.Point(3, 2)
         Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(181, 26)
+        Me.Button2.Size = New System.Drawing.Size(178, 26)
         Me.Button2.TabIndex = 3
         Me.Button2.Text = "Start network scan"
         Me.Button2.UseVisualStyleBackColor = True

Crunchyroll Downloader/GeckoFX.vb

@@ -7,6 +7,7 @@ Imports System.Threading
 Imports System.Net
 Imports System.Net.WebUtility
 Imports System.IO.Compression
+Imports System.Text
 
 Public Class GeckoFX
     Public keks As String = Nothing
@@ -14,12 +15,36 @@ Public Class GeckoFX
     Dim t As Thread
     Dim ScanTrue As Boolean = False
     Private Sub GeckoWebBrowser1_DocumentCompleted(sender As Object, e As EventArgs) Handles WebBrowser1.DocumentCompleted
+        If InStr(My.Computer.Info.OSFullName, "Server") Then
+            MsgBox("Windows Server is not supported!", MsgBoxStyle.Critical)
+            Me.Close()
+        End If
+
         If ScanTrue = False Then
             Button2.Enabled = True
         End If
         If Main.LoginOnly = "US_UnBlock" Then
-            Main.LoginOnly = "US_UnBlocck_Wait2nd"
+            Main.LoginOnly = "US_UnBlock_Wait"
-            Try
+            If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, "waiting for reCAPTCHA . . .")) Then
+                Main.Pause(4)
+                Main.LoginOnly = "US_UnBlock"
+            Else
+
+                Dim cookieGrapp As String = WebBrowser1.Document.Body.OuterHtml '.Replace(vbTab, "").Replace(" ", "")
+                If Main.Debug2 = True Then
+                    MsgBox(cookieGrapp)
+                End If
+                Dim cookieGrapp2() As String = cookieGrapp.Split(New String() {"<a class=" + Chr(34) + "cookie" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries)
+                Dim cookieGrapp3() As String = cookieGrapp2(1).Split(New String() {"</a>"}, System.StringSplitOptions.RemoveEmptyEntries)
+                keks = cookieGrapp3(0)
+                If Main.Debug2 = True Then
+                    MsgBox(keks)
+                End If
+
+                WebBrowser1.Navigate("https://www.crunchyroll.com/")
+                Main.Pause(5)
+                WebBrowser1.Document.Cookie = Nothing
+                Main.Pause(1)
                 WebBrowser1.Navigate("javascript:document.cookie =" + Chr(34) + "session_id=" + keks + "; expires=Thu, 05 Jan 2021 00:00:00 UTC; path=/;" + Chr(34) + ";")
                 Main.Pause(1)
                 WebBrowser1.Navigate("javascript:document.cookie = " + Chr(34) + "sess_id=" + keks + "; expires=Thu, 05 Jan 2021 00:00:00 UTC; path=/;" + Chr(34) + ";")
@@ -27,23 +52,8 @@ Public Class GeckoFX
                 WebBrowser1.Navigate("javascript:document.cookie = " + Chr(34) + "c_locale=enUS; expires=Thu, 05 Jan 2021 00:00:00 UTC; path=/;" + Chr(34) + ";")
                 Main.Pause(1)
                 WebBrowser1.Navigate("https://www.crunchyroll.com/")
-                Main.LoginOnly = "US_UnBlock_Check"
-            Catch ex As Exception
-            End Try
-        ElseIf Main.LoginOnly = "US_UnBlock_Wait" Then
-            Main.LoginOnly = "US_UnBlocck_Wait2nd"
-            Main.Pause(2)
-            Main.LoginOnly = "US_UnBlock_Check"
-            WebBrowser1.Navigate("https://www.crunchyroll.com/")
-        ElseIf Main.LoginOnly = "US_UnBlock_Check" Then
-            Main.LoginOnly = "false"
-            If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, "Your detected location is United States of America.")) Then
-                MsgBox("unlock successful", MsgBoxStyle.Information)
-                Me.Close()
-            Else
-                MsgBox("unlock failes", MsgBoxStyle.Exclamation)
-                Me.Close()
             End If
+
         Else
 
 
@@ -127,7 +137,7 @@ Public Class GeckoFX
                         MsgBox(ex.ToString)
                         Main.LabelUpdate = "Status: idle"
                     End Try
-                ElseIf main.c = False Then
+                ElseIf Main.c = False Then
                     If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, "hardsub_lang")) Then
                         Main.c = True
                         Main.WebbrowserURL = WebBrowser1.Url.ToString
@@ -176,7 +186,7 @@ Public Class GeckoFX
 
                     While (line IsNot Nothing)
                         line = logFileReader.ReadLine
-                        If InStr(line, ".m3u8?") Then
+                        If InStr(line, ".m3u8") Then 'm3u8?
                             If HTMLString = Nothing Then
                                 HTMLString = line
                             Else
@@ -188,12 +198,13 @@ Public Class GeckoFX
                                     HTMLString = HTMLString + vbNewLine + line
                                 End If
                             Next
+
                         End If
                     End While
                     logFileReader.Close()
                     logFileStream.Close()
                     'MsgBox(HTMLString)
-                    If InStr(HTMLString, ".m3u8?") Then
+                    If InStr(HTMLString, ".m3u8") Then 'm3u8?
                         Anime_Add.StatusLabel.Text = "Status: m3u8 found, trying to start the download"
                         Main.LoggingBrowser = False
                         GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt"
@@ -201,7 +212,7 @@ Public Class GeckoFX
                         Dim URL As String = Nothing
                         Dim HTMLSplit() As String = HTMLString.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
                         For i As Integer = 0 To HTMLSplit.Count - 1
-                            If InStr(HTMLSplit(i), ".m3u8?") Then
+                            If InStr(HTMLSplit(i), ".m3u8") Then 'm3u8?
                                 Dim URLPart2() As String = HTMLSplit(i).Split(New String() {"  GET "}, System.StringSplitOptions.RemoveEmptyEntries)
                                 Dim URLPart2Split2() As String = URLPart2(1).Split(New String() {" HTTP/"}, System.StringSplitOptions.RemoveEmptyEntries)
                                 Dim URLPart1() As String = HTMLSplit(i + 1).Split(New String() {" Host: "}, System.StringSplitOptions.RemoveEmptyEntries)
@@ -224,7 +235,7 @@ Public Class GeckoFX
                         If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, ".m3u8")) Then
 #Region "m3u8 suche"
                             Main.WebbrowserText = UrlDecode(WebBrowser1.Document.Body.OuterHtml)
-                            If InStr(Main.WebbrowserText, ".m3u8?") Then
+                            If InStr(Main.WebbrowserText, ".m3u8") Then 'm3u8?
                             Else
                                 Anime_Add.StatusLabel.Text = "Status: no m3u8 found"
                                 Main.UserBowser = False
@@ -233,12 +244,12 @@ Public Class GeckoFX
                             End If
                             Dim ii As Integer = 0
                             Dim Video_URI_Master As String = Nothing
-                            Dim Video_URI_Master_Split1 As String() = Main.WebbrowserText.Split(New String() {".m3u8?"}, System.StringSplitOptions.RemoveEmptyEntries)
+                            Dim Video_URI_Master_Split1 As String() = Main.WebbrowserText.Split(New String() {".m3u8"}, System.StringSplitOptions.RemoveEmptyEntries) 'm3u8?
                             Dim m3u8Link As String = Nothing
                             For i As Integer = 0 To Video_URI_Master_Split1.Count - 2
                                 Dim Video_URI_Master_Split_Top As String() = Video_URI_Master_Split1(i).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
                                 Dim Video_URI_Master_Split_Bottom As String() = Video_URI_Master_Split1(i + 1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
-                                m3u8Link = Video_URI_Master_Split_Top(Video_URI_Master_Split_Top.Count - 1) + ".m3u8?" + Video_URI_Master_Split_Bottom(0)
+                                m3u8Link = Video_URI_Master_Split_Top(Video_URI_Master_Split_Top.Count - 1) + ".m3u8" + Video_URI_Master_Split_Bottom(0) 'm3u8?
                                 Exit For
                             Next
                             m3u8Link = m3u8Link.Replace("&amp;", "&").Replace("/u0026", "&").Replace("\u002F", "/")
@@ -359,6 +370,7 @@ Public Class GeckoFX
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+
         Try
             My.Computer.Clipboard.SetText(WebBrowser1.Url.ToString)
             MsgBox("copied: " + Chr(34) + WebBrowser1.Url.ToString + Chr(34))
@@ -431,6 +443,9 @@ Public Class GeckoFX
                 MsgBox(BaseURL3)
             End If
             AsyncWorkerX.RunAsync(AddressOf Main.DownloadMangaPages, BaseURL3, ImageList, Main.RemoveExtraSpaces(NameDLFinal))
+        ElseIf InStr(WebBrowser1.Url.ToString, "cr-cookie-ui.php") Then
+            MsgBox(WebBrowser1.Document.Body.InnerHtml)
+
         Else
             Try
 
@@ -439,6 +454,7 @@ Public Class GeckoFX
                 Main.txtList.Clear()
                 Button2.Enabled = False
                 ScanTrue = True
+
                 GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt"
                 GeckoPreferences.Default("logging.nsHttp") = 3
                 Main.LoggingBrowser = True
@@ -478,7 +494,7 @@ Public Class GeckoFX
 
                 While (line IsNot Nothing)
                     line = logFileReader.ReadLine
-                    If InStr(line, ".m3u8?") Then
+                    If InStr(line, ".m3u8") Then 'm3u8?
                         Dim Temp_String As String = Nothing
                         Temp_String = line
                         If HTMLString = Nothing Then
@@ -502,6 +518,15 @@ Public Class GeckoFX
                                 Main.txtList.Add(Temp_String + vbNewLine + line)
                             End If
                         Next
+                    ElseIf InStr(line, ".vtt") Then
+                        Dim Temp_String As String = Nothing
+                        Temp_String = line
+                        For i As Integer = 0 To 10
+                            line = logFileReader.ReadLine
+                            If InStr(line, " Host: ") Then
+                                Main.txtList.Add(Temp_String + vbNewLine + line)
+                            End If
+                        Next
                     ElseIf InStr(line, ".mpd") Then
                         Dim Temp_String As String = Nothing
                         Temp_String = line
@@ -516,7 +541,7 @@ Public Class GeckoFX
                 logFileReader.Close()
                 logFileStream.Close()
                 'MsgBox(HTMLString)
-                If InStr(HTMLString, ".m3u8?") Then
+                If InStr(HTMLString, ".m3u8") Then 'm3u8?
                     Button2.Text = "found m3u8"
                     Main.LoggingBrowser = False
                     GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt"
@@ -524,7 +549,7 @@ Public Class GeckoFX
                     Dim URL As String = Nothing
                     Dim HTMLSplit() As String = HTMLString.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
                     For i As Integer = 0 To HTMLSplit.Count - 1
-                        If InStr(HTMLSplit(i), ".m3u8?") Then
+                        If InStr(HTMLSplit(i), ".m3u8") Then 'm3u8?
                             Dim URLPart2() As String = HTMLSplit(i).Split(New String() {"  GET "}, System.StringSplitOptions.RemoveEmptyEntries)
                             Dim URLPart2Split2() As String = URLPart2(1).Split(New String() {" HTTP/"}, System.StringSplitOptions.RemoveEmptyEntries)
                             Dim URLPart1() As String = HTMLSplit(i + 1).Split(New String() {" Host: "}, System.StringSplitOptions.RemoveEmptyEntries)
@@ -566,6 +591,34 @@ Public Class GeckoFX
                         End If
                     Next
 
+                End If
+                If Main.txtList.Count > 0 Then                'InStr(HTMLString, ".mpd?") Then
+                    HTMLString = Main.mpdList.Item(0)
+                    'Button2.Text = "found mpd!"
+                    Main.LoggingBrowser = False
+
+                    GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt"
+                    GeckoPreferences.Default("logging.nsHttp") = 0
+                    Dim URL As String = Nothing
+                    Dim HTMLSplit() As String = HTMLString.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
+                    For i As Integer = 0 To HTMLSplit.Count - 1
+                        If InStr(HTMLSplit(i), ".mpd?") Then
+                            Dim URLPart2() As String = HTMLSplit(i).Split(New String() {"  GET "}, System.StringSplitOptions.RemoveEmptyEntries)
+                            Dim URLPart2Split2() As String = URLPart2(1).Split(New String() {" HTTP/"}, System.StringSplitOptions.RemoveEmptyEntries)
+                            Dim URLPart1() As String = HTMLSplit(i + 1).Split(New String() {" Host: "}, System.StringSplitOptions.RemoveEmptyEntries)
+                            Main.NonCR_URL = "https://" + URLPart1(1) + URLPart2Split2(0)
+                            'MsgBox(Main.NonCR_URL)
+                            'RichTextBox1.Text = RichTextBox1.Text + vbNewLine + URL_Final
+                            Main.FFMPEG_Reso(Main.NonCR_URL)
+                            t = New Thread(AddressOf Main.Grapp_non_CR)
+                            t.Priority = ThreadPriority.Normal
+                            t.IsBackground = True
+                            t.Start()
+                            Button2.Text = "Start network scan"
+                            Exit For
+                        End If
+                    Next
+
                 End If
                 ScanTrue = False
                 Button2.Enabled = True
@@ -590,4 +643,6 @@ Public Class GeckoFX
     Private Sub WebBrowser1_LostFocus(sender As Object, e As EventArgs) Handles WebBrowser1.LostFocus
         'Debug_Mode.TopMost = False
     End Sub
+
+
 End Class

Crunchyroll Downloader/Main.vb

@@ -4,6 +4,7 @@ Imports System.IO
 Imports Microsoft.Win32
 Imports System.ComponentModel
 Public Class Main
+    Public ListBoxList As New List(Of String)
     Public UseQueue As Boolean = False
     Public m3u8List As New List(Of String)
     Public txtList As New List(Of String)
@@ -147,6 +148,11 @@ Public Class Main
     Public Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Integer, ByVal dwVolume As Integer) As Integer
 
     Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If InStr(My.Computer.Info.OSFullName, "Server") Then
+            MsgBox("Windows Server is not supported!", MsgBoxStyle.Critical)
+            Me.Close()
+        End If
+
         waveOutSetVolume(0, 0)
         Try
             Dim FileLocation As DirectoryInfo = New DirectoryInfo(Application.StartupPath)
@@ -504,7 +510,8 @@ Public Class Main
             For i As Integer = Anime_Add.comboBox3.SelectedIndex To Anime_Add.comboBox4.SelectedIndex
 
                 For e As Integer = 0 To Integer.MaxValue
-
+                    'FontLabel.Visible = True
+                    'FontLabel.Text = PR_List.Count.ToString
                     If Grapp_RDY = True Then
                         RemoveFinishedTask()
                         Pause(1)
@@ -1053,6 +1060,7 @@ Public Class Main
 #End Region
 
     Public Sub GrappURL()
+
         Try
             'Throw New System.Exception("Test")
             Grapp_RDY = False
@@ -1550,6 +1558,23 @@ 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, "[Parsed_cropdetect_0")) And CBool(InStr(e.Data, "crop=")) = True Then
+            '    If Debug2 = True Then
+            '        MsgBox(True.ToString)
+            '    End If
+
+            '    Dim CropSearch() As String = e.Data.Split(New String() {"crop="}, System.StringSplitOptions.RemoveEmptyEntries)
+            '    Dim CropSearch2 As String = "crop=" + CropSearch(1)
+            '    Dim newProcess As String = pr.StartInfo.Arguments.ToString().Replace("cropdetect=24:16:0", CropSearch2)
+            '    pr.Kill()
+
+            '    If Debug2 = True Then
+            '        MsgBox(newProcess)
+            '    End If
+
+            'End If
+
+
             If MergeSubstoMP4 = False Then
                 If CBool(InStr(e.Data, "Stream #")) And CBool(InStr(e.Data, "Video")) = True Then
                     'MsgBox(True.ToString + vbNewLine + e.Data)
@@ -1983,7 +2008,7 @@ Public Class Main
 
     End Sub
 
-    Private Sub pictureBox2_DoubleClick(sender As Object, e As EventArgs) Handles pictureBox2.DoubleClick
+    Private Sub PictureBox2_DoubleClick(sender As Object, e As EventArgs) Handles pictureBox2.DoubleClick
         If Debug1 = True Then
             If Debug2 = True Then
                 einstellungen.Close()
@@ -2046,6 +2071,7 @@ Public Class Main
         'End If
 
         For i As Integer = 0 To SiteList.Count - 1
+            Dim iWert As Integer = i
             Using client As New WebClient()
                 client.DownloadFile(BaseURL + SiteList(i), Pfad_DL + "\" + SiteList(i))
                 Pause(1)
@@ -2053,18 +2079,18 @@ Public Class Main
             Me.Invoke(New Action(Function()
                                      Dim stringFormat As New StringFormat()
                                      stringFormat.Alignment = StringAlignment.Far
-            stringFormat.LineAlignment = StringAlignment.Center
+                                     stringFormat.LineAlignment = StringAlignment.Center
-            Dim p As PictureBox = PB_list(CurrentIndex)
+                                     Dim p As PictureBox = PB_list(CurrentIndex)
-            p.Image = p.BackgroundImage
+                                     p.Image = p.BackgroundImage
-            Dim g As Graphics = Graphics.FromImage(p.Image)
+                                     Dim g As Graphics = Graphics.FromImage(p.Image)
-            Dim ProgressbarPoint As Point = New Point(195, 70)
+                                     Dim ProgressbarPoint As Point = New Point(195, 70)
-            Dim WeißeBox As Point = New Point(525, 93)
+                                     Dim WeißeBox As Point = New Point(525, 93)
-            Dim ProzentText As Point = New Point(795, 113)
+                                     Dim ProzentText As Point = New Point(795, 113)
-            Dim Weiß As Brush = New SolidBrush(Color.FromArgb(242, 242, 242))
+                                     Dim Weiß As Brush = New SolidBrush(Color.FromArgb(242, 242, 242))
-            g.FillRectangle(Weiß, WeißeBox.X + 1, WeißeBox.Y + 1, 275, 30)
+                                     g.FillRectangle(Weiß, WeißeBox.X + 1, WeißeBox.Y + 1, 275, 30)
-                                     g.DrawString((i + 1).ToString + "/" + SiteList.Count.ToString + " " + Math.Round(i / (SiteList.Count - 1) * 100, 2, MidpointRounding.AwayFromZero).ToString + "%", FontLabel2.Font, Brushes.Black, ProzentText, stringFormat)
+                                     g.DrawString((iWert + 1).ToString + "/" + SiteList.Count.ToString + " " + Math.Round(iWert / (SiteList.Count - 1) * 100, 2, MidpointRounding.AwayFromZero).ToString + "%", FontLabel2.Font, Brushes.Black, ProzentText, stringFormat)
                                      Dim brGradient As Brush = New SolidBrush(Color.FromArgb(247, 140, 37))
-                                     g.FillRectangle(brGradient, ProgressbarPoint.X + 1, ProgressbarPoint.Y + 1, CInt((i / (SiteList.Count - 1)) * 600), 19)
+                                     g.FillRectangle(brGradient, ProgressbarPoint.X + 1, ProgressbarPoint.Y + 1, CInt((iWert / (SiteList.Count - 1)) * 600), 19)
                                      g.Dispose()
                                      Return Nothing
                                  End Function))

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.4")>
+<Assembly: AssemblyVersion("3.2.5")>
-<Assembly: AssemblyFileVersion("3.2.4")>
+<Assembly: AssemblyFileVersion("3.2.5")>
-<Assembly: NeutralResourcesLanguage("")>
+<Assembly: NeutralResourcesLanguage("en")>

Crunchyroll Downloader/My Project/app.manifest

@@ -31,7 +31,7 @@
       <!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
 
       <!-- Windows 7 -->
-      <!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
+      <!-- <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
      
       <!-- Windows 8 -->
       <!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
@@ -40,9 +40,9 @@
       <!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
 
       <!-- Windows 10 -->   
-      <!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
+      <!-- <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
    
-    </application>
+      </application>
   </compatibility>
 
   <!-- Gibt an, dass die Anwendung mit DPI-Werten kompatibel ist und von Windows nicht automatisch auf höhere

Crunchyroll Downloader/bin/x86/Debug/.vs/VSWorkspaceState.json

@@ -1,6 +0,0 @@
-{
-  "ExpandedNodes": [
-    ""
-  ],
-  "PreviewInSolutionExplorer": false
-}

Crunchyroll Downloader/bin/x86/Debug/Error 19.05.2020 18.11.txt

@@ -0,0 +1,17 @@
+Operating System: Microsoft Windows 10 Pro
+
+Crunchyroll URL: https://www.crunchyroll.com/de/rwby/episode-45-world-of-remnant-1-dust-658499
+
+subtitle language: enUS
+
+video resolution: 1080
+
+error message: System.Exception: Test
+   bei Crunchyroll_Downloader.Main.GrappURL() in D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\Main.vb:Zeile 1064.
+   bei Crunchyroll_Downloader.Main.GrappURL() in D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\Main.vb:Zeile 1064.
+
+softsubs enabled?: System.Collections.Generic.List`1[System.String]
+
+Crunchyroll Downloader Version: 3.2.4
+
+detected location from Crunchyroll: de

Crunchyroll Downloader/bin/x86/Release/Crunchyroll Downloader.exe.config

@@ -1,6 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<configuration>
-    <startup>
-              <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2"/>
-    </startup>
-</configuration>

Crunchyroll Downloader/bin/x86/Release/Crunchyroll Downloader.xml

@@ -1,349 +0,0 @@
-<?xml version="1.0"?>
-<doc>
-<assembly>
-<name>
-Crunchyroll Downloader
-</name>
-</assembly>
-<members>
-<member name="T:Crunchyroll_Downloader.My.Resources.Resources">
-<summary>
-  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.ResourceManager">
-<summary>
-  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.Culture">
-<summary>
-  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
-  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_background">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_mass_cancel">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_mass_cancel_hover">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_mass_running_cancel">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_mass_running_cancel_hover">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.ads_midroll">
-<summary>
-  Sucht eine lokalisierte Zeichenfolge, die &quot;type&quot;:&quot;midroll&quot; ähnelt.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.ads_preroll">
-<summary>
-  Sucht eine lokalisierte Zeichenfolge, die {&quot;type&quot;:&quot;preroll&quot;,&quot;offset&quot;:0}, ähnelt.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.backgroud">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.balken">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.CC_String">
-<summary>
-  Sucht eine lokalisierte Zeichenfolge, die &lt;img id=&quot;footer_country_flag&quot; src=&quot;https://www.crunchyroll.com/i/country_flags/ ähnelt.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Background">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Button_SafeExit">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Button_SafeExit_hover">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setowncookie_button">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setowncookie_button_hover">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setUScookie_button">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setUScookie_button_hover">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.credits_background">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Background">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Submit">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Submit_hover">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.download_subs">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.download_subs_hover">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.Help_Background">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.hls_endString">
-<summary>
-  Sucht eine lokalisierte Zeichenfolge, die &quot;,&quot;resolution&quot;:&quot;adaptive&quot; ähnelt.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.hls_Value">
-<summary>
-  Sucht eine lokalisierte Zeichenfolge, die &quot;format&quot;:&quot;adaptive_hls&quot;, ähnelt.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.htmlEnd">
-<summary>
-  Sucht eine lokalisierte Zeichenfolge, die &lt;/body&gt;
-&lt;/html&gt; ähnelt.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.htmlnachHardSubs">
-<summary>
-  Sucht eine lokalisierte Zeichenfolge, die &lt;/a&gt;
-
-&lt;/div&gt;
-
-&lt;/div&gt;
-
-&lt;/div&gt;
-
-&lt;img alt=&quot;image error&quot; src=&quot;balken1.png&quot; class=&quot;class-balken&quot;&gt; ähnelt.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.htmlnachTumbnail">
-<summary>
-  Sucht eine lokalisierte Zeichenfolge, die &quot; class=&quot;imagestyle&quot;&gt;
-
-&lt;div&gt;
-
-&lt;span class=&quot;titel&quot; dir=&quot;auto&quot;&gt; ähnelt.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.htmlTop">
-<summary>
-  Sucht eine lokalisierte Zeichenfolge, die &lt;!DOCTYPE html&gt;
-&lt;head&gt;
-&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=utf-8&quot;/&gt;
-&lt;/head&gt;
-&lt;html&gt;
-       &lt;title&gt;CRD&lt;/title&gt;
-              
-  &lt;style&gt;
-	.main-bg {margin:0 0 0 0;background-color:#F2F2F2;}
-	.div-spacer{width:16px;height:110px;display:block;margin-bottom:14px;position:relative}
-	.div-episode{width:804px;height:110px;display:block;margin-bottom:14px;position:relative}
-	.class-balken{width:820px;height:8px;display:block;margin-bottom:4px;margin-top:6px}	
-	.class-cc{width:36px; [Rest der Zeichenfolge wurde abgeschnitten]&quot;; ähnelt.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.htmlvorAufloesung">
-<summary>
-  Sucht eine lokalisierte Zeichenfolge, die &lt;/span&gt;
-
-&lt;div class=&quot;progressbar&quot;&gt;
-
-&lt;div class=&quot;progressbar-value&quot; style=&quot;width: 0%&quot;&gt;&lt;/div&gt;
-
-&lt;/div&gt;
-&lt;span  dir=&quot;auto&quot; class=&apos;percenttext&apos;&gt;0%&lt;/span&gt;
-&lt;div&gt;
-&lt;span dir=&quot;auto&quot; class=&quot;resotext&quot;&gt; ähnelt.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.htmlvorHardSubs">
-<summary>
-  Sucht eine lokalisierte Zeichenfolge, die &quot;&gt; &lt;img alt=&quot;image error&quot; src=&quot;cc1.png&quot; class=&quot;class-cc&quot;&gt; ähnelt.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.htmlvorSoftSubs">
-<summary>
-  Sucht eine lokalisierte Zeichenfolge, die &lt;/span&gt;
-
-&lt;a href=&quot;#&quot; class=&quot;cc-wert&quot; title=&quot;Softsubs: ähnelt.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.htmlvorThumbnail">
-<summary>
-  Sucht eine lokalisierte Zeichenfolge, die 
-		&lt;div class=&quot;div-episode&quot;&gt;
-
-&lt;img alt=&quot;image error&quot; src=&quot; ähnelt.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.icon">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Icon ähnlich wie (Symbol).
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_add">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_background">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_browser">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_button_download_deactivate">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_button_download_default">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_button_download_hovert">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_close">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_credits_default">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_credits_hover">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_del">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_del_hover">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_settings">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.settings_add_softsubs">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.settings_add_softsubs_hover">
-<summary>
-  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.SoftSubs_Baclground">
-<summary>
-  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;
-&lt;html&gt;
-       &lt;title&gt;CRD&lt;/title&gt;
-              
-  &lt;style&gt;
-	.main-bg {margin:0 0 0 -36px;background-color:#757575;}
-	.imagestyle{width:156px;height:88px;display:block;margin-bottom:4px}	.ulStyle{margin:0 0 0 -10px;display:block;position:relative;margin-top:8px}
-	.ulStyle li{margin-left:12px;float:left;display:block;position:relative}
-	.listyle{width:156px;display:block;background:#fff;padding:16px;margin-bottom:14px;position:relative;background-color:#b5b3b3}
-	.progressbar{height:14px;backgro [Rest der Zeichenfolge wurde abgeschnitten]&quot;; ähnelt.
-</summary>
-</member>
-<member name="P:Crunchyroll_Downloader.My.Resources.Resources.thumbnailString">
-<summary>
-  Sucht eine lokalisierte Zeichenfolge, die &quot;thumbnail&quot;:{&quot;url&quot;:&quot; ähnelt.
-</summary>
-</member>
-</members>
-</doc>

Crunchyroll Downloader/bin/x86/Release/Helpers.xml

@@ -1,58 +0,0 @@
-<?xml version="1.0"?>
-<doc>
-<assembly>
-<name>
-Helpers
-</name>
-</assembly>
-<members>
-<member name="T:My.Resources.Resources">
-<summary>
-  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
-</summary>
-</member>
-<member name="P:My.Resources.Resources.ResourceManager">
-<summary>
-  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
-</summary>
-</member>
-<member name="P:My.Resources.Resources.Culture">
-<summary>
-  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
-  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
-</summary>
-</member>
-<member name="T:System.Windows.Forms.AsyncWorker">
- <summary>
- you can pass Delegates together with suitable arguments to the methods RunAsync(), 
- NotifyGui() or ReportProgress(), and the Delegate will be executed either in a 
- side-thread or in the Gui-thread
- </summary>
-</member>
-<member name="M:System.Windows.Forms.AsyncWorker.ReportProgress(System.Action)">
- <summary>
- executes the Delegate in the Gui-thread, if the last progress-report is more
- than <see cref="F:System.Windows.Forms.AsyncWorker.ReportInterval" />ago, and the process isn't canceled
- </summary>
-</member>
-<member name="M:System.Windows.Forms.AsyncWorker.NotifyGui(System.Action)">
- <summary>
- executes the Delegate in the Gui-thread, if the process isn't canceled
- </summary>
-</member>
-<member name="M:System.Windows.Forms.AsyncWorker.RunAsync(System.Action)">
- <summary>executes the Delegate in a thread of the threadpool</summary>
-</member>
-<member name="M:System.Windows.Forms.AsyncWorkerX.RunAsync``3(System.Action{``0,``1,``2},``0,``1,``2)">
- <summary>executes the Delegate in a thread of the threadpool</summary>
-</member>
-<member name="M:System.Windows.Forms.AsyncWorkerX.NotifyGui``3(System.Action{``0,``1,``2},``0,``1,``2)">
- <summary>executes the Delegate in the Gui-thread</summary>
-</member>
-<member name="T:System.BugException">
- <summary>
- this Exception is not meant to be handled. Only for logging and debugging-purposes
- </summary>
-</member>
-</members>
-</doc>

Crunchyroll Downloader/einstellungen.vb

@@ -317,13 +317,10 @@ Public Class einstellungen
     End Function
 
     Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
-        Main.LoginOnly = "US_UnBlock"
-        Dim wb As New WebClient
-        Dim Session As String = wb.DownloadString("https://api.criater-stiftung.org/cr-cookie-hama3254.php")
-        'MsgBox(Session)
-        GeckoFX.keks = Session
         GeckoFX.Show()
-        GeckoFX.WebBrowser1.Navigate("https://www.crunchyroll.com/")
+        Main.LoginOnly = "US_UnBlock"
+
+        GeckoFX.WebBrowser1.Navigate("https://api.criater-stiftung.org/cr-cookie-ui.php")
     End Sub
 
     Private Function GeräteID() As String