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

funimation bitrate selection

Browse Source 
added funimation bitrate selection
This commit is contained in:
hama3254 2021-12-31 14:21:19 +01:00
parent a5281c311a
commit ae052df422
18 changed files with 361 additions and 296 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.

150
Crunchyroll Downloader/Main.vb
View File

@ -126,6 +126,7 @@ Public Class Main
Public UserBowser As Boolean = False
Public HybridMode As Boolean = False
Public HardSubFunimation As String = "Disabled"
Public Funimation_Bitrate As Integer = 0
Public DubFunimation As String = "Disabled"
Public Funimation_srt As Boolean = False
Public Funimation_vtt As Boolean = False
@ -333,7 +334,7 @@ Public Class Main
End If
For i As Integer = 0 To LeadingZero + 1
If txt.Count = LeadingZero + 1 Then
If txt.Count = LeadingZero + 1 Or txt.Count > LeadingZero + 1 Then
Exit For
Else
txt = "0" + txt
@ -493,6 +494,14 @@ Public Class Main
'MsgBox(Resu)
Catch ex As Exception
End Try
Try
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
Funimation_Bitrate = Integer.Parse(rkg.GetValue("Funimation_Bitrate").ToString)
'MsgBox(Resu)
Catch ex As Exception
End Try
Try
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
SubSprache = rkg.GetValue("Sub").ToString
@ -3694,7 +3703,7 @@ Public Class Main
Catch ex As Exception
Debug.WriteLine(ex.ToString)
Pause(2)
Debug.WriteLine("showexperience data via browser")
Debug.WriteLine("showexperience 2nd try")
'Me.Invoke(New Action(Function() As Object
'PlayerClient.Headers.Add(HttpRequestHeader.AcceptEncoding, "gzip")
'EpisodeJsonString = DecompressString(PlayerClient.DownloadData(BaseUrl + FunimationEpisodeJson + FunimationDeviceRegion))
@ -3851,84 +3860,83 @@ Public Class Main
Dim FunimationAudio3() As String = FunimationAudio2(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
FunimationAudioMap = " -headers " + My.Resources.ffmpeg_user_agend + " -i " + Chr(34) + FunimationAudio3(0) + Chr(34)
End If
Dim Streams() As String = str1.Split(New String() {"RESOLUTION="}, System.StringSplitOptions.RemoveEmptyEntries)
'MsgBox(Funimation_m3u8_Main)
Dim str2() As String = str1.Split(New String() {"# keyframes"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim Streams() As String = str2(0).Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries)
Dim FunimationBackupm3u8 As String = Nothing
Dim Tartegt_m3u8_list As New List(Of String)
Dim Secondary_m3u8_list As New List(Of String)
For i As Integer = 0 To Streams.Length - 1
Try
If CBool(InStr(Streams(i), "x" + Reso.ToString)) Then
Dim Streams2() As String = Streams(i).Split(New String() {"https://"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim Streams3() As String = Streams2(1).Split(New String() {"#EXT-"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim StreamURL As String = "https://" + Streams3(0).Trim
Dim CheckClient As New WebClient
CheckClient.Encoding = Encoding.UTF8
If Not WebbrowserCookie = Nothing Then
CheckClient.Headers.Add(HttpRequestHeader.Cookie, WebbrowserCookie)
ElseIf Not SystemWebBrowserCookie = Nothing Then
CheckClient.Headers.Add(HttpRequestHeader.Cookie, SystemWebBrowserCookie)
End If
Dim m3u8String As String = CheckClient.DownloadString(StreamURL)
'MsgBox(m3u8String)
Dim keyfileurl() As String = m3u8String.Split(New String() {"URI=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim keyfileurl2() As String = keyfileurl(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim keyfileurl3 As String = keyfileurl2(0)
If CBool(InStr(keyfileurl2(0), "https://")) Then
Else
Dim c() As String = New Uri(StreamURL).Segments
Dim path As String = "https://" + New Uri(StreamURL).Host
For i3 As Integer = 0 To c.Count - 2
path = path + c(i3)
Next
keyfileurl3 = path + keyfileurl2(0) 'New Uri(textLenght(i)).LocalPath + keyfileurl2(0)
End If
'MsgBox(keyfileurl3)
Try
Dim CheckClient2 As New WebClient
CheckClient2.Encoding = System.Text.Encoding.UTF8
Dim testdl As String = CheckClient2.DownloadString(keyfileurl3)
Funimation_m3u8_final = StreamURL
FunimationBackupm3u8 = StreamURL
Exit For
Catch ex As Exception
Debug.WriteLine(keyfileurl3 + vbNewLine + vbNewLine + ex.ToString)
End Try
Tartegt_m3u8_list.Add(Streams(i) + vbCrLf + Streams(i + 1))
FunimationBackupm3u8 = Streams(i + 1)
ElseIf CBool(InStr(Streams(i), ResoFunBackup)) And FunimationBackupm3u8 = Nothing Then
Dim Streams2() As String = Streams(i).Split(New String() {"https://"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim Streams3() As String = Streams2(1).Split(New String() {"#EXT-"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim StreamURL As String = "https://" + Streams3(0).Trim
Dim CheckClient As New WebClient
CheckClient.Encoding = Encoding.UTF8
If Not WebbrowserCookie = Nothing Then
CheckClient.Headers.Add(HttpRequestHeader.Cookie, WebbrowserCookie)
ElseIf Not SystemWebBrowserCookie = Nothing Then
CheckClient.Headers.Add(HttpRequestHeader.Cookie, SystemWebBrowserCookie)
Secondary_m3u8_list.Add(Streams(i) + vbCrLf + Streams(i + 1))
FunimationBackupm3u8 = Streams(i + 1)
End If
Dim m3u8String As String = CheckClient.DownloadString(StreamURL)
Dim keyfileurl() As String = m3u8String.Split(New String() {"URI=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim keyfileurl2() As String = keyfileurl(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim keyfileurl3 As String = keyfileurl2(0)
If CBool(InStr(keyfileurl2(0), "https://")) Then
Next
If Tartegt_m3u8_list.Count = 0 And Secondary_m3u8_list.Count > 0 Then
Tartegt_m3u8_list = Secondary_m3u8_list
End If
If Tartegt_m3u8_list.Count > 1 Then
Dim HigestBitrate As Integer = 0
For i2 As Integer = 0 To Tartegt_m3u8_list.Count - 1
Dim Bandwidth_String As String = Nothing
If CBool(InStr(Tartegt_m3u8_list.Item(i2), "AVERAGE-BANDWIDTH=")) = True Then
Bandwidth_String = "AVERAGE-BANDWIDTH="
ElseIf CBool(InStr(Tartegt_m3u8_list.Item(i2), "BANDWIDTH=")) = True Then
Bandwidth_String = "BANDWIDTH="
Else
Dim c() As String = New Uri(StreamURL).Segments
Dim path As String = "https://" + New Uri(StreamURL).Host
For i3 As Integer = 0 To c.Count - 2
path = path + c(i3)
Next
keyfileurl3 = path + keyfileurl2(0) 'New Uri(textLenght(i)).LocalPath + keyfileurl2(0)
Continue For
End If
Dim BitRate() As String = Tartegt_m3u8_list.Item(i2).Split(New String() {Bandwidth_String}, System.StringSplitOptions.RemoveEmptyEntries)
Dim BitRate2() As String = BitRate(1).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries)
If Funimation_Bitrate = 0 Then
If CInt(BitRate2(0)) > HigestBitrate Then
HigestBitrate = CInt(BitRate2(0))
End If
Else
If HigestBitrate > CInt(BitRate2(0)) Then
HigestBitrate = CInt(BitRate2(0))
ElseIf HigestBitrate = 0 Then
HigestBitrate = CInt(BitRate2(0))
End If
'MsgBox(keyfileurl3)
Try
Dim CheckClient2 As New WebClient
CheckClient2.Encoding = System.Text.Encoding.UTF8
Dim testdl As String = CheckClient2.DownloadString(keyfileurl3)
FunimationBackupm3u8 = StreamURL
Catch ex As Exception
Debug.WriteLine(keyfileurl3 + vbNewLine + vbNewLine + ex.ToString)
End Try
End If
Catch ex As Exception
End Try
Next
For i2 As Integer = 0 To Tartegt_m3u8_list.Count - 1
If CBool(InStr(Tartegt_m3u8_list.Item(i2), HigestBitrate.ToString)) = True Then
Dim new_m3u8_2() As String = Tartegt_m3u8_list.Item(i2).Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries)
Funimation_m3u8_final = new_m3u8_2(1)
FunimationBackupm3u8 = new_m3u8_2(1)
End If
Next
ElseIf Tartegt_m3u8_list.Count = 1 Then
Dim new_m3u8_2() As String = Tartegt_m3u8_list.Item(0).Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries)
Funimation_m3u8_final = new_m3u8_2(1)
FunimationBackupm3u8 = new_m3u8_2(1)
End If
If Funimation_m3u8_final = Nothing And FunimationBackupm3u8 = Nothing Then
Me.Invoke(New Action(Function() As Object
Me.Text = "Status: Resolution not found!"

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

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

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

Binary file not shown.

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

Binary file not shown.

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

@ -45,6 +45,7 @@ Partial Class Einstellungen
Me.KodiSupport = New MetroFramework.Controls.MetroToggle()
Me.MetroLink1 = New MetroFramework.Controls.MetroLink()
Me.GroupBox12 = New System.Windows.Forms.GroupBox()
Me.LeadingZeroDD = New MetroFramework.Controls.MetroComboBox()
Me.IgnoreS1 = New MetroFramework.Controls.MetroCheckBox()
Me.DD_Episode_Prefix = New MetroFramework.Controls.MetroComboBox()
Me.DD_Season_Prefix = New MetroFramework.Controls.MetroComboBox()
@ -111,19 +112,20 @@ Partial Class Einstellungen
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.CB_SoftSubSettings = New MetroFramework.Controls.MetroComboBox()
Me.TabPage6 = New MetroFramework.Controls.MetroTabPage()
Me.GroupBox13 = New System.Windows.Forms.GroupBox()
Me.FunSubDef = New MetroFramework.Controls.MetroComboBox()
Me.GroupBox11 = New System.Windows.Forms.GroupBox()
Me.CB_srt = New MetroFramework.Controls.MetroCheckBox()
Me.CB_vtt = New MetroFramework.Controls.MetroCheckBox()
Me.GroupBox8 = New System.Windows.Forms.GroupBox()
Me.CB_fun_eng = New MetroFramework.Controls.MetroCheckBox()
Me.CB_fun_es = New MetroFramework.Controls.MetroCheckBox()
Me.CB_fun_ptbr = New MetroFramework.Controls.MetroCheckBox()
Me.GroupBox10 = New System.Windows.Forms.GroupBox()
Me.Fun_Dub_Over = New MetroFramework.Controls.MetroComboBox()
Me.GroupBox7 = New System.Windows.Forms.GroupBox()
Me.CB_Fun_HardSubs = New MetroFramework.Controls.MetroComboBox()
Me.GroupBox9 = New System.Windows.Forms.GroupBox()
Me.CB_fun_eng = New MetroFramework.Controls.MetroCheckBox()
Me.CB_fun_es = New MetroFramework.Controls.MetroCheckBox()
Me.CB_fun_ptbr = New MetroFramework.Controls.MetroCheckBox()
Me.GroupBox13 = New System.Windows.Forms.GroupBox()
Me.FunSubDef = New MetroFramework.Controls.MetroComboBox()
Me.GroupBox11 = New System.Windows.Forms.GroupBox()
Me.CB_srt = New MetroFramework.Controls.MetroCheckBox()
Me.CB_vtt = New MetroFramework.Controls.MetroCheckBox()
Me.TabPage7 = New System.Windows.Forms.TabPage()
Me.LastVersion = New MetroFramework.Controls.MetroLabel()
Me.Label8 = New MetroFramework.Controls.MetroLabel()
@ -136,7 +138,8 @@ Partial Class Einstellungen
Me.Label5 = New MetroFramework.Controls.MetroLabel()
Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
Me.Btn_Save = New System.Windows.Forms.Button()
Me.LeadingZeroDD = New MetroFramework.Controls.MetroComboBox()
Me.GroupBox15 = New System.Windows.Forms.GroupBox()
Me.Bitrate_Funi = New MetroFramework.Controls.MetroComboBox()
CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox14.SuspendLayout()
Me.SoftSubs.SuspendLayout()
@ -160,13 +163,15 @@ Partial Class Einstellungen
Me.MetroTabPage1.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.TabPage6.SuspendLayout()
Me.GroupBox13.SuspendLayout()
Me.GroupBox11.SuspendLayout()
Me.GroupBox8.SuspendLayout()
Me.GroupBox10.SuspendLayout()
Me.GroupBox7.SuspendLayout()
Me.GroupBox9.SuspendLayout()
Me.GroupBox13.SuspendLayout()
Me.GroupBox11.SuspendLayout()
Me.TabPage7.SuspendLayout()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox15.SuspendLayout()
Me.SuspendLayout()
'
'ToolTip1
@ -448,6 +453,20 @@ Partial Class Einstellungen
Me.GroupBox12.TabStop = False
Me.GroupBox12.Text = "Filename"
'
'LeadingZeroDD
'
Me.LeadingZeroDD.DropDownHeight = 250
Me.LeadingZeroDD.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LeadingZeroDD.FormattingEnabled = True
Me.LeadingZeroDD.IntegralHeight = False
Me.LeadingZeroDD.ItemHeight = 23
Me.LeadingZeroDD.Items.AddRange(New Object() {"1", "01", "001", "0001"})
Me.LeadingZeroDD.Location = New System.Drawing.Point(6, 151)
Me.LeadingZeroDD.Name = "LeadingZeroDD"
Me.LeadingZeroDD.Size = New System.Drawing.Size(225, 29)
Me.LeadingZeroDD.TabIndex = 20
Me.LeadingZeroDD.UseSelectable = True
'
'IgnoreS1
'
Me.IgnoreS1.AutoSize = True
@ -1105,7 +1124,7 @@ Partial Class Einstellungen
Me.TabControl1.FontWeight = MetroFramework.MetroTabControlWeight.Regular
Me.TabControl1.Location = New System.Drawing.Point(22, 60)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 1
Me.TabControl1.SelectedIndex = 3
Me.TabControl1.Size = New System.Drawing.Size(509, 567)
Me.TabControl1.TabIndex = 0
Me.TabControl1.UseSelectable = True
@ -1119,9 +1138,9 @@ Partial Class Einstellungen
Me.MetroTabPage1.HorizontalScrollbarBarColor = True
Me.MetroTabPage1.HorizontalScrollbarHighlightOnWheel = False
Me.MetroTabPage1.HorizontalScrollbarSize = 10
Me.MetroTabPage1.Location = New System.Drawing.Point(4, 35)
Me.MetroTabPage1.Location = New System.Drawing.Point(4, 44)
Me.MetroTabPage1.Name = "MetroTabPage1"
Me.MetroTabPage1.Size = New System.Drawing.Size(501, 528)
Me.MetroTabPage1.Size = New System.Drawing.Size(501, 519)
Me.MetroTabPage1.TabIndex = 7
Me.MetroTabPage1.Text = "Crunchyroll"
Me.MetroTabPage1.VerticalScrollbarBarColor = True
@ -1159,18 +1178,17 @@ Partial Class Einstellungen
'TabPage6
'
Me.TabPage6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
Me.TabPage6.Controls.Add(Me.GroupBox13)
Me.TabPage6.Controls.Add(Me.GroupBox11)
Me.TabPage6.Controls.Add(Me.GroupBox15)
Me.TabPage6.Controls.Add(Me.GroupBox10)
Me.TabPage6.Controls.Add(Me.GroupBox7)
Me.TabPage6.Controls.Add(Me.GroupBox9)
Me.TabPage6.HorizontalScrollbarBarColor = True
Me.TabPage6.HorizontalScrollbarHighlightOnWheel = False
Me.TabPage6.HorizontalScrollbarSize = 10
Me.TabPage6.Location = New System.Drawing.Point(4, 35)
Me.TabPage6.Location = New System.Drawing.Point(4, 44)
Me.TabPage6.Name = "TabPage6"
Me.TabPage6.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage6.Size = New System.Drawing.Size(501, 528)
Me.TabPage6.Size = New System.Drawing.Size(501, 519)
Me.TabPage6.TabIndex = 4
Me.TabPage6.Text = "Funimation"
Me.TabPage6.VerticalScrollbarBarColor = True
@ -1178,18 +1196,139 @@ Partial Class Einstellungen
Me.TabPage6.VerticalScrollbarSize = 10
Me.TabPage6.Visible = False
'
'GroupBox8
'
Me.GroupBox8.BackColor = System.Drawing.Color.Transparent
Me.GroupBox8.Controls.Add(Me.CB_fun_eng)
Me.GroupBox8.Controls.Add(Me.CB_fun_es)
Me.GroupBox8.Controls.Add(Me.CB_fun_ptbr)
Me.GroupBox8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox8.Location = New System.Drawing.Point(10, 21)
Me.GroupBox8.Name = "GroupBox8"
Me.GroupBox8.Size = New System.Drawing.Size(474, 82)
Me.GroupBox8.TabIndex = 61
Me.GroupBox8.TabStop = False
Me.GroupBox8.Text = "Language"
'
'CB_fun_eng
'
Me.CB_fun_eng.AutoSize = True
Me.CB_fun_eng.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_fun_eng.ForeColor = System.Drawing.Color.Black
Me.CB_fun_eng.Location = New System.Drawing.Point(34, 35)
Me.CB_fun_eng.Name = "CB_fun_eng"
Me.CB_fun_eng.Size = New System.Drawing.Size(68, 19)
Me.CB_fun_eng.TabIndex = 33
Me.CB_fun_eng.Text = "English"
Me.CB_fun_eng.UseSelectable = True
'
'CB_fun_es
'
Me.CB_fun_es.AutoSize = True
Me.CB_fun_es.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_fun_es.ForeColor = System.Drawing.Color.Black
Me.CB_fun_es.Location = New System.Drawing.Point(148, 35)
Me.CB_fun_es.Name = "CB_fun_es"
Me.CB_fun_es.Size = New System.Drawing.Size(100, 19)
Me.CB_fun_es.TabIndex = 34
Me.CB_fun_es.Text = "Español (LA)"
Me.CB_fun_es.UseSelectable = True
'
'CB_fun_ptbr
'
Me.CB_fun_ptbr.AutoSize = True
Me.CB_fun_ptbr.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_fun_ptbr.ForeColor = System.Drawing.Color.Black
Me.CB_fun_ptbr.Location = New System.Drawing.Point(270, 35)
Me.CB_fun_ptbr.Name = "CB_fun_ptbr"
Me.CB_fun_ptbr.Size = New System.Drawing.Size(131, 19)
Me.CB_fun_ptbr.TabIndex = 35
Me.CB_fun_ptbr.Text = "Português (Brasil)"
Me.CB_fun_ptbr.UseSelectable = True
'
'GroupBox10
'
Me.GroupBox10.BackColor = System.Drawing.Color.Transparent
Me.GroupBox10.Controls.Add(Me.Fun_Dub_Over)
Me.GroupBox10.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox10.ForeColor = System.Drawing.Color.Black
Me.GroupBox10.Location = New System.Drawing.Point(0, 6)
Me.GroupBox10.Name = "GroupBox10"
Me.GroupBox10.Size = New System.Drawing.Size(490, 69)
Me.GroupBox10.TabIndex = 80
Me.GroupBox10.TabStop = False
Me.GroupBox10.Text = "Funimation Dub"
'
'Fun_Dub_Over
'
Me.Fun_Dub_Over.DropDownHeight = 250
Me.Fun_Dub_Over.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Fun_Dub_Over.FormattingEnabled = True
Me.Fun_Dub_Over.IntegralHeight = False
Me.Fun_Dub_Over.ItemHeight = 23
Me.Fun_Dub_Over.Items.AddRange(New Object() {"Disabled", "english", "japanese", "portuguese(Brazil)", "spanish(Mexico)"})
Me.Fun_Dub_Over.Location = New System.Drawing.Point(79, 30)
Me.Fun_Dub_Over.Name = "Fun_Dub_Over"
Me.Fun_Dub_Over.Size = New System.Drawing.Size(326, 29)
Me.Fun_Dub_Over.Sorted = True
Me.Fun_Dub_Over.TabIndex = 40
Me.Fun_Dub_Over.UseSelectable = True
'
'GroupBox7
'
Me.GroupBox7.BackColor = System.Drawing.Color.Transparent
Me.GroupBox7.Controls.Add(Me.CB_Fun_HardSubs)
Me.GroupBox7.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox7.ForeColor = System.Drawing.Color.Black
Me.GroupBox7.Location = New System.Drawing.Point(0, 450)
Me.GroupBox7.Name = "GroupBox7"
Me.GroupBox7.Size = New System.Drawing.Size(490, 69)
Me.GroupBox7.TabIndex = 40
Me.GroupBox7.TabStop = False
Me.GroupBox7.Text = "Hard Subtitle (post-processed)"
'
'CB_Fun_HardSubs
'
Me.CB_Fun_HardSubs.DropDownHeight = 250
Me.CB_Fun_HardSubs.Enabled = False
Me.CB_Fun_HardSubs.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CB_Fun_HardSubs.FormattingEnabled = True
Me.CB_Fun_HardSubs.IntegralHeight = False
Me.CB_Fun_HardSubs.ItemHeight = 23
Me.CB_Fun_HardSubs.Items.AddRange(New Object() {"Disabled", "English", "Español (LA)", "Português (Brasil)"})
Me.CB_Fun_HardSubs.Location = New System.Drawing.Point(79, 30)
Me.CB_Fun_HardSubs.Name = "CB_Fun_HardSubs"
Me.CB_Fun_HardSubs.Size = New System.Drawing.Size(326, 29)
Me.CB_Fun_HardSubs.Sorted = True
Me.CB_Fun_HardSubs.TabIndex = 32
Me.CB_Fun_HardSubs.UseSelectable = True
'
'GroupBox9
'
Me.GroupBox9.BackColor = System.Drawing.Color.Transparent
Me.GroupBox9.Controls.Add(Me.GroupBox13)
Me.GroupBox9.Controls.Add(Me.GroupBox11)
Me.GroupBox9.Controls.Add(Me.GroupBox8)
Me.GroupBox9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox9.Location = New System.Drawing.Point(0, 80)
Me.GroupBox9.Name = "GroupBox9"
Me.GroupBox9.Size = New System.Drawing.Size(490, 288)
Me.GroupBox9.TabIndex = 50
Me.GroupBox9.TabStop = False
Me.GroupBox9.Text = "Soft-Subtitle"
'
'GroupBox13
'
Me.GroupBox13.BackColor = System.Drawing.Color.Transparent
Me.GroupBox13.Controls.Add(Me.FunSubDef)
Me.GroupBox13.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox13.ForeColor = System.Drawing.Color.Black
Me.GroupBox13.Location = New System.Drawing.Point(5, 270)
Me.GroupBox13.Location = New System.Drawing.Point(10, 193)
Me.GroupBox13.Name = "GroupBox13"
Me.GroupBox13.Size = New System.Drawing.Size(490, 69)
Me.GroupBox13.Size = New System.Drawing.Size(474, 82)
Me.GroupBox13.TabIndex = 70
Me.GroupBox13.TabStop = False
Me.GroupBox13.Text = "default subtitle"
Me.GroupBox13.Text = "Default Subtitle"
'
'FunSubDef
'
@ -1212,12 +1351,12 @@ Partial Class Einstellungen
Me.GroupBox11.Controls.Add(Me.CB_srt)
Me.GroupBox11.Controls.Add(Me.CB_vtt)
Me.GroupBox11.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox11.Location = New System.Drawing.Point(5, 182)
Me.GroupBox11.Location = New System.Drawing.Point(10, 105)
Me.GroupBox11.Name = "GroupBox11"
Me.GroupBox11.Size = New System.Drawing.Size(490, 82)
Me.GroupBox11.Size = New System.Drawing.Size(474, 82)
Me.GroupBox11.TabIndex = 60
Me.GroupBox11.TabStop = False
Me.GroupBox11.Text = "Soft-Subtitle Format"
Me.GroupBox11.Text = "Format"
'
'CB_srt
'
@ -1243,113 +1382,6 @@ Partial Class Einstellungen
Me.CB_vtt.Text = "vtt"
Me.CB_vtt.UseSelectable = True
'
'GroupBox10
'
Me.GroupBox10.BackColor = System.Drawing.Color.Transparent
Me.GroupBox10.Controls.Add(Me.Fun_Dub_Over)
Me.GroupBox10.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox10.ForeColor = System.Drawing.Color.Black
Me.GroupBox10.Location = New System.Drawing.Point(5, 345)
Me.GroupBox10.Name = "GroupBox10"
Me.GroupBox10.Size = New System.Drawing.Size(490, 69)
Me.GroupBox10.TabIndex = 80
Me.GroupBox10.TabStop = False
Me.GroupBox10.Text = "Funimation Dub"
'
'Fun_Dub_Over
'
Me.Fun_Dub_Over.DropDownHeight = 250
Me.Fun_Dub_Over.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Fun_Dub_Over.FormattingEnabled = True
Me.Fun_Dub_Over.IntegralHeight = False
Me.Fun_Dub_Over.ItemHeight = 23
Me.Fun_Dub_Over.Items.AddRange(New Object() {"Disabled", "english", "japanese", "portuguese(Brazil)", "spanish(Mexico)"})
Me.Fun_Dub_Over.Location = New System.Drawing.Point(69, 30)
Me.Fun_Dub_Over.Name = "Fun_Dub_Over"
Me.Fun_Dub_Over.Size = New System.Drawing.Size(326, 29)
Me.Fun_Dub_Over.Sorted = True
Me.Fun_Dub_Over.TabIndex = 40
Me.Fun_Dub_Over.UseSelectable = True
'
'GroupBox7
'
Me.GroupBox7.BackColor = System.Drawing.Color.Transparent
Me.GroupBox7.Controls.Add(Me.CB_Fun_HardSubs)
Me.GroupBox7.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox7.ForeColor = System.Drawing.Color.Black
Me.GroupBox7.Location = New System.Drawing.Point(5, 6)
Me.GroupBox7.Name = "GroupBox7"
Me.GroupBox7.Size = New System.Drawing.Size(490, 69)
Me.GroupBox7.TabIndex = 40
Me.GroupBox7.TabStop = False
Me.GroupBox7.Text = "Hard Subtitle (post-processed)"
'
'CB_Fun_HardSubs
'
Me.CB_Fun_HardSubs.DropDownHeight = 250
Me.CB_Fun_HardSubs.Enabled = False
Me.CB_Fun_HardSubs.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CB_Fun_HardSubs.FormattingEnabled = True
Me.CB_Fun_HardSubs.IntegralHeight = False
Me.CB_Fun_HardSubs.ItemHeight = 23
Me.CB_Fun_HardSubs.Items.AddRange(New Object() {"Disabled", "English", "Español (LA)", "Português (Brasil)"})
Me.CB_Fun_HardSubs.Location = New System.Drawing.Point(69, 30)
Me.CB_Fun_HardSubs.Name = "CB_Fun_HardSubs"
Me.CB_Fun_HardSubs.Size = New System.Drawing.Size(326, 29)
Me.CB_Fun_HardSubs.Sorted = True
Me.CB_Fun_HardSubs.TabIndex = 32
Me.CB_Fun_HardSubs.UseSelectable = True
'
'GroupBox9
'
Me.GroupBox9.BackColor = System.Drawing.Color.Transparent
Me.GroupBox9.Controls.Add(Me.CB_fun_eng)
Me.GroupBox9.Controls.Add(Me.CB_fun_es)
Me.GroupBox9.Controls.Add(Me.CB_fun_ptbr)
Me.GroupBox9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox9.Location = New System.Drawing.Point(5, 81)
Me.GroupBox9.Name = "GroupBox9"
Me.GroupBox9.Size = New System.Drawing.Size(490, 95)
Me.GroupBox9.TabIndex = 50
Me.GroupBox9.TabStop = False
Me.GroupBox9.Text = "Soft-Subtitle"
'
'CB_fun_eng
'
Me.CB_fun_eng.AutoSize = True
Me.CB_fun_eng.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_fun_eng.ForeColor = System.Drawing.Color.Black
Me.CB_fun_eng.Location = New System.Drawing.Point(51, 50)
Me.CB_fun_eng.Name = "CB_fun_eng"
Me.CB_fun_eng.Size = New System.Drawing.Size(68, 19)
Me.CB_fun_eng.TabIndex = 33
Me.CB_fun_eng.Text = "English"
Me.CB_fun_eng.UseSelectable = True
'
'CB_fun_es
'
Me.CB_fun_es.AutoSize = True
Me.CB_fun_es.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_fun_es.ForeColor = System.Drawing.Color.Black
Me.CB_fun_es.Location = New System.Drawing.Point(165, 50)
Me.CB_fun_es.Name = "CB_fun_es"
Me.CB_fun_es.Size = New System.Drawing.Size(100, 19)
Me.CB_fun_es.TabIndex = 34
Me.CB_fun_es.Text = "Español (LA)"
Me.CB_fun_es.UseSelectable = True
'
'CB_fun_ptbr
'
Me.CB_fun_ptbr.AutoSize = True
Me.CB_fun_ptbr.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_fun_ptbr.ForeColor = System.Drawing.Color.Black
Me.CB_fun_ptbr.Location = New System.Drawing.Point(287, 50)
Me.CB_fun_ptbr.Name = "CB_fun_ptbr"
Me.CB_fun_ptbr.Size = New System.Drawing.Size(131, 19)
Me.CB_fun_ptbr.TabIndex = 35
Me.CB_fun_ptbr.Text = "Português (Brasil)"
Me.CB_fun_ptbr.UseSelectable = True
'
'TabPage7
'
Me.TabPage7.BackColor = System.Drawing.Color.Transparent
@ -1362,9 +1394,9 @@ Partial Class Einstellungen
Me.TabPage7.Controls.Add(Me.Label4)
Me.TabPage7.Controls.Add(Me.Label6)
Me.TabPage7.Controls.Add(Me.Label5)
Me.TabPage7.Location = New System.Drawing.Point(4, 35)
Me.TabPage7.Location = New System.Drawing.Point(4, 44)
Me.TabPage7.Name = "TabPage7"
Me.TabPage7.Size = New System.Drawing.Size(501, 528)
Me.TabPage7.Size = New System.Drawing.Size(501, 519)
Me.TabPage7.TabIndex = 5
Me.TabPage7.Text = "About "
'
@ -1496,19 +1528,33 @@ Partial Class Einstellungen
Me.Btn_Save.TabIndex = 9
Me.Btn_Save.UseVisualStyleBackColor = False
'
'LeadingZeroDD
'GroupBox15
'
Me.LeadingZeroDD.DropDownHeight = 250
Me.LeadingZeroDD.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LeadingZeroDD.FormattingEnabled = True
Me.LeadingZeroDD.IntegralHeight = False
Me.LeadingZeroDD.ItemHeight = 23
Me.LeadingZeroDD.Items.AddRange(New Object() {"1", "01", "001", "0001"})
Me.LeadingZeroDD.Location = New System.Drawing.Point(6, 151)
Me.LeadingZeroDD.Name = "LeadingZeroDD"
Me.LeadingZeroDD.Size = New System.Drawing.Size(225, 29)
Me.LeadingZeroDD.TabIndex = 20
Me.LeadingZeroDD.UseSelectable = True
Me.GroupBox15.BackColor = System.Drawing.Color.Transparent
Me.GroupBox15.Controls.Add(Me.Bitrate_Funi)
Me.GroupBox15.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox15.ForeColor = System.Drawing.Color.Black
Me.GroupBox15.Location = New System.Drawing.Point(0, 375)
Me.GroupBox15.Name = "GroupBox15"
Me.GroupBox15.Size = New System.Drawing.Size(490, 69)
Me.GroupBox15.TabIndex = 41
Me.GroupBox15.TabStop = False
Me.GroupBox15.Text = "Bitrate"
'
'Bitrate_Funi
'
Me.Bitrate_Funi.DropDownHeight = 250
Me.Bitrate_Funi.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Bitrate_Funi.FormattingEnabled = True
Me.Bitrate_Funi.IntegralHeight = False
Me.Bitrate_Funi.ItemHeight = 23
Me.Bitrate_Funi.Items.AddRange(New Object() {"prefer high bitrate", "prefer low bitrate"})
Me.Bitrate_Funi.Location = New System.Drawing.Point(79, 24)
Me.Bitrate_Funi.Name = "Bitrate_Funi"
Me.Bitrate_Funi.Size = New System.Drawing.Size(326, 29)
Me.Bitrate_Funi.Sorted = True
Me.Bitrate_Funi.TabIndex = 32
Me.Bitrate_Funi.UseSelectable = True
'
'Einstellungen
'
@ -1560,15 +1606,17 @@ Partial Class Einstellungen
Me.MetroTabPage1.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False)
Me.TabPage6.ResumeLayout(False)
Me.GroupBox13.ResumeLayout(False)
Me.GroupBox11.ResumeLayout(False)
Me.GroupBox11.PerformLayout()
Me.GroupBox8.ResumeLayout(False)
Me.GroupBox8.PerformLayout()
Me.GroupBox10.ResumeLayout(False)
Me.GroupBox7.ResumeLayout(False)
Me.GroupBox9.ResumeLayout(False)
Me.GroupBox9.PerformLayout()
Me.GroupBox13.ResumeLayout(False)
Me.GroupBox11.ResumeLayout(False)
Me.GroupBox11.PerformLayout()
Me.TabPage7.ResumeLayout(False)
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox15.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@ -1688,4 +1736,7 @@ Partial Class Einstellungen
Friend WithEvents ListBit_3500 As ToolStripMenuItem
Friend WithEvents ListBit_2500 As ToolStripMenuItem
Friend WithEvents LeadingZeroDD As MetroFramework.Controls.MetroComboBox
Friend WithEvents GroupBox8 As GroupBox
Friend WithEvents GroupBox15 As GroupBox
Friend WithEvents Bitrate_Funi As MetroFramework.Controls.MetroComboBox
End Class

3
Crunchyroll Downloader/einstellungen.resx
View File

@ -126,6 +126,9 @@
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>118, 20</value>
</metadata>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>118, 20</value>
</metadata>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>332, 20</value>
</metadata>

21
Crunchyroll Downloader/einstellungen.vb
View File

@ -18,7 +18,7 @@ Public Class Einstellungen
Private Sub Einstellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Label6.Text = "You have: v" + Application.ProductVersion.ToString + " Chromium-U10.1"
Label6.Text = "You have: v" + Application.ProductVersion.ToString + " Chromium-U11"
BackgroundWorker1.RunWorkerAsync()
@ -33,6 +33,9 @@ Public Class Einstellungen
ProfileTextBox.Text = Main.ProfileFolder
LeadingZeroDD.SelectedIndex = Main.LeadingZero
Bitrate_Funi.SelectedIndex = Main.Funimation_Bitrate
If Main.IgnoreS1 = True Then
IgnoreS1.Checked = True
End If
@ -330,6 +333,10 @@ Public Class Einstellungen
Main.LeadingZero = LeadingZeroDD.SelectedIndex
rk.SetValue("LeadingZero", LeadingZeroDD.SelectedIndex, RegistryValueKind.String)
Main.Funimation_Bitrate = Bitrate_Funi.SelectedIndex
rk.SetValue("Funimation_Bitrate", Bitrate_Funi.SelectedIndex, RegistryValueKind.String)
If http_support.Text = "add-on support disabled" Then
rk.SetValue("ServerPort", 0, RegistryValueKind.String)
Main.StartServer = CInt(False)
@ -907,11 +914,14 @@ Public Class Einstellungen
GroupBox5.ForeColor = color
GroupBox6.ForeColor = color
GroupBox7.ForeColor = color
GroupBox8.ForeColor = color
GroupBox9.ForeColor = color
GroupBox10.ForeColor = color
GroupBox11.ForeColor = color
GroupBox12.ForeColor = color
GroupBox13.ForeColor = color
GroupBox14.ForeColor = color
GroupBox15.ForeColor = color
End Sub
@ -1198,13 +1208,6 @@ Public Class Einstellungen
End If
End Sub
Private Sub TabPage6_Click(sender As Object, e As EventArgs) Handles TabPage6.Click
End Sub

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

Binary file not shown.

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

Binary file not shown.

2
Crunchyroll Downloader/obj/x64/Debug/Crunchyroll Downloader.vbproj.FileListAbsolute.txt
View File

@ -104,6 +104,6 @@ D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Ce
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - CefSharp\Crunchyroll Downloader\obj\x64\Debug\Crunchyroll Downloader.vbproj.CopyComplete
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - CefSharp\Crunchyroll Downloader\obj\x64\Debug\Crunchyroll Downloader.exe
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - CefSharp\Crunchyroll Downloader\obj\x64\Debug\Crunchyroll Downloader.pdb
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - CefSharp\Crunchyroll Downloader\obj\x64\Debug\Crunchyroll Downloader.vbprojAssemblyReference.cache
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - CefSharp\Crunchyroll Downloader\bin\x64\Debug\libcef.dll
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - CefSharp\Crunchyroll Downloader\obj\x64\Debug\Crunchyroll_Downloader.ErrorBrowser.resources
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - CefSharp\Crunchyroll Downloader\obj\x64\Debug\Crunchyroll Downloader.vbprojAssemblyReference.cache

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

Binary file not shown.

BIN
Crunchyroll Downloader/obj/x64/Debug/Crunchyroll Downloader.vbprojAssemblyReference.cache
View File

Binary file not shown.

BIN
Crunchyroll Downloader/obj/x64/Debug/Crunchyroll_Downloader.Main.resources
View File

Binary file not shown.

BIN
Crunchyroll Downloader/obj/x64/Debug/Crunchyroll_Downloader.Resources.resources
View File

Binary file not shown.