Mirrors/Crunchyroll-Downloader-v3.0
2
0
Fork 0
mirror of https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git synced 2025-01-11 15:59:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

queue mode

Browse Source 
- 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/Crunchyroll Downloader/v15/.suo
View File

Binary file not shown.

BIN
.vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide
View File

Binary file not shown.

BIN
.vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide-shm
View File

Binary file not shown.

BIN
.vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide-wal
View File

Binary file not shown.

49
Crunchyroll Downloader/Debug_Mode.Designer.vb generated
View File

@ -25,6 +25,10 @@ Partial Class Debug_Mode
Me.ComboBox1 = New System.Windows.Forms.ComboBox() Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox() Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.ComboBox2 = New System.Windows.Forms.ComboBox() 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() Me.SuspendLayout()
' '
'ComboBox1 'ComboBox1
@ -54,11 +58,50 @@ Partial Class Debug_Mode
Me.ComboBox2.Size = New System.Drawing.Size(414, 21) Me.ComboBox2.Size = New System.Drawing.Size(414, 21)
Me.ComboBox2.TabIndex = 4 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 'Debug_Mode
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(537, 750) 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.ComboBox2)
Me.Controls.Add(Me.RichTextBox1) Me.Controls.Add(Me.RichTextBox1)
Me.Controls.Add(Me.ComboBox1) Me.Controls.Add(Me.ComboBox1)
@ -71,6 +114,10 @@ Partial Class Debug_Mode
End Sub End Sub
Friend WithEvents ComboBox1 As ComboBox Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents RichTextBox1 As RichTextBox
Friend WithEvents ComboBox2 As ComboBox 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 End Class

39
Crunchyroll Downloader/Debug_Mode.vb
View File

@ -42,7 +42,44 @@
End If End If
End Sub 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 Sub
End Class End Class

14
Crunchyroll Downloader/GeckoFX.vb
View File

@ -339,7 +339,9 @@ Public Class GeckoFX
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try Try
Main.m3u8List.Clear()
Main.mpdList.Clear()
Main.txtList.Clear()
Button2.Enabled = False Button2.Enabled = False
ScanTrue = True ScanTrue = True
GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt" GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt"
@ -434,6 +436,7 @@ Public Class GeckoFX
Main.NonCR_URL = "https://" + URLPart1(1) + URLPart2Split2(0) Main.NonCR_URL = "https://" + URLPart1(1) + URLPart2Split2(0)
'MsgBox(Main.NonCR_URL) 'MsgBox(Main.NonCR_URL)
'RichTextBox1.Text = RichTextBox1.Text + vbNewLine + URL_Final 'RichTextBox1.Text = RichTextBox1.Text + vbNewLine + URL_Final
Main.FFMPEG_Reso(Main.NonCR_URL)
t = New Thread(AddressOf Main.Grapp_non_CR) t = New Thread(AddressOf Main.Grapp_non_CR)
t.Priority = ThreadPriority.Normal t.Priority = ThreadPriority.Normal
t.IsBackground = True t.IsBackground = True
@ -458,6 +461,7 @@ Public Class GeckoFX
Main.NonCR_URL = "https://" + URLPart1(1) + URLPart2Split2(0) Main.NonCR_URL = "https://" + URLPart1(1) + URLPart2Split2(0)
'MsgBox(Main.NonCR_URL) 'MsgBox(Main.NonCR_URL)
'RichTextBox1.Text = RichTextBox1.Text + vbNewLine + URL_Final 'RichTextBox1.Text = RichTextBox1.Text + vbNewLine + URL_Final
Main.FFMPEG_Reso(Main.NonCR_URL)
t = New Thread(AddressOf Main.Grapp_non_CR) t = New Thread(AddressOf Main.Grapp_non_CR)
t.Priority = ThreadPriority.Normal t.Priority = ThreadPriority.Normal
t.IsBackground = True t.IsBackground = True
@ -482,4 +486,12 @@ Public Class GeckoFX
Debug_Mode.Location = New Point(Me.Location.X + Me.Width - 15, Me.Location.Y) Debug_Mode.Location = New Point(Me.Location.X + Me.Width - 15, Me.Location.Y)
End If End If
End Sub 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 End Class

194
Crunchyroll Downloader/Main.vb
View File

@ -4,9 +4,13 @@ Imports System.IO
Imports Microsoft.Win32 Imports Microsoft.Win32
Imports System.ComponentModel Imports System.ComponentModel
Public Class Main Public Class Main
Public UseQueue As Boolean = False
Public m3u8List As New List(Of String) Public m3u8List As New List(Of String)
Public txtList As New List(Of String) Public txtList As New List(Of String)
Public mpdList 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 Debug1 As Boolean = False
Public Debug2 As Boolean = False Public Debug2 As Boolean = False
Public LoggingBrowser As Boolean = False Public LoggingBrowser As Boolean = False
@ -182,7 +186,12 @@ Public Class Main
StatusToolTip.Active = True StatusToolTip.Active = True
#End Region #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 Try
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
@ -521,9 +530,17 @@ Public Class Main
If Debug2 = True Then If Debug2 = True Then
MsgBox("https://www.crunchyroll.com" + URLGrapp2(0)) MsgBox("https://www.crunchyroll.com" + URLGrapp2(0))
End If End If
Grapp_RDY = False If UseQueue = True Then
b = False Anime_Add.ListBox1.Items.Add("https://www.crunchyroll.com" + URLGrapp2(0))
GeckoFX.WebBrowser1.Navigate("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 Aktuell = d.ToString
Anime_Add.Add_Display.Text = Aktuell + " / " + Gesamt Anime_Add.Add_Display.Text = Aktuell + " / " + Gesamt
@ -1493,7 +1510,11 @@ Public Class Main
cmd = DL_URL + " " + DL_Pfad cmd = DL_URL + " " + DL_Pfad
End If End If
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 If Debug2 = True Then
MsgBox(cmd) MsgBox(cmd)
End If End If
@ -1797,97 +1818,63 @@ Public Class Main
' Return url ' Return url
' End Try ' End Try
'End Function '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 cmd As String = "-i " + Chr(34) + DL_URL + Chr(34) 'start ffmpeg with command strFFCMD string
' Dim proc As New Process Dim ffmpegOutput As String = Nothing
' Dim exepath As String = Application.StartupPath + "\ffmpeg.exe" Dim ffmpegOutput2 As String = Nothing
' Dim startinfo As New System.Diagnostics.ProcessStartInfo 'all parameters required to run the process
' Dim sr As StreamReader startinfo.FileName = exepath
' ' 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 startinfo.Arguments = cmd
' '-bsf:a aac_adtstoasc startinfo.UseShellExecute = False
' Dim cmd As String = "-i " + Chr(34) + DL_URL + Chr(34) 'start ffmpeg with command strFFCMD string startinfo.WindowStyle = ProcessWindowStyle.Hidden
' 'MsgBox(cmd) startinfo.RedirectStandardError = True
' '22050 startinfo.RedirectStandardOutput = True
' ' startinfo.CreateNoWindow = True
' Dim ffmpegOutput As String = Nothing AddHandler proc.ErrorDataReceived, AddressOf FFMPEGResoBack
' Dim ffmpegOutput2 As String = Nothing AddHandler proc.OutputDataReceived, AddressOf FFMPEGResoBack
' 'all parameters required to run the process proc.StartInfo = startinfo
' startinfo.FileName = exepath proc.Start() ' start the process
' startinfo.Arguments = cmd proc.BeginOutputReadLine()
' startinfo.UseShellExecute = False proc.BeginErrorReadLine()
' startinfo.WindowStyle = ProcessWindowStyle.Hidden 'Dim ZeitAnzeige As String = Nothing
' startinfo.RedirectStandardError = True 'Dim StreamNR As String = Nothing
' startinfo.RedirectStandardOutput = True ''Math.Abs()
' startinfo.CreateNoWindow = True 'Dim AllReso As String = "1080p720p480p360p"
' proc.StartInfo = startinfo 'Dim AllResoArry() As String = AllReso.Split(New String() {"p"}, System.StringSplitOptions.RemoveEmptyEntries)
' proc.Start() ' start the process 'Dim Zeilen() As String = ffmpegOutput.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
' sr = proc.StandardError 'standard error is used by ffmpeg 'For i As Integer = 0 To Zeilen.Count - 1
' Dim ZeitAnzeige As String = Nothing ' If InStr(Zeilen(i), "x" + Resu.ToString + " [") Then
' Dim StreamNR As String = Nothing ' Dim ZeileReso() As String = Zeilen(i).Split(New String() {": Video:"}, System.StringSplitOptions.RemoveEmptyEntries)
' Dim x As Boolean = False ' Dim ZeileReso2() As String = ZeileReso(0).Split(New String() {"Stream #"}, System.StringSplitOptions.RemoveEmptyEntries)
' Do ' StreamNR = ZeileReso2(1)
' End If
'Next
' ffmpegOutput = ffmpegOutput + vbNewLine + sr.ReadLine 'Return ZeitAnzeige + "#1" + StreamNR
' ffmpegOutput2 = sr.ReadLine End Sub
' 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
#End Region #End Region
Public Sub Grapp_non_CR() Public Sub Grapp_non_CR()
@ -1898,6 +1885,16 @@ Public Class Main
Return Nothing Return Nothing
End Function)) End Function))
Grapp_non_cr_RDY = False 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", "") Dim Video_Title As String = WebbrowserTitle.Replace(" - Watch on VRV", "").Replace("Free Streaming", "").Replace("Tubi", "")
Video_Title = RemoveExtraSpaces(Video_Title) Video_Title = RemoveExtraSpaces(Video_Title)
#Region "Name + Pfad" #Region "Name + Pfad"
@ -1954,6 +1951,19 @@ Public Class Main
#Region "<li> constructor" #Region "<li> constructor"
Dim Subsprache3 As String = "undefined" 'HardSubValuesToDisplay(SubSprache2) Dim Subsprache3 As String = "undefined" 'HardSubValuesToDisplay(SubSprache2)
Dim ResoHTMLDisplay As String = "[Auto]" 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 L2Name As String = Video_Title
Dim L1Name_Split As String() = WebbrowserURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries) Dim L1Name_Split As String() = WebbrowserURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim L1Name As String = L1Name_Split(1) Dim L1Name As String = L1Name_Split(1)

4
Crunchyroll Downloader/My Project/AssemblyInfo.vb
View File

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

BIN
Crunchyroll Downloader/bin/x86/Debug/Crunchyroll Downloader.exe
View File

Binary file not shown.

BIN
Crunchyroll Downloader/bin/x86/Debug/Crunchyroll Downloader.pdb
View File

Binary file not shown.

79
Crunchyroll Downloader/einstellungen.Designer.vb generated
View File

@ -33,6 +33,8 @@ Partial Class einstellungen
Me.pictureBox4 = New System.Windows.Forms.PictureBox() Me.pictureBox4 = New System.Windows.Forms.PictureBox()
Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() 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.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
@ -41,6 +43,7 @@ Partial Class einstellungen
Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox() Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.TabPage2 = New System.Windows.Forms.TabPage() Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.FFMPEG_Command = New System.Windows.Forms.ComboBox() Me.FFMPEG_Command = New System.Windows.Forms.ComboBox()
Me.SoftSubs = New System.Windows.Forms.GroupBox() Me.SoftSubs = New System.Windows.Forms.GroupBox()
@ -73,7 +76,6 @@ Partial Class einstellungen
Me.comboBox4 = New System.Windows.Forms.ComboBox() Me.comboBox4 = New System.Windows.Forms.ComboBox()
Me.ComboBox2 = New System.Windows.Forms.ComboBox() Me.ComboBox2 = New System.Windows.Forms.ComboBox()
Me.comboBox3 = 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.GB_Sub_Path.SuspendLayout()
Me.DL_Count_simultaneous.SuspendLayout() Me.DL_Count_simultaneous.SuspendLayout()
CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -81,6 +83,7 @@ Partial Class einstellungen
CType(Me.pictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabControl1.SuspendLayout() Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
Me.GroupBox5.SuspendLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
Me.GroupBox4.SuspendLayout() Me.GroupBox4.SuspendLayout()
@ -104,9 +107,9 @@ Partial Class einstellungen
Me.GB_Sub_Path.Controls.Add(Me.RBAnime) Me.GB_Sub_Path.Controls.Add(Me.RBAnime)
Me.GB_Sub_Path.Font = New System.Drawing.Font("Arial", 9.75!) 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.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.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.TabIndex = 3
Me.GB_Sub_Path.TabStop = False Me.GB_Sub_Path.TabStop = False
Me.GB_Sub_Path.Text = "Unterordner " Me.GB_Sub_Path.Text = "Unterordner "
@ -116,7 +119,7 @@ Partial Class einstellungen
Me.RBStaffel.AutoSize = True 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.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.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.Name = "RBStaffel"
Me.RBStaffel.Size = New System.Drawing.Size(174, 22) Me.RBStaffel.Size = New System.Drawing.Size(174, 22)
Me.RBStaffel.TabIndex = 1 Me.RBStaffel.TabIndex = 1
@ -130,7 +133,7 @@ Partial Class einstellungen
Me.RBAnime.AutoSize = True 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.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.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.Name = "RBAnime"
Me.RBAnime.Size = New System.Drawing.Size(113, 22) Me.RBAnime.Size = New System.Drawing.Size(113, 22)
Me.RBAnime.TabIndex = 1 Me.RBAnime.TabIndex = 1
@ -199,6 +202,7 @@ Partial Class einstellungen
'TabPage1 '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.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.PictureBox6)
Me.TabPage1.Controls.Add(Me.GroupBox1) Me.TabPage1.Controls.Add(Me.GroupBox1)
Me.TabPage1.Controls.Add(Me.GroupBox4) Me.TabPage1.Controls.Add(Me.GroupBox4)
@ -211,11 +215,34 @@ Partial Class einstellungen
Me.TabPage1.TabIndex = 0 Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Settings" 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 'PictureBox6
' '
Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox6.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_credits_default 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.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(76, 39) Me.PictureBox6.Size = New System.Drawing.Size(76, 39)
Me.PictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize Me.PictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
@ -230,9 +257,9 @@ Partial Class einstellungen
Me.GroupBox1.Controls.Add(Me.Firefox_True) Me.GroupBox1.Controls.Add(Me.Firefox_True)
Me.GroupBox1.Font = New System.Drawing.Font("Arial", 9.75!) Me.GroupBox1.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox1.ForeColor = System.Drawing.Color.Black 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.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.TabIndex = 7
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Browser Settings" Me.GroupBox1.Text = "Browser Settings"
@ -248,7 +275,7 @@ Partial Class einstellungen
' '
'TextBox1 '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.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(444, 22) Me.TextBox1.Size = New System.Drawing.Size(444, 22)
Me.TextBox1.TabIndex = 1 Me.TextBox1.TabIndex = 1
@ -260,7 +287,7 @@ Partial Class einstellungen
Me.Firefox_True.AutoSize = True 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.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.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.Name = "Firefox_True"
Me.Firefox_True.Size = New System.Drawing.Size(166, 20) Me.Firefox_True.Size = New System.Drawing.Size(166, 20)
Me.Firefox_True.TabIndex = 0 Me.Firefox_True.TabIndex = 0
@ -273,9 +300,9 @@ Partial Class einstellungen
Me.GroupBox4.Controls.Add(Me.PictureBox2) Me.GroupBox4.Controls.Add(Me.PictureBox2)
Me.GroupBox4.Font = New System.Drawing.Font("Arial", 9.75!) Me.GroupBox4.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox4.ForeColor = System.Drawing.Color.Black 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.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.TabIndex = 6
Me.GroupBox4.TabStop = False Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Crunchyroll US" Me.GroupBox4.Text = "Crunchyroll US"
@ -284,7 +311,7 @@ Partial Class einstellungen
' '
Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox2.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setUScookie_button 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.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(150, 30) Me.PictureBox2.Size = New System.Drawing.Size(150, 30)
Me.PictureBox2.TabIndex = 4 Me.PictureBox2.TabIndex = 4
@ -305,6 +332,17 @@ Partial Class einstellungen
Me.TabPage2.TabIndex = 1 Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Output Settings" 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 'GroupBox2
' '
Me.GroupBox2.BackColor = System.Drawing.Color.Transparent 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.Size = New System.Drawing.Size(441, 23)
Me.comboBox3.TabIndex = 1 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 'einstellungen
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -755,6 +782,8 @@ Partial Class einstellungen
Me.TabControl1.ResumeLayout(False) Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout() Me.TabPage1.PerformLayout()
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox5.PerformLayout()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout() Me.GroupBox1.PerformLayout()
@ -829,4 +858,6 @@ Partial Class einstellungen
Friend WithEvents GroupBox2 As GroupBox Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents FFMPEG_Command As ComboBox Friend WithEvents FFMPEG_Command As ComboBox
Friend WithEvents CheckBox1 As CheckBox Friend WithEvents CheckBox1 As CheckBox
Friend WithEvents GroupBox5 As GroupBox
Friend WithEvents ListViewAdd_True As CheckBox
End Class End Class

16
Crunchyroll Downloader/einstellungen.vb
View File

@ -117,6 +117,11 @@ Public Class einstellungen
'MsgBox(Resu) 'MsgBox(Resu)
Catch ex As Exception Catch ex As Exception
End Try 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 End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles pictureBox4.Click 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) rk.SetValue("NoUse", 0, RegistryValueKind.String)
End If 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" #Region "sof subs"
Main.SoftSubs.Clear() Main.SoftSubs.Clear()
If CBdeDE.Checked = True Then If CBdeDE.Checked = True Then
@ -501,8 +514,5 @@ Public Class einstellungen
#End Region #End Region
End Class End Class

BIN
Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.exe
View File

Binary file not shown.

BIN
Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.pdb
View File

Binary file not shown.

BIN
Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.vbproj.GenerateResource.cache
View File

Binary file not shown.

BIN
Crunchyroll Downloader/obj/x86/Debug/DesignTimeResolveAssemblyReferencesInput.cache
View File

Binary file not shown.