Mirrors/Crunchyroll-Downloader-v3.0
2
0
Fork 0
mirror of https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git synced 2025-01-11 15:59:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

merge portable into main

Browse Source 
replaced regedit with an settings file
replaced listview with panel
cleanup for metadata added
api requests improved
error handling added for api access and false postives
This commit is contained in:
hama3254 2022-11-10 14:31:11 +01:00
parent ba3883c16c
commit 54297c5f54
20 changed files with 2561 additions and 2030 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.

52
Crunchyroll Downloader/Anime_Add.vb
View File

@ -10,6 +10,7 @@ Imports MetroFramework.Components
Imports CefSharp
Imports System.Text
Imports System.Runtime.InteropServices.ComTypes
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Status
Public Class Anime_Add
Public Mass_DL_Cancel As Boolean = False
@ -131,6 +132,8 @@ Public Class Anime_Add
'MsgBox(Cookies)
Main.CR_Cookies = " -H " + Chr(34) + Main.CR_Cookies + Chr(34)
#End Region
Dim Auth As String = " -H " + Chr(34) + "Authorization: " + Main.CrBetaBasic + Chr(34)
Dim Post As String = " -d " + Chr(34) + "grant_type=etp_rt_cookie" + Chr(34) + " -X POST"
@ -139,7 +142,21 @@ Public Class Anime_Add
Dim v1Token As String = Main.CurlPost("https://www.crunchyroll.com/auth/v1/token", Main.CR_Cookies, Auth, Post)
If CBool(InStr(v1Token, "curl:")) = True Then
If CBool(InStr(v1Token, "curl:")) = True And CBool(InStr(v1Token, "400")) = True Then
v1Token = Main.CurlPost("https://www.crunchyroll.com/auth/v1/token", Main.CR_Cookies, Auth, Post.Replace("etp_rt_cookie", "client_id"))
End If
If CBool(InStr(v1Token, "curl:")) = True And CBool(InStr(v1Token, "400")) = True Then
Me.StatusLabel.Text = "Status: Failed - bad request, check CR login"
Main.Text = "Status: Failed - bad request, check CR login"
Debug.WriteLine("Status: Failed - bad request, check CR login")
Main.b = True
Exit Sub
ElseIf CBool(InStr(v1Token, "curl:")) = True Then
v1Token = Main.CurlPost("https://www.crunchyroll.com/auth/v1/token", Main.CR_Cookies, Auth, Post)
End If
@ -219,6 +236,7 @@ Public Class Anime_Add
Dim ObjectJson As String
Try
ObjectJson = Main.Curl(ObjectsUrl)
'MsgBox(ObjectJson)
If CBool(InStr(ObjectJson, "curl:")) = True Then
ObjectJson = Main.Curl(ObjectsUrl)
@ -227,6 +245,12 @@ Public Class Anime_Add
If CBool(InStr(ObjectJson, "curl:")) = True Then
CefSharp_Browser.WebBrowser1.Load(Url)
Exit Sub
ElseIf CBool(InStr(ObjectJson, "videos/")) = False Then
StatusLabel.Text = "Status: Failed - no video, check CR login"
Main.Text = "Status: Failed - no video, check CR login"
Debug.WriteLine("Status: Failed - no video, check CR login")
Exit Sub
End If
'Try
@ -491,8 +515,8 @@ Public Class Anime_Add
Main.b = False
Debug.WriteLine("Start loading: " + Date.Now.ToString)
LoadBrowser(textBox1.Text)
StatusLabel.Text = "Status: loading ...."
LoadBrowser(textBox1.Text)
Else
Debug.WriteLine("Not Ready!")
End If
@ -836,15 +860,20 @@ Public Class Anime_Add
End If
Try
Dim ItemFinshedCount As Integer = 0
For i As Integer = 0 To Main.ListView1.Items.Count - 1
If Main.ItemList(i).GetIsStatusFinished() = True Then
Dim Item As New List(Of CRD_List_Item)
Item.AddRange(Main.Panel1.Controls.OfType(Of CRD_List_Item))
For i As Integer = 0 To Item.Count - 1
Debug.WriteLine(Item(i).GetIsStatusFinished().ToString)
If Item(i).GetIsStatusFinished() = True Then
ItemFinshedCount = ItemFinshedCount + 1
End If
Next
Main.RunningDownloads = Main.ListView1.Items.Count - ItemFinshedCount
Main.RunningDownloads = Item.Count - ItemFinshedCount
Catch ex As Exception
Main.RunningDownloads = Main.ListView1.Items.Count
Main.RunningDownloads = Main.Panel1.Controls.Count
End Try
If Main.RunningDownloads < Main.MaxDL Then
@ -882,10 +911,10 @@ Public Class Anime_Add
Main.WebbrowserURL = UriUsed
ListBox1.Items.Remove(ListBox1.Items(0))
Main.b = False
LoadBrowser(UriUsed)
StatusLabel.Text = "Status: loading in browser"
Main.Text = "Status: loading in browser"
LoadBrowser(UriUsed)
Main.Invalidate()
End If
@ -985,8 +1014,11 @@ Public Class Anime_Add
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
ComboBox2.Items.Clear()
Main.Pfad = FolderBrowserDialog1.SelectedPath
Dim rk0 As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader")
rk0.SetValue("Ordner", Main.Pfad, RegistryValueKind.String)
'Dim rk0 As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader")
'rk0.SetValue("Ordner", Main.Pfad, RegistryValueKind.String)
My.Settings.Pfad = Main.Pfad
My.Settings.Save()
ComboBox2.Items.Add(SubFolder_automatic)
ComboBox2.Items.Add(SubFolder_automatic2)

124
Crunchyroll Downloader/App.config
View File

@ -1,5 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="Crunchyroll_Downloader.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
</startup>
@ -21,4 +26,123 @@
<httpWebRequest useUnsafeHeaderParsing="true" />
</settings>
</system.net>
<userSettings>
<Crunchyroll_Downloader.My.MySettings>
<setting name="DarkModeValue" serializeAs="String">
<value>False</value>
</setting>
<setting name="Pfad" serializeAs="String">
<value />
</setting>
<setting name="Fun_Sub" serializeAs="String">
<value>None</value>
</setting>
<setting name="ffmpeg_command" serializeAs="String">
<value> -c copy -c:a copy -bsf:a aac_adtstoasc</value>
</setting>
<setting name="AddedSubs" serializeAs="String">
<value>None</value>
</setting>
<setting name="FunimationDub" serializeAs="String">
<value>Disabled</value>
</setting>
<setting name="FunimationHardsub" serializeAs="String">
<value>Disabled</value>
</setting>
<setting name="DefaultSubFunimation" serializeAs="String">
<value>Disabled</value>
</setting>
<setting name="SubFolder_Value" serializeAs="String">
<value>[ ignore subfolder ]</value>
</setting>
<setting name="TempFolder" serializeAs="String">
<value />
</setting>
<setting name="Startseite" serializeAs="String">
<value>https://www.crunchyroll.com/</value>
</setting>
<setting name="Prefix_S" serializeAs="String">
<value>[default season prefix]</value>
</setting>
<setting name="Prefix_E" serializeAs="String">
<value>[default episode prefix]</value>
</setting>
<setting name="DefaultSubCR" serializeAs="String">
<value />
</setting>
<setting name="VideoFormat" serializeAs="String">
<value>.mp4</value>
</setting>
<setting name="MergeSubs" serializeAs="String">
<value>[merge disabled]</value>
</setting>
<setting name="KodiSupport" serializeAs="String">
<value>False</value>
</setting>
<setting name="Dark_Mode" serializeAs="String">
<value>False</value>
</setting>
<setting name="Funimation_srt" serializeAs="String">
<value>False</value>
</setting>
<setting name="Funimation_vtt" serializeAs="String">
<value>False</value>
</setting>
<setting name="QueueMode" serializeAs="String">
<value>False</value>
</setting>
<setting name="IncludeLangName" serializeAs="String">
<value>False</value>
</setting>
<setting name="CR_Chapters" serializeAs="String">
<value>False</value>
</setting>
<setting name="Curl_insecure" serializeAs="String">
<value>False</value>
</setting>
<setting name="DubMode" serializeAs="String">
<value>False</value>
</setting>
<setting name="Keep_Cache" serializeAs="String">
<value>False</value>
</setting>
<setting name="HybridMode" serializeAs="String">
<value>False</value>
</setting>
<setting name="HybridThread" serializeAs="String">
<value>8</value>
</setting>
<setting name="LangNameType" serializeAs="String">
<value>0</value>
</setting>
<setting name="SL_DL" serializeAs="String">
<value>1</value>
</setting>
<setting name="Reso" serializeAs="String">
<value>1080</value>
</setting>
<setting name="CR_NameMethode" serializeAs="String">
<value>0</value>
</setting>
<setting name="LeadingZero" serializeAs="String">
<value>0</value>
</setting>
<setting name="Funimation_Bitrate" serializeAs="String">
<value>0</value>
</setting>
<setting name="ServerPort" serializeAs="String">
<value>0</value>
</setting>
<setting name="IgnoreSeason" serializeAs="String">
<value>0</value>
</setting>
<setting name="Subtitle" serializeAs="String">
<value>None</value>
</setting>
<setting name="ErrorTolerance" serializeAs="String">
<value>0</value>
</setting>
</Crunchyroll_Downloader.My.MySettings>
</userSettings>
</configuration>

3
Crunchyroll Downloader/CRD_List_Item.Designer.vb generated
View File

@ -149,7 +149,7 @@ Partial Class CRD_List_Item
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ViewInExplorerToolStripMenuItem, Me.PlaybackVideoFileToolStripMenuItem, Me.LogTocClipboard, Me.SaveToFile})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(190, 114)
Me.ContextMenuStrip1.Size = New System.Drawing.Size(190, 92)
'
'ViewInExplorerToolStripMenuItem
'
@ -213,6 +213,7 @@ Partial Class CRD_List_Item
Me.Controls.Add(Me.bt_del)
Me.Controls.Add(Me.bt_pause)
Me.Controls.Add(Me.PB_Thumbnail)
Me.DoubleBuffered = True
Me.Name = "CRD_List_Item"
Me.Size = New System.Drawing.Size(838, 142)
CType(Me.PB_Thumbnail, System.ComponentModel.ISupportInitialize).EndInit()

101
Crunchyroll Downloader/CRD_List_Item.vb
View File

@ -31,7 +31,6 @@ Public Class CRD_List_Item
Dim TempFolder As String = Nothing
Dim DownloadPfad As String = Nothing
Dim ThumbnailSource As String = Nothing
Dim ToDispose As Boolean = False
Dim Failed As Boolean = False
Dim FailedCount As Integer = 0
Dim HistoryDL_URL As String
@ -57,20 +56,15 @@ Public Class CRD_List_Item
Dim FailedSegments As New List(Of FailedSegemtsWithURL)
Dim LogText As New List(Of String)
Private Event UpdateUI(ByVal Percent As Integer, ByVal di As DirectoryInfo, ByVal Idle As Integer)
Dim PauseTime As Integer = 0
Dim Threads As Integer = Main.HybridThread 'CInt(Environment.ProcessorCount / 2 - 1)
#Region "Remove from list"
Public Sub DisposeItem(ByVal Dispose As Boolean)
If Dispose = True Then
Me.Dispose()
End If
End Sub
Public Function GetToDispose() As Boolean
Return ToDispose
End Function
#End Region
#Region "UI"
Private Sub CRD_List_Item_Resize(sender As Object, e As EventArgs) Handles Me.Resize
@ -419,6 +413,9 @@ Public Class CRD_List_Item
If Threads < 2 Then
Threads = 2
End If
'bt_del.SetBounds(775, 10, 35, 29)
'bt_pause.SetBounds(740, 15, 25, 20)
'PB_Thumbnail.SetBounds(11, 20, 168, 95)
@ -437,9 +434,10 @@ Public Class CRD_List_Item
'MetroStyleManager1.Theme = Main.Manager.Theme
End Sub
Public Function GetTextBound() As Integer
Public Function GetTextBound() As Rectangle
'Return Label_website.Location.Y
Return bt_del.Size.Height
'Return bt_del.Size.Height
Return Me.Bounds()
End Function
@ -448,12 +446,30 @@ Public Class CRD_List_Item
Public Sub StartDownload(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal Filename As String, ByVal DownloadHybridMode As Boolean, ByVal TempFolder As String)
'MsgBox(DL_URL)
Me.StyleManager = MetroStyleManager1
Me.TempFolder = TempFolder
DownloadPfad = DL_Pfad
HistoryDL_URL = DL_URL
HistoryDL_Pfad = DL_Pfad
HistoryFilename = Filename
'If (Me.InvokeRequired) Then
' Me.Invoke(Sub()
' 'MsgBox(True.ToString)
' Label_percent.Text = "selected subtiles have been dowloaded"
' Canceld = True
' End Sub)
'Else
' ' MsgBox(False.ToString)
' Label_percent.Text = "selected subtiles have been dowloaded"
' Canceld = True
'End If
'Exit Sub
If CBool(InStr(DL_URL, "-i [Subtitles only]")) Then
Me.Invoke(New Action(Function() As Object
@ -481,7 +497,8 @@ Public Class CRD_List_Item
Private Function TS_StatusAsync(ByVal prozent As Integer, ByVal di As IO.DirectoryInfo, ByVal pausetime As Integer) As Object
Private Sub TS_StatusAsync(ByVal prozent As Integer, ByVal di As IO.DirectoryInfo, ByVal pausetime As Integer) Handles Me.UpdateUI ' As Object
Dim FinishedSize As Double = 0
Dim AproxFinalSize As Double = 0
@ -523,6 +540,8 @@ Public Class CRD_List_Item
ElseIf prozent < 0 Then
prozent = 0
End If
Try
Me.Invoke(New Action(Function() As Object
@ -535,9 +554,9 @@ Public Class CRD_List_Item
End Try
End If
Return Nothing
'Return Nothing
End Function
End Sub
#Region "ThreadChecker"
@ -689,8 +708,9 @@ Public Class CRD_List_Item
Count = Count + 1
Dim FragmentsFinised = Count * 100 / FragmentsInt
Dim Update = New Thread(Sub() Me.TS_StatusAsync(CInt(FragmentsFinised), di, PauseTime))
Update.Start()
'Dim Update = New Thread(Sub() Me.TS_StatusAsync(CInt(FragmentsFinised), di, PauseTime))
'Update.Start()
RaiseEvent UpdateUI(CInt(FragmentsFinised), di, PauseTime)
ElseIf zeile.Contains("URI=" + Chr(34)) Then
Dim Zeile2() As String = zeile.Split(New String() {"URI=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
@ -895,8 +915,9 @@ Public Class CRD_List_Item
m3u8FileContent = m3u8FileContent + File + vbLf
Dim FragmentsFinised = Count * 100 / FragmentsInt
Dim Update = New Thread(Sub() Me.TS_StatusAsync(CInt(FragmentsFinised), di, PauseTime))
Update.Start()
'Dim Update = New Thread(Sub() Me.TS_StatusAsync(CInt(FragmentsFinised), di, PauseTime))
'Update.Start()
RaiseEvent UpdateUI(CInt(FragmentsFinised), di, PauseTime)
Count = Count + 1
ElseIf textLenght(i) = "#EXT-X-PLAYLIST-TYPE:VOD" Then
@ -1027,15 +1048,42 @@ Public Class CRD_List_Item
Public Function DownloadHybrid(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal Filename As String) As String
LogText.Add(Date.Now.ToString + " " + DL_URL)
Dim Folder As String = GeräteID()
Dim DL_URL_old As String = DL_URL
Dim PauseTime As Integer = 0
Dim Pfad2 As String = TempFolder + "\" + Folder + "\" 'Path.GetDirectoryName(DL_Pfad.Replace(Chr(34), "")) + "\" + Folder + "\"
If Not Directory.Exists(Path.GetDirectoryName(Pfad2)) Then
' Nein! Jetzt erstellen...
Try
Directory.CreateDirectory(Path.GetDirectoryName(Pfad2))
Catch ex As Exception
Debug.WriteLine("folder issue")
Return "Error"
Exit Function
End Try
End If
If CBool(InStr(DL_Pfad, "CRD-Temp-File-")) Then
Pfad2 = DL_Pfad.Replace(Chr(34), "") + "\"
Dim DL_PfadSplit() As String = DL_Pfad.Split(New String() {"CRD-Temp-File-"}, System.StringSplitOptions.RemoveEmptyEntries)
DL_Pfad = Chr(34) + DL_PfadSplit(0) + Filename + Chr(34)
End If
If CBool(InStr(DL_URL, "-mdata.txt" + Chr(34))) Then
Dim DL_URLSplit() As String = DL_URL.Split(New String() {"-mdata.txt" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim DL_URLSplit1() As String = DL_URLSplit(0).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim mdataFile As String = DL_URLSplit1(DL_URLSplit1.Count - 1) + "-mdata.txt"
Debug.WriteLine(mdataFile)
Dim mdata As String = ReadText(mdataFile)
Dim newMdata As String = Path.Combine(Pfad2, "mdata.txt")
Debug.WriteLine(newMdata)
WriteText(newMdata, mdata)
DL_URL = DL_URL.Replace(mdataFile, newMdata)
End If
Dim di As New IO.DirectoryInfo(Pfad2)
Dim m3u8_url As String() = DL_URL.Split(New [Char]() {Chr(34)})
Dim m3u8FFmpeg As String = Nothing
@ -1148,9 +1196,9 @@ Public Class CRD_List_Item
Next
TS_StatusAsync(100, di, PauseTime)
'TS_StatusAsync(100, di, PauseTime)
RaiseEvent UpdateUI(100, di, PauseTime)
If CBool(InStr(DL_URL, " -headers " + My.Resources.ffmpeg_user_agend)) = True And CBool(InStr(DL_URL, "https:\\")) = False Then
DL_URL = DL_URL.Replace(" -headers " + My.Resources.ffmpeg_user_agend, "")
@ -1212,8 +1260,10 @@ Public Class CRD_List_Item
startinfo.UseShellExecute = False
startinfo.WindowStyle = ProcessWindowStyle.Hidden
startinfo.RedirectStandardError = True
startinfo.RedirectStandardInput = True
'startinfo.RedirectStandardInput = True
startinfo.RedirectStandardOutput = True
startinfo.StandardErrorEncoding = Encoding.UTF8
startinfo.StandardOutputEncoding = Encoding.UTF8
startinfo.CreateNoWindow = True
proc = New Process
proc.EnableRaisingEvents = True
@ -1417,7 +1467,7 @@ Public Class CRD_List_Item
If MessageBox.Show("The Download is not running anymore, press ok to remove it from the list.", "Remove from list!", MessageBoxButtons.OKCancel) = DialogResult.Cancel Then
Exit Sub
End If
ToDispose = True
Me.Dispose()
ElseIf HybridRunning = True Then
If MessageBox.Show("Are you sure you want to cancel the Download?", "Cancel Download!", MessageBoxButtons.YesNo) = DialogResult.No Then
Exit Sub
@ -1430,7 +1480,8 @@ Public Class CRD_List_Item
If MessageBox.Show("The Download is not running anymore, press ok to remove it from the list.", "Remove from list!", MessageBoxButtons.OKCancel) = DialogResult.Cancel Then
Exit Sub
End If
ToDispose = True
Me.Dispose()
Else
If MessageBox.Show("Are you sure you want to cancel the Download?", "Cancel Download!", MessageBoxButtons.YesNo) = DialogResult.No Then
Exit Sub

264
Crunchyroll Downloader/CefSharp_Browser.vb
View File

@ -15,7 +15,7 @@ Public Class CefSharp_Browser
Public keks As String = Nothing
'Public keks As String = Nothing
'Public c As Boolean = True
Dim t As Thread
Public ScanTrue As Boolean = False
@ -26,6 +26,14 @@ Public Class CefSharp_Browser
Dim Document As String = ""
Dim Cookie As String = ""
Dim LoadingUrl As String = ""
Private Sub WebBrowser1_FrameLoadStart(sender As Object, e As FrameLoadStartEventArgs) Handles WebBrowser1.FrameLoadStart
LoadingUrl = e.Url
Main.LoadedUrls.Clear()
End Sub
Private Sub WebBrowser1_FrameLoadEnd(sender As Object, e As FrameLoadEndEventArgs) Handles WebBrowser1.FrameLoadEnd
@ -194,64 +202,14 @@ Public Class CefSharp_Browser
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Btn_Scan.Click
If CBool(InStr(WebBrowser1.Address, "https://proxer.me/read/")) Then
Main.WebbrowserURL = WebBrowser1.Address
Dim NameDLFinal As String = Nothing
Dim NameDL As String() = Document.Split(New String() {"<div id=" + Chr(34) + " breadcrumb" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim NameDL2 As String() = NameDL(1).Split(New String() {"<div>"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim NameDL3 As String() = NameDL2(0).Split(New String() {Chr(34) + "true" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries)
For i As Integer = 0 To NameDL3.Count - 1
If CBool(InStr(NameDL3(i), "</a>")) Then
Dim NameDL4 As String() = NameDL3(i).Split(New String() {"</a>"}, System.StringSplitOptions.RemoveEmptyEntries)
If NameDLFinal = Nothing Then
NameDLFinal = NameDL4(0)
Else
NameDLFinal = NameDLFinal + " " + NameDL4(0)
End If
End If
Next
NameDLFinal = String.Join(" ", NameDLFinal.Split(Main.invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c) ''System.Text.RegularExpressions.Regex.Replace(NameDLFinal, "[^\w\\-]", " ")
If Main.Debug2 = True Then
MsgBox(NameDLFinal)
End If
Dim SiteData As String() = Document.Split(New String() {"var pages ="}, System.StringSplitOptions.RemoveEmptyEntries)
Dim SiteData2 As String() = SiteData(1).Split(New String() {"</script>"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim ImageNumbers As String() = SiteData2(0).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim ImageList As New List(Of String)
Dim ImageListString As String = Nothing
For i As Integer = 0 To ImageNumbers.Count - 1
If CBool(InStr(ImageNumbers(i), ".jpg")) Then
ImageList.Add(ImageNumbers(i).Replace(vbNewLine, ""))
ImageListString = ImageListString + vbNewLine + ImageNumbers(i).Replace(vbNewLine, "")
ElseIf CBool(InStr(ImageNumbers(i), ".png")) Then
ImageList.Add(ImageNumbers(i).Replace(vbNewLine, ""))
ImageListString = ImageListString + vbNewLine + ImageNumbers(i).Replace(vbNewLine, "")
End If
Next
If Main.Debug2 = True Then
MsgBox(ImageListString)
End If
Dim BaseURL As String() = SiteData2(0).Split(New String() {"var serverurl = '"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim BaseURL2 As String() = BaseURL(1).Split(New String() {"';"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim BaseURL3 As String = "https:" + BaseURL2(0)
If Main.Debug2 = True Then
MsgBox(BaseURL3)
End If
'AsyncWorkerX.RunAsync(AddressOf Main.DownloadMangaPages, BaseURL3, ImageList, Main.RemoveExtraSpaces(NameDLFinal))
Dim Thumbnail As String = BaseURL3 + ImageList(0)
Main.MangaListItemAdd(Main.RemoveExtraSpaces(NameDLFinal), Thumbnail, BaseURL3, ImageList)
ElseIf CBool(InStr(WebBrowser1.Address, "cr-cookie-ui.php")) Then
'MsgBox(WebBrowser1.Document.Body.InnerHtml)
Else
Main.m3u8List.Clear()
Main.mpdList.Clear()
Main.m3u8List.Clear()
Main.mpdList.Clear()
Main.txtList.Clear()
Btn_Scan.Enabled = False
ScanTrue = True
Main.LogBrowserData = True
NetworkScanEnd()
End If
End Sub
Private Sub GeckoFX_LocationChanged(sender As Object, e As EventArgs) Handles Me.LocationChanged
@ -262,127 +220,107 @@ Public Class CefSharp_Browser
Private Sub ObserveHttp(e As RequestResourceEventArgs) 'Handles RequestResource.GetUrl
'Debug.WriteLine(e.Request.Url)
'Debug.WriteLine(e.Request.Url)
'If (Me.InvokeRequired) Then
' If Main.b = True And Main.FunimationJsonBrowser = Nothing Then
' Exit Sub
' Else
' Debug.WriteLine("false i guess?")
' Debug.WriteLine(Main.b.ToString)
' Debug.WriteLine(Main.FunimationJsonBrowser)
' End If
'Else
' If Main.b = True And Main.FunimationJsonBrowser = Nothing Then
' Exit Sub
' Else
' Debug.WriteLine("false i guess?")
' Debug.WriteLine(Main.b.ToString)
' Debug.WriteLine(Main.FunimationJsonBrowser)
' End If
'End If
If (Me.InvokeRequired) Then
Me.Invoke(Sub()
If CBool(InStr(e.Request.Url, "crunchyroll.com")) = True And CBool(InStr(e.Request.Headers, "Basic ")) = True And Main.CrBetaBasic = Nothing Then
Dim Basic As String() = e.Request.Headers.Split(New String() {"Basic "}, System.StringSplitOptions.RemoveEmptyEntries)
Dim Basic2 As String() = Basic(1).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries)
Main.CrBetaBasic = "Basic " + Basic2(0)
Debug.WriteLine(Main.CrBetaBasic)
End If
End Sub)
Else
If CBool(InStr(e.Request.Url, "crunchyroll.com")) = True And CBool(InStr(e.Request.Headers, "Basic ")) = True And Main.CrBetaBasic = Nothing Then
Dim Basic As String() = e.Request.Headers.Split(New String() {"Basic "}, System.StringSplitOptions.RemoveEmptyEntries)
Dim Basic2 As String() = Basic(1).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries)
Main.CrBetaBasic = "Basic " + Basic2(0)
Debug.WriteLine(Main.CrBetaBasic)
If CBool(InStr(LoadingUrl, "crunchyroll.com")) Then
If CBool(InStr(e.Request.Url, "crunchyroll.com/")) And CBool(InStr(e.Request.Url, "streams?")) Then
Debug.WriteLine("Crunchyroll-Single: " + e.Request.Url)
If (Me.InvokeRequired) Then
Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url))
Exit Sub
Else
Main.LoadedUrls.Add(e.Request.Url)
Exit Sub
End If
ElseIf CBool(InStr(e.Request.Url, "crunchyroll.com/")) And CBool(InStr(e.Request.Url, "/objects/")) And CBool(InStr(e.Request.Url, "/watch/")) Then
If (Me.InvokeRequired) Then
Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url))
Exit Sub
Else
Main.LoadedUrls.Add(e.Request.Url)
Exit Sub
End If
Debug.WriteLine(e.Request.Url)
ElseIf CBool(InStr(e.Request.Url, "crunchyroll.com/")) And CBool(InStr(e.Request.Url, "seasons?series_id=")) Then
Debug.WriteLine("Crunchyroll-Season: " + e.Request.Url)
If (Me.InvokeRequired) Then
Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url))
Exit Sub
Else
Main.LoadedUrls.Add(e.Request.Url)
Exit Sub
End If
End If
If (Me.InvokeRequired) Then
Me.Invoke(Sub()
If CBool(InStr(e.Request.Url, "crunchyroll.com")) = True And CBool(InStr(e.Request.Headers, "Basic ")) = True And Main.CrBetaBasic = Nothing Then
Dim Basic As String() = e.Request.Headers.Split(New String() {"Basic "}, System.StringSplitOptions.RemoveEmptyEntries)
Dim Basic2 As String() = Basic(1).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries)
Main.CrBetaBasic = "Basic " + Basic2(0)
Debug.WriteLine(Main.CrBetaBasic)
End If
End Sub)
Else
If CBool(InStr(e.Request.Url, "crunchyroll.com")) = True And CBool(InStr(e.Request.Headers, "Basic ")) = True And Main.CrBetaBasic = Nothing Then
Dim Basic As String() = e.Request.Headers.Split(New String() {"Basic "}, System.StringSplitOptions.RemoveEmptyEntries)
Dim Basic2 As String() = Basic(1).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries)
Main.CrBetaBasic = "Basic " + Basic2(0)
Debug.WriteLine(Main.CrBetaBasic)
End If
End If
ElseIf CBool(InStr(LoadingUrl, "funimation.com")) Then
If CBool(InStr(e.Request.Url, "?deviceType=web")) Then
'Debug.WriteLine(e.Request.Url)
Dim parms As String() = e.Request.Url.Split(New String() {"?deviceType="}, System.StringSplitOptions.RemoveEmptyEntries)
Main.FunimationDeviceRegion = "?deviceType=" + parms(1)
End If
If CBool(InStr(e.Request.Url, "https://title-api.prd.funimationsvc.com")) Then
Debug.WriteLine("Funimtaion: " + e.Request.Url)
If (Me.InvokeRequired) Then
Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url))
Exit Sub
Else
Main.LoadedUrls.Add(e.Request.Url)
Exit Sub
End If
ElseIf CBool(InStr(e.Request.Url, "/data/v2/shows/")) Then
Debug.WriteLine("Funimtaion: " + e.Request.Url)
If (Me.InvokeRequired) Then
Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url))
Exit Sub
Else
Main.LoadedUrls.Add(e.Request.Url)
Exit Sub
End If
ElseIf CBool(InStr(e.Request.Url, "/data/v1/episodes/")) Then
Debug.WriteLine("Funimtaion: " + e.Request.Url)
If (Me.InvokeRequired) Then
Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url))
Exit Sub
Else
Main.LoadedUrls.Add(e.Request.Url)
Exit Sub
End If
End If
End If
'
'Debug.WriteLine(e.Request.Url)
If CBool(InStr(e.Request.Url, "?deviceType=web")) Then
'Debug.WriteLine(e.Request.Url)
Dim parms As String() = e.Request.Url.Split(New String() {"?deviceType="}, System.StringSplitOptions.RemoveEmptyEntries)
Main.FunimationDeviceRegion = "?deviceType=" + parms(1)
End If
If CBool(InStr(e.Request.Url, "https://title-api.prd.funimationsvc.com")) Then
Debug.WriteLine("Funimtaion: " + e.Request.Url)
If (Me.InvokeRequired) Then
Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url))
Exit Sub
Else
Main.LoadedUrls.Add(e.Request.Url)
Exit Sub
End If
ElseIf CBool(InStr(e.Request.Url, "/data/v2/shows/")) Then
Debug.WriteLine("Funimtaion: " + e.Request.Url)
If (Me.InvokeRequired) Then
Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url))
Exit Sub
Else
Main.LoadedUrls.Add(e.Request.Url)
Exit Sub
End If
ElseIf CBool(InStr(e.Request.Url, "/data/v1/episodes/")) Then
Debug.WriteLine("Funimtaion: " + e.Request.Url)
If (Me.InvokeRequired) Then
Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url))
Exit Sub
Else
Main.LoadedUrls.Add(e.Request.Url)
Exit Sub
End If
ElseIf CBool(InStr(e.Request.Url, "crunchyroll.com/")) And CBool(InStr(e.Request.Url, "streams?")) Then
Debug.WriteLine("Crunchyroll-Single: " + e.Request.Url)
If (Me.InvokeRequired) Then
Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url))
Exit Sub
Else
Main.LoadedUrls.Add(e.Request.Url)
Exit Sub
End If
'ElseIf CBool(InStr(e.Request.Url, "crunchyroll.com/")) And CBool(InStr(e.Request.Url, "/objects/")) Then
' If (Me.InvokeRequired) Then
' Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url))
' Exit Sub
' Else
' Main.LoadedUrls.Add(e.Request.Url)
' Exit Sub
' End If
' Debug.WriteLine(e.Request.Url)
ElseIf CBool(InStr(e.Request.Url, "crunchyroll.com/")) And CBool(InStr(e.Request.Url, "seasons?series_id=")) Then
Debug.WriteLine("Crunchyroll-Season: " + e.Request.Url)
If (Me.InvokeRequired) Then
Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url))
Exit Sub
Else
Main.LoadedUrls.Add(e.Request.Url)
Exit Sub
End If
End If
End Sub
@ -410,10 +348,6 @@ Public Class CefSharp_Browser
network_scan.Show()
End Sub
Private Sub WebBrowser1_FrameLoadStart(sender As Object, e As FrameLoadStartEventArgs) Handles WebBrowser1.FrameLoadStart
Main.LoadedUrls.Clear()
End Sub

7
Crunchyroll Downloader/Crunchyroll Downloader.vbproj
View File

@ -74,6 +74,8 @@
<PlatformTarget>x64</PlatformTarget>
<OutputPath>bin\x64\Release\</OutputPath>
<WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
<Optimize>true</Optimize>
<DefineDebug>true</DefineDebug>
</PropertyGroup>
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
@ -118,6 +120,9 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\metroframework-modern-ui\MetroFramework\bin\Debug\MetroFramework.dll</HintPath>
</Reference>
<Reference Include="MyProvider">
<HintPath>..\..\..\MyProvider\MyProvider\bin\x64\Debug\MyProvider.dll</HintPath>
</Reference>
<Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<HintPath>..\packages\Newtonsoft.Json.13.0.1\lib\net45\Newtonsoft.Json.dll</HintPath>
</Reference>
@ -125,6 +130,7 @@
<HintPath>..\..\RequestHandler\RequestHandler\bin\x64\Debug\RequestHandler.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
@ -150,6 +156,7 @@
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Settings.vb" />
<Compile Include="Trackbar.Designer.vb">
<DependentUpon>Trackbar.vb</DependentUpon>
</Compile>

82
Crunchyroll Downloader/Main.designer.vb generated
View File

@ -24,18 +24,14 @@ Partial Class Main
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Main))
Me.ListView1 = New System.Windows.Forms.ListView()
Me.Link = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
Me.Timer3 = New System.Windows.Forms.Timer(Me.components)
Me.TheTextBox = New System.Windows.Forms.RichTextBox()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.ConsoleBar = New System.Windows.Forms.PictureBox()
Me.MetroStyleExtender1 = New MetroFramework.Components.MetroStyleExtender(Me.components)
Me.MetroStyleManager1 = New MetroFramework.Components.MetroStyleManager(Me.components)
Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
Me.Timer4 = New System.Windows.Forms.Timer(Me.components)
Me.Btn_add = New System.Windows.Forms.Button()
Me.Btn_Browser = New System.Windows.Forms.Button()
@ -53,30 +49,15 @@ Partial Class Main
Me.MsgBoxToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.CRCookieToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ClearAllSettingsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ItemBoundsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DummyItemToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel1 = New System.Windows.Forms.Panel()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ConsoleBar, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ListView1
'
Me.ListView1.BackColor = System.Drawing.SystemColors.Control
Me.ListView1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.Link})
resources.ApplyResources(Me.ListView1, "ListView1")
Me.ListView1.ForeColor = System.Drawing.Color.Black
Me.ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None
Me.ListView1.HideSelection = False
Me.ListView1.Name = "ListView1"
Me.ListView1.TabStop = False
Me.ListView1.UseCompatibleStateImageBehavior = False
Me.ListView1.View = System.Windows.Forms.View.Details
'
'Link
'
resources.ApplyResources(Me.Link, "Link")
'
'PictureBox5
'
Me.PictureBox5.BackColor = System.Drawing.Color.Transparent
@ -85,10 +66,6 @@ Partial Class Main
Me.PictureBox5.Name = "PictureBox5"
Me.PictureBox5.TabStop = False
'
'Timer1
'
Me.Timer1.Enabled = True
'
'Timer2
'
Me.Timer2.Enabled = True
@ -105,23 +82,20 @@ Partial Class Main
resources.ApplyResources(Me.TheTextBox, "TheTextBox")
Me.TheTextBox.Name = "TheTextBox"
'
'PictureBox6
'ConsoleBar
'
Me.PictureBox6.BackColor = System.Drawing.Color.Transparent
Me.PictureBox6.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.balken
resources.ApplyResources(Me.PictureBox6, "PictureBox6")
Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.TabStop = False
Me.ConsoleBar.BackColor = System.Drawing.Color.Transparent
Me.ConsoleBar.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.balken
resources.ApplyResources(Me.ConsoleBar, "ConsoleBar")
Me.ConsoleBar.Cursor = System.Windows.Forms.Cursors.Hand
Me.ConsoleBar.Name = "ConsoleBar"
Me.ConsoleBar.TabStop = False
'
'MetroStyleManager1
'
Me.MetroStyleManager1.Owner = Me
Me.MetroStyleManager1.Style = MetroFramework.MetroColorStyle.Orange
'
'BackgroundWorker1
'
'
'Timer4
'
Me.Timer4.Enabled = True
@ -186,7 +160,7 @@ Partial Class Main
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToggleDebugModeToolStripMenuItem, Me.OpenSettingsToolStripMenuItem, Me.TestDownloadToolStripMenuItem, Me.CheckCRBetaTokenToolStripMenuItem, Me.AddonHTMLToolStripMenuItem, Me.Timer3OffToolStripMenuItem, Me.ThreadCount, Me.MsgBoxToolStripMenuItem, Me.CRCookieToolStripMenuItem, Me.ClearAllSettingsToolStripMenuItem})
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToggleDebugModeToolStripMenuItem, Me.OpenSettingsToolStripMenuItem, Me.TestDownloadToolStripMenuItem, Me.CheckCRBetaTokenToolStripMenuItem, Me.AddonHTMLToolStripMenuItem, Me.Timer3OffToolStripMenuItem, Me.ThreadCount, Me.MsgBoxToolStripMenuItem, Me.CRCookieToolStripMenuItem, Me.ClearAllSettingsToolStripMenuItem, Me.ItemBoundsToolStripMenuItem, Me.DummyItemToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
'
@ -240,21 +214,36 @@ Partial Class Main
Me.ClearAllSettingsToolStripMenuItem.Name = "ClearAllSettingsToolStripMenuItem"
resources.ApplyResources(Me.ClearAllSettingsToolStripMenuItem, "ClearAllSettingsToolStripMenuItem")
'
'ItemBoundsToolStripMenuItem
'
Me.ItemBoundsToolStripMenuItem.Name = "ItemBoundsToolStripMenuItem"
resources.ApplyResources(Me.ItemBoundsToolStripMenuItem, "ItemBoundsToolStripMenuItem")
'
'DummyItemToolStripMenuItem
'
Me.DummyItemToolStripMenuItem.Name = "DummyItemToolStripMenuItem"
resources.ApplyResources(Me.DummyItemToolStripMenuItem, "DummyItemToolStripMenuItem")
'
'Panel1
'
resources.ApplyResources(Me.Panel1, "Panel1")
Me.Panel1.Name = "Panel1"
'
'Main
'
Me.ApplyImageInvert = True
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.BorderStyle = MetroFramework.Forms.MetroFormBorderStyle.FixedSingle
resources.ApplyResources(Me, "$this")
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.Btn_Close)
Me.Controls.Add(Me.Btn_min)
Me.Controls.Add(Me.Btn_Settings)
Me.Controls.Add(Me.Btn_Browser)
Me.Controls.Add(Me.Btn_add)
Me.Controls.Add(Me.TheTextBox)
Me.Controls.Add(Me.PictureBox6)
Me.Controls.Add(Me.ConsoleBar)
Me.Controls.Add(Me.PictureBox5)
Me.Controls.Add(Me.ListView1)
Me.ForeColor = System.Drawing.Color.Black
Me.MaximizeBox = False
Me.MinimizeBox = False
@ -263,24 +252,20 @@ Partial Class Main
Me.Style = MetroFramework.MetroColorStyle.Orange
Me.TextAlign = MetroFramework.Forms.MetroFormTextAlign.Center
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ConsoleBar, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents ListView1 As ListView
Friend WithEvents Link As ColumnHeader
Friend WithEvents PictureBox5 As PictureBox
Friend WithEvents ToolTip1 As ToolTip
Friend WithEvents Timer1 As Timer
Friend WithEvents Timer2 As Timer
Friend WithEvents Timer3 As Timer
Friend WithEvents TheTextBox As RichTextBox
Friend WithEvents PictureBox6 As PictureBox
Friend WithEvents ConsoleBar As PictureBox
Friend WithEvents MetroStyleExtender1 As MetroFramework.Components.MetroStyleExtender
Friend WithEvents MetroStyleManager1 As MetroFramework.Components.MetroStyleManager
Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
Friend WithEvents Timer4 As Timer
Friend WithEvents Btn_add As Button
Friend WithEvents Btn_Browser As Button
@ -298,4 +283,7 @@ Partial Class Main
Friend WithEvents MsgBoxToolStripMenuItem As ToolStripMenuItem
Friend WithEvents CRCookieToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ClearAllSettingsToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ItemBoundsToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DummyItemToolStripMenuItem As ToolStripMenuItem
Public WithEvents Panel1 As Panel
End Class

170
Crunchyroll Downloader/Main.resx
View File

@ -117,54 +117,14 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ListView1.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="Link.Text" xml:space="preserve">
<value>Link</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Link.Width" type="System.Int32, mscorlib">
<value>818</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ListView1.Font" type="System.Drawing.Font, System.Drawing">
<value>Microsoft Sans Serif, 93pt</value>
</data>
<data name="ListView1.Location" type="System.Drawing.Point, System.Drawing">
<value>1, 71</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="ListView1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>0, 0, 0, 0</value>
</data>
<data name="ListView1.MinimumSize" type="System.Drawing.Size, System.Drawing">
<value>798, 403</value>
</data>
<data name="ListView1.Size" type="System.Drawing.Size, System.Drawing">
<value>840, 546</value>
</data>
<data name="ListView1.TabIndex" type="System.Int32, mscorlib">
<value>57</value>
</data>
<data name="&gt;&gt;ListView1.Name" xml:space="preserve">
<value>ListView1</value>
</data>
<data name="&gt;&gt;ListView1.Type" xml:space="preserve">
<value>System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ListView1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;ListView1.ZOrder" xml:space="preserve">
<value>9</value>
</data>
<metadata name="PictureBox5.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="PictureBox5.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Stretch</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox5.Location" type="System.Drawing.Point, System.Drawing">
<value>1, 65</value>
</data>
@ -174,6 +134,7 @@
<data name="PictureBox5.Size" type="System.Drawing.Size, System.Drawing">
<value>840, 6</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="PictureBox5.TabIndex" type="System.Int32, mscorlib">
<value>67</value>
</data>
@ -187,19 +148,16 @@
<value>$this</value>
</data>
<data name="&gt;&gt;PictureBox5.ZOrder" xml:space="preserve">
<value>8</value>
<value>9</value>
</data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>182, 17</value>
</metadata>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>281, 17</value>
<value>612, 17</value>
</metadata>
<metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>375, 15</value>
<value>272, 14</value>
</metadata>
<metadata name="Timer3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>459, 17</value>
<value>184, 52</value>
</metadata>
<data name="TheTextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 652</value>
@ -229,40 +187,40 @@
<value>$this</value>
</data>
<data name="&gt;&gt;TheTextBox.ZOrder" xml:space="preserve">
<value>6</value>
<value>7</value>
</data>
<data name="PictureBox6.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<data name="ConsoleBar.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Stretch</value>
</data>
<data name="PictureBox6.Location" type="System.Drawing.Point, System.Drawing">
<data name="ConsoleBar.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 618</value>
</data>
<data name="PictureBox6.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<data name="ConsoleBar.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>0, 0, 0, 0</value>
</data>
<data name="PictureBox6.Size" type="System.Drawing.Size, System.Drawing">
<data name="ConsoleBar.Size" type="System.Drawing.Size, System.Drawing">
<value>840, 6</value>
</data>
<data name="PictureBox6.TabIndex" type="System.Int32, mscorlib">
<data name="ConsoleBar.TabIndex" type="System.Int32, mscorlib">
<value>68</value>
</data>
<data name="&gt;&gt;PictureBox6.Name" xml:space="preserve">
<value>PictureBox6</value>
<data name="&gt;&gt;ConsoleBar.Name" xml:space="preserve">
<value>ConsoleBar</value>
</data>
<data name="&gt;&gt;PictureBox6.Type" xml:space="preserve">
<data name="&gt;&gt;ConsoleBar.Type" xml:space="preserve">
<value>System.Windows.Forms.PictureBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;PictureBox6.Parent" xml:space="preserve">
<data name="&gt;&gt;ConsoleBar.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;PictureBox6.ZOrder" xml:space="preserve">
<value>7</value>
<data name="&gt;&gt;ConsoleBar.ZOrder" xml:space="preserve">
<value>8</value>
</data>
<metadata name="MetroStyleExtender1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="MetroStyleManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>548, 17</value>
<value>20, 48</value>
</metadata>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
@ -273,6 +231,33 @@
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>842, 630</value>
</data>
<data name="Panel1.AutoScroll" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
<value>1, 71</value>
</data>
<data name="Panel1.MinimumSize" type="System.Drawing.Size, System.Drawing">
<value>798, 403</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>840, 546</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;Panel1.Name" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="Btn_Close.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>None</value>
</data>
@ -301,7 +286,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;Btn_Close.ZOrder" xml:space="preserve">
<value>1</value>
<value>2</value>
</data>
<data name="Btn_min.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>None</value>
@ -331,7 +316,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;Btn_min.ZOrder" xml:space="preserve">
<value>2</value>
<value>3</value>
</data>
<data name="Btn_Settings.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Zoom</value>
@ -361,7 +346,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;Btn_Settings.ZOrder" xml:space="preserve">
<value>3</value>
<value>4</value>
</data>
<data name="Btn_Browser.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Zoom</value>
@ -388,7 +373,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;Btn_Browser.ZOrder" xml:space="preserve">
<value>4</value>
<value>5</value>
</data>
<data name="Btn_add.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Zoom</value>
@ -418,7 +403,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;Btn_add.ZOrder" xml:space="preserve">
<value>5</value>
<value>6</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Microsoft Sans Serif, 8.25pt</value>
@ -432,24 +417,12 @@
<data name="$this.Text" xml:space="preserve">
<value>Crunchyroll Downloader</value>
</data>
<data name="&gt;&gt;Link.Name" xml:space="preserve">
<value>Link</value>
</data>
<data name="&gt;&gt;Link.Type" xml:space="preserve">
<value>System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ToolTip1.Name" xml:space="preserve">
<value>ToolTip1</value>
</data>
<data name="&gt;&gt;ToolTip1.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Timer1.Name" xml:space="preserve">
<value>Timer1</value>
</data>
<data name="&gt;&gt;Timer1.Type" xml:space="preserve">
<value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Timer2.Name" xml:space="preserve">
<value>Timer2</value>
</data>
@ -474,12 +447,6 @@
<data name="&gt;&gt;MetroStyleManager1.Type" xml:space="preserve">
<value>MetroFramework.Components.MetroStyleManager, MetroFramework, Version=1.4.0.0, Culture=neutral, PublicKeyToken=5f91a84759bf584a</value>
</data>
<data name="&gt;&gt;BackgroundWorker1.Name" xml:space="preserve">
<value>BackgroundWorker1</value>
</data>
<data name="&gt;&gt;BackgroundWorker1.Type" xml:space="preserve">
<value>System.ComponentModel.BackgroundWorker, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Timer4.Name" xml:space="preserve">
<value>Timer4</value>
</data>
@ -546,20 +513,29 @@
<data name="&gt;&gt;ClearAllSettingsToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ItemBoundsToolStripMenuItem.Name" xml:space="preserve">
<value>ItemBoundsToolStripMenuItem</value>
</data>
<data name="&gt;&gt;ItemBoundsToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;DummyItemToolStripMenuItem.Name" xml:space="preserve">
<value>DummyItemToolStripMenuItem</value>
</data>
<data name="&gt;&gt;DummyItemToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>Main</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>MetroFramework.Forms.MetroForm, MetroFramework, Version=1.4.0.0, Culture=neutral, PublicKeyToken=5f91a84759bf584a</value>
</data>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>714, 17</value>
</metadata>
<metadata name="Timer4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>877, 17</value>
<value>276, 52</value>
</metadata>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>966, 17</value>
<value>578, 45</value>
</metadata>
<data name="ToggleDebugModeToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>233, 22</value>
@ -621,8 +597,20 @@
<data name="ClearAllSettingsToolStripMenuItem.Text" xml:space="preserve">
<value>Clear all settings</value>
</data>
<data name="ItemBoundsToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>233, 22</value>
</data>
<data name="ItemBoundsToolStripMenuItem.Text" xml:space="preserve">
<value>Item bounds</value>
</data>
<data name="DummyItemToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>233, 22</value>
</data>
<data name="DummyItemToolStripMenuItem.Text" xml:space="preserve">
<value>Dummy_Item</value>
</data>
<data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>234, 246</value>
<value>234, 268</value>
</data>
<data name="&gt;&gt;ContextMenuStrip1.Name" xml:space="preserve">
<value>ContextMenuStrip1</value>

812
Crunchyroll Downloader/Main.vb
View File

File diff suppressed because it is too large Load Diff

4
Crunchyroll Downloader/My Project/AssemblyInfo.vb
View File

@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.9")>
<Assembly: AssemblyFileVersion("3.9.9")>
<Assembly: AssemblyVersion("3.9.10")>
<Assembly: AssemblyFileVersion("3.9.10")>
<Assembly: NeutralResourcesLanguage("en")>

2025
Crunchyroll Downloader/My Project/Resources.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

458
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.0.3.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.3.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
@ -53,6 +53,462 @@ Namespace My
Return defaultInstance
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property DarkModeValue() As Boolean
Get
Return CType(Me("DarkModeValue"),Boolean)
End Get
Set
Me("DarkModeValue") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property Pfad() As String
Get
Return CType(Me("Pfad"),String)
End Get
Set
Me("Pfad") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("None")> _
Public Property Fun_Sub() As String
Get
Return CType(Me("Fun_Sub"),String)
End Get
Set
Me("Fun_Sub") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(" -c copy -c:a copy -bsf:a aac_adtstoasc")> _
Public Property ffmpeg_command() As String
Get
Return CType(Me("ffmpeg_command"),String)
End Get
Set
Me("ffmpeg_command") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("None")> _
Public Property AddedSubs() As String
Get
Return CType(Me("AddedSubs"),String)
End Get
Set
Me("AddedSubs") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Disabled")> _
Public Property FunimationDub() As String
Get
Return CType(Me("FunimationDub"),String)
End Get
Set
Me("FunimationDub") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Disabled")> _
Public Property FunimationHardsub() As String
Get
Return CType(Me("FunimationHardsub"),String)
End Get
Set
Me("FunimationHardsub") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Disabled")> _
Public Property DefaultSubFunimation() As String
Get
Return CType(Me("DefaultSubFunimation"),String)
End Get
Set
Me("DefaultSubFunimation") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("[ ignore subfolder ]")> _
Public Property SubFolder_Value() As String
Get
Return CType(Me("SubFolder_Value"),String)
End Get
Set
Me("SubFolder_Value") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property TempFolder() As String
Get
Return CType(Me("TempFolder"),String)
End Get
Set
Me("TempFolder") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("https://www.crunchyroll.com/")> _
Public Property Startseite() As String
Get
Return CType(Me("Startseite"),String)
End Get
Set
Me("Startseite") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("[default season prefix]")> _
Public Property Prefix_S() As String
Get
Return CType(Me("Prefix_S"),String)
End Get
Set
Me("Prefix_S") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("[default episode prefix]")> _
Public Property Prefix_E() As String
Get
Return CType(Me("Prefix_E"),String)
End Get
Set
Me("Prefix_E") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property DefaultSubCR() As String
Get
Return CType(Me("DefaultSubCR"),String)
End Get
Set
Me("DefaultSubCR") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(".mp4")> _
Public Property VideoFormat() As String
Get
Return CType(Me("VideoFormat"),String)
End Get
Set
Me("VideoFormat") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("[merge disabled]")> _
Public Property MergeSubs() As String
Get
Return CType(Me("MergeSubs"),String)
End Get
Set
Me("MergeSubs") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property KodiSupport() As Boolean
Get
Return CType(Me("KodiSupport"),Boolean)
End Get
Set
Me("KodiSupport") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property Dark_Mode() As Boolean
Get
Return CType(Me("Dark_Mode"),Boolean)
End Get
Set
Me("Dark_Mode") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property Funimation_srt() As Boolean
Get
Return CType(Me("Funimation_srt"),Boolean)
End Get
Set
Me("Funimation_srt") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property Funimation_vtt() As Boolean
Get
Return CType(Me("Funimation_vtt"),Boolean)
End Get
Set
Me("Funimation_vtt") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property QueueMode() As Boolean
Get
Return CType(Me("QueueMode"),Boolean)
End Get
Set
Me("QueueMode") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property IncludeLangName() As Boolean
Get
Return CType(Me("IncludeLangName"),Boolean)
End Get
Set
Me("IncludeLangName") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property CR_Chapters() As Boolean
Get
Return CType(Me("CR_Chapters"),Boolean)
End Get
Set
Me("CR_Chapters") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property Curl_insecure() As Boolean
Get
Return CType(Me("Curl_insecure"),Boolean)
End Get
Set
Me("Curl_insecure") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property DubMode() As Boolean
Get
Return CType(Me("DubMode"),Boolean)
End Get
Set
Me("DubMode") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property Keep_Cache() As Boolean
Get
Return CType(Me("Keep_Cache"),Boolean)
End Get
Set
Me("Keep_Cache") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property HybridMode() As Boolean
Get
Return CType(Me("HybridMode"),Boolean)
End Get
Set
Me("HybridMode") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("8")> _
Public Property HybridThread() As Integer
Get
Return CType(Me("HybridThread"),Integer)
End Get
Set
Me("HybridThread") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property LangNameType() As Integer
Get
Return CType(Me("LangNameType"),Integer)
End Get
Set
Me("LangNameType") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("1")> _
Public Property SL_DL() As Integer
Get
Return CType(Me("SL_DL"),Integer)
End Get
Set
Me("SL_DL") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("1080")> _
Public Property Reso() As Integer
Get
Return CType(Me("Reso"),Integer)
End Get
Set
Me("Reso") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property CR_NameMethode() As Integer
Get
Return CType(Me("CR_NameMethode"),Integer)
End Get
Set
Me("CR_NameMethode") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property LeadingZero() As Integer
Get
Return CType(Me("LeadingZero"),Integer)
End Get
Set
Me("LeadingZero") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property Funimation_Bitrate() As Integer
Get
Return CType(Me("Funimation_Bitrate"),Integer)
End Get
Set
Me("Funimation_Bitrate") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property ServerPort() As Integer
Get
Return CType(Me("ServerPort"),Integer)
End Get
Set
Me("ServerPort") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property IgnoreSeason() As Integer
Get
Return CType(Me("IgnoreSeason"),Integer)
End Get
Set
Me("IgnoreSeason") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("None")> _
Public Property Subtitle() As String
Get
Return CType(Me("Subtitle"),String)
End Get
Set
Me("Subtitle") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property ErrorTolerance() As Integer
Get
Return CType(Me("ErrorTolerance"),Integer)
End Get
Set
Me("ErrorTolerance") = value
End Set
End Property
End Class
End Namespace

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

@ -1,7 +1,120 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="DarkModeValue" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="Pfad" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="Fun_Sub" Type="System.String" Scope="User">
<Value Profile="(Default)">None</Value>
</Setting>
<Setting Name="ffmpeg_command" Type="System.String" Scope="User">
<Value Profile="(Default)"> -c copy -c:a copy -bsf:a aac_adtstoasc</Value>
</Setting>
<Setting Name="AddedSubs" Type="System.String" Scope="User">
<Value Profile="(Default)">None</Value>
</Setting>
<Setting Name="FunimationDub" Type="System.String" Scope="User">
<Value Profile="(Default)">Disabled</Value>
</Setting>
<Setting Name="FunimationHardsub" Type="System.String" Scope="User">
<Value Profile="(Default)">Disabled</Value>
</Setting>
<Setting Name="DefaultSubFunimation" Type="System.String" Scope="User">
<Value Profile="(Default)">Disabled</Value>
</Setting>
<Setting Name="SubFolder_Value" Type="System.String" Scope="User">
<Value Profile="(Default)">[ ignore subfolder ]</Value>
</Setting>
<Setting Name="TempFolder" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="Startseite" Type="System.String" Scope="User">
<Value Profile="(Default)">https://www.crunchyroll.com/</Value>
</Setting>
<Setting Name="Prefix_S" Type="System.String" Scope="User">
<Value Profile="(Default)">[default season prefix]</Value>
</Setting>
<Setting Name="Prefix_E" Type="System.String" Scope="User">
<Value Profile="(Default)">[default episode prefix]</Value>
</Setting>
<Setting Name="DefaultSubCR" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="VideoFormat" Type="System.String" Scope="User">
<Value Profile="(Default)">.mp4</Value>
</Setting>
<Setting Name="MergeSubs" Type="System.String" Scope="User">
<Value Profile="(Default)">[merge disabled]</Value>
</Setting>
<Setting Name="KodiSupport" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="Dark_Mode" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="Funimation_srt" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="Funimation_vtt" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="QueueMode" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="IncludeLangName" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="CR_Chapters" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="Curl_insecure" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="DubMode" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="Keep_Cache" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="HybridMode" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="HybridThread" Type="System.Int32" Scope="User">
<Value Profile="(Default)">8</Value>
</Setting>
<Setting Name="LangNameType" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="SL_DL" Type="System.Int32" Scope="User">
<Value Profile="(Default)">1</Value>
</Setting>
<Setting Name="Reso" Type="System.Int32" Scope="User">
<Value Profile="(Default)">1080</Value>
</Setting>
<Setting Name="CR_NameMethode" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="LeadingZero" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="Funimation_Bitrate" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="ServerPort" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="IgnoreSeason" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="Subtitle" Type="System.String" Scope="User">
<Value Profile="(Default)">None</Value>
</Setting>
<Setting Name="ErrorTolerance" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
</Settings>
</SettingsFile>

6
Crunchyroll Downloader/Settings.vb Normal file
View File

@ -0,0 +1,6 @@

Namespace My
<Global.System.Configuration.SettingsProvider(GetType(MyProvider.MyProvider.DirectorySettingsProvider))>
Partial Friend NotInheritable Class MySettings
End Class
End Namespace

11
Crunchyroll Downloader/Subfolder.vb
View File

@ -58,6 +58,16 @@ Module Subfolder
End Sub
Public Function ReadText(ByVal Pfad As String) As String
If Pfad.Length > 255 Then
Pfad = "\\?\" + Pfad
End If
Return File.ReadAllText(Pfad, Encoding.UTF8)
End Function
Public Function GeräteID() As String
Dim rnd As New Random
Dim possible As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
@ -102,6 +112,7 @@ Module Subfolder
End Sub))
Catch ex As Exception
End Try
'My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\log.txt", msg, True)
End Sub
Public Overrides Sub WriteLine(ByVal msg As String)

3
Crunchyroll Downloader/Trackbar.vb
View File

@ -21,10 +21,9 @@ Public Class Trackbar
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim rk As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader")
Main.HybridThread = TrackBar1.Value
rk.SetValue("HybridThread", TrackBar1.Value, RegistryValueKind.String)
My.Settings.HybridThread = Main.HybridThread
Me.Close()
End Sub

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

@ -95,6 +95,7 @@ Partial Class Einstellungen
Me.Label2 = New MetroFramework.Controls.MetroLabel()
Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.Chb_Ign_tls = New MetroFramework.Controls.MetroCheckBox()
Me.http_support = New MetroFramework.Controls.MetroComboBox()
Me.DarkMode = New MetroFramework.Controls.MetroCheckBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
@ -153,7 +154,6 @@ Partial Class Einstellungen
Me.Label5 = New MetroFramework.Controls.MetroLabel()
Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
Me.Btn_Save = New System.Windows.Forms.Button()
Me.Chb_Ign_tls = New MetroFramework.Controls.MetroCheckBox()
CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox14.SuspendLayout()
Me.SoftSubs.SuspendLayout()
@ -408,10 +408,10 @@ Partial Class Einstellungen
Me.TabPage2.HorizontalScrollbarBarColor = True
Me.TabPage2.HorizontalScrollbarHighlightOnWheel = False
Me.TabPage2.HorizontalScrollbarSize = 10
Me.TabPage2.Location = New System.Drawing.Point(4, 44)
Me.TabPage2.Location = New System.Drawing.Point(4, 35)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(501, 519)
Me.TabPage2.Size = New System.Drawing.Size(501, 528)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Output"
Me.TabPage2.VerticalScrollbarBarColor = True
@ -948,6 +948,17 @@ Partial Class Einstellungen
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "Other"
'
'Chb_Ign_tls
'
Me.Chb_Ign_tls.AutoSize = True
Me.Chb_Ign_tls.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.Chb_Ign_tls.Location = New System.Drawing.Point(135, 80)
Me.Chb_Ign_tls.Name = "Chb_Ign_tls"
Me.Chb_Ign_tls.Size = New System.Drawing.Size(223, 19)
Me.Chb_Ign_tls.TabIndex = 46
Me.Chb_Ign_tls.Text = "add ""--insecure"" to curl requests"
Me.Chb_Ign_tls.UseSelectable = True
'
'http_support
'
Me.http_support.DropDownHeight = 250
@ -957,7 +968,7 @@ Partial Class Einstellungen
Me.http_support.IntegralHeight = False
Me.http_support.ItemHeight = 23
Me.http_support.Items.AddRange(New Object() {"add-on support disabled", "80", "8080"})
Me.http_support.Location = New System.Drawing.Point(214, 21)
Me.http_support.Location = New System.Drawing.Point(214, 25)
Me.http_support.Name = "http_support"
Me.http_support.Size = New System.Drawing.Size(237, 29)
Me.http_support.TabIndex = 45
@ -992,6 +1003,7 @@ Partial Class Einstellungen
'
'MetroLabel2
'
Me.MetroLabel2.Enabled = False
Me.MetroLabel2.FontWeight = MetroFramework.MetroLabelWeight.Regular
Me.MetroLabel2.Location = New System.Drawing.Point(6, 80)
Me.MetroLabel2.Name = "MetroLabel2"
@ -1014,8 +1026,9 @@ Partial Class Einstellungen
Me.ProfileTextBox.CustomButton.Theme = MetroFramework.MetroThemeStyle.Light
Me.ProfileTextBox.CustomButton.UseSelectable = True
Me.ProfileTextBox.CustomButton.Visible = False
Me.ProfileTextBox.Enabled = False
Me.ProfileTextBox.FontSize = MetroFramework.MetroTextBoxSize.Medium
Me.ProfileTextBox.Lines = New String() {"https://www.crunchyroll.com/"}
Me.ProfileTextBox.Lines = New String() {"Disabled"}
Me.ProfileTextBox.Location = New System.Drawing.Point(6, 106)
Me.ProfileTextBox.MaxLength = 32767
Me.ProfileTextBox.Name = "ProfileTextBox"
@ -1028,7 +1041,7 @@ Partial Class Einstellungen
Me.ProfileTextBox.ShortcutsEnabled = True
Me.ProfileTextBox.Size = New System.Drawing.Size(469, 25)
Me.ProfileTextBox.TabIndex = 4
Me.ProfileTextBox.Text = "https://www.crunchyroll.com/"
Me.ProfileTextBox.Text = "Disabled"
Me.ProfileTextBox.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
Me.ProfileTextBox.UseSelectable = True
Me.ProfileTextBox.WaterMarkColor = System.Drawing.Color.FromArgb(CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer))
@ -1126,9 +1139,9 @@ Partial Class Einstellungen
Me.MetroTabPage2.HorizontalScrollbarBarColor = True
Me.MetroTabPage2.HorizontalScrollbarHighlightOnWheel = False
Me.MetroTabPage2.HorizontalScrollbarSize = 10
Me.MetroTabPage2.Location = New System.Drawing.Point(4, 44)
Me.MetroTabPage2.Location = New System.Drawing.Point(4, 35)
Me.MetroTabPage2.Name = "MetroTabPage2"
Me.MetroTabPage2.Size = New System.Drawing.Size(501, 519)
Me.MetroTabPage2.Size = New System.Drawing.Size(501, 528)
Me.MetroTabPage2.TabIndex = 8
Me.MetroTabPage2.Text = "Naming"
Me.MetroTabPage2.VerticalScrollbarBarColor = True
@ -1325,9 +1338,9 @@ Partial Class Einstellungen
Me.MetroTabPage1.HorizontalScrollbarBarColor = True
Me.MetroTabPage1.HorizontalScrollbarHighlightOnWheel = False
Me.MetroTabPage1.HorizontalScrollbarSize = 10
Me.MetroTabPage1.Location = New System.Drawing.Point(4, 44)
Me.MetroTabPage1.Location = New System.Drawing.Point(4, 35)
Me.MetroTabPage1.Name = "MetroTabPage1"
Me.MetroTabPage1.Size = New System.Drawing.Size(501, 519)
Me.MetroTabPage1.Size = New System.Drawing.Size(501, 528)
Me.MetroTabPage1.TabIndex = 7
Me.MetroTabPage1.Text = "Crunchyroll"
Me.MetroTabPage1.VerticalScrollbarBarColor = True
@ -1392,10 +1405,10 @@ Partial Class Einstellungen
Me.TabPage6.HorizontalScrollbarBarColor = True
Me.TabPage6.HorizontalScrollbarHighlightOnWheel = False
Me.TabPage6.HorizontalScrollbarSize = 10
Me.TabPage6.Location = New System.Drawing.Point(4, 44)
Me.TabPage6.Location = New System.Drawing.Point(4, 35)
Me.TabPage6.Name = "TabPage6"
Me.TabPage6.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage6.Size = New System.Drawing.Size(501, 519)
Me.TabPage6.Size = New System.Drawing.Size(501, 528)
Me.TabPage6.TabIndex = 4
Me.TabPage6.Text = " Funimation"
Me.TabPage6.VerticalScrollbarBarColor = True
@ -1629,9 +1642,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, 44)
Me.TabPage7.Location = New System.Drawing.Point(4, 35)
Me.TabPage7.Name = "TabPage7"
Me.TabPage7.Size = New System.Drawing.Size(501, 519)
Me.TabPage7.Size = New System.Drawing.Size(501, 528)
Me.TabPage7.TabIndex = 5
Me.TabPage7.Text = " About "
'
@ -1763,17 +1776,6 @@ Partial Class Einstellungen
Me.Btn_Save.TabIndex = 9
Me.Btn_Save.UseVisualStyleBackColor = False
'
'Chb_Ign_tls
'
Me.Chb_Ign_tls.AutoSize = True
Me.Chb_Ign_tls.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.Chb_Ign_tls.Location = New System.Drawing.Point(135, 80)
Me.Chb_Ign_tls.Name = "Chb_Ign_tls"
Me.Chb_Ign_tls.Size = New System.Drawing.Size(223, 19)
Me.Chb_Ign_tls.TabIndex = 46
Me.Chb_Ign_tls.Text = "add ""--insecure"" to curl requests"
Me.Chb_Ign_tls.UseSelectable = True
'
'Einstellungen
'
Me.ApplyImageInvert = True

3
Crunchyroll Downloader/einstellungen.resx
View File

@ -126,9 +126,6 @@
<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="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">
<value>332, 20</value>
</metadata>

289
Crunchyroll Downloader/einstellungen.vb
View File

@ -290,25 +290,17 @@ Public Class Einstellungen
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")
Dim ServerSetting As String = rkg.GetValue("ServerPort").ToString
If ServerSetting = "0" Then
http_support.Text = "add-on support disabled"
Else
http_support.Text = ServerSetting
End If
ListViewAdd_True.Checked = Main.UseQueue
Catch ex As Exception
If Main.StartServer = 0 Then
http_support.Text = "add-on support disabled"
Else
http_support.Text = Main.StartServer.ToString
End If
End Try
If Main.DefaultSubFunimation = "en" Then
FunSubDef.SelectedItem = "English"
@ -348,34 +340,28 @@ Public Class Einstellungen
End Sub
Private Sub Btn_Save_Click(sender As Object, e As EventArgs) Handles Btn_Save.Click
Dim rk As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader")
Main.LeadingZero = LeadingZeroDD.SelectedIndex
rk.SetValue("LeadingZero", LeadingZeroDD.SelectedIndex, RegistryValueKind.String)
My.Settings.LeadingZero = LeadingZeroDD.SelectedIndex
Main.Funimation_Bitrate = Bitrate_Funi.SelectedIndex
rk.SetValue("Funimation_Bitrate", Bitrate_Funi.SelectedIndex, RegistryValueKind.String)
My.Settings.Funimation_Bitrate = Bitrate_Funi.SelectedIndex
If http_support.Text = "add-on support disabled" Then
rk.SetValue("ServerPort", 0, RegistryValueKind.String)
My.Settings.ServerPort = 0
Main.StartServer = CInt(False)
Else
Dim Port As Integer = 0
Try
Port = CInt(http_support.Text)
rk.SetValue("ServerPort", Port, RegistryValueKind.String)
'Main.StartServer = False
Catch ex As Exception
'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
My.Settings.ServerPort = Port
Catch ex As Exception
'Else
' AAuto.Checked = False
' A360p.Checked = True
'End If
MsgBox("The add-on support Port can only be numbers!", MsgBoxStyle.Exclamation)
Exit Sub
'Exit Sub
End Try
If Main.StartServer = Port Then
Else
@ -389,223 +375,198 @@ Public Class Einstellungen
Main.IgnoreSeason = CB_Ignore.SelectedIndex
rk.SetValue("IgnoreS1", CB_Ignore.SelectedIndex, RegistryValueKind.String)
My.Settings.IgnoreSeason = CB_Ignore.SelectedIndex
If DubMode.Checked = True Then
Main.DubMode = True
rk.SetValue("DubMode", 1, RegistryValueKind.String)
My.Settings.DubMode = True
Else
Main.DubMode = False
rk.SetValue("DubMode", 0, RegistryValueKind.String)
My.Settings.DubMode = False
End If
If ChB_Chapters.Checked = True Then
Main.CR_Chapters = True
rk.SetValue("CR_Chapters", 1, RegistryValueKind.String)
My.Settings.CR_Chapters = True
Else
Main.CR_Chapters = False
rk.SetValue("CR_Chapters", 0, RegistryValueKind.String)
My.Settings.CR_Chapters = False
End If
If Chb_Ign_tls.Checked = True Then
Main.Curl_insecure = True
rk.SetValue("Curl_insecure", 1, RegistryValueKind.String)
My.Settings.Curl_insecure = True
Else
Main.Curl_insecure = False
rk.SetValue("Curl_insecure", 0, RegistryValueKind.String)
My.Settings.Curl_insecure = False
End If
If KodiSupport.Checked = True Then
Main.KodiNaming = True
rk.SetValue("KodiSupport", 1, RegistryValueKind.String)
My.Settings.KodiSupport = True
Else
Main.KodiNaming = False
rk.SetValue("KodiSupport", 0, RegistryValueKind.String)
My.Settings.KodiSupport = False
End If
' MsgBox(Name_season.Text)
If CBool(InStr(TextBox1.Text, "https://")) Then
Main.Startseite = TextBox1.Text
rk.SetValue("Startseite", Main.Startseite, RegistryValueKind.String)
My.Settings.Startseite = Main.Startseite
ElseIf TextBox1.Text = Nothing Then
Main.Startseite = "https://www.crunchyroll.com/"
rk.SetValue("Startseite", Main.Startseite, RegistryValueKind.String)
My.Settings.Startseite = Main.Startseite
Else
End If
If DD_Season_Prefix.Text = "[default season prefix]" Then
Main.Season_Prefix = "[default season prefix]"
rk.SetValue("Prefix_S", "[default season prefix]", RegistryValueKind.String)
Else
If DD_Season_Prefix.Text IsNot "[default season prefix]" Then
Main.Season_Prefix = DD_Season_Prefix.Text
rk.SetValue("Prefix_S", DD_Season_Prefix.Text, RegistryValueKind.String)
My.Settings.Prefix_S = Main.Season_Prefix
End If
If DD_Episode_Prefix.Text = "[default episode prefix]" Then
Main.Episode_Prefix = "[default episode prefix]"
rk.SetValue("Prefix_E", "[default episode prefix]", RegistryValueKind.String)
Else
If DD_Episode_Prefix.Text IsNot "[default episode prefix]" Then
Main.Episode_Prefix = DD_Episode_Prefix.Text
rk.SetValue("Prefix_E", DD_Episode_Prefix.Text, RegistryValueKind.String)
My.Settings.Prefix_E = Main.Episode_Prefix
End If
If A1080p.Checked Then
Main.Reso = 1080
rk.SetValue("Resu", 1080, RegistryValueKind.String)
My.Settings.Reso = Main.Reso
ElseIf A720p.Checked Then
Main.Reso = 720
rk.SetValue("Resu", 720, RegistryValueKind.String)
My.Settings.Reso = Main.Reso
ElseIf A360p.Checked Then
Main.Reso = 360
rk.SetValue("Resu", 360, RegistryValueKind.String)
My.Settings.Reso = Main.Reso
ElseIf A480p.Checked Then
Main.Reso = 480
rk.SetValue("Resu", 480, RegistryValueKind.String)
My.Settings.Reso = Main.Reso
ElseIf AAuto.Checked Then
Main.Reso = 42
rk.SetValue("Resu", 42, RegistryValueKind.String)
My.Settings.Reso = Main.Reso
End If
If ComboBox1.SelectedItem.ToString = "English" Then
Main.SubSprache = "enUS"
rk.SetValue("Sub", "enUS", RegistryValueKind.String)
My.Settings.Subtitle = Main.SubSprache
ElseIf ComboBox1.SelectedItem.ToString = "Deutsch" Then
Main.SubSprache = "deDE"
rk.SetValue("Sub", "deDE", RegistryValueKind.String)
My.Settings.Subtitle = Main.SubSprache
ElseIf ComboBox1.SelectedItem.ToString = "Português (Brasil)" Then
Main.SubSprache = "ptBR"
rk.SetValue("Sub", "ptBR", RegistryValueKind.String)
My.Settings.Subtitle = Main.SubSprache
ElseIf ComboBox1.SelectedItem.ToString = "Español (LA)" Then
Main.SubSprache = "esLA"
rk.SetValue("Sub", "esLA", RegistryValueKind.String)
My.Settings.Subtitle = Main.SubSprache
ElseIf ComboBox1.SelectedItem.ToString = "Français (France)" Then
Main.SubSprache = "frFR"
rk.SetValue("Sub", "frFR", RegistryValueKind.String)
My.Settings.Subtitle = Main.SubSprache
ElseIf ComboBox1.SelectedItem.ToString = "العربية (Arabic)" Then
Main.SubSprache = "arME"
rk.SetValue("Sub", "arME", RegistryValueKind.String)
My.Settings.Subtitle = Main.SubSprache
ElseIf ComboBox1.SelectedItem.ToString = "Русский (Russian)" Then
Main.SubSprache = "ruRU"
rk.SetValue("Sub", "ruRU", RegistryValueKind.String)
My.Settings.Subtitle = Main.SubSprache
ElseIf ComboBox1.SelectedItem.ToString = "Italiano (Italian)" Then
Main.SubSprache = "itIT"
rk.SetValue("Sub", "itIT", RegistryValueKind.String)
My.Settings.Subtitle = Main.SubSprache
ElseIf ComboBox1.SelectedItem.ToString = "Español (España)" Then
Main.SubSprache = "esES"
rk.SetValue("Sub", "esES", RegistryValueKind.String)
My.Settings.Subtitle = Main.SubSprache
ElseIf ComboBox1.SelectedItem.ToString = Main.CB_SuB_Nothing Then
Main.SubSprache = "None"
rk.SetValue("Sub", "None", RegistryValueKind.String)
My.Settings.Subtitle = Main.SubSprache
End If
If CR_SoftSubDefault.SelectedItem.ToString = "English" Then
Main.DefaultSubCR = "enUS"
rk.SetValue("DefaultSubCR", "enUS", RegistryValueKind.String)
My.Settings.DefaultSubCR = Main.DefaultSubCR
ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Deutsch" Then
Main.DefaultSubCR = "deDE"
rk.SetValue("DefaultSubCR", "deDE", RegistryValueKind.String)
My.Settings.DefaultSubCR = Main.DefaultSubCR
ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Português (Brasil)" Then
Main.DefaultSubCR = "ptBR"
rk.SetValue("DefaultSubCR", "ptBR", RegistryValueKind.String)
My.Settings.DefaultSubCR = Main.DefaultSubCR
ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Español (LA)" Then
Main.DefaultSubCR = "esLA"
rk.SetValue("DefaultSubCR", "esLA", RegistryValueKind.String)
My.Settings.DefaultSubCR = Main.DefaultSubCR
ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Français (France)" Then
Main.DefaultSubCR = "frFR"
rk.SetValue("DefaultSubCR", "frFR", RegistryValueKind.String)
My.Settings.DefaultSubCR = Main.DefaultSubCR
ElseIf CR_SoftSubDefault.SelectedItem.ToString = "العربية (Arabic)" Then
Main.DefaultSubCR = "arME"
rk.SetValue("DefaultSubCR", "arME", RegistryValueKind.String)
My.Settings.DefaultSubCR = Main.DefaultSubCR
ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Русский (Russian)" Then
Main.DefaultSubCR = "ruRU"
rk.SetValue("DefaultSubCR", "ruRU", RegistryValueKind.String)
My.Settings.DefaultSubCR = Main.DefaultSubCR
ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Italiano (Italian)" Then
Main.DefaultSubCR = "itIT"
rk.SetValue("DefaultSubCR", "itIT", RegistryValueKind.String)
My.Settings.DefaultSubCR = Main.DefaultSubCR
ElseIf CR_SoftSubDefault.SelectedItem.ToString = "Español (España)" Then
Main.DefaultSubCR = "esES"
rk.SetValue("DefaultSubCR", "esES", RegistryValueKind.String)
My.Settings.DefaultSubCR = Main.DefaultSubCR
ElseIf CR_SoftSubDefault.SelectedItem.ToString = "[Disabled]" Then
Main.DefaultSubCR = "None"
rk.SetValue("DefaultSubCR", "Disabled", RegistryValueKind.String)
My.Settings.DefaultSubCR = Main.DefaultSubCR
End If
If CR_Filename.Text = "[episode number]" Then
Main.CR_NameMethode = 0
rk.SetValue("CR_NameMethode", 0, RegistryValueKind.String)
My.Settings.CR_NameMethode = Main.CR_NameMethode
ElseIf CR_Filename.Text = "[episode name]" Then
Main.CR_NameMethode = 1
rk.SetValue("CR_NameMethode", 1, RegistryValueKind.String)
My.Settings.CR_NameMethode = Main.CR_NameMethode
ElseIf CR_Filename.Text = "[episode number] [episode name]" Then
Main.CR_NameMethode = 2
rk.SetValue("CR_NameMethode", 2, RegistryValueKind.String)
My.Settings.CR_NameMethode = Main.CR_NameMethode
ElseIf CR_Filename.Text = "[episode name] [episode number]" Then
Main.CR_NameMethode = 3
rk.SetValue("CR_NameMethode", 3, RegistryValueKind.String)
My.Settings.CR_NameMethode = Main.CR_NameMethode
End If
If CB_Format.Text = "MKV" Then
Main.VideoFormat = ".mkv"
rk.SetValue("VideoFormat", ".mkv", RegistryValueKind.String)
My.Settings.VideoFormat = Main.VideoFormat
ElseIf CB_Format.Text = "AAC (Audio only)" Then
Main.VideoFormat = ".aac"
rk.SetValue("VideoFormat", ".aac", RegistryValueKind.String)
My.Settings.VideoFormat = Main.VideoFormat
Else
Main.VideoFormat = ".mp4"
rk.SetValue("VideoFormat", ".mp4", RegistryValueKind.String)
My.Settings.VideoFormat = Main.VideoFormat
End If
If CB_Merge.SelectedIndex > 0 Then
Main.MergeSubs = True
Main.MergeSubsFormat = CB_Merge.SelectedItem.ToString
rk.SetValue("MergeSubs", CB_Merge.SelectedItem.ToString, RegistryValueKind.String)
My.Settings.MergeSubs = Main.MergeSubsFormat
Else
Main.MergeSubsFormat = CB_Merge.SelectedItem.ToString
Main.MergeSubs = False
rk.SetValue("MergeSubs", "[merge disabled]", RegistryValueKind.String)
My.Settings.MergeSubs = Main.MergeSubsFormat
End If
If DD_DLMode.SelectedIndex = 2 Then
Main.HybridMode = True
Main.KeepCache = True
rk.SetValue("HybridMode", "1", RegistryValueKind.String)
My.Settings.HybridMode = Main.HybridMode
ElseIf DD_DLMode.SelectedIndex = 1 Then
Main.HybridMode = True
Main.KeepCache = False
rk.SetValue("HybridMode", "1", RegistryValueKind.String)
My.Settings.HybridMode = Main.HybridMode
Else
Main.HybridMode = False
Main.KeepCache = False
rk.SetValue("HybridMode", "0", RegistryValueKind.String)
My.Settings.HybridMode = Main.HybridMode
End If
If Main.KeepCache = True Then
rk.SetValue("Keep_Cache", 1, RegistryValueKind.String)
Else
rk.SetValue("Keep_Cache", 0, RegistryValueKind.String)
End If
My.Settings.Keep_Cache = Main.KeepCache
#Region "funimation"
@ -614,43 +575,40 @@ Public Class Einstellungen
Main.DubFunimation = Fun_Dub_Over.SelectedItem.ToString
rk.SetValue("FunimationDub", Fun_Dub_Over.SelectedItem.ToString, RegistryValueKind.String)
My.Settings.FunimationDub = Main.DubFunimation
If CB_Fun_HardSubs.SelectedItem.ToString = "Disabled" Then
Main.HardSubFunimation = "Disabled"
rk.SetValue("FunimationHardsub", "Disabled", 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 = "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 = "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)
'ElseIf CB_Fun_HardSubs.SelectedItem.ToString = "Español (LA)" Then
' Main.HardSubFunimation = "es"
' rk.SetValue("FunimationHardsub", "es", RegistryValueKind.String)
End If
'End If
If FunSubDef.SelectedItem.ToString = "[Disabled]" Then
Main.DefaultSubFunimation = "Disabled"
rk.SetValue("DefaultSubFunimation", "Disabled", RegistryValueKind.String)
My.Settings.DefaultSubFunimation = Main.DefaultSubFunimation
ElseIf FunSubDef.SelectedItem.ToString = "English" Then
Main.DefaultSubFunimation = "en"
rk.SetValue("DefaultSubFunimation", "en", RegistryValueKind.String)
My.Settings.DefaultSubFunimation = Main.DefaultSubFunimation
ElseIf FunSubDef.SelectedItem.ToString = "Português (Brasil)" Then
Main.DefaultSubFunimation = "pt"
rk.SetValue("DefaultSubFunimation", "pt", RegistryValueKind.String)
My.Settings.DefaultSubFunimation = Main.DefaultSubFunimation
ElseIf FunSubDef.SelectedItem.ToString = "Español (LA)" Then
Main.DefaultSubFunimation = "es"
rk.SetValue("DefaultSubFunimation", "es", RegistryValueKind.String)
My.Settings.DefaultSubFunimation = Main.DefaultSubFunimation
End If
Main.SubFunimation.Clear()
@ -674,17 +632,17 @@ Public Class Einstellungen
If CB_srt.Checked = True Then
Main.Funimation_srt = True
rk.SetValue("Funimation_srt", "1", RegistryValueKind.String)
My.Settings.Funimation_srt = True
Else
Main.Funimation_srt = False
rk.SetValue("Funimation_srt", "0", RegistryValueKind.String)
My.Settings.Funimation_srt = False
End If
If CB_vtt.Checked = True Then
Main.Funimation_vtt = True
rk.SetValue("Funimation_vtt", "1", RegistryValueKind.String)
My.Settings.Funimation_vtt = True
Else
Main.Funimation_vtt = False
rk.SetValue("Funimation_vtt", "0", RegistryValueKind.String)
My.Settings.Funimation_vtt = False
End If
@ -697,9 +655,10 @@ Public Class Einstellungen
End If
Next
If FunimationSaveString = Nothing Then
FunimationSaveString = "none"
FunimationSaveString = "None"
End If
rk.SetValue("Fun_Sub", FunimationSaveString, RegistryValueKind.String)
My.Settings.Fun_Sub = FunimationSaveString
#End Region
@ -717,8 +676,10 @@ Public Class Einstellungen
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
My.Settings.ffmpeg_command = Main.ffmpeg_command
If CBool(InStr(FFMPEG_CommandP1.Text, "nvenc")) Then
If NumericUpDown1.Value > 2 Then
@ -730,18 +691,20 @@ Public Class Einstellungen
NumericUpDown1.Value = 1
End If
End If
rk.SetValue("SL_DL", NumericUpDown1.Value, RegistryValueKind.String)
Main.MaxDL = CInt(NumericUpDown1.Value)
rk.SetValue("ErrorTolerance", NumericUpDown2.Value, RegistryValueKind.String)
Main.MaxDL = CInt(NumericUpDown1.Value)
My.Settings.SL_DL = Main.MaxDL
Main.ErrorTolerance = CInt(NumericUpDown2.Value)
My.Settings.ErrorTolerance = Main.ErrorTolerance
If ListViewAdd_True.Checked = True Then
rk.SetValue("QueueMode", 1, RegistryValueKind.String)
Main.UseQueue = True
My.Settings.QueueMode = Main.UseQueue
ElseIf ListViewAdd_True.Checked = False Then
rk.SetValue("QueueMode", 0, RegistryValueKind.String)
Main.UseQueue = False
My.Settings.QueueMode = Main.UseQueue
End If
@ -786,33 +749,32 @@ Public Class Einstellungen
End If
Next
If SaveString = Nothing Then
SaveString = "none"
SaveString = "None"
End If
rk.SetValue("AddedSubs", SaveString, RegistryValueKind.String)
My.Settings.AddedSubs = SaveString
#End Region
If CB_SoftSubSettings.SelectedIndex = 0 Then
Main.IncludeLangName = False
rk.SetValue("IncludeLangName", "0", RegistryValueKind.String)
My.Settings.IncludeLangName = Main.IncludeLangName
Else
Main.IncludeLangName = True
rk.SetValue("IncludeLangName", "1", RegistryValueKind.String)
My.Settings.IncludeLangName = Main.IncludeLangName
End If
If LangNameType_DD.SelectedIndex = 1 Then
Main.LangNameType = 1
rk.SetValue("LangNameType", "1", RegistryValueKind.String)
My.Settings.LangNameType = Main.LangNameType
ElseIf LangNameType_DD.SelectedIndex = 2 Then
Main.LangNameType = 2
rk.SetValue("LangNameType", "2", RegistryValueKind.String)
My.Settings.LangNameType = Main.LangNameType
Else
Main.LangNameType = 0
rk.SetValue("LangNameType", "0", RegistryValueKind.String)
My.Settings.LangNameType = Main.LangNameType
End If
My.Settings.Save()
Me.Close()
End Sub
@ -999,10 +961,9 @@ Public Class Einstellungen
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)
My.Settings.DarkModeValue = True
Manager.Theme = MetroThemeStyle.Dark
GroupBoxColor(Color.FromArgb(150, 150, 150))
NumericUpDown1.BackColor = Color.FromArgb(17, 17, 17)
@ -1012,7 +973,8 @@ Public Class Einstellungen
pictureBox1.Image = Main.CloseImg
Else
Main.DarkModeValue = False
rk.SetValue("Dark_Mode", 0, RegistryValueKind.String)
My.Settings.DarkModeValue = False
Manager.Theme = MetroThemeStyle.Light
Main.LightMode()
GroupBoxColor(Color.FromArgb(0, 0, 0))
@ -1289,8 +1251,7 @@ Public Class Einstellungen
Main.ProfileFolder = FolderBrowserDialog1.SelectedPath
ProfileTextBox.Text = FolderBrowserDialog1.SelectedPath
Dim rk0 As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader")
rk0.SetValue("ProfilFolder", Main.ProfileFolder, RegistryValueKind.String)
My.Settings.Pfad = Main.ProfileFolder
End If
@ -1314,10 +1275,7 @@ Public Class Einstellungen
Main.TempFolder = FolderBrowserDialog1.SelectedPath
TempTB.Text = FolderBrowserDialog1.SelectedPath
Dim rk0 As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader")
rk0.SetValue("TempFolder", Main.TempFolder, RegistryValueKind.String)
My.Settings.TempFolder = Main.TempFolder
End If
End Sub
@ -1328,6 +1286,7 @@ Public Class Einstellungen
#End Region