queue mode

- multi download can be redirected to the listview queue
This commit is contained in:
hama3254 2020-02-28 16:28:38 +01:00
parent b066519f16
commit b9458254b3
17 changed files with 271 additions and 124 deletions

Binary file not shown.

View File

@ -25,6 +25,10 @@ Partial Class Debug_Mode
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.RichTextBox2 = New System.Windows.Forms.RichTextBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'ComboBox1
@ -54,11 +58,50 @@ Partial Class Debug_Mode
Me.ComboBox2.Size = New System.Drawing.Size(414, 21)
Me.ComboBox2.TabIndex = 4
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(194, 409)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(139, 23)
Me.Button1.TabIndex = 5
Me.Button1.Text = "URL Convert"
Me.Button1.UseVisualStyleBackColor = True
'
'RichTextBox2
'
Me.RichTextBox2.Location = New System.Drawing.Point(49, 451)
Me.RichTextBox2.Name = "RichTextBox2"
Me.RichTextBox2.Size = New System.Drawing.Size(444, 241)
Me.RichTextBox2.TabIndex = 3
Me.RichTextBox2.Text = ""
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(230, 715)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 5
Me.Button2.Text = "Reso Test"
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(382, 715)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 23)
Me.Button3.TabIndex = 6
Me.Button3.Text = "Button3"
Me.Button3.UseVisualStyleBackColor = True
'
'Debug_Mode
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(537, 750)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.RichTextBox2)
Me.Controls.Add(Me.ComboBox2)
Me.Controls.Add(Me.RichTextBox1)
Me.Controls.Add(Me.ComboBox1)
@ -71,6 +114,10 @@ Partial Class Debug_Mode
End Sub
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents RichTextBox1 As RichTextBox
Friend WithEvents ComboBox2 As ComboBox
Friend WithEvents Button1 As Button
Public WithEvents RichTextBox2 As RichTextBox
Friend WithEvents Button2 As Button
Public WithEvents RichTextBox1 As RichTextBox
Friend WithEvents Button3 As Button
End Class

View File

@ -42,7 +42,44 @@
End If
End Sub
Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim HTMLString As String = RichTextBox1.Text
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).Split(New String() {" Host: "}, System.StringSplitOptions.RemoveEmptyEntries)
RichTextBox2.Text = "https://" + URLPart1(1) + URLPart2Split2(0)
'MsgBox(Main.NonCR_URL)
'RichTextBox1.Text = RichTextBox1.Text + vbNewLine + URL_Final
Exit For
ElseIf 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).Split(New String() {" Host: "}, System.StringSplitOptions.RemoveEmptyEntries)
RichTextBox2.Text = "https://" + URLPart1(1) + URLPart2Split2(0)
'MsgBox(Main.NonCR_URL)
'RichTextBox1.Text = RichTextBox1.Text + vbNewLine + URL_Final
Exit For
ElseIf InStr(HTMLSplit(i), ".txt?") 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).Split(New String() {" Host: "}, System.StringSplitOptions.RemoveEmptyEntries)
RichTextBox2.Text = "https://" + URLPart1(1) + URLPart2Split2(0)
'MsgBox(Main.NonCR_URL)
'RichTextBox1.Text = RichTextBox1.Text + vbNewLine + URL_Final
Exit For
End If
Next
End Sub
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
Main.FFMPEG_Reso(RichTextBox2.Text)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
MsgBox(Main.ResoAvalibe)
End Sub
End Class

View File

@ -339,7 +339,9 @@ Public Class GeckoFX
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
Main.m3u8List.Clear()
Main.mpdList.Clear()
Main.txtList.Clear()
Button2.Enabled = False
ScanTrue = True
GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt"
@ -434,6 +436,7 @@ Public Class GeckoFX
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
@ -458,6 +461,7 @@ Public Class GeckoFX
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
@ -482,4 +486,12 @@ Public Class GeckoFX
Debug_Mode.Location = New Point(Me.Location.X + Me.Width - 15, Me.Location.Y)
End If
End Sub
Private Sub WebBrowser1_GotFocus(sender As Object, e As EventArgs) Handles WebBrowser1.GotFocus
'Debug_Mode.ActiveForm = True
End Sub
Private Sub WebBrowser1_LostFocus(sender As Object, e As EventArgs) Handles WebBrowser1.LostFocus
'Debug_Mode.TopMost = False
End Sub
End Class

View File

@ -4,9 +4,13 @@ Imports System.IO
Imports Microsoft.Win32
Imports System.ComponentModel
Public Class Main
Public UseQueue As Boolean = False
Public m3u8List As New List(Of String)
Public txtList As New List(Of String)
Public mpdList As New List(Of String)
Public ResoAvalibe As String = Nothing
Public ResoSearchRunning As Boolean = False
Public UsedMap As String = Nothing
Public Debug1 As Boolean = False
Public Debug2 As Boolean = False
Public LoggingBrowser As Boolean = False
@ -182,7 +186,12 @@ Public Class Main
StatusToolTip.Active = True
#End Region
Try
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
UseQueue = CBool(Integer.Parse(rkg.GetValue("QueueMode").ToString))
Catch ex As Exception
End Try
Try
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
@ -521,9 +530,17 @@ Public Class Main
If Debug2 = True Then
MsgBox("https://www.crunchyroll.com" + URLGrapp2(0))
End If
If UseQueue = True Then
Anime_Add.ListBox1.Items.Add("https://www.crunchyroll.com" + URLGrapp2(0))
Anime_Add.Add_Display.ForeColor = Color.FromArgb(9248044)
Pause(1)
Anime_Add.Add_Display.ForeColor = Color.Black
Else
Grapp_RDY = False
b = False
GeckoFX.WebBrowser1.Navigate("https://www.crunchyroll.com" + URLGrapp2(0))
End If
Aktuell = d.ToString
Anime_Add.Add_Display.Text = Aktuell + " / " + Gesamt
@ -1493,7 +1510,11 @@ Public Class Main
cmd = DL_URL + " " + DL_Pfad
End If
End If
If UsedMap = Nothing Then
Else
cmd = "-i " + Chr(34) + URL_DL + Chr(34) + " -map 0:a " + "-map " + UsedMap + " " + ffmpeg_command + " " + DL_Pfad
UsedMap = Nothing
End If
If Debug2 = True Then
MsgBox(cmd)
End If
@ -1797,69 +1818,52 @@ Public Class Main
' Return url
' End Try
'End Function
Sub FFMPEGResoBack(ByVal sender As Object, ByVal e As DataReceivedEventArgs)
If InStr(e.Data, ": Video:") Then
Dim ZeileReso() As String = e.Data.Split(New String() {" ["}, System.StringSplitOptions.RemoveEmptyEntries)
Dim ZeileReso2() As String = ZeileReso(0).Split(New String() {"x"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim ZeileReso3() As String = e.Data.Split(New String() {": Video:"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim ZeileReso4() As String = ZeileReso3(0).Split(New String() {"Stream #"}, System.StringSplitOptions.RemoveEmptyEntries)
'If ResoAvalibe = Nothing Then
' ResoAvalibe = ZeileReso2(ZeileReso2.Count - 1).Trim + ":--:" + ZeileReso4(1)
'Else
ResoAvalibe = ResoAvalibe + vbNewLine + ZeileReso2(ZeileReso2.Count - 1).Trim + ":--:" + ZeileReso4(1)
'End If
ElseIf InStr(e.Data, "Duration:") Then
ResoAvalibe = Nothing
ElseIf InStr(e.Data, "At least one output file must be specified") Then
ResoSearchRunning = False
End If
End Sub
Public Sub FFMPEG_Reso(ByVal DL_URL As String)
ResoSearchRunning = True
Dim proc As New Process
Dim exepath As String = Application.StartupPath + "\ffmpeg.exe"
Dim startinfo As New System.Diagnostics.ProcessStartInfo
'Public Function FFMPEG_Reso(ByVal DL_URL As String) As String
' Dim proc As New Process
' Dim exepath As String = Application.StartupPath + "\ffmpeg.exe"
' Dim startinfo As New System.Diagnostics.ProcessStartInfo
' Dim sr As StreamReader
' ' Dim cmd As String = "-i " + Chr(34) + URL_DL + Chr(34) + " -c copy -bsf:a aac_adtstoasc " + Pfad_DL 'start ffmpeg with command strFFCMD string
' '-bsf:a aac_adtstoasc
' Dim cmd As String = "-i " + Chr(34) + DL_URL + Chr(34) 'start ffmpeg with command strFFCMD string
' 'MsgBox(cmd)
' '22050
' '
' Dim ffmpegOutput As String = Nothing
' Dim ffmpegOutput2 As String = Nothing
' 'all parameters required to run the process
' startinfo.FileName = exepath
' startinfo.Arguments = cmd
' startinfo.UseShellExecute = False
' startinfo.WindowStyle = ProcessWindowStyle.Hidden
' startinfo.RedirectStandardError = True
' startinfo.RedirectStandardOutput = True
' startinfo.CreateNoWindow = True
' proc.StartInfo = startinfo
' proc.Start() ' start the process
' sr = proc.StandardError 'standard error is used by ffmpeg
Dim cmd As String = "-i " + Chr(34) + DL_URL + Chr(34) 'start ffmpeg with command strFFCMD string
Dim ffmpegOutput As String = Nothing
Dim ffmpegOutput2 As String = Nothing
'all parameters required to run the process
startinfo.FileName = exepath
startinfo.Arguments = cmd
startinfo.UseShellExecute = False
startinfo.WindowStyle = ProcessWindowStyle.Hidden
startinfo.RedirectStandardError = True
startinfo.RedirectStandardOutput = True
startinfo.CreateNoWindow = True
AddHandler proc.ErrorDataReceived, AddressOf FFMPEGResoBack
AddHandler proc.OutputDataReceived, AddressOf FFMPEGResoBack
proc.StartInfo = startinfo
proc.Start() ' start the process
proc.BeginOutputReadLine()
proc.BeginErrorReadLine()
'Dim ZeitAnzeige As String = Nothing
'Dim StreamNR As String = Nothing
' Dim x As Boolean = False
' Do
' ffmpegOutput = ffmpegOutput + vbNewLine + sr.ReadLine
' ffmpegOutput2 = sr.ReadLine
' Try
' If x = False Then
' If InStr(ffmpegOutput, "Duration: ") Then
' x = True
' Dim ZeitGesamt As String() = ffmpegOutput.Split(New String() {"Duration: "}, System.StringSplitOptions.RemoveEmptyEntries)
' Dim ZeitGesamt2 As String() = ZeitGesamt(1).Split(New [Char]() {System.Convert.ToChar(".")})
' Dim ZeitGesamtSplit() As String = ZeitGesamt2(0).Split(New [Char]() {System.Convert.ToChar(":")})
' For i As Integer = 0 To ZeitGesamtSplit.Count - 1
' If ZeitGesamtSplit(i) = "00" Then
' Else
' If ZeitAnzeige = Nothing Then
' ZeitAnzeige = ZeitGesamtSplit(i)
' Else
' ZeitAnzeige = ZeitAnzeige + ":" + ZeitGesamtSplit(i)
' End If
' End If
' Next
' End If
' End If
' Catch ex As Exception
' End Try
' Pause(1)
' Loop Until proc.HasExited And ffmpegOutput2 = Nothing Or InStr(ffmpegOutput, "At least one output file must be specified") 'And ffmpegOutput2 = Nothing Or ffmpegOutput2 = ""
' If InStr(ffmpegOutput, "Server returned 401 Unauthorized") Then
' End If
''Math.Abs()
'Dim AllReso As String = "1080p720p480p360p"
'Dim AllResoArry() As String = AllReso.Split(New String() {"p"}, System.StringSplitOptions.RemoveEmptyEntries)
'Dim Zeilen() As String = ffmpegOutput.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
'For i As Integer = 0 To Zeilen.Count - 1
' If InStr(Zeilen(i), "x" + Resu.ToString + " [") Then
@ -1868,26 +1872,9 @@ Public Class Main
' StreamNR = ZeileReso2(1)
' End If
'Next
' If StreamNR = Nothing Then
' 'MsgBox(cmd + vbNewLine + ffmpegOutput)
' ResoNotFoundString = ffmpegOutput
' DialogTaskString = "Resolution"
' Reso.ShowDialog()
' 'MsgBox(ResoBackString)
' If UserCloseDialog = True Then
' Throw New System.Exception(Chr(34) + "UserAbort" + Chr(34))
' Else
' For i As Integer = 0 To Zeilen.Count - 1
' If InStr(Zeilen(i), ResoBackString) Then
' Dim ZeileReso() As String = Zeilen(i).Split(New String() {": Video:"}, System.StringSplitOptions.RemoveEmptyEntries)
' Dim ZeileReso2() As String = ZeileReso(0).Split(New String() {"Stream #"}, System.StringSplitOptions.RemoveEmptyEntries)
' StreamNR = ZeileReso2(1)
' End If
' Next
' End If
' End If
'Return ZeitAnzeige + "#1" + StreamNR
'End Function
End Sub
#End Region
Public Sub Grapp_non_CR()
@ -1898,6 +1885,16 @@ Public Class Main
Return Nothing
End Function))
Grapp_non_cr_RDY = False
For i As Integer = 0 To 30
If ResoSearchRunning = True Then
Pause(1)
Else
Exit For
End If
Next
If Debug2 = True Then
MsgBox(ResoSearchRunning.ToString)
End If
Dim Video_Title As String = WebbrowserTitle.Replace(" - Watch on VRV", "").Replace("Free Streaming", "").Replace("Tubi", "")
Video_Title = RemoveExtraSpaces(Video_Title)
#Region "Name + Pfad"
@ -1954,6 +1951,19 @@ Public Class Main
#Region "<li> constructor"
Dim Subsprache3 As String = "undefined" 'HardSubValuesToDisplay(SubSprache2)
Dim ResoHTMLDisplay As String = "[Auto]"
If InStr(ResoAvalibe, Resu.ToString) Then
Dim ResoUse As String() = ResoAvalibe.Split(New String() {Resu.ToString + ":--:"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim ResoUse2 As String() = ResoUse(1).Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
UsedMap = ResoUse2(0)
If Debug2 = True Then
MsgBox(UsedMap)
End If
ResoHTMLDisplay = Resu.ToString + "p"
Else
ResoHTMLDisplay = "[Auto]"
End If
Dim L2Name As String = Video_Title
Dim L1Name_Split As String() = WebbrowserURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim L1Name As String = L1Name_Split(1)

View File

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

View File

@ -33,6 +33,8 @@ Partial Class einstellungen
Me.pictureBox4 = New System.Windows.Forms.PictureBox()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.ListViewAdd_True = New System.Windows.Forms.CheckBox()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Label1 = New System.Windows.Forms.Label()
@ -41,6 +43,7 @@ Partial Class einstellungen
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
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.SoftSubs = New System.Windows.Forms.GroupBox()
@ -73,7 +76,6 @@ Partial Class einstellungen
Me.comboBox4 = New System.Windows.Forms.ComboBox()
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
Me.comboBox3 = New System.Windows.Forms.ComboBox()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.GB_Sub_Path.SuspendLayout()
Me.DL_Count_simultaneous.SuspendLayout()
CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -81,6 +83,7 @@ Partial Class einstellungen
CType(Me.pictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.GroupBox5.SuspendLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.GroupBox4.SuspendLayout()
@ -104,9 +107,9 @@ Partial Class einstellungen
Me.GB_Sub_Path.Controls.Add(Me.RBAnime)
Me.GB_Sub_Path.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GB_Sub_Path.ForeColor = System.Drawing.Color.Black
Me.GB_Sub_Path.Location = New System.Drawing.Point(6, 85)
Me.GB_Sub_Path.Location = New System.Drawing.Point(205, 85)
Me.GB_Sub_Path.Name = "GB_Sub_Path"
Me.GB_Sub_Path.Size = New System.Drawing.Size(456, 51)
Me.GB_Sub_Path.Size = New System.Drawing.Size(257, 77)
Me.GB_Sub_Path.TabIndex = 3
Me.GB_Sub_Path.TabStop = False
Me.GB_Sub_Path.Text = "Unterordner "
@ -116,7 +119,7 @@ Partial Class einstellungen
Me.RBStaffel.AutoSize = True
Me.RBStaffel.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.RBStaffel.ForeColor = System.Drawing.Color.Black
Me.RBStaffel.Location = New System.Drawing.Point(251, 21)
Me.RBStaffel.Location = New System.Drawing.Point(27, 49)
Me.RBStaffel.Name = "RBStaffel"
Me.RBStaffel.Size = New System.Drawing.Size(174, 22)
Me.RBStaffel.TabIndex = 1
@ -130,7 +133,7 @@ Partial Class einstellungen
Me.RBAnime.AutoSize = True
Me.RBAnime.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.RBAnime.ForeColor = System.Drawing.Color.Black
Me.RBAnime.Location = New System.Drawing.Point(30, 21)
Me.RBAnime.Location = New System.Drawing.Point(27, 21)
Me.RBAnime.Name = "RBAnime"
Me.RBAnime.Size = New System.Drawing.Size(113, 22)
Me.RBAnime.TabIndex = 1
@ -199,6 +202,7 @@ Partial Class einstellungen
'TabPage1
'
Me.TabPage1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
Me.TabPage1.Controls.Add(Me.GroupBox5)
Me.TabPage1.Controls.Add(Me.PictureBox6)
Me.TabPage1.Controls.Add(Me.GroupBox1)
Me.TabPage1.Controls.Add(Me.GroupBox4)
@ -211,11 +215,34 @@ Partial Class einstellungen
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Settings"
'
'GroupBox5
'
Me.GroupBox5.BackColor = System.Drawing.Color.Transparent
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.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(444, 55)
Me.GroupBox5.TabIndex = 7
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "Multi-Download"
'
'ListViewAdd_True
'
Me.ListViewAdd_True.AutoSize = True
Me.ListViewAdd_True.Location = New System.Drawing.Point(104, 21)
Me.ListViewAdd_True.Name = "ListViewAdd_True"
Me.ListViewAdd_True.Size = New System.Drawing.Size(236, 20)
Me.ListViewAdd_True.TabIndex = 0
Me.ListViewAdd_True.Text = "redirect multi-download to the queue"
Me.ListViewAdd_True.UseVisualStyleBackColor = True
'
'PictureBox6
'
Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox6.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_credits_default
Me.PictureBox6.Location = New System.Drawing.Point(195, 359)
Me.PictureBox6.Location = New System.Drawing.Point(195, 373)
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(76, 39)
Me.PictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
@ -230,9 +257,9 @@ Partial Class einstellungen
Me.GroupBox1.Controls.Add(Me.Firefox_True)
Me.GroupBox1.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox1.ForeColor = System.Drawing.Color.Black
Me.GroupBox1.Location = New System.Drawing.Point(6, 215)
Me.GroupBox1.Location = New System.Drawing.Point(6, 168)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(456, 138)
Me.GroupBox1.Size = New System.Drawing.Size(456, 127)
Me.GroupBox1.TabIndex = 7
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Browser Settings"
@ -248,7 +275,7 @@ Partial Class einstellungen
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(6, 57)
Me.TextBox1.Location = New System.Drawing.Point(6, 54)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(444, 22)
Me.TextBox1.TabIndex = 1
@ -260,7 +287,7 @@ Partial Class einstellungen
Me.Firefox_True.AutoSize = True
Me.Firefox_True.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Firefox_True.ForeColor = System.Drawing.Color.Black
Me.Firefox_True.Location = New System.Drawing.Point(141, 99)
Me.Firefox_True.Location = New System.Drawing.Point(148, 92)
Me.Firefox_True.Name = "Firefox_True"
Me.Firefox_True.Size = New System.Drawing.Size(166, 20)
Me.Firefox_True.TabIndex = 0
@ -273,9 +300,9 @@ Partial Class einstellungen
Me.GroupBox4.Controls.Add(Me.PictureBox2)
Me.GroupBox4.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox4.ForeColor = System.Drawing.Color.Black
Me.GroupBox4.Location = New System.Drawing.Point(6, 142)
Me.GroupBox4.Location = New System.Drawing.Point(6, 85)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(456, 67)
Me.GroupBox4.Size = New System.Drawing.Size(193, 77)
Me.GroupBox4.TabIndex = 6
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Crunchyroll US"
@ -284,7 +311,7 @@ Partial Class einstellungen
'
Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox2.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setUScookie_button
Me.PictureBox2.Location = New System.Drawing.Point(154, 21)
Me.PictureBox2.Location = New System.Drawing.Point(20, 21)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(150, 30)
Me.PictureBox2.TabIndex = 4
@ -305,6 +332,17 @@ Partial Class einstellungen
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Output Settings"
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox1.Location = New System.Drawing.Point(67, 326)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(351, 20)
Me.CheckBox1.TabIndex = 6
Me.CheckBox1.Text = "i know that re-encoding the video takes time and power"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'GroupBox2
'
Me.GroupBox2.BackColor = System.Drawing.Color.Transparent
@ -721,17 +759,6 @@ Partial Class einstellungen
Me.comboBox3.Size = New System.Drawing.Size(441, 23)
Me.comboBox3.TabIndex = 1
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox1.Location = New System.Drawing.Point(67, 326)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(351, 20)
Me.CheckBox1.TabIndex = 6
Me.CheckBox1.Text = "i know that re-encoding the video takes time and power"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'einstellungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -755,6 +782,8 @@ Partial Class einstellungen
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout()
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox5.PerformLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
@ -829,4 +858,6 @@ Partial Class einstellungen
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
End Class

View File

@ -117,6 +117,11 @@ Public Class einstellungen
'MsgBox(Resu)
Catch ex As Exception
End Try
Try
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
ListViewAdd_True.Checked = CBool(Integer.Parse(rkg.GetValue("QueueMode").ToString))
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles pictureBox4.Click
@ -221,6 +226,14 @@ Public Class einstellungen
rk.SetValue("NoUse", 0, RegistryValueKind.String)
End If
If ListViewAdd_True.Checked = True Then
rk.SetValue("QueueMode", 1, RegistryValueKind.String)
ElseIf ListViewAdd_True.Checked = False Then
rk.SetValue("QueueMode", 0, RegistryValueKind.String)
Main.UseQueue = False
End If
#Region "sof subs"
Main.SoftSubs.Clear()
If CBdeDE.Checked = True Then
@ -501,8 +514,5 @@ Public Class einstellungen
#End Region
End Class