Mirrors/Crunchyroll-Downloader-v3.0
2
0
Fork 0
mirror of https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git synced 2025-01-26 06:55:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

added raw video expetion for non japanese dubs

Browse Source 
added raw video expetion for non japanese dubs see #503
This commit is contained in:
hama3254 2022-08-05 15:12:25 +02:00
parent 6282b0f415
commit a366d4641f
5 changed files with 94 additions and 34 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.

22
Crunchyroll Downloader/Main.vb
View File

@ -139,7 +139,7 @@ Public Class Main
Public SubFunimation As New List(Of String) Public SubFunimation As New List(Of String)
Public DefaultSubFunimation As String = "Disabled" Public DefaultSubFunimation As String = "Disabled"
Public DefaultSubCR As String = "Disabled" Public DefaultSubCR As String = "Disabled"
Public DubMode As Boolean = True
#Region "Sprachen Vairablen" #Region "Sprachen Vairablen"
Public URL_Invaild As String = "something is wrong here..." Public URL_Invaild As String = "something is wrong here..."
Dim DL_Path_String As String = "Please choose download directory." Dim DL_Path_String As String = "Please choose download directory."
@ -485,6 +485,13 @@ Public Class Main
KodiNaming = CBool(Integer.Parse(rkg.GetValue("KodiSupport").ToString)) KodiNaming = CBool(Integer.Parse(rkg.GetValue("KodiSupport").ToString))
Catch ex As Exception Catch ex As Exception
End Try End Try
Try
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
DubMode = CBool(Integer.Parse(rkg.GetValue("DubMode").ToString))
Catch ex As Exception
End Try
Try Try
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
KeepCache = CBool(Integer.Parse(rkg.GetValue("Keep_Cache").ToString)) KeepCache = CBool(Integer.Parse(rkg.GetValue("Keep_Cache").ToString))
@ -1823,7 +1830,7 @@ Public Class Main
If CR_episode = Nothing And CR_episode2 = Nothing Then If CR_episode = Nothing Or CR_episode = "" And CR_episode2 = Nothing Then
CR_episode_int = "0" CR_episode_int = "0"
ElseIf CR_episode IsNot Nothing And CR_episode IsNot "" Then ElseIf CR_episode IsNot Nothing And CR_episode IsNot "" Then
CR_episode_int = CR_episode CR_episode_int = CR_episode
@ -1858,7 +1865,7 @@ Public Class Main
If Episode_Prefix = "[default episode prefix]" Then If Episode_Prefix = "[default episode prefix]" Then
If CR_episode = Nothing And CR_episode2 = Nothing Then If CR_episode = Nothing Or CR_episode = "" And CR_episode2 = Nothing Then
CR_episode = CR_title CR_episode = CR_title
ElseIf CR_episode IsNot Nothing And CR_episode IsNot "" Then ElseIf CR_episode IsNot Nothing And CR_episode IsNot "" Then
CR_episode = "Episode " + AddLeadingZeros(CR_episode) CR_episode = "Episode " + AddLeadingZeros(CR_episode)
@ -2098,18 +2105,23 @@ Public Class Main
' Return Nothing ' Return Nothing
' End Function)) ' End Function))
Dim RawStream As String = ""
For i As Integer = 0 To CR_Streams.Count - 1 For i As Integer = 0 To CR_Streams.Count - 1
Debug.WriteLine(CR_Streams.Item(i).subLang) Debug.WriteLine(CR_Streams.Item(i).subLang)
If CR_Streams.Item(i).subLang = LangNew Then If CR_Streams.Item(i).subLang = LangNew Then
CR_URI_Master = CR_Streams.Item(i).Url CR_URI_Master = CR_Streams.Item(i).Url
ElseIf CR_Streams.Item(i).subLang = "" And CR_audio_locale IsNot "ja-JP" And DubMode = True Then 'nothing/raw
RawStream = CR_Streams.Item(i).Url
End If End If
Next Next
If CR_URI_Master = Nothing And RawStream IsNot "" Then
CR_URI_Master = RawStream
If CR_URI_Master = Nothing Then ElseIf CR_URI_Master = Nothing Then
Me.Invoke(New Action(Function() As Object Me.Invoke(New Action(Function() As Object
ResoNotFoundString = VideoJson ResoNotFoundString = VideoJson
DialogTaskString = "Language_CR_Beta" DialogTaskString = "Language_CR_Beta"

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

@ -61,6 +61,8 @@ Partial Class Einstellungen
Me.ListC5 = New System.Windows.Forms.ToolStripMenuItem() Me.ListC5 = New System.Windows.Forms.ToolStripMenuItem()
Me.ListC6 = New System.Windows.Forms.ToolStripMenuItem() Me.ListC6 = New System.Windows.Forms.ToolStripMenuItem()
Me.ListC7 = New System.Windows.Forms.ToolStripMenuItem() Me.ListC7 = New System.Windows.Forms.ToolStripMenuItem()
Me.ListC8 = New System.Windows.Forms.ToolStripMenuItem()
Me.ListC9 = New System.Windows.Forms.ToolStripMenuItem()
Me.FFMPEG_CommandP2 = New System.Windows.Forms.ToolStripMenuItem() Me.FFMPEG_CommandP2 = New System.Windows.Forms.ToolStripMenuItem()
Me.ListP1 = New System.Windows.Forms.ToolStripMenuItem() Me.ListP1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ListP2 = New System.Windows.Forms.ToolStripMenuItem() Me.ListP2 = New System.Windows.Forms.ToolStripMenuItem()
@ -147,8 +149,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.ListC8 = New System.Windows.Forms.ToolStripMenuItem() Me.GroupBox19 = New System.Windows.Forms.GroupBox()
Me.ListC9 = New System.Windows.Forms.ToolStripMenuItem() Me.DubMode = New MetroFramework.Controls.MetroCheckBox()
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()
@ -185,6 +187,7 @@ Partial Class Einstellungen
Me.GroupBox8.SuspendLayout() Me.GroupBox8.SuspendLayout()
Me.TabPage7.SuspendLayout() Me.TabPage7.SuspendLayout()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox19.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'ToolTip1 'ToolTip1
@ -212,7 +215,7 @@ Partial Class Einstellungen
Me.GroupBox14.Controls.Add(Me.CR_SoftSubDefault) Me.GroupBox14.Controls.Add(Me.CR_SoftSubDefault)
Me.GroupBox14.Font = New System.Drawing.Font("Arial", 9.75!) Me.GroupBox14.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox14.ForeColor = System.Drawing.Color.Black Me.GroupBox14.ForeColor = System.Drawing.Color.Black
Me.GroupBox14.Location = New System.Drawing.Point(5, 250) Me.GroupBox14.Location = New System.Drawing.Point(5, 310)
Me.GroupBox14.Name = "GroupBox14" Me.GroupBox14.Name = "GroupBox14"
Me.GroupBox14.Size = New System.Drawing.Size(490, 69) Me.GroupBox14.Size = New System.Drawing.Size(490, 69)
Me.GroupBox14.TabIndex = 30 Me.GroupBox14.TabIndex = 30
@ -247,7 +250,7 @@ Partial Class Einstellungen
Me.SoftSubs.Controls.Add(Me.CBdeDE) Me.SoftSubs.Controls.Add(Me.CBdeDE)
Me.SoftSubs.Controls.Add(Me.CBenUS) Me.SoftSubs.Controls.Add(Me.CBenUS)
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.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, 83) Me.SoftSubs.Location = New System.Drawing.Point(5, 143)
Me.SoftSubs.Name = "SoftSubs" Me.SoftSubs.Name = "SoftSubs"
Me.SoftSubs.Size = New System.Drawing.Size(490, 161) Me.SoftSubs.Size = New System.Drawing.Size(490, 161)
Me.SoftSubs.TabIndex = 20 Me.SoftSubs.TabIndex = 20
@ -368,7 +371,7 @@ Partial Class Einstellungen
Me.GB_SubLanguage.Controls.Add(Me.ComboBox1) Me.GB_SubLanguage.Controls.Add(Me.ComboBox1)
Me.GB_SubLanguage.Font = New System.Drawing.Font("Arial", 9.75!) Me.GB_SubLanguage.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GB_SubLanguage.ForeColor = System.Drawing.Color.Black Me.GB_SubLanguage.ForeColor = System.Drawing.Color.Black
Me.GB_SubLanguage.Location = New System.Drawing.Point(5, 14) Me.GB_SubLanguage.Location = New System.Drawing.Point(5, 74)
Me.GB_SubLanguage.Name = "GB_SubLanguage" Me.GB_SubLanguage.Name = "GB_SubLanguage"
Me.GB_SubLanguage.Size = New System.Drawing.Size(490, 63) Me.GB_SubLanguage.Size = New System.Drawing.Size(490, 63)
Me.GB_SubLanguage.TabIndex = 10 Me.GB_SubLanguage.TabIndex = 10
@ -591,45 +594,57 @@ Partial Class Einstellungen
'ListC1 'ListC1
' '
Me.ListC1.Name = "ListC1" Me.ListC1.Name = "ListC1"
Me.ListC1.Size = New System.Drawing.Size(180, 22) Me.ListC1.Size = New System.Drawing.Size(172, 22)
Me.ListC1.Text = "-c copy" Me.ListC1.Text = "-c copy"
' '
'ListC2 'ListC2
' '
Me.ListC2.Name = "ListC2" Me.ListC2.Name = "ListC2"
Me.ListC2.Size = New System.Drawing.Size(180, 22) Me.ListC2.Size = New System.Drawing.Size(172, 22)
Me.ListC2.Text = "-c:v h264_nvenc " Me.ListC2.Text = "-c:v h264_nvenc "
' '
'ListC3 'ListC3
' '
Me.ListC3.Name = "ListC3" Me.ListC3.Name = "ListC3"
Me.ListC3.Size = New System.Drawing.Size(180, 22) Me.ListC3.Size = New System.Drawing.Size(172, 22)
Me.ListC3.Text = "-c:v hevc_nvenc" Me.ListC3.Text = "-c:v hevc_nvenc"
' '
'ListC4 'ListC4
' '
Me.ListC4.Name = "ListC4" Me.ListC4.Name = "ListC4"
Me.ListC4.Size = New System.Drawing.Size(180, 22) Me.ListC4.Size = New System.Drawing.Size(172, 22)
Me.ListC4.Text = "-c:v libx264" Me.ListC4.Text = "-c:v libx264"
' '
'ListC5 'ListC5
' '
Me.ListC5.Name = "ListC5" Me.ListC5.Name = "ListC5"
Me.ListC5.Size = New System.Drawing.Size(180, 22) Me.ListC5.Size = New System.Drawing.Size(172, 22)
Me.ListC5.Text = "-c:v libx265" Me.ListC5.Text = "-c:v libx265"
' '
'ListC6 'ListC6
' '
Me.ListC6.Name = "ListC6" Me.ListC6.Name = "ListC6"
Me.ListC6.Size = New System.Drawing.Size(180, 22) Me.ListC6.Size = New System.Drawing.Size(172, 22)
Me.ListC6.Text = "-c:v h264_amf" Me.ListC6.Text = "-c:v h264_amf"
' '
'ListC7 'ListC7
' '
Me.ListC7.Name = "ListC7" Me.ListC7.Name = "ListC7"
Me.ListC7.Size = New System.Drawing.Size(180, 22) Me.ListC7.Size = New System.Drawing.Size(172, 22)
Me.ListC7.Text = "-c:v hevc_amf" Me.ListC7.Text = "-c:v hevc_amf"
' '
'ListC8
'
Me.ListC8.Name = "ListC8"
Me.ListC8.Size = New System.Drawing.Size(172, 22)
Me.ListC8.Text = "-c:v h264_qsv"
'
'ListC9
'
Me.ListC9.Name = "ListC9"
Me.ListC9.Size = New System.Drawing.Size(172, 22)
Me.ListC9.Text = "-c:v hevc_qsv"
'
'FFMPEG_CommandP2 'FFMPEG_CommandP2
' '
Me.FFMPEG_CommandP2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ListP1, Me.ListP2, Me.ListP3}) Me.FFMPEG_CommandP2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ListP1, Me.ListP2, Me.ListP3})
@ -845,10 +860,10 @@ Partial Class Einstellungen
Me.TabPage1.HorizontalScrollbarBarColor = True Me.TabPage1.HorizontalScrollbarBarColor = True
Me.TabPage1.HorizontalScrollbarHighlightOnWheel = False Me.TabPage1.HorizontalScrollbarHighlightOnWheel = False
Me.TabPage1.HorizontalScrollbarSize = 10 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.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) 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.TabIndex = 0
Me.TabPage1.Text = " Main" Me.TabPage1.Text = " Main"
Me.TabPage1.VerticalScrollbar = True Me.TabPage1.VerticalScrollbar = True
@ -1088,7 +1103,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
@ -1293,15 +1308,16 @@ Partial Class Einstellungen
' '
'MetroTabPage1 'MetroTabPage1
' '
Me.MetroTabPage1.Controls.Add(Me.GroupBox19)
Me.MetroTabPage1.Controls.Add(Me.GroupBox14) Me.MetroTabPage1.Controls.Add(Me.GroupBox14)
Me.MetroTabPage1.Controls.Add(Me.GB_SubLanguage) Me.MetroTabPage1.Controls.Add(Me.GB_SubLanguage)
Me.MetroTabPage1.Controls.Add(Me.SoftSubs) Me.MetroTabPage1.Controls.Add(Me.SoftSubs)
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
@ -1318,10 +1334,10 @@ Partial Class Einstellungen
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
@ -1555,9 +1571,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 "
' '
@ -1689,17 +1705,29 @@ Partial Class Einstellungen
Me.Btn_Save.TabIndex = 9 Me.Btn_Save.TabIndex = 9
Me.Btn_Save.UseVisualStyleBackColor = False Me.Btn_Save.UseVisualStyleBackColor = False
' '
'ListC8 'GroupBox19
' '
Me.ListC8.Name = "ListC8" Me.GroupBox19.BackColor = System.Drawing.Color.Transparent
Me.ListC8.Size = New System.Drawing.Size(180, 22) Me.GroupBox19.Controls.Add(Me.DubMode)
Me.ListC8.Text = "-c:v h264_qsv" 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, 14)
Me.GroupBox19.Name = "GroupBox19"
Me.GroupBox19.Size = New System.Drawing.Size(490, 59)
Me.GroupBox19.TabIndex = 33
Me.GroupBox19.TabStop = False
Me.GroupBox19.Text = "Dubbed"
' '
'ListC9 'DubMode
' '
Me.ListC9.Name = "ListC9" Me.DubMode.AutoSize = True
Me.ListC9.Size = New System.Drawing.Size(180, 22) Me.DubMode.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.ListC9.Text = "-c:v hevc_qsv" Me.DubMode.Location = New System.Drawing.Point(115, 21)
Me.DubMode.Name = "DubMode"
Me.DubMode.Size = New System.Drawing.Size(258, 19)
Me.DubMode.TabIndex = 5
Me.DubMode.Text = "accept no hardsubs for dubbed shows"
Me.DubMode.UseSelectable = True
' '
'Einstellungen 'Einstellungen
' '
@ -1766,6 +1794,8 @@ Partial Class Einstellungen
Me.GroupBox8.PerformLayout() Me.GroupBox8.PerformLayout()
Me.TabPage7.ResumeLayout(False) Me.TabPage7.ResumeLayout(False)
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox19.ResumeLayout(False)
Me.GroupBox19.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -1897,4 +1927,6 @@ Partial Class Einstellungen
Friend WithEvents CB_Ignore As MetroFramework.Controls.MetroComboBox Friend WithEvents CB_Ignore As MetroFramework.Controls.MetroComboBox
Friend WithEvents ListC8 As ToolStripMenuItem Friend WithEvents ListC8 As ToolStripMenuItem
Friend WithEvents ListC9 As ToolStripMenuItem Friend WithEvents ListC9 As ToolStripMenuItem
Friend WithEvents GroupBox19 As GroupBox
Friend WithEvents DubMode As MetroFramework.Controls.MetroCheckBox
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>

13
Crunchyroll Downloader/einstellungen.vb
View File

@ -57,6 +57,10 @@ Public Class Einstellungen
KodiSupport.Checked = True KodiSupport.Checked = True
End If End If
If Main.DubMode = True Then
DubMode.Checked = True
End If
If Main.DarkModeValue = True Then If Main.DarkModeValue = True Then
DarkMode.Checked = True DarkMode.Checked = True
GroupBoxColor(Color.FromArgb(150, 150, 150)) GroupBoxColor(Color.FromArgb(150, 150, 150))
@ -384,6 +388,14 @@ Public Class Einstellungen
rk.SetValue("IgnoreS1", CB_Ignore.SelectedIndex, RegistryValueKind.String) rk.SetValue("IgnoreS1", CB_Ignore.SelectedIndex, RegistryValueKind.String)
If DubMode.Checked = True Then
Main.DubMode = True
rk.SetValue("DubMode", 1, RegistryValueKind.String)
Else
Main.DubMode = False
rk.SetValue("DubMode", 0, RegistryValueKind.String)
End If
If KodiSupport.Checked = True Then If KodiSupport.Checked = True Then
Main.KodiNaming = True Main.KodiNaming = True
rk.SetValue("KodiSupport", 1, RegistryValueKind.String) rk.SetValue("KodiSupport", 1, RegistryValueKind.String)
@ -960,6 +972,7 @@ Public Class Einstellungen
GroupBox16.ForeColor = color GroupBox16.ForeColor = color
GroupBox17.ForeColor = color GroupBox17.ForeColor = color
GroupBox18.ForeColor = color GroupBox18.ForeColor = color
GroupBox19.ForeColor = color
End Sub End Sub