more options for re-encoding

added h264 encoding
added variable bitrates

Crunchyroll Downloader/Crunchyroll Downloader.vbproj

@@ -102,6 +102,7 @@
     <Reference Include="System.Data" />
     <Reference Include="System.Deployment" />
     <Reference Include="System.Drawing" />
+    <Reference Include="System.IO.Compression.FileSystem" />
     <Reference Include="System.Windows.Forms" />
     <Reference Include="System.Xml" />
     <Reference Include="System.Core" />

Crunchyroll Downloader/GeckoFX.vb

@@ -6,6 +6,8 @@ Imports System.ComponentModel
 Imports System.Threading
 Imports System.Net
 Imports System.Net.WebUtility
+Imports System.IO.Compression
+
 Public Class GeckoFX
     Public keks As String = Nothing
     'Public c As Boolean = True
@@ -302,6 +304,54 @@ Public Class GeckoFX
         End If
         Me.Icon = My.Resources.icon
         Main.UserBowser = True
+        'Main.Pause(15)
+        'For ii As Integer = 19 To 46
+        '    WebBrowser1.Navigate("https://proxer.me/read/22459/" + ii.ToString + "/en/1")
+        '    Main.Pause(15)
+        '    Main.WebbrowserURL = WebBrowser1.Url.ToString
+        '    Dim NameDLFinal As String = Nothing
+        '    Dim NameDL As String() = WebBrowser1.Document.Body.OuterHtml.Split(New String() {"<div id=" + Chr(34) + "breadcrumb" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries)
+        '    Dim NameDL2 As String() = NameDL(1).Split(New String() {"<div>"}, System.StringSplitOptions.RemoveEmptyEntries)
+        '    Dim NameDL3 As String() = NameDL2(0).Split(New String() {Chr(34) + "true" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries)
+        '    For i As Integer = 0 To NameDL3.Count - 1
+        '        If InStr(NameDL3(i), "</a>") Then
+        '            Dim NameDL4 As String() = NameDL3(i).Split(New String() {"</a>"}, System.StringSplitOptions.RemoveEmptyEntries)
+        '            If NameDLFinal = Nothing Then
+        '                NameDLFinal = NameDL4(0)
+        '            Else
+        '                NameDLFinal = NameDLFinal + " " + NameDL4(0)
+        '            End If
+        '        End If
+        '    Next
+        '    NameDLFinal = System.Text.RegularExpressions.Regex.Replace(NameDLFinal, "[^\w\\-]", " ")
+        '    If Main.Debug2 = True Then
+        '        MsgBox(NameDLFinal)
+        '    End If
+        '    Dim SiteData As String() = WebBrowser1.Document.Body.OuterHtml.Split(New String() {"var pages ="}, System.StringSplitOptions.RemoveEmptyEntries)
+        '    Dim SiteData2 As String() = SiteData(1).Split(New String() {"</script>"}, System.StringSplitOptions.RemoveEmptyEntries)
+        '    Dim ImageNumbers As String() = SiteData2(0).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
+        '    Dim ImageList As New List(Of String)
+        '    Dim ImageListString As String = Nothing
+        '    For i As Integer = 0 To ImageNumbers.Count - 1
+        '        If InStr(ImageNumbers(i), ".jpg") Then
+        '            ImageList.Add(ImageNumbers(i).Replace(vbNewLine, ""))
+        '            ImageListString = ImageListString + vbNewLine + ImageNumbers(i).Replace(vbNewLine, "")
+        '        ElseIf InStr(ImageNumbers(i), ".png") Then
+        '            ImageList.Add(ImageNumbers(i).Replace(vbNewLine, ""))
+        '            ImageListString = ImageListString + vbNewLine + ImageNumbers(i).Replace(vbNewLine, "")
+        '        End If
+        '    Next
+        '    If Main.Debug2 = True Then
+        '        MsgBox(ImageListString)
+        '    End If
+        '    Dim BaseURL As String() = SiteData2(0).Split(New String() {"var serverurl = '"}, System.StringSplitOptions.RemoveEmptyEntries)
+        '    Dim BaseURL2 As String() = BaseURL(1).Split(New String() {"';"}, System.StringSplitOptions.RemoveEmptyEntries)
+        '    Dim BaseURL3 As String = "https:" + BaseURL2(0)
+        '    If Main.Debug2 = True Then
+        '        MsgBox(BaseURL3)
+        '    End If
+        '    AsyncWorkerX.RunAsync(AddressOf Main.DownloadMangaPages, BaseURL3, ImageList, Main.RemoveExtraSpaces(NameDLFinal))
+        'Next
     End Sub
 
     Private Sub GeckoFX_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
@@ -337,148 +387,194 @@ Public Class GeckoFX
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        Try
+        If InStr(WebBrowser1.Url.ToString, "https://proxer.me/read/") Then
-
-            Main.m3u8List.Clear()
-            Main.mpdList.Clear()
-            Main.txtList.Clear()
-            Button2.Enabled = False
-            ScanTrue = True
-            GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt"
-            GeckoPreferences.Default("logging.nsHttp") = 3
-            Main.LoggingBrowser = True
-            Dim FileLocation As DirectoryInfo = New DirectoryInfo(Application.StartupPath)
-            Dim CurrentFile As String = Nothing
-            For Each File In FileLocation.GetFiles()
-                If InStr(File.FullName, "log.txt") Then
-                    CurrentFile = File.FullName
-                    Exit For
-                End If
-            Next
-            Dim logFileStream As FileStream = New FileStream(CurrentFile, FileMode.Open, FileAccess.ReadWrite, FileShare.ReadWrite)
-            Dim logFileReader As StreamReader = New StreamReader(logFileStream)
-            logFileStream.SetLength(0)
-            'WebBrowser1.Navigate(TextBox1.Text)
             Main.WebbrowserURL = WebBrowser1.Url.ToString
-            Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
+            Dim NameDLFinal As String = Nothing
-            Main.b = True
+            Dim NameDL As String() = WebBrowser1.Document.Body.OuterHtml.Split(New String() {"<div id=" + Chr(34) + "breadcrumb" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries)
-            Main.UserBowser = True
+            Dim NameDL2 As String() = NameDL(1).Split(New String() {"<div>"}, System.StringSplitOptions.RemoveEmptyEntries)
-            For i As Integer = 20 To 0 Step -1
+            Dim NameDL3 As String() = NameDL2(0).Split(New String() {Chr(34) + "true" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries)
-                Main.Pause(1)
+            For i As Integer = 0 To NameDL3.Count - 1
-                Button2.Text = "network scan is in progess " + Math.Abs(i).ToString
+                If InStr(NameDL3(i), "</a>") Then
-            Next
+                    Dim NameDL4 As String() = NameDL3(i).Split(New String() {"</a>"}, System.StringSplitOptions.RemoveEmptyEntries)
-            If InStr(Main.WebbrowserURL, "anime-on-demand.de/anime/") Then
+                    If NameDLFinal = Nothing Then
-                Main.WebbrowserTitle = WebBrowser1.Document.GetElementsByClassName("jw-title-primary").First.TextContent
+                        NameDLFinal = NameDL4(0)
-                If Main.Debug2 = True Then
-                    MsgBox(Main.WebbrowserTitle)
-                End If
-                'Main.Thumbnail = WebBrowser1.Document.GetElementsByClassName("fullwidth-image anime-top-image").First.TextContent
-            Else
-
-                Main.WebbrowserTitle = WebBrowser1.DocumentTitle
-            End If
-            Dim line As String = Nothing
-            Dim HTMLString As String = Nothing
-            line = logFileReader.ReadLine
-
-            While (line IsNot Nothing)
-                line = logFileReader.ReadLine
-                If InStr(line, ".m3u8?") Then
-                    Dim Temp_String As String = Nothing
-                    Temp_String = line
-                    If HTMLString = Nothing Then
-                        HTMLString = line
                     Else
-                        HTMLString = HTMLString + vbNewLine + line
+                        NameDLFinal = NameDLFinal + " " + NameDL4(0)
                     End If
-                    For i As Integer = 0 To 10
-                        line = logFileReader.ReadLine
-                        If InStr(line, " Host: ") Then
-                            HTMLString = HTMLString + vbNewLine + line
-                            Main.m3u8List.Add(Temp_String + vbNewLine.ToString + line.ToString)
-                        End If
-                    Next
-                ElseIf InStr(line, ".txt") 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
-                    For i As Integer = 0 To 10
-                        line = logFileReader.ReadLine
-                        If InStr(line, " Host: ") Then
-                            Main.mpdList.Add(Temp_String + vbNewLine + line)
-                        End If
-                    Next
                 End If
-            End While
+            Next
-            logFileReader.Close()
+            NameDLFinal = System.Text.RegularExpressions.Regex.Replace(NameDLFinal, "[^\w\\-]", " ")
-            logFileStream.Close()
+            If Main.Debug2 = True Then
-            'MsgBox(HTMLString)
+                MsgBox(NameDLFinal)
-            If InStr(HTMLString, ".m3u8?") Then
-                Button2.Text = "found m3u8"
-                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), ".m3u8?") 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
-            ElseIf Main.mpdList.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
+            Dim SiteData As String() = WebBrowser1.Document.Body.OuterHtml.Split(New String() {"var pages ="}, System.StringSplitOptions.RemoveEmptyEntries)
-            Button2.Enabled = True
+            Dim SiteData2 As String() = SiteData(1).Split(New String() {"</script>"}, System.StringSplitOptions.RemoveEmptyEntries)
-        Catch ex As Exception
+            Dim ImageNumbers As String() = SiteData2(0).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
-            MsgBox(ex.ToString, MsgBoxStyle.OkOnly)
+            Dim ImageList As New List(Of String)
-            Button2.Enabled = True
+            Dim ImageListString As String = Nothing
-            ScanTrue = False
+            For i As Integer = 0 To ImageNumbers.Count - 1
-        End Try
+                If InStr(ImageNumbers(i), ".jpg") Then
+                    ImageList.Add(ImageNumbers(i).Replace(vbNewLine, ""))
+                    ImageListString = ImageListString + vbNewLine + ImageNumbers(i).Replace(vbNewLine, "")
+                ElseIf InStr(ImageNumbers(i), ".png") Then
+                    ImageList.Add(ImageNumbers(i).Replace(vbNewLine, ""))
+                    ImageListString = ImageListString + vbNewLine + ImageNumbers(i).Replace(vbNewLine, "")
+                End If
+            Next
+            If Main.Debug2 = True Then
+                MsgBox(ImageListString)
+            End If
+            Dim BaseURL As String() = SiteData2(0).Split(New String() {"var serverurl = '"}, System.StringSplitOptions.RemoveEmptyEntries)
+            Dim BaseURL2 As String() = BaseURL(1).Split(New String() {"';"}, System.StringSplitOptions.RemoveEmptyEntries)
+            Dim BaseURL3 As String = "https:" + BaseURL2(0)
+            If Main.Debug2 = True Then
+                MsgBox(BaseURL3)
+            End If
+            AsyncWorkerX.RunAsync(AddressOf Main.DownloadMangaPages, BaseURL3, ImageList, Main.RemoveExtraSpaces(NameDLFinal))
+        Else
+            Try
+
+                Main.m3u8List.Clear()
+                Main.mpdList.Clear()
+                Main.txtList.Clear()
+                Button2.Enabled = False
+                ScanTrue = True
+                GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt"
+                GeckoPreferences.Default("logging.nsHttp") = 3
+                Main.LoggingBrowser = True
+                Dim FileLocation As DirectoryInfo = New DirectoryInfo(Application.StartupPath)
+                Dim CurrentFile As String = Nothing
+                For Each File In FileLocation.GetFiles()
+                    If InStr(File.FullName, "log.txt") Then
+                        CurrentFile = File.FullName
+                        Exit For
+                    End If
+                Next
+                Dim logFileStream As FileStream = New FileStream(CurrentFile, FileMode.Open, FileAccess.ReadWrite, FileShare.ReadWrite)
+                Dim logFileReader As StreamReader = New StreamReader(logFileStream)
+                logFileStream.SetLength(0)
+                'WebBrowser1.Navigate(TextBox1.Text)
+                Main.WebbrowserURL = WebBrowser1.Url.ToString
+                Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
+                Main.b = True
+                Main.UserBowser = True
+                For i As Integer = 20 To 0 Step -1
+                    Main.Pause(1)
+                    Button2.Text = "network scan is in progess " + Math.Abs(i).ToString
+                Next
+                If InStr(Main.WebbrowserURL, "anime-on-demand.de/anime/") Then
+                    Main.WebbrowserTitle = WebBrowser1.Document.GetElementsByClassName("jw-title-primary").First.TextContent
+                    If Main.Debug2 = True Then
+                        MsgBox(Main.WebbrowserTitle)
+                    End If
+                    'Main.Thumbnail = WebBrowser1.Document.GetElementsByClassName("fullwidth-image anime-top-image").First.TextContent
+                Else
+
+                    Main.WebbrowserTitle = WebBrowser1.DocumentTitle
+                End If
+                Dim line As String = Nothing
+                Dim HTMLString As String = Nothing
+                line = logFileReader.ReadLine
+
+                While (line IsNot Nothing)
+                    line = logFileReader.ReadLine
+                    If InStr(line, ".m3u8?") Then
+                        Dim Temp_String As String = Nothing
+                        Temp_String = line
+                        If HTMLString = Nothing Then
+                            HTMLString = line
+                        Else
+                            HTMLString = HTMLString + vbNewLine + line
+                        End If
+                        For i As Integer = 0 To 10
+                            line = logFileReader.ReadLine
+                            If InStr(line, " Host: ") Then
+                                HTMLString = HTMLString + vbNewLine + line
+                                Main.m3u8List.Add(Temp_String + vbNewLine.ToString + line.ToString)
+                            End If
+                        Next
+                    ElseIf InStr(line, ".txt") 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
+                        For i As Integer = 0 To 10
+                            line = logFileReader.ReadLine
+                            If InStr(line, " Host: ") Then
+                                Main.mpdList.Add(Temp_String + vbNewLine + line)
+                            End If
+                        Next
+                    End If
+                End While
+                logFileReader.Close()
+                logFileStream.Close()
+                'MsgBox(HTMLString)
+                If InStr(HTMLString, ".m3u8?") Then
+                    Button2.Text = "found m3u8"
+                    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), ".m3u8?") 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
+                ElseIf Main.mpdList.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
+            Catch ex As Exception
+                MsgBox(ex.ToString, MsgBoxStyle.OkOnly)
+                Button2.Enabled = True
+                ScanTrue = False
+            End Try
+        End If
     End Sub
 
     Private Sub GeckoFX_LocationChanged(sender As Object, e As EventArgs) Handles Me.LocationChanged

Crunchyroll Downloader/Main.vb

@@ -2003,7 +2003,76 @@ Public Class Main
             einstellungen.Close()
             'MsgBox("Debug activated")
         End If
+    End Sub
+    Public Sub DownloadMangaPages(ByVal BaseURL As String, ByVal SiteList As List(Of String), ByVal FolderName As String)
+        Dim L1Name_Split As String() = WebbrowserURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
+        Dim L1Name As String = L1Name_Split(1).Replace("www.", "")
+        Pfad_DL = Pfad + "\" + FolderName
+        If Debug2 = True Then
+            MsgBox(BaseURL + SiteList(0))
+        End If
+        Me.Invoke(New Action(Function()
 
+                                 ListAdd(Pfad_DL, L1Name, FolderName, "Manga", "Manga", "", BaseURL + SiteList(0))
+
+                                 Return Nothing
+                             End Function))
+
+        Dim CurrentIndex As Integer = 0
+        For i As Integer = 0 To PB_list.Count - 1
+            If PB_list.Item(i).Name = Pfad_DL Then
+                CurrentIndex = i
+            End If
+        Next
+
+
+        Try
+            Directory.CreateDirectory(Pfad_DL)
+            'MsgBox(True.ToString)
+        Catch ex As Exception
+        End Try
+
+        'If Not Directory.Exists(Path.GetDirectoryName(Pfad_DL)) Then
+        '    ' Nein! Jetzt erstellen...
+        '    Try
+        '        Directory.CreateDirectory(Path.GetDirectoryName(Pfad_DL))
+        '        MsgBox(True.ToString)
+        '    Catch ex As Exception
+        '        MsgBox(False.ToString)
+        '        ' Ordner wurde nich erstellt
+        '        Exit Sub
+        '        'Pfad_DL = Pfad + "\" + CR_FilenName_Backup + ".mp4"
+        '    End Try
+        'End If
+
+        For i As Integer = 0 To SiteList.Count - 1
+            Using client As New WebClient()
+                client.DownloadFile(BaseURL + SiteList(i), Pfad_DL + "\" + SiteList(i))
+                Pause(1)
+            End Using
+            Me.Invoke(New Action(Function()
+                                     Dim stringFormat As New StringFormat()
+                                     stringFormat.Alignment = StringAlignment.Far
+            stringFormat.LineAlignment = StringAlignment.Center
+            Dim p As PictureBox = PB_list(CurrentIndex)
+            p.Image = p.BackgroundImage
+            Dim g As Graphics = Graphics.FromImage(p.Image)
+            Dim ProgressbarPoint As Point = New Point(195, 70)
+            Dim WeißeBox As Point = New Point(525, 93)
+            Dim ProzentText As Point = New Point(795, 113)
+            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.DrawString((i + 1).ToString + "/" + SiteList.Count.ToString + " " + Math.Round(i / (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.Dispose()
+                                     Return Nothing
+                                 End Function))
+
+        Next
 
     End Sub
+
+
+
 End Class

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.3")>
+<Assembly: AssemblyVersion("3.2.4")>
-<Assembly: AssemblyFileVersion("3.2.3")>
+<Assembly: AssemblyFileVersion("3.2.4")>
 <Assembly: NeutralResourcesLanguage("")>

Crunchyroll Downloader/einstellungen.Designer.vb

@@ -45,7 +45,26 @@ Partial Class einstellungen
         Me.TabPage2 = New System.Windows.Forms.TabPage()
         Me.CheckBox1 = New System.Windows.Forms.CheckBox()
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
-        Me.FFMPEG_Command = New System.Windows.Forms.ComboBox()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.FFMPEG_CommandP1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ListC1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ListC2 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ListC3 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ListC4 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ListC5 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.FFMPEG_CommandP2 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ListP1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ListP2 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.FFMPEG_CommandP3 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ListBit1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ListBit2 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ListBit3 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ListBit4 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ListBit5 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ListBit6 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ListBit7 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.FFMPEG_CommandP4 = New System.Windows.Forms.ToolStripMenuItem()
         Me.SoftSubs = New System.Windows.Forms.GroupBox()
         Me.MergeMP4 = New System.Windows.Forms.CheckBox()
         Me.CBesES = New System.Windows.Forms.CheckBox()
@@ -90,6 +109,8 @@ Partial Class einstellungen
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabPage2.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        Me.MenuStrip1.SuspendLayout()
         Me.SoftSubs.SuspendLayout()
         Me.GB_SubLanguage.SuspendLayout()
         Me.GB_Resolution.SuspendLayout()
@@ -221,9 +242,9 @@ Partial Class einstellungen
         Me.GroupBox5.Controls.Add(Me.ListViewAdd_True)
         Me.GroupBox5.Font = New System.Drawing.Font("Arial", 9.75!)
         Me.GroupBox5.ForeColor = System.Drawing.Color.Black
-        Me.GroupBox5.Location = New System.Drawing.Point(12, 301)
+        Me.GroupBox5.Location = New System.Drawing.Point(6, 301)
         Me.GroupBox5.Name = "GroupBox5"
-        Me.GroupBox5.Size = New System.Drawing.Size(444, 55)
+        Me.GroupBox5.Size = New System.Drawing.Size(456, 55)
         Me.GroupBox5.TabIndex = 7
         Me.GroupBox5.TabStop = False
         Me.GroupBox5.Text = "Multi-Download"
@@ -346,7 +367,7 @@ Partial Class einstellungen
         'GroupBox2
         '
         Me.GroupBox2.BackColor = System.Drawing.Color.Transparent
-        Me.GroupBox2.Controls.Add(Me.FFMPEG_Command)
+        Me.GroupBox2.Controls.Add(Me.Panel1)
         Me.GroupBox2.Enabled = False
         Me.GroupBox2.Font = New System.Drawing.Font("Arial", 9.75!)
         Me.GroupBox2.ForeColor = System.Drawing.Color.Black
@@ -357,21 +378,140 @@ Partial Class einstellungen
         Me.GroupBox2.TabStop = False
         Me.GroupBox2.Text = "ffmpeg command"
         '
-        'FFMPEG_Command
+        'Panel1
         '
-        Me.FFMPEG_Command.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
+        Me.Panel1.Controls.Add(Me.MenuStrip1)
-        Me.FFMPEG_Command.DropDownHeight = 250
+        Me.Panel1.Location = New System.Drawing.Point(1, 21)
-        Me.FFMPEG_Command.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.Panel1.Name = "Panel1"
-        Me.FFMPEG_Command.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Panel1.Size = New System.Drawing.Size(446, 32)
-        Me.FFMPEG_Command.FormattingEnabled = True
+        Me.Panel1.TabIndex = 37
-        Me.FFMPEG_Command.IntegralHeight = False
+        '
-        Me.FFMPEG_Command.ItemHeight = 16
+        'MenuStrip1
-        Me.FFMPEG_Command.Items.AddRange(New Object() {" -c copy -bsf:a aac_adtstoasc ", " -c:v hevc_nvenc -preset fast -b:v 6M -bsf:a aac_adtstoasc ", " -c:v libx265 -preset fast -b:v 6M -bsf:a aac_adtstoasc "})
+        '
-        Me.FFMPEG_Command.Location = New System.Drawing.Point(6, 25)
+        Me.MenuStrip1.BackColor = System.Drawing.SystemColors.Control
-        Me.FFMPEG_Command.Name = "FFMPEG_Command"
+        Me.MenuStrip1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!)
-        Me.FFMPEG_Command.Size = New System.Drawing.Size(437, 22)
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FFMPEG_CommandP1, Me.FFMPEG_CommandP2, Me.FFMPEG_CommandP3, Me.FFMPEG_CommandP4})
-        Me.FFMPEG_Command.Sorted = True
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
-        Me.FFMPEG_Command.TabIndex = 33
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(446, 24)
+        Me.MenuStrip1.TabIndex = 37
+        Me.MenuStrip1.Text = "MenuStrip1"
+        '
+        'FFMPEG_CommandP1
+        '
+        Me.FFMPEG_CommandP1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ListC1, Me.ListC2, Me.ListC3, Me.ListC4, Me.ListC5})
+        Me.FFMPEG_CommandP1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.FFMPEG_CommandP1.Name = "FFMPEG_CommandP1"
+        Me.FFMPEG_CommandP1.Size = New System.Drawing.Size(64, 20)
+        Me.FFMPEG_CommandP1.Text = "-c copy"
+        '
+        'ListC1
+        '
+        Me.ListC1.Name = "ListC1"
+        Me.ListC1.Size = New System.Drawing.Size(180, 22)
+        Me.ListC1.Text = "-c copy"
+        '
+        'ListC2
+        '
+        Me.ListC2.Name = "ListC2"
+        Me.ListC2.Size = New System.Drawing.Size(180, 22)
+        Me.ListC2.Text = "-c:v h264_nvenc "
+        '
+        'ListC3
+        '
+        Me.ListC3.Name = "ListC3"
+        Me.ListC3.Size = New System.Drawing.Size(180, 22)
+        Me.ListC3.Text = "-c:v hevc_nvenc"
+        '
+        'ListC4
+        '
+        Me.ListC4.Name = "ListC4"
+        Me.ListC4.Size = New System.Drawing.Size(180, 22)
+        Me.ListC4.Text = "-c:v libx264"
+        '
+        'ListC5
+        '
+        Me.ListC5.Name = "ListC5"
+        Me.ListC5.Size = New System.Drawing.Size(180, 22)
+        Me.ListC5.Text = "-c:v libx265"
+        '
+        'FFMPEG_CommandP2
+        '
+        Me.FFMPEG_CommandP2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ListP1, Me.ListP2})
+        Me.FFMPEG_CommandP2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.FFMPEG_CommandP2.Name = "FFMPEG_CommandP2"
+        Me.FFMPEG_CommandP2.Size = New System.Drawing.Size(86, 20)
+        Me.FFMPEG_CommandP2.Text = "-preset fast"
+        '
+        'ListP1
+        '
+        Me.ListP1.Name = "ListP1"
+        Me.ListP1.Size = New System.Drawing.Size(180, 22)
+        Me.ListP1.Text = "-preset fast"
+        '
+        'ListP2
+        '
+        Me.ListP2.Name = "ListP2"
+        Me.ListP2.Size = New System.Drawing.Size(180, 22)
+        Me.ListP2.Text = "-preset slow"
+        '
+        'FFMPEG_CommandP3
+        '
+        Me.FFMPEG_CommandP3.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ListBit1, Me.ListBit2, Me.ListBit3, Me.ListBit4, Me.ListBit5, Me.ListBit6, Me.ListBit7})
+        Me.FFMPEG_CommandP3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.FFMPEG_CommandP3.Name = "FFMPEG_CommandP3"
+        Me.FFMPEG_CommandP3.Size = New System.Drawing.Size(80, 20)
+        Me.FFMPEG_CommandP3.Text = "-b:v 7000k"
+        '
+        'ListBit1
+        '
+        Me.ListBit1.Name = "ListBit1"
+        Me.ListBit1.Size = New System.Drawing.Size(180, 22)
+        Me.ListBit1.Text = "-b:v 7000k"
+        '
+        'ListBit2
+        '
+        Me.ListBit2.Name = "ListBit2"
+        Me.ListBit2.Size = New System.Drawing.Size(180, 22)
+        Me.ListBit2.Text = "-b:v 6000k"
+        '
+        'ListBit3
+        '
+        Me.ListBit3.Name = "ListBit3"
+        Me.ListBit3.Size = New System.Drawing.Size(180, 22)
+        Me.ListBit3.Text = "-b:v 5000k"
+        '
+        'ListBit4
+        '
+        Me.ListBit4.Name = "ListBit4"
+        Me.ListBit4.Size = New System.Drawing.Size(180, 22)
+        Me.ListBit4.Text = "-b:v 4000k"
+        '
+        'ListBit5
+        '
+        Me.ListBit5.Name = "ListBit5"
+        Me.ListBit5.Size = New System.Drawing.Size(180, 22)
+        Me.ListBit5.Text = "-b:v 3000k"
+        '
+        'ListBit6
+        '
+        Me.ListBit6.Name = "ListBit6"
+        Me.ListBit6.Size = New System.Drawing.Size(180, 22)
+        Me.ListBit6.Text = "-b:v 2000k"
+        '
+        'ListBit7
+        '
+        Me.ListBit7.Name = "ListBit7"
+        Me.ListBit7.Size = New System.Drawing.Size(180, 22)
+        Me.ListBit7.Text = "-b:v 1000k"
+        '
+        'FFMPEG_CommandP4
+        '
+        Me.FFMPEG_CommandP4.Enabled = False
+        Me.FFMPEG_CommandP4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.FFMPEG_CommandP4.Name = "FFMPEG_CommandP4"
+        Me.FFMPEG_CommandP4.Size = New System.Drawing.Size(145, 20)
+        Me.FFMPEG_CommandP4.Text = "-bsf:a aac_adtstoasc"
         '
         'SoftSubs
         '
@@ -398,7 +538,7 @@ Partial Class einstellungen
         '
         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(128, 155)
+        Me.MergeMP4.Location = New System.Drawing.Point(119, 148)
         Me.MergeMP4.Name = "MergeMP4"
         Me.MergeMP4.Size = New System.Drawing.Size(194, 20)
         Me.MergeMP4.TabIndex = 6
@@ -792,6 +932,10 @@ Partial Class einstellungen
         Me.TabPage2.ResumeLayout(False)
         Me.TabPage2.PerformLayout()
         Me.GroupBox2.ResumeLayout(False)
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
         Me.SoftSubs.ResumeLayout(False)
         Me.SoftSubs.PerformLayout()
         Me.GB_SubLanguage.ResumeLayout(False)
@@ -856,8 +1000,27 @@ Partial Class einstellungen
     Public WithEvents ComboBox2 As ComboBox
     Public WithEvents comboBox3 As ComboBox
     Friend WithEvents GroupBox2 As GroupBox
-    Friend WithEvents FFMPEG_Command As ComboBox
     Friend WithEvents CheckBox1 As CheckBox
     Friend WithEvents GroupBox5 As GroupBox
     Friend WithEvents ListViewAdd_True As CheckBox
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents MenuStrip1 As MenuStrip
+    Friend WithEvents FFMPEG_CommandP1 As ToolStripMenuItem
+    Friend WithEvents ListC1 As ToolStripMenuItem
+    Friend WithEvents ListC2 As ToolStripMenuItem
+    Friend WithEvents ListC3 As ToolStripMenuItem
+    Friend WithEvents ListC4 As ToolStripMenuItem
+    Friend WithEvents ListC5 As ToolStripMenuItem
+    Friend WithEvents FFMPEG_CommandP2 As ToolStripMenuItem
+    Friend WithEvents ListP1 As ToolStripMenuItem
+    Friend WithEvents ListP2 As ToolStripMenuItem
+    Friend WithEvents FFMPEG_CommandP3 As ToolStripMenuItem
+    Friend WithEvents ListBit1 As ToolStripMenuItem
+    Friend WithEvents ListBit2 As ToolStripMenuItem
+    Friend WithEvents ListBit3 As ToolStripMenuItem
+    Friend WithEvents ListBit4 As ToolStripMenuItem
+    Friend WithEvents ListBit5 As ToolStripMenuItem
+    Friend WithEvents ListBit6 As ToolStripMenuItem
+    Friend WithEvents ListBit7 As ToolStripMenuItem
+    Friend WithEvents FFMPEG_CommandP4 As ToolStripMenuItem
 End Class

Crunchyroll Downloader/einstellungen.resx

@@ -123,4 +123,10 @@
   <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="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>346, 17</value>
+  </metadata>
+  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>346, 17</value>
+  </metadata>
 </root>

Crunchyroll Downloader/einstellungen.vb

@@ -104,13 +104,26 @@ Public Class einstellungen
         NumericUpDown1.Value = Main.MaxDL
         TextBox1.Text = Main.Startseite
 
-        If Main.ffmpeg_command = " -c:v hevc_nvenc -preset fast -b:v 6M -bsf:a aac_adtstoasc " Then
+        If InStr(Main.ffmpeg_command, "-c copy") Then
-            FFMPEG_Command.SelectedIndex = 1
+            FFMPEG_CommandP1.Text = "-c copy"
-        ElseIf Main.FFMPEG_Command = " -c:v libx265 -preset fast -b:v 6M -bsf:a aac_adtstoasc " Then
+            FFMPEG_CommandP4.Text = "-bsf:a aac_adtstoasc"
-            FFMPEG_Command.SelectedIndex = 2
         Else
-            FFMPEG_Command.SelectedIndex = 0
+            Dim ffmpegDisplayCurrent As String() = Main.ffmpeg_command.Split(New String() {" "}, System.StringSplitOptions.RemoveEmptyEntries)
+            FFMPEG_CommandP1.Text = ffmpegDisplayCurrent(0) + " " + ffmpegDisplayCurrent(1)
+            FFMPEG_CommandP2.Text = ffmpegDisplayCurrent(2) + " " + ffmpegDisplayCurrent(3)
+            FFMPEG_CommandP3.Text = ffmpegDisplayCurrent(4) + " " + ffmpegDisplayCurrent(5)
+            'FFMPEG_CommandP4.Text = ffmpegDisplayCurrent(6) + " " + ffmpegDisplayCurrent(7)
         End If
+
+        'Dim ffmpegDisplayCurrent As String() = Main.ffmpeg_command.Split(New String() {" "}, System.StringSplitOptions.RemoveEmptyEntries)
+
+        'If Main.ffmpeg_command = " -c:v hevc_nvenc -preset fast -b:v 6M -bsf:a aac_adtstoasc " Then
+        '    FFMPEG_CommandP10.SelectedIndex = 1
+        'ElseIf Main.ffmpeg_command = " -c:v libx265 -preset fast -b:v 6M -bsf:a aac_adtstoasc " Then
+        '    FFMPEG_CommandP10.SelectedIndex = 2
+        'Else
+        '    FFMPEG_CommandP10.SelectedIndex = 0
+        'End If
         Try
             Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
             Firefox_True.Checked = CBool(Integer.Parse(rkg.GetValue("NoUse").ToString))
@@ -206,16 +219,24 @@ Public Class einstellungen
             Main.SubFolder = 2
             rk.SetValue("SubFolder", 2, RegistryValueKind.String)
         End If
-        If FFMPEG_Command.Text = "" Then
+        If CheckBox1.Enabled = False Then
 
         Else
-            rk.SetValue("ffmpeg_command", FFMPEG_Command.Text, RegistryValueKind.String)
+            Dim ffpmeg_cmd As String = Nothing
-            Main.ffmpeg_command = FFMPEG_Command.Text
+            If FFMPEG_CommandP1.Text = "-c copy" Then
+                ffpmeg_cmd = " " + FFMPEG_CommandP1.Text + " " + FFMPEG_CommandP4.Text
+            Else
+
+                ffpmeg_cmd = " " + FFMPEG_CommandP1.Text + " " + FFMPEG_CommandP2.Text + " " + FFMPEG_CommandP3.Text + " " + FFMPEG_CommandP4.Text
+
+            End If
+            rk.SetValue("ffmpeg_command", ffpmeg_cmd, RegistryValueKind.String)
+            Main.ffmpeg_command = ffpmeg_cmd
         End If
 
-        If FFMPEG_Command.Text = " -c:v hevc_nvenc -preset fast -b:v 6M -bsf:a aac_adtstoasc " Then
+        If InStr(FFMPEG_CommandP1.Text, "nvenc") Then
             NumericUpDown1.Value = 2
-        ElseIf FFMPEG_Command.Text = " -c:v libx265 -preset fast -b:v 6M -bsf:a aac_adtstoasc " Then
+        ElseIf inStr(FFMPEG_CommandP1.Text, "libx26") Then
             NumericUpDown1.Value = 1
         End If
         rk.SetValue("SL_DL", NumericUpDown1.Value, RegistryValueKind.String)
@@ -385,7 +406,7 @@ Public Class einstellungen
 
 
 
-    Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboBox1.DrawItem, ComboBox2.DrawItem, comboBox3.DrawItem, comboBox4.DrawItem, FFMPEG_Command.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}
@@ -497,21 +518,57 @@ Public Class einstellungen
         Next
     End Sub
 
-    Private Sub FFMPEG_Command_SelectedIndexChanged(sender As Object, e As EventArgs) Handles FFMPEG_Command.SelectedIndexChanged
+    'Private Sub FFMPEG_Command_SelectedIndexChanged(sender As Object, e As EventArgs)
-        If CheckBox1.Checked = True Then
+    '    If CheckBox1.Checked = True Then
-            MsgBox("Other commands than " + Chr(34) + " -c copy -bsf:a aac_adtstoasc " + Chr(34) + "convert the Video into h265/hevc!", MsgBoxStyle.Information)
+    '        MsgBox("Other commands than " + Chr(34) + " -c copy -bsf:a aac_adtstoasc " + Chr(34) + "convert the Video into h265/hevc!", MsgBoxStyle.Information)
-            If FFMPEG_Command.Text = " -c:v hevc_nvenc -preset fast -b:v 6M -bsf:a aac_adtstoasc " Then
+    '        If FFMPEG_CommandP10.Text = " -c:v hevc_nvenc -preset fast -b:v 6M -bsf:a aac_adtstoasc " Then
-                MsgBox("This command requires a Nvidia GTX 6xx/7xx (Kepler generation) or higher.", MsgBoxStyle.Information)
+    '            MsgBox("This command requires a Nvidia GTX 6xx/7xx (Kepler generation) or higher.", MsgBoxStyle.Information)
-            ElseIf FFMPEG_Command.Text = " -c:v libx265 -preset fast -b:v 6M -bsf:a aac_adtstoasc " Then
+    '        ElseIf FFMPEG_CommandP10.Text = " -c:v libx265 -preset fast -b:v 6M -bsf:a aac_adtstoasc " Then
-                MsgBox("CPU encoding is low and uses all resources of the computer.", MsgBoxStyle.Information)  ' -c:v libx265 -preset fast -b:v 6M -bsf:a aac_adtstoasc 
+    '            MsgBox("CPU encoding is low and uses all resources of the computer.", MsgBoxStyle.Information)  ' -c:v libx265 -preset fast -b:v 6M -bsf:a aac_adtstoasc 
-            End If
+    '        End If
-        End If
+    '    End If
-    End Sub
+    'End Sub
 
     Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
         GroupBox2.Enabled = CheckBox1.CheckState
+        If FFMPEG_CommandP1.Text = "-c copy" Then
+            FFMPEG_CommandP2.Enabled = False
+            FFMPEG_CommandP3.Enabled = False
+        Else
+            FFMPEG_CommandP2.Enabled = True
+            FFMPEG_CommandP3.Enabled = True
+        End If
     End Sub
 
+    Private Sub ListC1_Click(sender As Object, e As EventArgs) Handles ListC1.Click, ListC2.Click, ListC3.Click, ListC4.Click, ListC5.Click
+        Dim Button As ToolStripMenuItem = sender
+        If Button.Text = "-c copy" Then
+            FFMPEG_CommandP1.Text = "-c copy"
+            FFMPEG_CommandP2.Enabled = False
+            FFMPEG_CommandP3.Enabled = False
+        Else
+            FFMPEG_CommandP1.Text = Button.Text
+            FFMPEG_CommandP2.Enabled = True
+            FFMPEG_CommandP3.Enabled = True
+        End If
+
+    End Sub
+
+    Private Sub ListP1_Click(sender As Object, e As EventArgs) Handles ListP1.Click, ListP2.Click
+        Dim Button As ToolStripMenuItem = sender
+        FFMPEG_CommandP2.Text = Button.Text
+        FFMPEG_CommandP2.Enabled = True
+        FFMPEG_CommandP3.Enabled = True
+    End Sub
+
+    Private Sub ListBit1_Click(sender As Object, e As EventArgs) Handles ListBit1.Click, ListBit2.Click, ListBit3.Click, ListBit4.Click, ListBit5.Click, ListBit6.Click, ListBit7.Click
+        Dim Button As ToolStripMenuItem = sender
+        FFMPEG_CommandP3.Text = Button.Text
+        FFMPEG_CommandP2.Enabled = True
+        FFMPEG_CommandP3.Enabled = True
+    End Sub
+
+
 
 
 #End Region

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

@@ -1 +1 @@
-18a59f282f1f5b16b30399d2b0996e199647fe62
+f5bb51c2bd559fd873e12f725d513bde820bf4f0