mirror of
https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git
synced 2024-09-21 03:09:49 +02:00
867 lines
32 KiB
VB.net
867 lines
32 KiB
VB.net
Imports Gecko.Events
|
|
Imports Microsoft.Win32
|
|
Imports System.Net
|
|
Imports System.IO
|
|
Imports System.Text
|
|
Imports System.Threading
|
|
Imports MetroFramework.Forms
|
|
Imports MetroFramework
|
|
Imports MetroFramework.Components
|
|
|
|
Public Class Einstellungen
|
|
Inherits MetroForm
|
|
|
|
Dim Manager As MetroStyleManager = Main.Manager
|
|
|
|
Private Sub Einstellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Label6.Text = "Version " + Application.ProductVersion.ToString
|
|
|
|
Manager.Owner = Me
|
|
Me.StyleManager = Manager
|
|
|
|
If Main.DarkModeValue = True Then
|
|
DarkMode.Checked = True
|
|
GroupBoxColor(Color.FromArgb(150, 150, 150))
|
|
pictureBox1.Image = Main.CloseImg
|
|
Else
|
|
GroupBoxColor(Color.FromArgb(0, 0, 0))
|
|
DarkMode.Checked = False
|
|
End If
|
|
|
|
TabControl1.SelectedIndex = 0
|
|
For i As Integer = 0 To Main.SoftSubs.Count - 1
|
|
If Main.SoftSubs(i) = "deDE" Then
|
|
CBdeDE.Checked = True
|
|
ElseIf Main.SoftSubs(i) = "enUS" Then
|
|
CBenUS.Checked = True
|
|
ElseIf Main.SoftSubs(i) = "ptBR" Then
|
|
CBptBR.Checked = True
|
|
ElseIf Main.SoftSubs(i) = "esLA" Then
|
|
CBesLA.Checked = True
|
|
ElseIf Main.SoftSubs(i) = "frFR" Then
|
|
CBfrFR.Checked = True
|
|
ElseIf Main.SoftSubs(i) = "arME" Then
|
|
CBarME.Checked = True
|
|
ElseIf Main.SoftSubs(i) = "ruRU" Then
|
|
CBruRU.Checked = True
|
|
ElseIf Main.SoftSubs(i) = "itIT" Then
|
|
CBitIT.Checked = True
|
|
ElseIf Main.SoftSubs(i) = "esES" Then
|
|
CBesES.Checked = True
|
|
End If
|
|
Next
|
|
For i As Integer = 0 To Main.SubFunimation.Count - 1
|
|
If Main.SubFunimation(i) = "en" Then
|
|
CB_fun_eng.Checked = True
|
|
ElseIf Main.SubFunimation(i) = "es" Then
|
|
CB_fun_es.Checked = True
|
|
ElseIf Main.SubFunimation(i) = "pt" Then
|
|
CB_fun_ptbr.Checked = True
|
|
End If
|
|
'If Main.SubFunimation(i) = "en" Then
|
|
' RB_eng.Checked = True
|
|
'ElseIf Main.SubFunimation(i) = "es" Then
|
|
' RB_es.Checked = True
|
|
'ElseIf Main.SubFunimation(i) = "pt" Then
|
|
' RB_pt.Checked = True
|
|
'End If
|
|
Next
|
|
If Main.CR_NameMethode = 0 Then
|
|
CR_Filename.SelectedIndex = 0
|
|
ElseIf Main.CR_NameMethode = 1 Then
|
|
CR_Filename.SelectedIndex = 1
|
|
ElseIf Main.CR_NameMethode = 2 Then
|
|
CR_Filename.SelectedIndex = 2
|
|
Else
|
|
CR_Filename.SelectedIndex = 0
|
|
End If
|
|
Me.Location = New Point(Main.Location.X + Main.Width / 2 - Me.Width / 2, Main.Location.Y + Main.Height / 2 - Me.Height / 2)
|
|
Try
|
|
Me.Icon = My.Resources.icon
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
If Main.MergeSubstoMP4 = True Then
|
|
MergeMP4.Checked = True
|
|
End If
|
|
If Main.HybridMode = True Then
|
|
HybridMode_CB.Checked = True
|
|
End If
|
|
|
|
If Main.Funimation_srt = True Then
|
|
CB_srt.Checked = True
|
|
Else
|
|
CB_srt.Checked = False
|
|
End If
|
|
|
|
If Main.Funimation_vtt = True Then
|
|
CB_vtt.Checked = True
|
|
Else
|
|
CB_vtt.Checked = False
|
|
End If
|
|
|
|
If Main.Funimation_dfxp = True Then
|
|
CB_dfxp.Checked = True
|
|
Else
|
|
CB_dfxp.Checked = False
|
|
End If
|
|
|
|
If Main.HardSubFunimation = "en" Then
|
|
CB_Fun_HardSubs.SelectedItem = "English"
|
|
|
|
ElseIf Main.HardSubFunimation = "pt" Then
|
|
CB_Fun_HardSubs.SelectedItem = "Português (Brasil)"
|
|
|
|
ElseIf Main.HardSubFunimation = "es" Then
|
|
CB_Fun_HardSubs.SelectedItem = "Español (LA)"
|
|
|
|
Else
|
|
CB_Fun_HardSubs.SelectedItem = "Disabled"
|
|
'FunimationHardsub.Checked = True
|
|
End If
|
|
|
|
If Main.DubFunimation = "english" Then
|
|
Fun_Dub_Over.SelectedItem = "english"
|
|
|
|
ElseIf Main.DubFunimation = "japanese" Then
|
|
Fun_Dub_Over.SelectedItem = "japanese"
|
|
|
|
ElseIf Main.DubFunimation = "portuguese(Brazil)" Then
|
|
Fun_Dub_Over.SelectedItem = "portuguese(Brazil)"
|
|
|
|
ElseIf Main.DubFunimation = "spanish(Mexico)" Then
|
|
Fun_Dub_Over.SelectedItem = "spanish(Mexico)"
|
|
|
|
Else
|
|
Fun_Dub_Over.SelectedItem = "Disabled"
|
|
End If
|
|
|
|
If Main.SaveLog = True Then
|
|
CB_Log.Checked = True
|
|
End If
|
|
Try
|
|
GB_Resolution.Text = Main.GB_Resolution_Text
|
|
GB_SubLanguage.Text = Main.GB_SubLanguage_Text
|
|
DL_Count_simultaneous.Text = Main.DL_Count_simultaneousText
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
If Main.Reso = 1080 Then
|
|
A1080p.Checked = True
|
|
ElseIf Main.Reso = 720 Then
|
|
A720p.Checked = True
|
|
ElseIf Main.Reso = 480 Then
|
|
A480p.Checked = True
|
|
ElseIf Main.Reso = 360 Then
|
|
A360p.Checked = True
|
|
ElseIf Main.Reso = 42 Then
|
|
AAuto.Checked = True
|
|
End If
|
|
If Main.AoD_Reso = 1080 Then
|
|
AoD_1080_Plus.Checked = True
|
|
ElseIf Main.AoD_Reso = 576 Then
|
|
AoD_576p.Checked = True
|
|
ElseIf Main.AoD_Reso = 0 Then
|
|
AoD_0p.Checked = True
|
|
End If
|
|
|
|
If Check_CB() = False Then
|
|
ComboBox1.Items.Add(Main.CB_SuB_Nothing)
|
|
End If
|
|
If Main.SubSprache = "deDE" Then
|
|
ComboBox1.SelectedItem = "Deutsch"
|
|
ElseIf Main.SubSprache = "enUS" Then
|
|
ComboBox1.SelectedItem = "English"
|
|
ElseIf Main.SubSprache = "ptBR" Then
|
|
ComboBox1.SelectedItem = "Português (Brasil)"
|
|
ElseIf Main.SubSprache = "esLA" Then
|
|
ComboBox1.SelectedItem = "Español (LA)"
|
|
ElseIf Main.SubSprache = "frFR" Then
|
|
ComboBox1.SelectedItem = "Français (France)"
|
|
ElseIf Main.SubSprache = "arME" Then
|
|
ComboBox1.SelectedItem = "العربية (Arabic)"
|
|
ElseIf Main.SubSprache = "ruRU" Then
|
|
ComboBox1.SelectedItem = "Русский (Russian)"
|
|
ElseIf Main.SubSprache = "itIT" Then
|
|
ComboBox1.SelectedItem = "Italiano (Italian)"
|
|
ElseIf Main.SubSprache = "esES" Then
|
|
ComboBox1.SelectedItem = "Español (España)"
|
|
Else
|
|
ComboBox1.SelectedItem = Main.CB_SuB_Nothing
|
|
End If
|
|
|
|
|
|
NumericUpDown2.Value = Main.ErrorTolerance
|
|
NumericUpDown1.Value = Main.MaxDL
|
|
TextBox1.Text = Main.Startseite
|
|
|
|
If InStr(Main.ffmpeg_command, "-c copy") Then
|
|
FFMPEG_CommandP1.Text = "-c copy"
|
|
FFMPEG_CommandP4.Text = "-bsf:a aac_adtstoasc"
|
|
Else
|
|
Dim ffmpegDisplayCurrent As String() = Main.ffmpeg_command.Split(New String() {" "}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
FFMPEG_CommandP1.Text = ffmpegDisplayCurrent(0) + " " + ffmpegDisplayCurrent(1)
|
|
FFMPEG_CommandP2.Text = ffmpegDisplayCurrent(2) + " " + ffmpegDisplayCurrent(3)
|
|
FFMPEG_CommandP3.Text = ffmpegDisplayCurrent(4) + " " + ffmpegDisplayCurrent(5)
|
|
End If
|
|
|
|
|
|
Try
|
|
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
|
|
ListViewAdd_True.Checked = CBool(Integer.Parse(rkg.GetValue("QueueMode").ToString))
|
|
Catch ex As Exception
|
|
End Try
|
|
Try
|
|
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
|
|
Server.Checked = CBool(Integer.Parse(rkg.GetValue("StartServer").ToString))
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles pictureBox4.Click
|
|
Dim rk As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader")
|
|
If InStr(TextBox1.Text, "https://") Then
|
|
Main.Startseite = TextBox1.Text
|
|
rk.SetValue("Startseite", Main.Startseite, RegistryValueKind.String)
|
|
ElseIf TextBox1.Text = Nothing Then
|
|
Main.Startseite = "https://www.crunchyroll.com/"
|
|
rk.SetValue("Startseite", Main.Startseite, RegistryValueKind.String)
|
|
Else
|
|
|
|
End If
|
|
If A1080p.Checked Then
|
|
Main.Reso = 1080
|
|
rk.SetValue("Resu", 1080, RegistryValueKind.String)
|
|
ElseIf A720p.Checked Then
|
|
Main.Reso = 720
|
|
rk.SetValue("Resu", 720, RegistryValueKind.String)
|
|
ElseIf A360p.Checked Then
|
|
Main.Reso = 360
|
|
rk.SetValue("Resu", 360, RegistryValueKind.String)
|
|
ElseIf A480p.Checked Then
|
|
Main.Reso = 480
|
|
rk.SetValue("Resu", 480, RegistryValueKind.String)
|
|
ElseIf AAuto.Checked Then
|
|
Main.Reso = 42
|
|
rk.SetValue("Resu", 42, RegistryValueKind.String)
|
|
End If
|
|
If AoD_1080_Plus.Checked Then
|
|
Main.AoD_Reso = 1080
|
|
rk.SetValue("AoD_Reso", 1080, RegistryValueKind.String)
|
|
ElseIf AoD_576p.Checked Then
|
|
Main.AoD_Reso = 576
|
|
rk.SetValue("AoD_Reso", 576, RegistryValueKind.String)
|
|
ElseIf AoD_0p.Checked Then
|
|
Main.AoD_Reso = 0
|
|
rk.SetValue("AoD_Reso", 0, RegistryValueKind.String)
|
|
|
|
End If
|
|
If ComboBox1.SelectedItem.ToString = "English" Then
|
|
Main.SubSprache = "enUS"
|
|
rk.SetValue("Sub", "enUS", RegistryValueKind.String)
|
|
|
|
ElseIf ComboBox1.SelectedItem.ToString = "Deutsch" Then
|
|
Main.SubSprache = "deDE"
|
|
rk.SetValue("Sub", "deDE", RegistryValueKind.String)
|
|
|
|
ElseIf ComboBox1.SelectedItem.ToString = "Português (Brasil)" Then
|
|
Main.SubSprache = "ptBR"
|
|
rk.SetValue("Sub", "ptBR", RegistryValueKind.String)
|
|
|
|
ElseIf ComboBox1.SelectedItem.ToString = "Español (LA)" Then
|
|
Main.SubSprache = "esLA"
|
|
rk.SetValue("Sub", "esLA", RegistryValueKind.String)
|
|
|
|
ElseIf ComboBox1.SelectedItem.ToString = "Français (France)" Then
|
|
Main.SubSprache = "frFR"
|
|
rk.SetValue("Sub", "frFR", RegistryValueKind.String)
|
|
|
|
ElseIf ComboBox1.SelectedItem.ToString = "العربية (Arabic)" Then
|
|
Main.SubSprache = "arME"
|
|
rk.SetValue("Sub", "arME", RegistryValueKind.String)
|
|
|
|
ElseIf ComboBox1.SelectedItem.ToString = "Русский (Russian)" Then
|
|
Main.SubSprache = "ruRU"
|
|
rk.SetValue("Sub", "ruRU", RegistryValueKind.String)
|
|
|
|
ElseIf ComboBox1.SelectedItem.ToString = "Italiano (Italian)" Then
|
|
Main.SubSprache = "itIT"
|
|
rk.SetValue("Sub", "itIT", RegistryValueKind.String)
|
|
|
|
ElseIf ComboBox1.SelectedItem.ToString = "Español (España)" Then
|
|
Main.SubSprache = "esES"
|
|
rk.SetValue("Sub", "esES", RegistryValueKind.String)
|
|
|
|
ElseIf ComboBox1.SelectedItem.ToString = Main.CB_SuB_Nothing Then
|
|
Main.SubSprache = "None"
|
|
rk.SetValue("Sub", "None", RegistryValueKind.String)
|
|
|
|
End If
|
|
|
|
If CR_Filename.Text = "[episode number]" Then
|
|
Main.CR_NameMethode = 0
|
|
rk.SetValue("CR_NameMethode", 0, RegistryValueKind.String)
|
|
ElseIf CR_Filename.Text = "[episode name]" Then
|
|
Main.CR_NameMethode = 1
|
|
rk.SetValue("CR_NameMethode", 1, RegistryValueKind.String)
|
|
ElseIf CR_Filename.Text = "[episode number] [episode name]" Then
|
|
Main.CR_NameMethode = 2
|
|
rk.SetValue("CR_NameMethode", 2, RegistryValueKind.String)
|
|
|
|
End If
|
|
|
|
If MergeMP4.Checked = True Then
|
|
Main.MergeSubstoMP4 = True
|
|
rk.SetValue("MergeMP4", "1", RegistryValueKind.String)
|
|
Else
|
|
Main.MergeSubstoMP4 = False
|
|
rk.SetValue("MergeMP4", "0", RegistryValueKind.String)
|
|
End If
|
|
If HybridMode_CB.Checked = True Then
|
|
Main.HybridMode = True
|
|
rk.SetValue("HybridMode", "1", RegistryValueKind.String)
|
|
Else
|
|
Main.HybridMode = False
|
|
rk.SetValue("HybridMode", "0", RegistryValueKind.String)
|
|
End If
|
|
#Region "funimation"
|
|
|
|
If CB_srt.Checked = True Then
|
|
Main.Funimation_srt = True
|
|
rk.SetValue("Funimation_srt", "1", RegistryValueKind.String)
|
|
Else
|
|
Main.Funimation_srt = False
|
|
rk.SetValue("Funimation_srt", "0", RegistryValueKind.String)
|
|
End If
|
|
If CB_vtt.Checked = True Then
|
|
Main.Funimation_vtt = True
|
|
rk.SetValue("Funimation_vtt", "1", RegistryValueKind.String)
|
|
Else
|
|
Main.Funimation_vtt = False
|
|
rk.SetValue("Funimation_vtt", "0", RegistryValueKind.String)
|
|
End If
|
|
If CB_dfxp.Checked = True Then
|
|
Main.Funimation_dfxp = True
|
|
rk.SetValue("Funimation_dfxp", "1", RegistryValueKind.String)
|
|
Else
|
|
Main.Funimation_dfxp = False
|
|
rk.SetValue("Funimation_dfxp", "0", RegistryValueKind.String)
|
|
End If
|
|
|
|
|
|
Main.DubFunimation = Fun_Dub_Over.SelectedItem.ToString
|
|
|
|
rk.SetValue("FunimationDub", Fun_Dub_Over.SelectedItem.ToString, RegistryValueKind.String)
|
|
|
|
|
|
If CB_Fun_HardSubs.SelectedItem.ToString = "Disabled" Then
|
|
Main.HardSubFunimation = "Disabled"
|
|
rk.SetValue("FunimationHardsub", "Disabled", RegistryValueKind.String)
|
|
|
|
ElseIf CB_Fun_HardSubs.SelectedItem.ToString = "English" Then
|
|
Main.HardSubFunimation = "en"
|
|
rk.SetValue("FunimationHardsub", "en", RegistryValueKind.String)
|
|
|
|
ElseIf CB_Fun_HardSubs.SelectedItem.ToString = "Português (Brasil)" Then
|
|
Main.HardSubFunimation = "pt"
|
|
rk.SetValue("FunimationHardsub", "pt", RegistryValueKind.String)
|
|
|
|
ElseIf CB_Fun_HardSubs.SelectedItem.ToString = "Español (LA)" Then
|
|
Main.HardSubFunimation = "es"
|
|
rk.SetValue("FunimationHardsub", "es", RegistryValueKind.String)
|
|
|
|
End If
|
|
|
|
Main.SubFunimation.Clear()
|
|
If CB_fun_eng.Checked = True Then
|
|
Main.SubFunimation.Add("en")
|
|
End If
|
|
If CB_fun_es.Checked = True Then
|
|
Main.SubFunimation.Add("es")
|
|
|
|
End If
|
|
If CB_fun_ptbr.Checked = True Then
|
|
Main.SubFunimation.Add("pt")
|
|
End If
|
|
|
|
Dim FunimationSaveString As String = Nothing
|
|
For ii As Integer = 0 To Main.SubFunimation.Count - 1
|
|
If FunimationSaveString = Nothing Then
|
|
FunimationSaveString = Main.SubFunimation(ii)
|
|
Else
|
|
FunimationSaveString = FunimationSaveString + "," + Main.SubFunimation(ii)
|
|
End If
|
|
Next
|
|
If FunimationSaveString = Nothing Then
|
|
FunimationSaveString = "none"
|
|
End If
|
|
rk.SetValue("Fun_Sub", FunimationSaveString, RegistryValueKind.String)
|
|
#End Region
|
|
|
|
|
|
|
|
If CB_Log.Checked = True Then
|
|
Main.SaveLog = True
|
|
rk.SetValue("SaveLog", "1", RegistryValueKind.String)
|
|
Else
|
|
Main.SaveLog = False
|
|
rk.SetValue("SaveLog", "0", RegistryValueKind.String)
|
|
End If
|
|
|
|
If CheckBox1.Enabled = False Then
|
|
|
|
Else
|
|
Dim ffpmeg_cmd As String = Nothing
|
|
If FFMPEG_CommandP1.Text = "-c copy" Then
|
|
ffpmeg_cmd = " " + FFMPEG_CommandP1.Text + " " + FFMPEG_CommandP4.Text
|
|
Else
|
|
|
|
ffpmeg_cmd = " " + FFMPEG_CommandP1.Text + " " + FFMPEG_CommandP2.Text + " " + FFMPEG_CommandP3.Text + " " + FFMPEG_CommandP4.Text
|
|
|
|
End If
|
|
rk.SetValue("ffmpeg_command", ffpmeg_cmd, RegistryValueKind.String)
|
|
Main.ffmpeg_command = ffpmeg_cmd
|
|
End If
|
|
|
|
If InStr(FFMPEG_CommandP1.Text, "nvenc") Then
|
|
If NumericUpDown1.Value > 2 Then
|
|
NumericUpDown1.Value = 2
|
|
End If
|
|
|
|
ElseIf InStr(FFMPEG_CommandP1.Text, "libx26") Then
|
|
If NumericUpDown1.Value > 1 Then
|
|
NumericUpDown1.Value = 1
|
|
End If
|
|
End If
|
|
rk.SetValue("SL_DL", NumericUpDown1.Value, RegistryValueKind.String)
|
|
Main.MaxDL = NumericUpDown1.Value
|
|
|
|
rk.SetValue("ErrorTolerance", NumericUpDown2.Value, RegistryValueKind.String)
|
|
Main.ErrorTolerance = NumericUpDown2.Value
|
|
|
|
If ListViewAdd_True.Checked = True Then
|
|
rk.SetValue("QueueMode", 1, RegistryValueKind.String)
|
|
Main.UseQueue = True
|
|
ElseIf ListViewAdd_True.Checked = False Then
|
|
rk.SetValue("QueueMode", 0, RegistryValueKind.String)
|
|
Main.UseQueue = False
|
|
End If
|
|
If Server.Checked = True Then
|
|
rk.SetValue("StartServer", 1, RegistryValueKind.String)
|
|
Main.StartServer = True
|
|
'Dim t As New Thread(AddressOf Main.ServerStart)
|
|
't.Priority = ThreadPriority.Normal
|
|
't.IsBackground = True
|
|
't.Start()
|
|
ElseIf Server.Checked = False Then
|
|
rk.SetValue("StartServer", 0, RegistryValueKind.String)
|
|
Main.StartServer = False
|
|
End If
|
|
|
|
#Region "sof subs"
|
|
Main.SoftSubs.Clear()
|
|
If CBdeDE.Checked = True Then
|
|
Main.SoftSubs.Add("deDE")
|
|
End If
|
|
If CBenUS.Checked = True Then
|
|
Main.SoftSubs.Add("enUS")
|
|
End If
|
|
If CBptBR.Checked = True Then
|
|
Main.SoftSubs.Add("ptBR")
|
|
End If
|
|
If CBesLA.Checked = True Then
|
|
Main.SoftSubs.Add("esLA")
|
|
End If
|
|
If CBfrFR.Checked = True Then
|
|
Main.SoftSubs.Add("frFR")
|
|
End If
|
|
If CBarME.Checked = True Then
|
|
Main.SoftSubs.Add("arME")
|
|
End If
|
|
If CBruRU.Checked = True Then
|
|
Main.SoftSubs.Add("ruRU")
|
|
End If
|
|
If CBitIT.Checked = True Then
|
|
Main.SoftSubs.Add("itIT")
|
|
End If
|
|
If CBesES.Checked = True Then
|
|
Main.SoftSubs.Add("esES")
|
|
End If
|
|
|
|
Dim SaveString As String = Nothing
|
|
For ii As Integer = 0 To Main.SoftSubs.Count - 1
|
|
If SaveString = Nothing Then
|
|
SaveString = Main.SoftSubs(ii)
|
|
Else
|
|
SaveString = SaveString + "," + Main.SoftSubs(ii)
|
|
End If
|
|
Next
|
|
If SaveString = Nothing Then
|
|
SaveString = "none"
|
|
End If
|
|
rk.SetValue("AddedSubs", SaveString, RegistryValueKind.String)
|
|
#End Region
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Function Check_CB() As Boolean
|
|
Dim C As Boolean = False
|
|
For i As Integer = 0 To ComboBox1.Items.Count - 1
|
|
If ComboBox1.Items.Item(i).ToString = Main.CB_SuB_Nothing Then
|
|
C = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
Return C
|
|
End Function
|
|
|
|
|
|
|
|
Public Function GeräteID() As String
|
|
Dim rnd As New Random
|
|
Dim possible As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
|
|
Dim HWID As String = Nothing
|
|
|
|
For i As Integer = 0 To 15
|
|
Dim ZufallsZahl As Integer = rnd.Next(1, 33)
|
|
HWID = HWID + possible(ZufallsZahl)
|
|
Next
|
|
Return "CRD-Temp-File-" + HWID
|
|
End Function
|
|
|
|
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles pictureBox1.Click
|
|
Me.Close()
|
|
End Sub
|
|
#Region "UI"
|
|
|
|
Private Sub Btn_Close_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox1.MouseEnter
|
|
Dim PB As PictureBox = sender
|
|
PB.Image = My.Resources.main_del
|
|
End Sub
|
|
|
|
Private Sub Btn_Close_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox1.MouseLeave
|
|
Dim PB As PictureBox = sender
|
|
PB.Image = Main.CloseImg
|
|
End Sub
|
|
|
|
Private Sub PictureBox4_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox4.MouseEnter
|
|
pictureBox4.Image = My.Resources.crdSettings_Button_SafeExit_hover
|
|
End Sub
|
|
|
|
Private Sub PictureBox4_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox4.MouseLeave
|
|
pictureBox4.Image = My.Resources.crdSettings_Button_SafeExit
|
|
End Sub
|
|
|
|
|
|
Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboBox1.DrawItem, ComboBox2.DrawItem, comboBox3.DrawItem, comboBox4.DrawItem, CB_Fun_HardSubs.DrawItem, Fun_Dub_Over.DrawItem, CR_Filename.DrawItem
|
|
Dim CB As ComboBox = sender
|
|
CB.BackColor = Color.White
|
|
If e.Index >= 0 Then
|
|
Using st As New StringFormat With {.Alignment = StringAlignment.Center}
|
|
' e.DrawBackground()
|
|
' e.DrawFocusRectangle()
|
|
e.Graphics.FillRectangle(SystemBrushes.ControlLightLight, e.Bounds)
|
|
e.Graphics.DrawString(CB.Items(e.Index).ToString, e.Font, Brushes.Black, e.Bounds, st)
|
|
|
|
End Using
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub AAuto_Click(sender As Object, e As EventArgs) Handles AAuto.Click
|
|
If MergeMP4.Checked = True Then
|
|
If AAuto.Checked = True Then
|
|
If MessageBox.Show("Resolution '[Auto]' and merge the subtitle with the video file will download all resolutions!" + vbNewLine + "Press 'Yes' to enable it anyway", "Prepare for unforeseen consequences.", MessageBoxButtons.YesNo) = DialogResult.Yes Then
|
|
|
|
Else
|
|
AAuto.Checked = False
|
|
A360p.Checked = True
|
|
End If
|
|
End If
|
|
ElseIf HybridMode_CB.Checked = True Then
|
|
If AAuto.Checked = True Then
|
|
MsgBox("Resolution '[Auto]' and 'Hybride Mode' does not work together", MsgBoxStyle.Information)
|
|
AAuto.Checked = False
|
|
A1080p.Checked = True
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MergeMP4_Click(sender As Object, e As EventArgs) Handles MergeMP4.Click
|
|
If MergeMP4.Checked = True Then
|
|
If AAuto.Checked = True Then
|
|
If MessageBox.Show("Resolution '[Auto]' and merge the subtitle with the video file will download all resolutions!" + vbNewLine + "Press 'Yes' to enable it anyway", "Prepare for unforeseen consequences.", MessageBoxButtons.YesNo) = DialogResult.Yes Then
|
|
|
|
Else
|
|
MergeMP4.Checked = False
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub HybridMode_CB_Click(sender As Object, e As EventArgs) Handles HybridMode_CB.Click
|
|
If HybridMode_CB.Checked = True Then
|
|
If AAuto.Checked = True Then
|
|
MsgBox("Resolution '[Auto]' and 'Hybride Mode' does not work together", MsgBoxStyle.Information)
|
|
HybridMode_CB.Checked = False
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
|
|
If Main.SoftSubs.Count > 0 Then
|
|
If CBool(InStr(TextBox2.Text, "crunchyroll.com")) Then
|
|
GeckoFX.WebBrowser1.Navigate(TextBox2.Text)
|
|
StatusLabel.Text = "Status: looking for subtitles"
|
|
Main.d = False
|
|
Main.b = False
|
|
End If
|
|
Else
|
|
Main.TempSoftSubs.Clear()
|
|
If CBdeDE.Checked = True Then
|
|
Main.TempSoftSubs.Add("deDE")
|
|
End If
|
|
If CBenUS.Checked = True Then
|
|
Main.TempSoftSubs.Add("enUS")
|
|
End If
|
|
If CBptBR.Checked = True Then
|
|
Main.TempSoftSubs.Add("ptBR")
|
|
End If
|
|
If CBesLA.Checked = True Then
|
|
Main.TempSoftSubs.Add("esLA")
|
|
End If
|
|
If CBfrFR.Checked = True Then
|
|
Main.TempSoftSubs.Add("frFR")
|
|
End If
|
|
If CBarME.Checked = True Then
|
|
Main.TempSoftSubs.Add("arME")
|
|
End If
|
|
If CBruRU.Checked = True Then
|
|
Main.TempSoftSubs.Add("ruRU")
|
|
End If
|
|
If CBitIT.Checked = True Then
|
|
Main.TempSoftSubs.Add("itIT")
|
|
End If
|
|
If CBesES.Checked = True Then
|
|
Main.TempSoftSubs.Add("esES")
|
|
End If
|
|
If Main.TempSoftSubs.Count > 0 Then
|
|
|
|
If CBool(InStr(TextBox2.Text, "crunchyroll.com")) Then
|
|
GeckoFX.WebBrowser1.Navigate(TextBox2.Text)
|
|
StatusLabel.Text = "Status: looking for subtitles"
|
|
Main.d = False
|
|
Main.b = False
|
|
End If
|
|
Else
|
|
StatusLabel.Text = "Status: No language selected"
|
|
Pause(3)
|
|
StatusLabel.Text = "Status: idle"
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
|
|
Main.MassSubsDL()
|
|
End Sub
|
|
|
|
Private Sub PictureBox3_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox3.MouseEnter
|
|
PictureBox3.Image = My.Resources.softsubs_download_hover
|
|
End Sub
|
|
|
|
Private Sub PictureBox3_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox3.MouseLeave
|
|
PictureBox3.Image = My.Resources.softsubs_download
|
|
End Sub
|
|
Private Sub PictureBox5_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox5.MouseEnter
|
|
PictureBox5.Image = My.Resources.softsubs_download_hover
|
|
End Sub
|
|
|
|
Private Sub PictureBox5_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox5.MouseLeave
|
|
PictureBox5.Image = My.Resources.softsubs_download
|
|
End Sub
|
|
|
|
Private Sub TextBox2_Click(sender As Object, e As EventArgs) Handles TextBox2.Click
|
|
If TextBox2.Text = "URL" Then
|
|
TextBox2.Text = Nothing
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
|
|
|
|
comboBox3.Items.Clear()
|
|
comboBox4.Items.Clear()
|
|
Dim SeasonDropdownAnzahl As String() = Main.WebbrowserText.Split(New String() {"season-dropdown content-menu block"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Array.Reverse(SeasonDropdownAnzahl)
|
|
Dim SDV As Integer = 0
|
|
For i As Integer = 0 To SeasonDropdownAnzahl.Count - 1
|
|
If InStr(SeasonDropdownAnzahl(i), Chr(34) + ">" + ComboBox2.SelectedItem.ToString + "</a>") Then
|
|
SDV = i
|
|
End If
|
|
Next
|
|
Dim Anzahl As String() = SeasonDropdownAnzahl(SDV).Split(New String() {"wrapper container-shadow hover-classes"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim c As Integer = Anzahl.Count - 1
|
|
Array.Reverse(Anzahl)
|
|
For i As Integer = 0 To Anzahl.Count - 2
|
|
Dim URLGrapp As String() = Anzahl(i).Split(New String() {"title=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
|
|
Dim URLGrapp2 As String() = URLGrapp(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
|
|
comboBox3.Items.Add(URLGrapp2(0))
|
|
comboBox4.Items.Add(URLGrapp2(0))
|
|
Next
|
|
End Sub
|
|
|
|
|
|
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
|
|
GroupBox2.Enabled = CheckBox1.CheckState
|
|
If FFMPEG_CommandP1.Text = "-c copy" Then
|
|
FFMPEG_CommandP2.Enabled = False
|
|
FFMPEG_CommandP3.Enabled = False
|
|
Else
|
|
FFMPEG_CommandP2.Enabled = True
|
|
FFMPEG_CommandP3.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ListC1_Click(sender As Object, e As EventArgs) Handles ListC1.Click, ListC2.Click, ListC3.Click, ListC4.Click, ListC5.Click
|
|
Dim Button As ToolStripMenuItem = sender
|
|
If Button.Text = "-c copy" Then
|
|
FFMPEG_CommandP1.Text = "-c copy"
|
|
FFMPEG_CommandP2.Enabled = False
|
|
FFMPEG_CommandP3.Enabled = False
|
|
Else
|
|
FFMPEG_CommandP1.Text = Button.Text
|
|
FFMPEG_CommandP2.Enabled = True
|
|
FFMPEG_CommandP3.Enabled = True
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub ListP1_Click(sender As Object, e As EventArgs) Handles ListP1.Click, ListP2.Click
|
|
Dim Button As ToolStripMenuItem = sender
|
|
FFMPEG_CommandP2.Text = Button.Text
|
|
FFMPEG_CommandP2.Enabled = True
|
|
FFMPEG_CommandP3.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub ListBit1_Click(sender As Object, e As EventArgs) Handles ListBit1.Click, ListBit2.Click, ListBit3.Click, ListBit4.Click, ListBit5.Click, ListBit6.Click, ListBit7.Click
|
|
Dim Button As ToolStripMenuItem = sender
|
|
FFMPEG_CommandP3.Text = Button.Text
|
|
FFMPEG_CommandP2.Enabled = True
|
|
FFMPEG_CommandP3.Enabled = True
|
|
End Sub
|
|
|
|
|
|
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
|
|
GeckoFX.Show()
|
|
Main.LoginOnly = "US_UnBlock"
|
|
|
|
GeckoFX.WebBrowser1.Navigate("https://api.criater-stiftung.org/us-unlock.php")
|
|
End Sub
|
|
|
|
Private Sub PictureBox2_Enter(sender As Object, e As EventArgs) Handles PictureBox2.MouseEnter
|
|
PictureBox2.Image = My.Resources.crdsettings_setUScookie_button_hover
|
|
End Sub
|
|
|
|
Private Sub PictureBox2_Leave(sender As Object, e As EventArgs) Handles PictureBox2.MouseLeave
|
|
PictureBox2.Image = My.Resources.crdsettings_setUScookie_button
|
|
|
|
End Sub
|
|
|
|
Private Sub FunimationHardsub_Click(sender As Object, e As EventArgs)
|
|
|
|
If FFMPEG_CommandP1.Text = "-c copy" Then
|
|
If CB_Fun_HardSubs.SelectedItem = "Disabled" Then
|
|
Else
|
|
|
|
If MessageBox.Show("This feature does not work with the current output setting." + vbNewLine + "Do you want to ignore the output settings?", "Settings incompatible", MessageBoxButtons.YesNo) = DialogResult.Yes Then
|
|
'FunimationHardsub.Checked = True
|
|
Else
|
|
CB_Fun_HardSubs.SelectedItem = "Disabled"
|
|
End If
|
|
End If
|
|
Else
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Label7_Click(sender As Object, e As EventArgs)
|
|
Process.Start("https://bitbucket.org/geckofx/geckofx-60.0/src/default/")
|
|
End Sub
|
|
|
|
Private Sub Label3_Click(sender As Object, e As EventArgs)
|
|
Process.Start("https://www.ffmpeg.org/about.html")
|
|
End Sub
|
|
|
|
Private Sub Label9_Click(sender As Object, e As EventArgs)
|
|
Process.Start("https://github.com/hama3254/metroframework-modern-ui")
|
|
End Sub
|
|
|
|
|
|
|
|
Sub GroupBoxColor(ByVal color As Color)
|
|
SoftSubs.ForeColor = color
|
|
GB_SubLanguage.ForeColor = color
|
|
DL_Count_simultaneous.ForeColor = color
|
|
GB_Resolution.ForeColor = color
|
|
GroupBox1.ForeColor = color
|
|
GroupBox2.ForeColor = color
|
|
GroupBox3.ForeColor = color
|
|
GroupBox5.ForeColor = color
|
|
GroupBox6.ForeColor = color
|
|
GroupBox7.ForeColor = color
|
|
GroupBox8.ForeColor = color
|
|
GroupBox9.ForeColor = color
|
|
GroupBox10.ForeColor = color
|
|
GroupBox11.ForeColor = color
|
|
GroupBox12.ForeColor = color
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub GroupBox2_EnabledChanged(sender As Object, e As EventArgs) Handles GroupBox2.EnabledChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub DarkMode_CheckedChanged(sender As Object, e As EventArgs) Handles DarkMode.CheckedChanged
|
|
Dim rk As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader")
|
|
|
|
If DarkMode.Checked = True Then
|
|
rk.SetValue("Dark_Mode", 1, RegistryValueKind.String)
|
|
Manager.Theme = MetroThemeStyle.Dark
|
|
GroupBoxColor(Color.FromArgb(150, 150, 150))
|
|
Main.DarkMode()
|
|
Main.DarkModeValue = True
|
|
pictureBox1.Image = Main.CloseImg
|
|
Else
|
|
Main.DarkModeValue = False
|
|
rk.SetValue("Dark_Mode", 0, RegistryValueKind.String)
|
|
Manager.Theme = MetroThemeStyle.Light
|
|
Main.LightMode()
|
|
GroupBoxColor(Color.FromArgb(0, 0, 0))
|
|
pictureBox1.Image = Main.CloseImg
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#End Region
|
|
End Class |