added curl option

added curl option "--insecure" #559
This commit is contained in:
hama3254 2022-10-26 09:39:24 +02:00
parent 8292480f41
commit 6d96f606a3
5 changed files with 92 additions and 46 deletions

Binary file not shown.

View File

@ -149,6 +149,7 @@ Public Class Main
Public DefaultSubCR As String = "Disabled" Public DefaultSubCR As String = "Disabled"
Public DubMode As Boolean = True Public DubMode As Boolean = True
Public CR_Chapters As Boolean = False Public CR_Chapters As Boolean = False
Public Curl_insecure As Boolean = False
#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."
@ -518,6 +519,12 @@ Public Class Main
CR_Chapters = CBool(Integer.Parse(rkg.GetValue("CR_Chapters").ToString)) CR_Chapters = CBool(Integer.Parse(rkg.GetValue("CR_Chapters").ToString))
Catch ex As Exception Catch ex As Exception
End Try End Try
Try
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
Curl_insecure = CBool(Integer.Parse(rkg.GetValue("Curl_insecure").ToString))
'MsgBox(Curl_insecure.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")
@ -1020,11 +1027,13 @@ Public Class Main
Dim startinfo As New System.Diagnostics.ProcessStartInfo Dim startinfo As New System.Diagnostics.ProcessStartInfo
Dim sr As StreamReader Dim sr As StreamReader
Dim sr2 As StreamReader Dim sr2 As StreamReader
Dim cmd As String = ""
If Curl_insecure = True Then
Dim cmd As String = "--no-alpn -fsSLm 15 -A " + My.Resources.ffmpeg_user_agend.Replace("User-Agent: ", "") + " " + Chr(34) + Url + Chr(34) cmd = "--insecure "
End If
cmd = cmd + "--no-alpn -fsSLm 15 -A " + My.Resources.ffmpeg_user_agend.Replace("User-Agent: ", "") + " " + Chr(34) + Url + Chr(34)
Dim Proc As New Process Dim Proc As New Process
'MsgBox(cmd) MsgBox(cmd)
Dim CurlOutput As String = Nothing Dim CurlOutput As String = Nothing
Dim CurlError As String = Nothing Dim CurlError As String = Nothing
' all parameters required to run the process ' all parameters required to run the process
@ -1073,8 +1082,11 @@ Public Class Main
Dim sr2 As StreamReader Dim sr2 As StreamReader
Dim cmd As String = ""
Dim cmd As String = "--no-alpn -fsSLm 15 -A " + My.Resources.ffmpeg_user_agend.Replace("User-Agent: ", "") + Cookies + Auth + Post + " " + Chr(34) + Url + Chr(34) If Curl_insecure = True Then
cmd = "--insecure "
End If
cmd = cmd + "--no-alpn -fsSLm 15 -A " + My.Resources.ffmpeg_user_agend.Replace("User-Agent: ", "") + Cookies + Auth + Post + " " + Chr(34) + Url + Chr(34)
Dim Proc As New Process Dim Proc As New Process
'MsgBox(cmd) 'MsgBox(cmd)
Dim CurlOutput As String = Nothing Dim CurlOutput As String = Nothing
@ -1127,7 +1139,11 @@ Public Class Main
Dim cmd As String = "--no-alpn -fsSLm 15 -A " + My.Resources.ffmpeg_user_agend.Replace("User-Agent: ", "") + Cookies + Auth + " " + Chr(34) + Url + Chr(34) Dim cmd As String = ""
If Curl_insecure = True Then
cmd = "--insecure "
End If
cmd = cmd + "--no-alpn -fsSLm 15 -A " + My.Resources.ffmpeg_user_agend.Replace("User-Agent: ", "") + Cookies + Auth + " " + Chr(34) + Url + Chr(34)
Dim Proc As New Process Dim Proc As New Process
'MsgBox(cmd) 'MsgBox(cmd)
Dim CurlOutput As String = Nothing Dim CurlOutput As String = Nothing

View File

@ -120,6 +120,8 @@ Partial Class Einstellungen
Me.DD_Season_Prefix = New MetroFramework.Controls.MetroComboBox() Me.DD_Season_Prefix = New MetroFramework.Controls.MetroComboBox()
Me.CR_Filename = New MetroFramework.Controls.MetroComboBox() Me.CR_Filename = New MetroFramework.Controls.MetroComboBox()
Me.MetroTabPage1 = New MetroFramework.Controls.MetroTabPage() Me.MetroTabPage1 = New MetroFramework.Controls.MetroTabPage()
Me.GroupBox20 = New System.Windows.Forms.GroupBox()
Me.ChB_Chapters = New MetroFramework.Controls.MetroCheckBox()
Me.GroupBox19 = New System.Windows.Forms.GroupBox() Me.GroupBox19 = New System.Windows.Forms.GroupBox()
Me.DubMode = New MetroFramework.Controls.MetroCheckBox() Me.DubMode = New MetroFramework.Controls.MetroCheckBox()
Me.TabPage6 = New MetroFramework.Controls.MetroTabPage() Me.TabPage6 = New MetroFramework.Controls.MetroTabPage()
@ -151,8 +153,7 @@ 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.GroupBox20 = New System.Windows.Forms.GroupBox() Me.Chb_Ign_tls = New MetroFramework.Controls.MetroCheckBox()
Me.ChB_Chapters = 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()
@ -179,6 +180,7 @@ Partial Class Einstellungen
Me.GB_Filename_Pre.SuspendLayout() Me.GB_Filename_Pre.SuspendLayout()
Me.GroupBox12.SuspendLayout() Me.GroupBox12.SuspendLayout()
Me.MetroTabPage1.SuspendLayout() Me.MetroTabPage1.SuspendLayout()
Me.GroupBox20.SuspendLayout()
Me.GroupBox19.SuspendLayout() Me.GroupBox19.SuspendLayout()
Me.TabPage6.SuspendLayout() Me.TabPage6.SuspendLayout()
Me.GroupBox15.SuspendLayout() Me.GroupBox15.SuspendLayout()
@ -190,7 +192,6 @@ 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.GroupBox20.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'ToolTip1 'ToolTip1
@ -866,10 +867,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
@ -886,9 +887,9 @@ Partial Class Einstellungen
Me.GroupBox6.Controls.Add(Me.NumericUpDown2) Me.GroupBox6.Controls.Add(Me.NumericUpDown2)
Me.GroupBox6.Font = New System.Drawing.Font("Arial", 9.75!) Me.GroupBox6.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox6.ForeColor = System.Drawing.Color.Black Me.GroupBox6.ForeColor = System.Drawing.Color.Black
Me.GroupBox6.Location = New System.Drawing.Point(3, 320) Me.GroupBox6.Location = New System.Drawing.Point(3, 360)
Me.GroupBox6.Name = "GroupBox6" Me.GroupBox6.Name = "GroupBox6"
Me.GroupBox6.Size = New System.Drawing.Size(490, 150) Me.GroupBox6.Size = New System.Drawing.Size(490, 112)
Me.GroupBox6.TabIndex = 80 Me.GroupBox6.TabIndex = 80
Me.GroupBox6.TabStop = False Me.GroupBox6.TabStop = False
Me.GroupBox6.Text = "Error Handling" Me.GroupBox6.Text = "Error Handling"
@ -906,7 +907,7 @@ Partial Class Einstellungen
'CheckBox2 'CheckBox2
' '
Me.CheckBox2.AutoSize = True Me.CheckBox2.AutoSize = True
Me.CheckBox2.Location = New System.Drawing.Point(182, 110) Me.CheckBox2.Location = New System.Drawing.Point(4, 70)
Me.CheckBox2.Name = "CheckBox2" Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(125, 15) Me.CheckBox2.Size = New System.Drawing.Size(125, 15)
Me.CheckBox2.TabIndex = 44 Me.CheckBox2.TabIndex = 44
@ -935,13 +936,14 @@ Partial Class Einstellungen
'GroupBox5 'GroupBox5
' '
Me.GroupBox5.BackColor = System.Drawing.Color.Transparent Me.GroupBox5.BackColor = System.Drawing.Color.Transparent
Me.GroupBox5.Controls.Add(Me.Chb_Ign_tls)
Me.GroupBox5.Controls.Add(Me.http_support) Me.GroupBox5.Controls.Add(Me.http_support)
Me.GroupBox5.Controls.Add(Me.DarkMode) Me.GroupBox5.Controls.Add(Me.DarkMode)
Me.GroupBox5.Font = New System.Drawing.Font("Arial", 9.75!) Me.GroupBox5.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox5.ForeColor = System.Drawing.Color.Black Me.GroupBox5.ForeColor = System.Drawing.Color.Black
Me.GroupBox5.Location = New System.Drawing.Point(3, 240) Me.GroupBox5.Location = New System.Drawing.Point(3, 240)
Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(490, 67) Me.GroupBox5.Size = New System.Drawing.Size(490, 114)
Me.GroupBox5.TabIndex = 70 Me.GroupBox5.TabIndex = 70
Me.GroupBox5.TabStop = False Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "Other" Me.GroupBox5.Text = "Other"
@ -964,9 +966,10 @@ Partial Class Einstellungen
'DarkMode 'DarkMode
' '
Me.DarkMode.AutoSize = True Me.DarkMode.AutoSize = True
Me.DarkMode.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.DarkMode.Location = New System.Drawing.Point(41, 30) Me.DarkMode.Location = New System.Drawing.Point(41, 30)
Me.DarkMode.Name = "DarkMode" Me.DarkMode.Name = "DarkMode"
Me.DarkMode.Size = New System.Drawing.Size(118, 15) Me.DarkMode.Size = New System.Drawing.Size(135, 19)
Me.DarkMode.TabIndex = 5 Me.DarkMode.TabIndex = 5
Me.DarkMode.Text = "enable dark mode" Me.DarkMode.Text = "enable dark mode"
Me.DarkMode.UseSelectable = True Me.DarkMode.UseSelectable = True
@ -1109,7 +1112,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 = 3 Me.TabControl1.SelectedIndex = 0
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
@ -1331,6 +1334,30 @@ Partial Class Einstellungen
Me.MetroTabPage1.VerticalScrollbarHighlightOnWheel = False Me.MetroTabPage1.VerticalScrollbarHighlightOnWheel = False
Me.MetroTabPage1.VerticalScrollbarSize = 10 Me.MetroTabPage1.VerticalScrollbarSize = 10
' '
'GroupBox20
'
Me.GroupBox20.BackColor = System.Drawing.Color.Transparent
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, 385)
Me.GroupBox20.Name = "GroupBox20"
Me.GroupBox20.Size = New System.Drawing.Size(490, 62)
Me.GroupBox20.TabIndex = 34
Me.GroupBox20.TabStop = False
Me.GroupBox20.Text = "Chapters"
'
'ChB_Chapters
'
Me.ChB_Chapters.AutoSize = True
Me.ChB_Chapters.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.ChB_Chapters.Location = New System.Drawing.Point(158, 23)
Me.ChB_Chapters.Name = "ChB_Chapters"
Me.ChB_Chapters.Size = New System.Drawing.Size(145, 19)
Me.ChB_Chapters.TabIndex = 5
Me.ChB_Chapters.Text = "enable CR Chapters"
Me.ChB_Chapters.UseSelectable = True
'
'GroupBox19 'GroupBox19
' '
Me.GroupBox19.BackColor = System.Drawing.Color.Transparent Me.GroupBox19.BackColor = System.Drawing.Color.Transparent
@ -1365,10 +1392,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
@ -1602,9 +1629,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 "
' '
@ -1736,29 +1763,16 @@ Partial Class Einstellungen
Me.Btn_Save.TabIndex = 9 Me.Btn_Save.TabIndex = 9
Me.Btn_Save.UseVisualStyleBackColor = False Me.Btn_Save.UseVisualStyleBackColor = False
' '
'GroupBox20 'Chb_Ign_tls
' '
Me.GroupBox20.BackColor = System.Drawing.Color.Transparent Me.Chb_Ign_tls.AutoSize = True
Me.GroupBox20.Controls.Add(Me.ChB_Chapters) Me.Chb_Ign_tls.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.GroupBox20.Font = New System.Drawing.Font("Arial", 9.75!) Me.Chb_Ign_tls.Location = New System.Drawing.Point(135, 80)
Me.GroupBox20.ForeColor = System.Drawing.Color.Black Me.Chb_Ign_tls.Name = "Chb_Ign_tls"
Me.GroupBox20.Location = New System.Drawing.Point(3, 385) Me.Chb_Ign_tls.Size = New System.Drawing.Size(223, 19)
Me.GroupBox20.Name = "GroupBox20" Me.Chb_Ign_tls.TabIndex = 46
Me.GroupBox20.Size = New System.Drawing.Size(490, 62) Me.Chb_Ign_tls.Text = "add ""--insecure"" to curl requests"
Me.GroupBox20.TabIndex = 34 Me.Chb_Ign_tls.UseSelectable = True
Me.GroupBox20.TabStop = False
Me.GroupBox20.Text = "Chapters"
'
'ChB_Chapters
'
Me.ChB_Chapters.AutoSize = True
Me.ChB_Chapters.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.ChB_Chapters.Location = New System.Drawing.Point(158, 23)
Me.ChB_Chapters.Name = "ChB_Chapters"
Me.ChB_Chapters.Size = New System.Drawing.Size(145, 19)
Me.ChB_Chapters.TabIndex = 5
Me.ChB_Chapters.Text = "enable CR Chapters"
Me.ChB_Chapters.UseSelectable = True
' '
'Einstellungen 'Einstellungen
' '
@ -1812,6 +1826,8 @@ Partial Class Einstellungen
Me.GB_Filename_Pre.PerformLayout() Me.GB_Filename_Pre.PerformLayout()
Me.GroupBox12.ResumeLayout(False) Me.GroupBox12.ResumeLayout(False)
Me.MetroTabPage1.ResumeLayout(False) Me.MetroTabPage1.ResumeLayout(False)
Me.GroupBox20.ResumeLayout(False)
Me.GroupBox20.PerformLayout()
Me.GroupBox19.ResumeLayout(False) Me.GroupBox19.ResumeLayout(False)
Me.GroupBox19.PerformLayout() Me.GroupBox19.PerformLayout()
Me.TabPage6.ResumeLayout(False) Me.TabPage6.ResumeLayout(False)
@ -1826,8 +1842,6 @@ 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.GroupBox20.ResumeLayout(False)
Me.GroupBox20.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -1963,4 +1977,5 @@ Partial Class Einstellungen
Friend WithEvents CB_Merge As MetroFramework.Controls.MetroComboBox Friend WithEvents CB_Merge As MetroFramework.Controls.MetroComboBox
Friend WithEvents GroupBox20 As GroupBox Friend WithEvents GroupBox20 As GroupBox
Friend WithEvents ChB_Chapters As MetroFramework.Controls.MetroCheckBox Friend WithEvents ChB_Chapters As MetroFramework.Controls.MetroCheckBox
Friend WithEvents Chb_Ign_tls As MetroFramework.Controls.MetroCheckBox
End Class End Class

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>

View File

@ -65,6 +65,10 @@ Public Class Einstellungen
ChB_Chapters.Checked = True ChB_Chapters.Checked = True
End If End If
If Main.Curl_insecure = True Then
Chb_Ign_tls.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))
@ -404,6 +408,14 @@ Public Class Einstellungen
rk.SetValue("CR_Chapters", 0, RegistryValueKind.String) rk.SetValue("CR_Chapters", 0, RegistryValueKind.String)
End If End If
If Chb_Ign_tls.Checked = True Then
Main.Curl_insecure = True
rk.SetValue("Curl_insecure", 1, RegistryValueKind.String)
Else
Main.Curl_insecure = False
rk.SetValue("Curl_insecure", 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)