mirror of
https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git
synced 2024-12-23 22:51:48 +01:00
queue mode
- multi download can be redirected to the listview queue
This commit is contained in:
hama3254
parent
b066519f16
commit
b9458254b3
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
49
Crunchyroll Downloader/Debug_Mode.Designer.vb
generated
49
Crunchyroll Downloader/Debug_Mode.Designer.vb
generated
@ -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
|
||||
|
||||
@ -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
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
Grapp_RDY = False
|
||||
b = False
|
||||
GeckoFX.WebBrowser1.Navigate("https://www.crunchyroll.com" + URLGrapp2(0))
|
||||
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,97 +1818,63 @@ 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 ZeitAnzeige As String = Nothing
|
||||
' Dim StreamNR As String = Nothing
|
||||
' Dim x As Boolean = False
|
||||
' Do
|
||||
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
|
||||
''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
|
||||
' 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
|
||||
|
||||
' 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
|
||||
' 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
|
||||
' 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
|
||||
' 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
|
||||
'Return ZeitAnzeige + "#1" + StreamNR
|
||||
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)
|
||||
|
||||
@ -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("")>
|
||||
|
||||
Binary file not shown.
Binary file not shown.
79
Crunchyroll Downloader/einstellungen.Designer.vb
generated
79
Crunchyroll Downloader/einstellungen.Designer.vb
generated
@ -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
|
||||
|
||||
@ -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
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue
Block a user