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 UserBowser As Boolean = False
Public HybridMode As Boolean = False Public HybridMode As Boolean = False
Public HardSubFunimation As String = "Disabled" Public HardSubFunimation As String = "Disabled"
Public Funimation_Bitrate As Integer = 0
Public DubFunimation As String = "Disabled" Public DubFunimation As String = "Disabled"
Public Funimation_srt As Boolean = False Public Funimation_srt As Boolean = False
Public Funimation_vtt As Boolean = False Public Funimation_vtt As Boolean = False
@ -333,7 +334,7 @@ Public Class Main
End If End If
For i As Integer = 0 To LeadingZero + 1 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 Exit For
Else Else
txt = "0" + txt txt = "0" + txt
@ -493,6 +494,14 @@ Public Class Main
'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")
Funimation_Bitrate = Integer.Parse(rkg.GetValue("Funimation_Bitrate").ToString)
'MsgBox(Resu)
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")
SubSprache = rkg.GetValue("Sub").ToString SubSprache = rkg.GetValue("Sub").ToString
@ -3694,7 +3703,7 @@ Public Class Main
Catch ex As Exception Catch ex As Exception
Debug.WriteLine(ex.ToString) Debug.WriteLine(ex.ToString)
Pause(2) Pause(2)
Debug.WriteLine("showexperience data via browser") Debug.WriteLine("showexperience 2nd try")
'Me.Invoke(New Action(Function() As Object 'Me.Invoke(New Action(Function() As Object
'PlayerClient.Headers.Add(HttpRequestHeader.AcceptEncoding, "gzip") 'PlayerClient.Headers.Add(HttpRequestHeader.AcceptEncoding, "gzip")
'EpisodeJsonString = DecompressString(PlayerClient.DownloadData(BaseUrl + FunimationEpisodeJson + FunimationDeviceRegion)) '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) 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) FunimationAudioMap = " -headers " + My.Resources.ffmpeg_user_agend + " -i " + Chr(34) + FunimationAudio3(0) + Chr(34)
End If 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 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 For i As Integer = 0 To Streams.Length - 1
Try
If CBool(InStr(Streams(i), "x" + Reso.ToString)) Then 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) Tartegt_m3u8_list.Add(Streams(i) + vbCrLf + Streams(i + 1))
Dim StreamURL As String = "https://" + Streams3(0).Trim FunimationBackupm3u8 = Streams(i + 1)
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
ElseIf CBool(InStr(Streams(i), ResoFunBackup)) And FunimationBackupm3u8 = Nothing Then 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) Secondary_m3u8_list.Add(Streams(i) + vbCrLf + Streams(i + 1))
Dim StreamURL As String = "https://" + Streams3(0).Trim FunimationBackupm3u8 = Streams(i + 1)
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 End If
Dim m3u8String As String = CheckClient.DownloadString(StreamURL)
Dim keyfileurl() As String = m3u8String.Split(New String() {"URI=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) Next
Dim keyfileurl2() As String = keyfileurl(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim keyfileurl3 As String = keyfileurl2(0) If Tartegt_m3u8_list.Count = 0 And Secondary_m3u8_list.Count > 0 Then
If CBool(InStr(keyfileurl2(0), "https://")) 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 Else
Dim c() As String = New Uri(StreamURL).Segments Continue For
Dim path As String = "https://" + New Uri(StreamURL).Host End If
For i3 As Integer = 0 To c.Count - 2
path = path + c(i3) Dim BitRate() As String = Tartegt_m3u8_list.Item(i2).Split(New String() {Bandwidth_String}, System.StringSplitOptions.RemoveEmptyEntries)
Next Dim BitRate2() As String = BitRate(1).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries)
keyfileurl3 = path + keyfileurl2(0) 'New Uri(textLenght(i)).LocalPath + keyfileurl2(0) 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 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 End If
Catch ex As Exception
End Try
Next 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 If Funimation_m3u8_final = Nothing And FunimationBackupm3u8 = Nothing Then
Me.Invoke(New Action(Function() As Object Me.Invoke(New Action(Function() As Object
Me.Text = "Status: Resolution not found!" 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: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.8.1.1")> <Assembly: AssemblyVersion("3.8.2.0")>
<Assembly: AssemblyFileVersion("3.8.1.1")> <Assembly: AssemblyFileVersion("3.8.2.0")>
<Assembly: NeutralResourcesLanguage("en")> <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.KodiSupport = New MetroFramework.Controls.MetroToggle()
Me.MetroLink1 = New MetroFramework.Controls.MetroLink() Me.MetroLink1 = New MetroFramework.Controls.MetroLink()
Me.GroupBox12 = New System.Windows.Forms.GroupBox() Me.GroupBox12 = New System.Windows.Forms.GroupBox()
Me.LeadingZeroDD = New MetroFramework.Controls.MetroComboBox()
Me.IgnoreS1 = New MetroFramework.Controls.MetroCheckBox() Me.IgnoreS1 = New MetroFramework.Controls.MetroCheckBox()
Me.DD_Episode_Prefix = New MetroFramework.Controls.MetroComboBox() Me.DD_Episode_Prefix = New MetroFramework.Controls.MetroComboBox()
Me.DD_Season_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.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.CB_SoftSubSettings = New MetroFramework.Controls.MetroComboBox() Me.CB_SoftSubSettings = New MetroFramework.Controls.MetroComboBox()
Me.TabPage6 = New MetroFramework.Controls.MetroTabPage() Me.TabPage6 = New MetroFramework.Controls.MetroTabPage()
Me.GroupBox13 = New System.Windows.Forms.GroupBox() Me.GroupBox8 = New System.Windows.Forms.GroupBox()
Me.FunSubDef = New MetroFramework.Controls.MetroComboBox() Me.CB_fun_eng = New MetroFramework.Controls.MetroCheckBox()
Me.GroupBox11 = New System.Windows.Forms.GroupBox() Me.CB_fun_es = New MetroFramework.Controls.MetroCheckBox()
Me.CB_srt = New MetroFramework.Controls.MetroCheckBox() Me.CB_fun_ptbr = New MetroFramework.Controls.MetroCheckBox()
Me.CB_vtt = New MetroFramework.Controls.MetroCheckBox()
Me.GroupBox10 = New System.Windows.Forms.GroupBox() Me.GroupBox10 = New System.Windows.Forms.GroupBox()
Me.Fun_Dub_Over = New MetroFramework.Controls.MetroComboBox() Me.Fun_Dub_Over = New MetroFramework.Controls.MetroComboBox()
Me.GroupBox7 = New System.Windows.Forms.GroupBox() Me.GroupBox7 = New System.Windows.Forms.GroupBox()
Me.CB_Fun_HardSubs = New MetroFramework.Controls.MetroComboBox() Me.CB_Fun_HardSubs = New MetroFramework.Controls.MetroComboBox()
Me.GroupBox9 = New System.Windows.Forms.GroupBox() Me.GroupBox9 = New System.Windows.Forms.GroupBox()
Me.CB_fun_eng = New MetroFramework.Controls.MetroCheckBox() Me.GroupBox13 = New System.Windows.Forms.GroupBox()
Me.CB_fun_es = New MetroFramework.Controls.MetroCheckBox() Me.FunSubDef = New MetroFramework.Controls.MetroComboBox()
Me.CB_fun_ptbr = New MetroFramework.Controls.MetroCheckBox() 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.TabPage7 = New System.Windows.Forms.TabPage()
Me.LastVersion = New MetroFramework.Controls.MetroLabel() Me.LastVersion = New MetroFramework.Controls.MetroLabel()
Me.Label8 = New MetroFramework.Controls.MetroLabel() Me.Label8 = New MetroFramework.Controls.MetroLabel()
@ -136,7 +138,8 @@ Partial Class Einstellungen
Me.Label5 = New MetroFramework.Controls.MetroLabel() Me.Label5 = New MetroFramework.Controls.MetroLabel()
Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
Me.Btn_Save = New System.Windows.Forms.Button() 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() CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox14.SuspendLayout() Me.GroupBox14.SuspendLayout()
Me.SoftSubs.SuspendLayout() Me.SoftSubs.SuspendLayout()
@ -160,13 +163,15 @@ Partial Class Einstellungen
Me.MetroTabPage1.SuspendLayout() Me.MetroTabPage1.SuspendLayout()
Me.GroupBox3.SuspendLayout() Me.GroupBox3.SuspendLayout()
Me.TabPage6.SuspendLayout() Me.TabPage6.SuspendLayout()
Me.GroupBox13.SuspendLayout() Me.GroupBox8.SuspendLayout()
Me.GroupBox11.SuspendLayout()
Me.GroupBox10.SuspendLayout() Me.GroupBox10.SuspendLayout()
Me.GroupBox7.SuspendLayout() Me.GroupBox7.SuspendLayout()
Me.GroupBox9.SuspendLayout() Me.GroupBox9.SuspendLayout()
Me.GroupBox13.SuspendLayout()
Me.GroupBox11.SuspendLayout()
Me.TabPage7.SuspendLayout() Me.TabPage7.SuspendLayout()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox15.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'ToolTip1 'ToolTip1
@ -448,6 +453,20 @@ Partial Class Einstellungen
Me.GroupBox12.TabStop = False Me.GroupBox12.TabStop = False
Me.GroupBox12.Text = "Filename" 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 'IgnoreS1
' '
Me.IgnoreS1.AutoSize = True Me.IgnoreS1.AutoSize = True
@ -1105,7 +1124,7 @@ Partial Class Einstellungen
Me.TabControl1.FontWeight = MetroFramework.MetroTabControlWeight.Regular Me.TabControl1.FontWeight = MetroFramework.MetroTabControlWeight.Regular
Me.TabControl1.Location = New System.Drawing.Point(22, 60) Me.TabControl1.Location = New System.Drawing.Point(22, 60)
Me.TabControl1.Name = "TabControl1" Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 1 Me.TabControl1.SelectedIndex = 3
Me.TabControl1.Size = New System.Drawing.Size(509, 567) Me.TabControl1.Size = New System.Drawing.Size(509, 567)
Me.TabControl1.TabIndex = 0 Me.TabControl1.TabIndex = 0
Me.TabControl1.UseSelectable = True Me.TabControl1.UseSelectable = True
@ -1119,9 +1138,9 @@ Partial Class Einstellungen
Me.MetroTabPage1.HorizontalScrollbarBarColor = True Me.MetroTabPage1.HorizontalScrollbarBarColor = True
Me.MetroTabPage1.HorizontalScrollbarHighlightOnWheel = False Me.MetroTabPage1.HorizontalScrollbarHighlightOnWheel = False
Me.MetroTabPage1.HorizontalScrollbarSize = 10 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.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.TabIndex = 7
Me.MetroTabPage1.Text = "Crunchyroll" Me.MetroTabPage1.Text = "Crunchyroll"
Me.MetroTabPage1.VerticalScrollbarBarColor = True Me.MetroTabPage1.VerticalScrollbarBarColor = True
@ -1159,18 +1178,17 @@ Partial Class Einstellungen
'TabPage6 '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.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.GroupBox15)
Me.TabPage6.Controls.Add(Me.GroupBox11)
Me.TabPage6.Controls.Add(Me.GroupBox10) Me.TabPage6.Controls.Add(Me.GroupBox10)
Me.TabPage6.Controls.Add(Me.GroupBox7) Me.TabPage6.Controls.Add(Me.GroupBox7)
Me.TabPage6.Controls.Add(Me.GroupBox9) Me.TabPage6.Controls.Add(Me.GroupBox9)
Me.TabPage6.HorizontalScrollbarBarColor = True Me.TabPage6.HorizontalScrollbarBarColor = True
Me.TabPage6.HorizontalScrollbarHighlightOnWheel = False Me.TabPage6.HorizontalScrollbarHighlightOnWheel = False
Me.TabPage6.HorizontalScrollbarSize = 10 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.Name = "TabPage6"
Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) 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.TabIndex = 4
Me.TabPage6.Text = "Funimation" Me.TabPage6.Text = "Funimation"
Me.TabPage6.VerticalScrollbarBarColor = True Me.TabPage6.VerticalScrollbarBarColor = True
@ -1178,18 +1196,139 @@ Partial Class Einstellungen
Me.TabPage6.VerticalScrollbarSize = 10 Me.TabPage6.VerticalScrollbarSize = 10
Me.TabPage6.Visible = False 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 'GroupBox13
' '
Me.GroupBox13.BackColor = System.Drawing.Color.Transparent Me.GroupBox13.BackColor = System.Drawing.Color.Transparent
Me.GroupBox13.Controls.Add(Me.FunSubDef) Me.GroupBox13.Controls.Add(Me.FunSubDef)
Me.GroupBox13.Font = New System.Drawing.Font("Arial", 9.75!) Me.GroupBox13.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox13.ForeColor = System.Drawing.Color.Black 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.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.TabIndex = 70
Me.GroupBox13.TabStop = False Me.GroupBox13.TabStop = False
Me.GroupBox13.Text = "default subtitle" Me.GroupBox13.Text = "Default Subtitle"
' '
'FunSubDef 'FunSubDef
' '
@ -1212,12 +1351,12 @@ Partial Class Einstellungen
Me.GroupBox11.Controls.Add(Me.CB_srt) Me.GroupBox11.Controls.Add(Me.CB_srt)
Me.GroupBox11.Controls.Add(Me.CB_vtt) 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.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.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.TabIndex = 60
Me.GroupBox11.TabStop = False Me.GroupBox11.TabStop = False
Me.GroupBox11.Text = "Soft-Subtitle Format" Me.GroupBox11.Text = "Format"
' '
'CB_srt 'CB_srt
' '
@ -1243,113 +1382,6 @@ Partial Class Einstellungen
Me.CB_vtt.Text = "vtt" Me.CB_vtt.Text = "vtt"
Me.CB_vtt.UseSelectable = True 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 'TabPage7
' '
Me.TabPage7.BackColor = System.Drawing.Color.Transparent 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.Label4)
Me.TabPage7.Controls.Add(Me.Label6) Me.TabPage7.Controls.Add(Me.Label6)
Me.TabPage7.Controls.Add(Me.Label5) 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.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.TabIndex = 5
Me.TabPage7.Text = "About " Me.TabPage7.Text = "About "
' '
@ -1496,19 +1528,33 @@ Partial Class Einstellungen
Me.Btn_Save.TabIndex = 9 Me.Btn_Save.TabIndex = 9
Me.Btn_Save.UseVisualStyleBackColor = False Me.Btn_Save.UseVisualStyleBackColor = False
' '
'LeadingZeroDD 'GroupBox15
' '
Me.LeadingZeroDD.DropDownHeight = 250 Me.GroupBox15.BackColor = System.Drawing.Color.Transparent
Me.LeadingZeroDD.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GroupBox15.Controls.Add(Me.Bitrate_Funi)
Me.LeadingZeroDD.FormattingEnabled = True Me.GroupBox15.Font = New System.Drawing.Font("Arial", 9.75!)
Me.LeadingZeroDD.IntegralHeight = False Me.GroupBox15.ForeColor = System.Drawing.Color.Black
Me.LeadingZeroDD.ItemHeight = 23 Me.GroupBox15.Location = New System.Drawing.Point(0, 375)
Me.LeadingZeroDD.Items.AddRange(New Object() {"1", "01", "001", "0001"}) Me.GroupBox15.Name = "GroupBox15"
Me.LeadingZeroDD.Location = New System.Drawing.Point(6, 151) Me.GroupBox15.Size = New System.Drawing.Size(490, 69)
Me.LeadingZeroDD.Name = "LeadingZeroDD" Me.GroupBox15.TabIndex = 41
Me.LeadingZeroDD.Size = New System.Drawing.Size(225, 29) Me.GroupBox15.TabStop = False
Me.LeadingZeroDD.TabIndex = 20 Me.GroupBox15.Text = "Bitrate"
Me.LeadingZeroDD.UseSelectable = True '
'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 'Einstellungen
' '
@ -1560,15 +1606,17 @@ Partial Class Einstellungen
Me.MetroTabPage1.ResumeLayout(False) Me.MetroTabPage1.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False) Me.GroupBox3.ResumeLayout(False)
Me.TabPage6.ResumeLayout(False) Me.TabPage6.ResumeLayout(False)
Me.GroupBox13.ResumeLayout(False) Me.GroupBox8.ResumeLayout(False)
Me.GroupBox11.ResumeLayout(False) Me.GroupBox8.PerformLayout()
Me.GroupBox11.PerformLayout()
Me.GroupBox10.ResumeLayout(False) Me.GroupBox10.ResumeLayout(False)
Me.GroupBox7.ResumeLayout(False) Me.GroupBox7.ResumeLayout(False)
Me.GroupBox9.ResumeLayout(False) Me.GroupBox9.ResumeLayout(False)
Me.GroupBox9.PerformLayout() Me.GroupBox13.ResumeLayout(False)
Me.GroupBox11.ResumeLayout(False)
Me.GroupBox11.PerformLayout()
Me.TabPage7.ResumeLayout(False) Me.TabPage7.ResumeLayout(False)
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox15.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -1688,4 +1736,7 @@ Partial Class Einstellungen
Friend WithEvents ListBit_3500 As ToolStripMenuItem Friend WithEvents ListBit_3500 As ToolStripMenuItem
Friend WithEvents ListBit_2500 As ToolStripMenuItem Friend WithEvents ListBit_2500 As ToolStripMenuItem
Friend WithEvents LeadingZeroDD As MetroFramework.Controls.MetroComboBox 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 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"> <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>118, 20</value> <value>118, 20</value>
</metadata> </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"> <metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>332, 20</value> <value>332, 20</value>
</metadata> </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 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() BackgroundWorker1.RunWorkerAsync()
@ -33,6 +33,9 @@ Public Class Einstellungen
ProfileTextBox.Text = Main.ProfileFolder ProfileTextBox.Text = Main.ProfileFolder
LeadingZeroDD.SelectedIndex = Main.LeadingZero LeadingZeroDD.SelectedIndex = Main.LeadingZero
Bitrate_Funi.SelectedIndex = Main.Funimation_Bitrate
If Main.IgnoreS1 = True Then If Main.IgnoreS1 = True Then
IgnoreS1.Checked = True IgnoreS1.Checked = True
End If End If
@ -330,6 +333,10 @@ Public Class Einstellungen
Main.LeadingZero = LeadingZeroDD.SelectedIndex Main.LeadingZero = LeadingZeroDD.SelectedIndex
rk.SetValue("LeadingZero", LeadingZeroDD.SelectedIndex, RegistryValueKind.String) 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 If http_support.Text = "add-on support disabled" Then
rk.SetValue("ServerPort", 0, RegistryValueKind.String) rk.SetValue("ServerPort", 0, RegistryValueKind.String)
Main.StartServer = CInt(False) Main.StartServer = CInt(False)
@ -907,11 +914,14 @@ Public Class Einstellungen
GroupBox5.ForeColor = color GroupBox5.ForeColor = color
GroupBox6.ForeColor = color GroupBox6.ForeColor = color
GroupBox7.ForeColor = color GroupBox7.ForeColor = color
GroupBox8.ForeColor = color
GroupBox9.ForeColor = color GroupBox9.ForeColor = color
GroupBox10.ForeColor = color GroupBox10.ForeColor = color
GroupBox11.ForeColor = color GroupBox11.ForeColor = color
GroupBox12.ForeColor = color GroupBox12.ForeColor = color
GroupBox13.ForeColor = color
GroupBox14.ForeColor = color
GroupBox15.ForeColor = color
End Sub End Sub
@ -1198,13 +1208,6 @@ Public Class Einstellungen
End If End If
End Sub 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.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.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.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\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.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.