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

added CR Dub override and CR CC support

Browse Source 
added CR Dub override
added CR CC support #716
This commit is contained in:
hama3254 2023-03-21 16:48:10 +01:00
parent 0d5fabd784
commit c1982827e0
7 changed files with 192 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

Binary file not shown.

6
Crunchyroll Downloader/App.config
View File

@ -156,6 +156,12 @@
<setting name="DownloadScope" serializeAs="String">
<value>0</value>
</setting>
<setting name="OverrideDub" serializeAs="String">
<value>False</value>
</setting>
<setting name="Captions" serializeAs="String">
<value>False</value>
</setting>
</Crunchyroll_Downloader.My.MySettings>
</userSettings>
</configuration>

102
Crunchyroll Downloader/Main.vb
View File

@ -1394,23 +1394,13 @@ Public Class Main
#Region "VideoJson"
Dim VideoJson As String = Nothing
VideoJson = CurlAuth(Streams, Loc_CR_Cookies, Loc_AuthToken)
'VideoJson = Curl(Streams)
If CBool(InStr(VideoJson, "curl:")) = True Then
VideoJson = CurlAuth(Streams, Loc_CR_Cookies, Loc_AuthToken)
End If
'Dim StreamsUrlBuilder() As String = ObjectJson.Split(New String() {"videos/"}, System.StringSplitOptions.RemoveEmptyEntries)
'Dim StreamsUrlBuilder2() As String = StreamsUrlBuilder(1).Split(New String() {"/streams"}, System.StringSplitOptions.RemoveEmptyEntries)
If CBool(InStr(VideoJson, "curl:")) = True Then 'And CBool(InStr(CR_VideoJson.Url, StreamsUrlBuilder2(0))) Then
Debug.WriteLine("curl error, using CR_VideoJson " + vbNewLine + VideoJson)
VideoJson = CR_VideoJson.Content
@ -1421,18 +1411,68 @@ Public Class Main
' Exit Sub
End If
Debug.WriteLine("VideoJson: " + VideoJson)
Debug.WriteLine("VideoStreams: " + Streams)
Dim CR_HardSubLang As String = SubSprache.CR_Value
VideoJson = CleanJSON(VideoJson)
#End Region
#Region "Check for dub override"
If My.Settings.OverrideDub = True And CBool(InStr(Streams, "/videos/")) Then 'einstellung ein + kein musikvideo oder Konzert
Dim Meta() As String = VideoJson.Split(New String() {Chr(34) + "meta" + Chr(34) + ":"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim Meta2() As String = Meta(1).Split(New String() {Chr(34) + "audio_locale" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
'MsgBox(DubSprache.CR_Value)
For i As Integer = 0 To Meta2.Count - 1
If CBool(InStr(Meta2(i), Chr(34) + "media_guid" + Chr(34) + ":" + Chr(34))) And CBool(InStr(Meta2(i), DubSprache.CR_Value)) Then
Dim media_guid() As String = Meta2(i).Split(New String() {Chr(34) + "media_guid" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim media_guid2() As String = media_guid(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
If CBool(InStr(Streams, media_guid2(0))) Then
MsgBox("done")
'done
Exit For
Else
' overriding ' https://www.crunchyroll.com/content/v2/cms/videos/GPPFKG08N/streams?locale=de-DE
Streams = "https://www.crunchyroll.com/content/v2/cms/videos/" + media_guid2(0) + "/streams?locale=" + locale
'MsgBox(Streams)
VideoJson = CurlAuth(Streams, Loc_CR_Cookies, Loc_AuthToken)
If CBool(InStr(VideoJson, "curl:")) = True Then
VideoJson = CurlAuth(Streams, Loc_CR_Cookies, Loc_AuthToken)
Else
Exit For
End If
If CBool(InStr(VideoJson, "curl:")) = True Then
Throw New System.Exception("Error - Getting VideoJson data" + vbNewLine + VideoJson)
End If
End If
End If
Next
End If
#End Region
#Region "m3u8 suche"
VideoJson = CleanJSON(VideoJson)
Dim VideoJObject As JObject = JObject.Parse(VideoJson)
Dim VideoData As List(Of JToken) = VideoJObject.Children().ToList
@ -1528,7 +1568,7 @@ Public Class Main
ResoBackString = Nothing
'MsgBox(CR_Streams.Count.ToString)
For i As Integer = 0 To CR_Streams.Count - 1
Debug.WriteLine("1484: " + CR_Streams.Item(i).subLang)
Debug.WriteLine("1571: " + CR_Streams.Item(i).subLang)
If CR_Streams.Item(i).subLang = CR_HardSubLang Then
CR_URI_Master.Add(CR_Streams.Item(i).Url)
End If
@ -1924,15 +1964,31 @@ Public Class Main
#Region "GetSoftsubs"
Dim SoftSubsAvailable As New List(Of String)
Dim CCAvailable As New List(Of String)
Dim SoftSubsList As New List(Of CR_Subtiles)
If SoftSubs.Count > 0 Then
Dim SplitVideo As String() = VideoJson.Split(New String() {Chr(34) + "closed_captions" + Chr(34) + ":"}, System.StringSplitOptions.RemoveEmptyEntries)
If SoftSubs.Count > 0 And My.Settings.Captions = True Then
For i As Integer = 0 To SoftSubs.Count - 1
If CBool(InStr(SplitVideo(1), Chr(34) + "locale" + Chr(34) + ":" + Chr(34) + SoftSubs(i) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34))) Then
CCAvailable.Add(SoftSubs(i))
End If
Next
End If
If SoftSubs.Count > 0 And CCAvailable.Count = 0 Then
For i As Integer = 0 To SoftSubs.Count - 1
If CBool(InStr(VideoJson, Chr(34) + "locale" + Chr(34) + ":" + Chr(34) + SoftSubs(i) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34))) Then
SoftSubsAvailable.Add(SoftSubs(i))
End If
Next
ElseIf SoftSubs.Count > 0 And CCAvailable.Count > 0 Then
SoftSubsAvailable.AddRange(CCAvailable)
End If
@ -1949,7 +2005,7 @@ Public Class Main
ffmpegInput = "-i " + Chr(34) + Pfad6 + Chr(34) + " " + ffmpegInput + " -map 0 -map 1:a" + " -metadata:s:a:" + FFMPEG_Audio(Pfad6).ToString + " language=" + CCtoMP4CC(CR_audio_locale) + " -c copy"
ElseIf SoftSubsAvailable.Count > 0 Then
ElseIf SoftSubsAvailable.Count > 0 Or CCAvailable.Count > 0 Then
Dim MergeSubsNow As Boolean = MergeSubs
@ -1961,7 +2017,13 @@ Public Class Main
For i As Integer = 0 To SoftSubsAvailable.Count - 1
Dim SoftSub As String() = VideoJson.Split(New String() {Chr(34) + "locale" + Chr(34) + ":" + Chr(34) + SoftSubsAvailable(i) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim SubsJson As String = VideoJson
If CCAvailable.Count > 0 Then
SubsJson = SplitVideo(1)
End If
Dim SoftSub As String() = SubsJson.Split(New String() {Chr(34) + "locale" + Chr(34) + ":" + Chr(34) + SoftSubsAvailable(i) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim SoftSub_2 As String() = SoftSub(1).Split(New [Char]() {Chr(34)})
Dim SoftSub_3 As String = SoftSub_2(0).Replace("&amp;", "&").Replace("/u0026", "&").Replace("\u002F", "/").Replace("\u0026", "&")
SoftSubsList.Add(New CR_Subtiles(SoftSubsAvailable(i), HardSubValuesToDisplay(SoftSubsAvailable(i)), " -i " + Chr(34) + SoftSub_3 + Chr(34), i.ToString, SoftSubsAvailable(i) = DefaultSubCR))
@ -2008,6 +2070,10 @@ Public Class Main
Else
For i As Integer = 0 To SoftSubsList.Count - 1
Dim SubFormat As String = "ass"
If CCAvailable.Count > 0 Then
SubFormat = "vtt"
End If
Dim i2 As Integer = i
Me.Invoke(New Action(Function() As Object
Anime_Add.StatusLabel.Text = "Status: downloading subtitle file " + SoftSubsList(i2).SubLangName
@ -2019,9 +2085,9 @@ Public Class Main
Dim SubText As String = ""
SubText = Curl(SoftSubsList(i2).Url.Replace(" -i ", "").Replace(Chr(34), ""))
Dim Pfad3 As String = Pfad2.Replace(Chr(34), "")
Dim FN As String = Path.ChangeExtension(Path.Combine(Path.GetFileNameWithoutExtension(Pfad3) + "." + GetSubFileLangName(SoftSubsList(i2).SubLangValue) + Path.GetExtension(Pfad3)), "ass")
Dim FN As String = Path.ChangeExtension(Path.Combine(Path.GetFileNameWithoutExtension(Pfad3) + "." + GetSubFileLangName(SoftSubsList(i2).SubLangValue) + Path.GetExtension(Pfad3)), SubFormat)
If i = 0 And IncludeLangName = False Then
FN = Path.ChangeExtension(Path.GetFileName(Pfad3), "ass")
FN = Path.ChangeExtension(Path.GetFileName(Pfad3), SubFormat)
End If
Dim Pfad4 As String = Path.Combine(Path.GetDirectoryName(Pfad3), FN)
WriteText(Pfad4, SubText)

26
Crunchyroll Downloader/My Project/Settings.Designer.vb generated
View File

@ -15,7 +15,7 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.3.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.5.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
@ -593,6 +593,30 @@ Namespace My
Me("DownloadScope") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property OverrideDub() As Boolean
Get
Return CType(Me("OverrideDub"),Boolean)
End Get
Set
Me("OverrideDub") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property Captions() As Boolean
Get
Return CType(Me("Captions"),Boolean)
End Get
Set
Me("Captions") = value
End Set
End Property
End Class
End Namespace

6
Crunchyroll Downloader/My Project/Settings.settings
View File

@ -137,5 +137,11 @@
<Setting Name="DownloadScope" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="OverrideDub" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="Captions" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
</Settings>
</SettingsFile>

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

@ -154,6 +154,9 @@ Partial Class Einstellungen
Me.Label5 = New MetroFramework.Controls.MetroLabel()
Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
Me.Btn_Save = New System.Windows.Forms.Button()
Me.CB_OverrideDub = New MetroFramework.Controls.MetroCheckBox()
Me.GroupBox22 = New System.Windows.Forms.GroupBox()
Me.CB_Cap = New MetroFramework.Controls.MetroCheckBox()
CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox14.SuspendLayout()
Me.SoftSubs.SuspendLayout()
@ -193,6 +196,7 @@ Partial Class Einstellungen
Me.GroupBox8.SuspendLayout()
Me.TabPage7.SuspendLayout()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox22.SuspendLayout()
Me.SuspendLayout()
'
'ToolTip1
@ -220,7 +224,7 @@ Partial Class Einstellungen
Me.GroupBox14.Controls.Add(Me.CR_SoftSubDefault)
Me.GroupBox14.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox14.ForeColor = System.Drawing.Color.Black
Me.GroupBox14.Location = New System.Drawing.Point(5, 255)
Me.GroupBox14.Location = New System.Drawing.Point(5, 345)
Me.GroupBox14.Name = "GroupBox14"
Me.GroupBox14.Size = New System.Drawing.Size(490, 70)
Me.GroupBox14.TabIndex = 30
@ -247,7 +251,7 @@ Partial Class Einstellungen
Me.SoftSubs.BackColor = System.Drawing.Color.Transparent
Me.SoftSubs.Controls.Add(Me.CR_SoftSubs)
Me.SoftSubs.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SoftSubs.Location = New System.Drawing.Point(5, 190)
Me.SoftSubs.Location = New System.Drawing.Point(5, 215)
Me.SoftSubs.Name = "SoftSubs"
Me.SoftSubs.Size = New System.Drawing.Size(490, 65)
Me.SoftSubs.TabIndex = 20
@ -273,11 +277,12 @@ Partial Class Einstellungen
'
Me.GB_SubLanguage.BackColor = System.Drawing.Color.Transparent
Me.GB_SubLanguage.Controls.Add(Me.CB_CR_Harsubs)
Me.GB_SubLanguage.Controls.Add(Me.DubMode)
Me.GB_SubLanguage.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GB_SubLanguage.ForeColor = System.Drawing.Color.Black
Me.GB_SubLanguage.Location = New System.Drawing.Point(5, 120)
Me.GB_SubLanguage.Location = New System.Drawing.Point(5, 115)
Me.GB_SubLanguage.Name = "GB_SubLanguage"
Me.GB_SubLanguage.Size = New System.Drawing.Size(490, 65)
Me.GB_SubLanguage.Size = New System.Drawing.Size(490, 95)
Me.GB_SubLanguage.TabIndex = 10
Me.GB_SubLanguage.TabStop = False
Me.GB_SubLanguage.Text = "Sub Sprache"
@ -289,7 +294,7 @@ Partial Class Einstellungen
Me.CB_CR_Harsubs.FormattingEnabled = True
Me.CB_CR_Harsubs.IntegralHeight = False
Me.CB_CR_Harsubs.ItemHeight = 23
Me.CB_CR_Harsubs.Location = New System.Drawing.Point(85, 25)
Me.CB_CR_Harsubs.Location = New System.Drawing.Point(85, 55)
Me.CB_CR_Harsubs.Name = "CB_CR_Harsubs"
Me.CB_CR_Harsubs.Size = New System.Drawing.Size(320, 29)
Me.CB_CR_Harsubs.TabIndex = 20
@ -795,10 +800,10 @@ Partial Class Einstellungen
Me.TabPage1.HorizontalScrollbarBarColor = True
Me.TabPage1.HorizontalScrollbarHighlightOnWheel = False
Me.TabPage1.HorizontalScrollbarSize = 10
Me.TabPage1.Location = New System.Drawing.Point(4, 35)
Me.TabPage1.Location = New System.Drawing.Point(4, 44)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(501, 528)
Me.TabPage1.Size = New System.Drawing.Size(501, 519)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = " Main"
Me.TabPage1.VerticalScrollbar = True
@ -1032,7 +1037,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
@ -1343,6 +1348,7 @@ Partial Class Einstellungen
'
'MetroTabPage1
'
Me.MetroTabPage1.Controls.Add(Me.GroupBox22)
Me.MetroTabPage1.Controls.Add(Me.GroupBox20)
Me.MetroTabPage1.Controls.Add(Me.GroupBox19)
Me.MetroTabPage1.Controls.Add(Me.GroupBox14)
@ -1366,7 +1372,7 @@ Partial Class Einstellungen
Me.GroupBox20.Controls.Add(Me.ChB_Chapters)
Me.GroupBox20.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox20.ForeColor = System.Drawing.Color.Black
Me.GroupBox20.Location = New System.Drawing.Point(3, 330)
Me.GroupBox20.Location = New System.Drawing.Point(3, 420)
Me.GroupBox20.Name = "GroupBox20"
Me.GroupBox20.Size = New System.Drawing.Size(490, 65)
Me.GroupBox20.TabIndex = 34
@ -1387,13 +1393,13 @@ Partial Class Einstellungen
'GroupBox19
'
Me.GroupBox19.BackColor = System.Drawing.Color.Transparent
Me.GroupBox19.Controls.Add(Me.CB_OverrideDub)
Me.GroupBox19.Controls.Add(Me.CB_CR_Audio)
Me.GroupBox19.Controls.Add(Me.DubMode)
Me.GroupBox19.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox19.ForeColor = System.Drawing.Color.Black
Me.GroupBox19.Location = New System.Drawing.Point(5, 15)
Me.GroupBox19.Name = "GroupBox19"
Me.GroupBox19.Size = New System.Drawing.Size(490, 100)
Me.GroupBox19.Size = New System.Drawing.Size(490, 95)
Me.GroupBox19.TabIndex = 33
Me.GroupBox19.TabStop = False
Me.GroupBox19.Text = "Dubbed"
@ -1405,7 +1411,7 @@ Partial Class Einstellungen
Me.CB_CR_Audio.FormattingEnabled = True
Me.CB_CR_Audio.IntegralHeight = False
Me.CB_CR_Audio.ItemHeight = 23
Me.CB_CR_Audio.Location = New System.Drawing.Point(85, 55)
Me.CB_CR_Audio.Location = New System.Drawing.Point(85, 21)
Me.CB_CR_Audio.Name = "CB_CR_Audio"
Me.CB_CR_Audio.Size = New System.Drawing.Size(320, 29)
Me.CB_CR_Audio.TabIndex = 21
@ -1415,11 +1421,11 @@ Partial Class Einstellungen
'
Me.DubMode.BackColor = System.Drawing.Color.Transparent
Me.DubMode.FontSize = MetroFramework.MetroCheckBoxSize.SomethingInBetween
Me.DubMode.Location = New System.Drawing.Point(85, 21)
Me.DubMode.Location = New System.Drawing.Point(70, 20)
Me.DubMode.Name = "DubMode"
Me.DubMode.Size = New System.Drawing.Size(320, 28)
Me.DubMode.Size = New System.Drawing.Size(348, 29)
Me.DubMode.TabIndex = 5
Me.DubMode.Text = "accept no hardsubs for dubbed shows"
Me.DubMode.Text = "skip hardsubs if unavailable on dubbed shows"
Me.DubMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.DubMode.UseCustomBackColor = True
Me.DubMode.UseSelectable = True
@ -1434,10 +1440,10 @@ Partial Class Einstellungen
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
@ -1671,9 +1677,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 "
'
@ -1805,6 +1811,43 @@ Partial Class Einstellungen
Me.Btn_Save.TabIndex = 9
Me.Btn_Save.UseVisualStyleBackColor = False
'
'CB_OverrideDub
'
Me.CB_OverrideDub.BackColor = System.Drawing.Color.Transparent
Me.CB_OverrideDub.FontSize = MetroFramework.MetroCheckBoxSize.SomethingInBetween
Me.CB_OverrideDub.Location = New System.Drawing.Point(70, 56)
Me.CB_OverrideDub.Name = "CB_OverrideDub"
Me.CB_OverrideDub.Size = New System.Drawing.Size(348, 29)
Me.CB_OverrideDub.TabIndex = 22
Me.CB_OverrideDub.Text = "override Dub language"
Me.CB_OverrideDub.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.CB_OverrideDub.UseCustomBackColor = True
Me.CB_OverrideDub.UseSelectable = True
'
'GroupBox22
'
Me.GroupBox22.BackColor = System.Drawing.Color.Transparent
Me.GroupBox22.Controls.Add(Me.CB_Cap)
Me.GroupBox22.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox22.ForeColor = System.Drawing.Color.Black
Me.GroupBox22.Location = New System.Drawing.Point(3, 280)
Me.GroupBox22.Name = "GroupBox22"
Me.GroupBox22.Size = New System.Drawing.Size(490, 65)
Me.GroupBox22.TabIndex = 35
Me.GroupBox22.TabStop = False
Me.GroupBox22.Text = "CC"
'
'CB_Cap
'
Me.CB_Cap.AutoSize = True
Me.CB_Cap.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_Cap.Location = New System.Drawing.Point(158, 23)
Me.CB_Cap.Name = "CB_Cap"
Me.CB_Cap.Size = New System.Drawing.Size(168, 19)
Me.CB_Cap.TabIndex = 5
Me.CB_Cap.Text = "use captions if available"
Me.CB_Cap.UseSelectable = True
'
'Einstellungen
'
Me.ApplyImageInvert = True
@ -1872,6 +1915,8 @@ Partial Class Einstellungen
Me.GroupBox8.PerformLayout()
Me.TabPage7.ResumeLayout(False)
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox22.ResumeLayout(False)
Me.GroupBox22.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -2008,4 +2053,7 @@ Partial Class Einstellungen
Friend WithEvents ChB_Chapters As MetroFramework.Controls.MetroCheckBox
Friend WithEvents CR_SoftSubs As MetroFramework.Controls.MetroComboBox
Public WithEvents CR_SoftSubDefault As MetroFramework.Controls.MetroComboBox
Friend WithEvents CB_OverrideDub As MetroFramework.Controls.MetroCheckBox
Friend WithEvents GroupBox22 As GroupBox
Friend WithEvents CB_Cap As MetroFramework.Controls.MetroCheckBox
End Class

5
Crunchyroll Downloader/einstellungen.vb
View File

@ -33,6 +33,8 @@ Public Class Einstellungen
Manager.Owner = Me
Me.StyleManager = Manager
CB_OverrideDub.Checked = My.Settings.OverrideDub
CB_Cap.Checked = My.Settings.Captions
TempTB.Text = Main.TempFolder
LeadingZeroDD.SelectedIndex = Main.LeadingZero
@ -349,7 +351,8 @@ Public Class Einstellungen
Private Sub Btn_Save_Click(sender As Object, e As EventArgs) Handles Btn_Save.Click
Main.LeadingZero = LeadingZeroDD.SelectedIndex
My.Settings.LeadingZero = LeadingZeroDD.SelectedIndex
My.Settings.OverrideDub = CB_OverrideDub.Checked
My.Settings.Captions = CB_Cap.Checked
Main.Funimation_Bitrate = Bitrate_Funi.SelectedIndex
My.Settings.Funimation_Bitrate = Bitrate_Funi.SelectedIndex