Mirrors/Crunchyroll-Downloader-v3.0
2
0
Fork 0
mirror of https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git synced 2024-12-23 22:51:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

bugfixes

Browse Source 
fix #654
fix #651
possible fix #649
This commit is contained in:
hama3254 2023-01-05 14:26:40 +01:00
parent bd2eacac4d
commit d03e3b4ebc
13 changed files with 680 additions and 546 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.

2
Crunchyroll Downloader/Anime_Add.Designer.vb generated
View File

@ -393,9 +393,9 @@ Partial Class Anime_Add
Me.Controls.Add(Me.btn_dl)
Me.Controls.Add(Me.Btn_min)
Me.Controls.Add(Me.Btn_Close)
Me.Controls.Add(Me.groupBox2)
Me.Controls.Add(Me.groupBox1)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.groupBox2)
Me.Font = New System.Drawing.Font("Arial", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Name = "Anime_Add"
Me.Padding = New System.Windows.Forms.Padding(10, 60, 20, 20)

5
Crunchyroll Downloader/Browser.vb
View File

@ -66,7 +66,10 @@ Public Class Browser
End Sub
Public Async Sub GetCookies(ByVal Uri As String)
Main.CookieList = Await WebView2.CoreWebView2.CookieManager.GetCookiesAsync(Uri)
Try
Main.CookieList = Await WebView2.CoreWebView2.CookieManager.GetCookiesAsync(Uri)
Catch ex As Exception
End Try
End Sub

9
Crunchyroll Downloader/Crunchyroll Downloader.vbproj
View File

@ -150,6 +150,12 @@
</ItemGroup>
<ItemGroup>
<Compile Include="CRD-Classes.vb" />
<Compile Include="queue.Designer.vb">
<DependentUpon>queue.vb</DependentUpon>
</Compile>
<Compile Include="queue.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Settings.vb" />
<Compile Include="Trackbar.Designer.vb">
<DependentUpon>Trackbar.vb</DependentUpon>
@ -214,6 +220,9 @@
<Compile Include="Subfolder.vb" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="queue.resx">
<DependentUpon>queue.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Trackbar.resx">
<DependentUpon>Trackbar.vb</DependentUpon>
</EmbeddedResource>

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

@ -53,6 +53,7 @@ Partial Class Main
Me.DummyItemToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.ScanTimeout = New System.Windows.Forms.Timer(Me.components)
Me.QueueToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ConsoleBar, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -161,7 +162,7 @@ Partial Class Main
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToggleDebugModeToolStripMenuItem, Me.OpenSettingsToolStripMenuItem, Me.Funimation_Token, Me.CheckCRBetaTokenToolStripMenuItem, Me.AddonHTMLToolStripMenuItem, Me.Timer3OffToolStripMenuItem, Me.ThreadCount, Me.MsgBoxToolStripMenuItem, Me.CRCookieToolStripMenuItem, Me.UrlJsonsToolStripMenuItem, Me.ItemBoundsToolStripMenuItem, Me.DummyItemToolStripMenuItem})
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.QueueToolStripMenuItem, Me.ToggleDebugModeToolStripMenuItem, Me.OpenSettingsToolStripMenuItem, Me.Funimation_Token, Me.CheckCRBetaTokenToolStripMenuItem, Me.AddonHTMLToolStripMenuItem, Me.Timer3OffToolStripMenuItem, Me.ThreadCount, Me.MsgBoxToolStripMenuItem, Me.CRCookieToolStripMenuItem, Me.UrlJsonsToolStripMenuItem, Me.ItemBoundsToolStripMenuItem, Me.DummyItemToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
'
@ -234,6 +235,11 @@ Partial Class Main
'
Me.ScanTimeout.Interval = 1000
'
'QueueToolStripMenuItem
'
Me.QueueToolStripMenuItem.Name = "QueueToolStripMenuItem"
resources.ApplyResources(Me.QueueToolStripMenuItem, "QueueToolStripMenuItem")
'
'Main
'
Me.ApplyImageInvert = True
@ -292,4 +298,5 @@ Partial Class Main
Friend WithEvents DummyItemToolStripMenuItem As ToolStripMenuItem
Public WithEvents Panel1 As Panel
Friend WithEvents ScanTimeout As Timer
Friend WithEvents QueueToolStripMenuItem As ToolStripMenuItem
End Class

16
Crunchyroll Downloader/Main.resx
View File

@ -151,7 +151,7 @@
<value>9</value>
</data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>370, 2</value>
<value>383, 18</value>
</metadata>
<metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>272, 14</value>
@ -531,6 +531,12 @@
<data name="&gt;&gt;ScanTimeout.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;QueueToolStripMenuItem.Name" xml:space="preserve">
<value>QueueToolStripMenuItem</value>
</data>
<data name="&gt;&gt;QueueToolStripMenuItem.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>
@ -543,6 +549,12 @@
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>352, 49</value>
</metadata>
<data name="QueueToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>233, 22</value>
</data>
<data name="QueueToolStripMenuItem.Text" xml:space="preserve">
<value>Queue</value>
</data>
<data name="ToggleDebugModeToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>233, 22</value>
</data>
@ -616,7 +628,7 @@
<value>Dummy_Item</value>
</data>
<data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>234, 290</value>
<value>234, 312</value>
</data>
<data name="&gt;&gt;ContextMenuStrip1.Name" xml:space="preserve">
<value>ContextMenuStrip1</value>

517
Crunchyroll Downloader/Main.vb
View File

@ -107,7 +107,9 @@ Public Class Main
Public ffmpeg_command As String = " -c copy -bsf:a aac_adtstoasc" '" -c:v hevc_nvenc -preset fast -b:v 6M -bsf:a aac_adtstoasc "
Public Reso As Integer
Public Season_Prefix As String = "[default season prefix]"
Public Season_PrefixDefault As String = "[default season prefix]"
Public Episode_Prefix As String = "[default episode prefix]"
Public Episode_PrefixDefault As String = "[default episode prefix]"
Public ResoSave As String = "6666x6666"
Public ResoFunBackup As String = "6666x6666"
@ -1125,7 +1127,7 @@ Public Class Main
Dim CR_Streams As New List(Of CR_Beta_Stream)
Dim CR_series_title As String = Nothing
Dim CR_season_number As String = Nothing
Dim CR_season_number2 As String = Nothing
Dim CR_FolderSeason As String = Nothing
Dim CR_episode As String = Nothing
Dim CR_episode_duration_ms As String = "60000000"
Dim CR_episode2 As String = Nothing
@ -1137,7 +1139,7 @@ Public Class Main
Dim ResoUsed As String = "x" + Reso.ToString
Dim ffmpegInput As String = "-i [Subtitles only]"
#Region "Name + Pfad"
Dim Pfad2 As String
Dim TextBox2_Text As String = Nothing
Dim CR_FilenName As String = Nothing
@ -1146,7 +1148,6 @@ Public Class Main
TextBox2_Text = Anime_Add.TextBox2.Text
Return Nothing
End Function))
#Region "Name von Crunchyroll"
@ -1202,232 +1203,45 @@ Public Class Main
Dim data As List(Of JToken) = ser.Children().ToList
For Each item As JProperty In data
item.CreateReader()
Select Case item.Name
item.CreateReader()
Select Case item.Name
Case "data" 'each record is inside the entries array
For Each Entry As JObject In item.Values
Try
Dim Title As String = Entry("title").ToString
CR_title = String.Join(" ", Title.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c).Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
Debug.WriteLine(Date.Now.ToString + " CR-Title: " + CR_title)
Catch ex As Exception
End Try
Dim SubData As List(Of JToken) = Entry.Children().ToList
For Each SubItem As JProperty In SubData
'SubItem.CreateReader()
Select Case SubItem.Name
Case "episode_metadata"
For Each SubEntry As JProperty In SubItem.Values
Select Case SubEntry.Name
Case "series_title"
CR_series_title = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
Case "data" 'each record is inside the entries array
For Each Entry As JObject In item.Values
Try
Dim Title As String = Entry("title").ToString
CR_title = String.Join(" ", Title.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c).Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
Debug.WriteLine(Date.Now.ToString + " CR-Title: " + CR_title)
Catch ex As Exception
End Try
Dim SubData As List(Of JToken) = Entry.Children().ToList
For Each SubItem As JProperty In SubData
'SubItem.CreateReader()
Select Case SubItem.Name
Case "episode_metadata"
For Each SubEntry As JProperty In SubItem.Values
Select Case SubEntry.Name
Case "series_title"
CR_series_title = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
'Case "season_title"
' CR_season_title = SubEntry.Value.ToString
Case "season_number"
CR_season_number = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
Case "episode_number"
CR_episode2 = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
Case "episode"
CR_episode = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
Case "duration_ms"
CR_episode_duration_ms = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
Case "is_dubbed"
CR_audio_isDubbed = CBool(SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", ""))
End Select
Next '
End Select
Next
Case "season_number"
CR_season_number = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
Case "episode_number"
CR_episode2 = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
Case "episode"
CR_episode = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
Case "duration_ms"
CR_episode_duration_ms = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
Case "is_dubbed"
CR_audio_isDubbed = CBool(SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", ""))
End Select
Next '
End Select
Next
End Select
Next
If CR_episode = Nothing Or CR_episode = "" And CR_episode2 = Nothing Then
CR_episode_int = "0"
ElseIf CR_episode IsNot Nothing And CR_episode IsNot "" Then
CR_episode_int = CR_episode
ElseIf CR_episode2 IsNot Nothing Then
CR_episode_int = CR_episode2
End If
CR_Anime_Staffel_int = CR_season_number
If TextBox2_Text = Nothing Or TextBox2_Text = "Use Custom Name" Or CBool(InStr(TextBox2_Text, "++")) = True Then
If Season_Prefix = "[default season prefix]" Then
If CR_episode = Nothing And CR_episode2 = Nothing Then 'no episode number means most likey a movie
CR_season_number = Nothing
ElseIf CR_season_number = Nothing Then
Else
CR_season_number = "Season " + CR_season_number
End If
Else
If CR_episode = Nothing And CR_episode2 = Nothing Then 'no episode number means most likey a movie
CR_season_number = Nothing
ElseIf CR_season_number = Nothing Then
Else
CR_season_number = Season_Prefix + CR_season_number
End If
End If
CR_season_number2 = CR_season_number
If IgnoreSeason = 1 And CR_season_number = "1" Or IgnoreSeason = 1 And CR_season_number = "0" Then
CR_season_number = Nothing
ElseIf IgnoreSeason = 2 Then
CR_season_number = Nothing
End If
If Episode_Prefix = "[default episode prefix]" Then
If CR_episode = Nothing Or CR_episode = "" And CR_episode2 = Nothing Then
CR_episode = CR_title
ElseIf CR_episode IsNot Nothing And CR_episode IsNot "" Then
CR_episode = "Episode " + AddLeadingZeros(CR_episode)
ElseIf CR_episode2 IsNot Nothing Then
CR_episode = "Episode " + AddLeadingZeros(CR_episode2)
End If
'CR_episode = "Episode " + AddLeadingZeros(CR_episode)
Else
CR_episode = Episode_Prefix + AddLeadingZeros(CR_episode)
End If
Dim NameParts As String() = NameBuilder.Split(New String() {";"}, System.StringSplitOptions.RemoveEmptyEntries)
For i As Integer = 0 To NameParts.Count - 1
If NameParts(i) = "AnimeTitle" Then
CR_FilenName = CR_FilenName + " " + CR_series_title
ElseIf NameParts(i) = "Season" Then
CR_FilenName = CR_FilenName + " " + CR_season_number
ElseIf NameParts(i) = "EpisodeNR" Then
CR_FilenName = CR_FilenName + " " + CR_episode
ElseIf NameParts(i) = "EpisodeName" Then
CR_FilenName = CR_FilenName + " " + CR_title
ElseIf NameParts(i) = "AnimeDub" Then
CR_FilenName = CR_FilenName + " RepDub"
ElseIf NameParts(i) = "AnimeSub" Then
CR_FilenName = CR_FilenName + " RepSub"
End If
Next
'If CR_NameMethode = 0 Then 'nummer
' If CR_season_number = Nothing And CR_episode = Nothing Then
' CR_FilenName = CR_series_title + " " + CR_title
' ElseIf CR_episode = Nothing Then
' CR_FilenName = CR_series_title + " " + CR_title
' ElseIf CR_season_number = Nothing Then
' CR_FilenName = CR_series_title + " " + CR_episode
' Else
' CR_FilenName = CR_series_title + " " + CR_season_number + " " + CR_episode
' End If
'ElseIf CR_NameMethode = 1 Then 'name
' If CR_season_number = Nothing Then
' CR_FilenName = CR_series_title + " " + CR_title
' Else
' CR_FilenName = CR_series_title + " " + CR_season_number + " " + CR_title
' End If
'ElseIf CR_NameMethode = 2 Then ' nummer - name
' If CR_season_number = Nothing And CR_episode = Nothing Then
' CR_FilenName = CR_series_title + " " + CR_title
' ElseIf CR_season_number = Nothing Then
' CR_FilenName = CR_series_title + " " + CR_episode + " " + CR_title
' Else
' CR_FilenName = CR_series_title + " " + CR_season_number + " " + CR_episode + " " + CR_title
' End If
'ElseIf CR_NameMethode = 3 Then ' name - nummer
' If CR_season_number = Nothing And CR_episode = Nothing Then
' CR_FilenName = CR_series_title + " " + CR_title
' ElseIf CR_season_number = Nothing Then
' CR_FilenName = CR_series_title + " " + CR_title + " " + CR_episode
' Else
' CR_FilenName = CR_series_title + " " + CR_title + " " + CR_season_number + " " + CR_episode
' End If
'End If
If CBool(InStr(TextBox2_Text, "++")) = True Then
Dim Backup_CR_FilenName As String = CR_FilenName
Try
Dim AddDef As String = "CRD"
Dim TestString As String = AddDef + TextBox2_Text + AddDef
Dim PrePost As String() = TestString.Split(New String() {"++"}, System.StringSplitOptions.RemoveEmptyEntries)
CR_FilenName = PrePost(0) + CR_FilenName + PrePost(1)
CR_FilenName = CR_FilenName.Replace(AddDef, "")
Catch ex As Exception
CR_FilenName = Backup_CR_FilenName
End Try
End If
#End Region
Else
CR_FilenName = RemoveExtraSpaces(String.Join(" ", TextBox2_Text.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c)).Replace(Chr(34), "").Replace("\", "").Replace("/", "") 'System.Text.RegularExpressions.Regex.Replace(TextBox2_Text, "[^\w\\-]", " "))
End If
If KodiNaming = True Then
Dim KodiString As String = "[S"
If CR_Anime_Staffel_int = "0" Then
CR_Anime_Staffel_int = "01"
Else
CR_Anime_Staffel_int = "0" + CR_Anime_Staffel_int
End If
KodiString = KodiString + CR_Anime_Staffel_int + " E" + AddLeadingZeros(CR_episode_int) ' CR_episode_nr
KodiString = KodiString + "] "
CR_FilenName = KodiString + CR_FilenName
End If
Debug.WriteLine(CR_FilenName)
CR_FilenName = String.Join(" ", CR_FilenName.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c).Replace(Chr(34), "").Replace("\", "").Replace("/", "") 'System.Text.RegularExpressions.Regex.Replace(CR_FilenName, "[^\w\\-]", " ")
CR_FilenName = RemoveExtraSpaces(CR_FilenName)
'My.Computer.FileSystem.WriteAllText("log.log", WebbrowserText, False)
Pfad2 = UseSubfolder(CR_series_title, CR_season_number2, Pfad)
If Not Directory.Exists(Path.GetDirectoryName(Pfad2)) Then
' Nein! Jetzt erstellen...
Try
Directory.CreateDirectory(Path.GetDirectoryName(Pfad2))
Pfad2 = Chr(34) + Pfad2 + CR_FilenName + VideoFormat + Chr(34)
Catch ex As Exception
' Ordner wurde nich erstellt
Pfad2 = Chr(34) + Pfad + "\" + CR_FilenName + VideoFormat + Chr(34)
Pfad2 = Pfad2.Replace("\\", "\")
End Try
Else
Pfad2 = Chr(34) + Pfad2 + CR_FilenName + VideoFormat + Chr(34)
End If
#End Region
#Region "lösche doppel download"
Dim Pfad5 As String = Pfad2.Replace(Chr(34), "")
If My.Computer.FileSystem.FileExists(Pfad5) And SubsOnly = False Then 'Pfad = Kompeltter Pfad mit Dateinamen + ENdung
Me.Invoke(New Action(Function() As Object
Anime_Add.StatusLabel.Text = "Status: The file video already exists."
Me.Text = "Status: The file video already exists."
Me.Invalidate()
Return Nothing
End Function))
If MessageBox.Show("The file " + Pfad5 + " already exists." + vbNewLine + "You want to override it?", "File exists!", MessageBoxButtons.OKCancel) = DialogResult.OK Then
Try
My.Computer.FileSystem.DeleteFile(Pfad5)
Catch ex As Exception
End Try
Else
Grapp_RDY = True
Exit Sub
End If
End If
#End Region
Next
End Select
Next
#Region "Chapters"
Dim Mdata_File As String = Application.StartupPath + "\" + ObjectsURLBuilder4(0) + "-mdata.txt"
@ -1506,6 +1320,7 @@ Public Class Main
End If
End If
#End Region
#Region "VideoJson"
Dim VideoJson As String = Nothing
@ -1598,15 +1413,7 @@ Public Class Main
Else
CR_audio_locale = "ja-JP"
End If
'Case "subtitles"
' Dim SubtitleSubData As List(Of JToken) = MetaEntrys.Children().ToList
' For Each SubtitleSubItem As JObject In SubtitleSubData
' 'MsgBox(SubtitleSubItem.Children().ToList.Count.ToString)
' If SubtitleSubItem.Children().ToList.Count > 2 Then
' CR_audio_locale = "ja-JP"
' End If
' Exit For
' Next
End Select
Next
@ -1672,12 +1479,170 @@ Public Class Main
#End Region
#Region "Name"
#Region "Name von Crunchyroll"
If CR_episode = Nothing Or CR_episode = "" And CR_episode2 = Nothing Then
CR_episode_int = "0"
ElseIf CR_episode IsNot Nothing And CR_episode IsNot "" Then
CR_episode_int = CR_episode
ElseIf CR_episode2 IsNot Nothing Then
CR_episode_int = CR_episode2
End If
CR_Anime_Staffel_int = CR_season_number
If TextBox2_Text = Nothing Or TextBox2_Text = "Use Custom Name" Or CBool(InStr(TextBox2_Text, "++")) = True Then
If Season_Prefix = "[default season prefix]" Then
If CR_episode = Nothing And CR_episode2 = Nothing Then 'no episode number means most likey a movie
CR_season_number = Nothing
ElseIf CR_season_number = Nothing Then
Else
CR_season_number = "Season " + CR_season_number
End If
Else
If CR_episode = Nothing And CR_episode2 = Nothing Then 'no episode number means most likey a movie
CR_season_number = Nothing
ElseIf CR_season_number = Nothing Then
Else
CR_season_number = Season_Prefix + CR_season_number
End If
End If
CR_FolderSeason = CR_season_number
If IgnoreSeason = 1 And CR_season_number = "1" Or IgnoreSeason = 1 And CR_season_number = "0" Then
CR_season_number = Nothing
ElseIf IgnoreSeason = 2 Then
CR_season_number = Nothing
End If
If Episode_Prefix = "[default episode prefix]" Then
If CR_episode = Nothing Or CR_episode = "" And CR_episode2 = Nothing Then
CR_episode = CR_title
ElseIf CR_episode IsNot Nothing And CR_episode IsNot "" Then
CR_episode = "Episode " + AddLeadingZeros(CR_episode)
ElseIf CR_episode2 IsNot Nothing Then
CR_episode = "Episode " + AddLeadingZeros(CR_episode2)
End If
'CR_episode = "Episode " + AddLeadingZeros(CR_episode)
Else
CR_episode = Episode_Prefix + AddLeadingZeros(CR_episode)
End If
Dim NameParts As String() = NameBuilder.Split(New String() {";"}, System.StringSplitOptions.RemoveEmptyEntries)
For i As Integer = 0 To NameParts.Count - 1
If NameParts(i) = "AnimeTitle" Then
CR_FilenName = CR_FilenName + " " + CR_series_title
ElseIf NameParts(i) = "Season" Then
CR_FilenName = CR_FilenName + " " + CR_season_number
ElseIf NameParts(i) = "EpisodeNR" Then
CR_FilenName = CR_FilenName + " " + CR_episode
ElseIf NameParts(i) = "EpisodeName" Then
CR_FilenName = CR_FilenName + " " + CR_title
ElseIf NameParts(i) = "AnimeDub" Then
CR_FilenName = CR_FilenName + " " + HardSubValuesToDisplay(CR_audio_locale)
ElseIf NameParts(i) = "AnimeSub" Then
' CR_FilenName = CR_FilenName + " RepSub" 'to be done
End If
Next
If CBool(InStr(TextBox2_Text, "++")) = True Then
Dim Backup_CR_FilenName As String = CR_FilenName
Try
Dim AddDef As String = "CRD"
Dim TestString As String = AddDef + TextBox2_Text + AddDef
Dim PrePost As String() = TestString.Split(New String() {"++"}, System.StringSplitOptions.RemoveEmptyEntries)
CR_FilenName = PrePost(0) + CR_FilenName + PrePost(1)
CR_FilenName = CR_FilenName.Replace(AddDef, "")
Catch ex As Exception
CR_FilenName = Backup_CR_FilenName
End Try
End If
#End Region
Else
CR_FilenName = RemoveExtraSpaces(String.Join(" ", TextBox2_Text.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c)).Replace(Chr(34), "").Replace("\", "").Replace("/", "") 'System.Text.RegularExpressions.Regex.Replace(TextBox2_Text, "[^\w\\-]", " "))
End If
If KodiNaming = True Then
Dim KodiString As String = "[S"
If CR_Anime_Staffel_int = "0" Then
CR_Anime_Staffel_int = "01"
Else
CR_Anime_Staffel_int = "0" + CR_Anime_Staffel_int
End If
KodiString = KodiString + CR_Anime_Staffel_int + " E" + AddLeadingZeros(CR_episode_int) ' CR_episode_nr
KodiString = KodiString + "] "
CR_FilenName = KodiString + CR_FilenName
End If
Debug.WriteLine(CR_FilenName)
CR_FilenName = String.Join(" ", CR_FilenName.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c).Replace(Chr(34), "").Replace("\", "").Replace("/", "") 'System.Text.RegularExpressions.Regex.Replace(CR_FilenName, "[^\w\\-]", " ")
CR_FilenName = RemoveExtraSpaces(CR_FilenName)
'My.Computer.FileSystem.WriteAllText("log.log", WebbrowserText, False)
Pfad2 = UseSubfolder(CR_series_title, CR_FolderSeason, Pfad)
If Not Directory.Exists(Path.GetDirectoryName(Pfad2)) Then
' Nein! Jetzt erstellen...
Try
Directory.CreateDirectory(Path.GetDirectoryName(Pfad2))
Pfad2 = Chr(34) + Pfad2 + CR_FilenName + VideoFormat + Chr(34)
Catch ex As Exception
' Ordner wurde nich erstellt
Pfad2 = Chr(34) + Pfad + "\" + CR_FilenName + VideoFormat + Chr(34)
Pfad2 = Pfad2.Replace("\\", "\")
End Try
Else
Pfad2 = Chr(34) + Pfad2 + CR_FilenName + VideoFormat + Chr(34)
End If
#End Region
#Region "lösche doppel download"
Dim Pfad5 As String = Pfad2.Replace(Chr(34), "")
If My.Computer.FileSystem.FileExists(Pfad5) And SubsOnly = False Then 'Pfad = Kompeltter Pfad mit Dateinamen + ENdung
Me.Invoke(New Action(Function() As Object
Anime_Add.StatusLabel.Text = "Status: The file video already exists."
Me.Text = "Status: The file video already exists."
Me.Invalidate()
Return Nothing
End Function))
If MessageBox.Show("The file " + Pfad5 + " already exists." + vbNewLine + "You want to override it?", "File exists!", MessageBoxButtons.OKCancel) = DialogResult.OK Then
Try
My.Computer.FileSystem.DeleteFile(Pfad5)
Catch ex As Exception
End Try
Else
Grapp_RDY = True
Exit Sub
End If
End If
#End Region
#Region "GetResolution"
If Reso = 42 And HybridMode = False Then
ffmpegInput = "-i " + Chr(34) + CR_URI_Master + Chr(34)
ElseIf SubsOnly = True Then
ffmpegInput = "-i [Subtitles only]"
Else
Dim str As String = Nothing
@ -1824,7 +1789,6 @@ Public Class Main
ffmpegInput = RemoveExtraSpaces(ffmpegInput)
#End Region
#Region "thumbnail"
Dim thumbnail As String() = ObjectJson.Split(New String() {"https://"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim thumbnail3 As String = ""
@ -1845,6 +1809,7 @@ Public Class Main
Next
#End Region
#Region "item constructor"
#Region "Display Hard_Softsubs"
@ -1862,17 +1827,7 @@ Public Class Main
Next
End If
#End Region
#Region "Replace Sub/Dub in name"
If CBool(InStr(CR_FilenName, "RepDub")) Then
CR_FilenName = CR_FilenName.Replace("RepDub", HardSubValuesToDisplay(CR_audio_locale))
End If
If CBool(InStr(CR_FilenName, " RepSub")) Then
CR_FilenName = CR_FilenName.Replace(" RepSub", "")
End If
#End Region
#Region "Display Resolution"
@ -2153,74 +2108,6 @@ Public Class Main
End Function
#Region "unused"
'Public Shared Function GetPage(url As String) As String
' Try
' Dim ourUri As New Uri(url)
' Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create(ourUri), HttpWebRequest)
' myHttpWebRequest.Timeout = 10000
' Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)
' Return myHttpWebResponse.ResponseUri.ToString
' myHttpWebResponse.Close()
' Catch e As Exception
' 'MsgBox(e.Message.ToString)
' Return url
' End Try
'End Function
Sub FFMPEGResoBack(ByVal sender As Object, ByVal e As DataReceivedEventArgs)
If CBool(InStr(e.Data, ": Video:")) Then
Dim ZeileReso() As String = e.Data.Split(New String() {" ["}, System.StringSplitOptions.RemoveEmptyEntries)
Dim ZeileReso2() As String = ZeileReso(0).Split(New String() {"x"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim ZeileReso3() As String = e.Data.Split(New String() {": Video:"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim ZeileReso4() As String = ZeileReso3(0).Split(New String() {"Stream #"}, System.StringSplitOptions.RemoveEmptyEntries)
ResoAvalibe = ResoAvalibe + vbNewLine + ZeileReso2(ZeileReso2.Count - 1).Trim + ":--:" + ZeileReso4(1)
ElseIf CBool(InStr(e.Data, "At least one output file must be specified")) Then
ResoSearchRunning = False
End If
End Sub
Public Sub FFMPEG_Reso(ByVal DL_URL As String)
ResoSearchRunning = True
Dim proc As New Process
Dim exepath As String = Application.StartupPath + "\ffmpeg.exe"
Dim startinfo As New System.Diagnostics.ProcessStartInfo
Dim cmd As String = "-i " + Chr(34) + DL_URL + Chr(34) 'start ffmpeg with command strFFCMD string
Dim ffmpegOutput As String = Nothing
Dim ffmpegOutput2 As String = Nothing
'all parameters required to run the process
startinfo.FileName = exepath
startinfo.Arguments = cmd
startinfo.UseShellExecute = False
startinfo.WindowStyle = ProcessWindowStyle.Hidden
startinfo.RedirectStandardError = True
startinfo.RedirectStandardOutput = True
startinfo.CreateNoWindow = True
startinfo.StandardOutputEncoding = Encoding.UTF8
startinfo.StandardErrorEncoding = Encoding.UTF8
AddHandler proc.ErrorDataReceived, AddressOf FFMPEGResoBack
AddHandler proc.OutputDataReceived, AddressOf FFMPEGResoBack
proc.StartInfo = startinfo
proc.Start() ' start the process
proc.BeginOutputReadLine()
proc.BeginErrorReadLine()
'Dim ZeitAnzeige As String = Nothing
'Dim StreamNR As String = Nothing
''Math.Abs()
'Dim AllReso As String = "1080p720p480p360p"
'Dim AllResoArry() As String = AllReso.Split(New String() {"p"}, System.StringSplitOptions.RemoveEmptyEntries)
'Dim Zeilen() As String = ffmpegOutput.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
'For i As Integer = 0 To Zeilen.Count - 1
' If CBool(InStr(Zeilen(i), "x" + Reso.ToString + " [") Then
' Dim ZeileReso() As String = Zeilen(i).Split(New String() {": Video:"}, System.StringSplitOptions.RemoveEmptyEntries)
' Dim ZeileReso2() As String = ZeileReso(0).Split(New String() {"Stream #"}, System.StringSplitOptions.RemoveEmptyEntries)
' StreamNR = ZeileReso2(1)
' End If
'Next
'Return ZeitAnzeige + "#1" + StreamNR
End Sub
#End Region
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Try
@ -4329,6 +4216,10 @@ Public Class Main
End Sub
Private Sub QueueToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QueueToolStripMenuItem.Click
Queue.Show()
End Sub
#End Region

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.12")>
<Assembly: AssemblyFileVersion("3.12")>
<Assembly: AssemblyVersion("3.12.1")>
<Assembly: AssemblyFileVersion("3.12.1")>
<Assembly: NeutralResourcesLanguage("en")>

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

@ -102,8 +102,6 @@ Partial Class Einstellungen
Me.http_support = New MetroFramework.Controls.MetroComboBox()
Me.DarkMode = New MetroFramework.Controls.MetroCheckBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.MetroLabel2 = New MetroFramework.Controls.MetroLabel()
Me.ProfileTextBox = New MetroFramework.Controls.MetroTextBox()
Me.Label1 = New MetroFramework.Controls.MetroLabel()
Me.TextBox1 = New MetroFramework.Controls.MetroTextBox()
Me.DL_Count_simultaneous = New System.Windows.Forms.GroupBox()
@ -120,8 +118,13 @@ Partial Class Einstellungen
Me.KodiSupport = New MetroFramework.Controls.MetroToggle()
Me.MetroLink1 = New MetroFramework.Controls.MetroLink()
Me.GroupBox12 = New System.Windows.Forms.GroupBox()
Me.DD_Episode_Prefix = New MetroFramework.Controls.MetroComboBox()
Me.DD_Season_Prefix = New MetroFramework.Controls.MetroComboBox()
Me.CB_EpisodeName = New MetroFramework.Controls.MetroCheckBox()
Me.CB_AnimeDub = New MetroFramework.Controls.MetroCheckBox()
Me.CB_EpisodeNR = New MetroFramework.Controls.MetroCheckBox()
Me.CB_AnimeSub = New MetroFramework.Controls.MetroCheckBox()
Me.CB_Season = New MetroFramework.Controls.MetroCheckBox()
Me.CB_Anime = New MetroFramework.Controls.MetroCheckBox()
Me.TB_NameString = New MetroFramework.Controls.MetroTextBox()
Me.MetroTabPage1 = New MetroFramework.Controls.MetroTabPage()
Me.GroupBox20 = New System.Windows.Forms.GroupBox()
Me.ChB_Chapters = New MetroFramework.Controls.MetroCheckBox()
@ -156,13 +159,8 @@ Partial Class Einstellungen
Me.Label5 = New MetroFramework.Controls.MetroLabel()
Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
Me.Btn_Save = New System.Windows.Forms.Button()
Me.TB_NameString = New MetroFramework.Controls.MetroTextBox()
Me.CB_EpisodeName = New MetroFramework.Controls.MetroCheckBox()
Me.CB_AnimeDub = New MetroFramework.Controls.MetroCheckBox()
Me.CB_EpisodeNR = New MetroFramework.Controls.MetroCheckBox()
Me.CB_AnimeSub = New MetroFramework.Controls.MetroCheckBox()
Me.CB_Season = New MetroFramework.Controls.MetroCheckBox()
Me.CB_Anime = New MetroFramework.Controls.MetroCheckBox()
Me.DD_Season_Prefix = New MetroFramework.Controls.MetroTextBox()
Me.DD_Episode_Prefix = New MetroFramework.Controls.MetroTextBox()
CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox14.SuspendLayout()
Me.SoftSubs.SuspendLayout()
@ -923,7 +921,7 @@ Partial Class Einstellungen
Me.GroupBox6.Controls.Add(Me.NumericUpDown2)
Me.GroupBox6.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox6.ForeColor = System.Drawing.Color.Black
Me.GroupBox6.Location = New System.Drawing.Point(3, 360)
Me.GroupBox6.Location = New System.Drawing.Point(5, 299)
Me.GroupBox6.Name = "GroupBox6"
Me.GroupBox6.Size = New System.Drawing.Size(490, 112)
Me.GroupBox6.TabIndex = 80
@ -977,7 +975,7 @@ Partial Class Einstellungen
Me.GroupBox5.Controls.Add(Me.DarkMode)
Me.GroupBox5.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox5.ForeColor = System.Drawing.Color.Black
Me.GroupBox5.Location = New System.Drawing.Point(3, 240)
Me.GroupBox5.Location = New System.Drawing.Point(5, 179)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(490, 114)
Me.GroupBox5.TabIndex = 70
@ -1024,65 +1022,17 @@ Partial Class Einstellungen
'GroupBox1
'
Me.GroupBox1.BackColor = System.Drawing.Color.Transparent
Me.GroupBox1.Controls.Add(Me.MetroLabel2)
Me.GroupBox1.Controls.Add(Me.ProfileTextBox)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.TextBox1)
Me.GroupBox1.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox1.ForeColor = System.Drawing.Color.Black
Me.GroupBox1.Location = New System.Drawing.Point(5, 85)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(490, 149)
Me.GroupBox1.Size = New System.Drawing.Size(490, 88)
Me.GroupBox1.TabIndex = 60
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Browser Settings"
'
'MetroLabel2
'
Me.MetroLabel2.Enabled = False
Me.MetroLabel2.FontWeight = MetroFramework.MetroLabelWeight.Regular
Me.MetroLabel2.Location = New System.Drawing.Point(6, 80)
Me.MetroLabel2.Name = "MetroLabel2"
Me.MetroLabel2.Size = New System.Drawing.Size(469, 22)
Me.MetroLabel2.TabIndex = 3
Me.MetroLabel2.Text = "Profile Folder"
Me.MetroLabel2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'ProfileTextBox
'
'
'
'
Me.ProfileTextBox.CustomButton.Image = Nothing
Me.ProfileTextBox.CustomButton.Location = New System.Drawing.Point(445, 1)
Me.ProfileTextBox.CustomButton.Name = ""
Me.ProfileTextBox.CustomButton.Size = New System.Drawing.Size(23, 23)
Me.ProfileTextBox.CustomButton.Style = MetroFramework.MetroColorStyle.Blue
Me.ProfileTextBox.CustomButton.TabIndex = 1
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() {"Disabled"}
Me.ProfileTextBox.Location = New System.Drawing.Point(6, 106)
Me.ProfileTextBox.MaxLength = 32767
Me.ProfileTextBox.Name = "ProfileTextBox"
Me.ProfileTextBox.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
Me.ProfileTextBox.ReadOnly = True
Me.ProfileTextBox.ScrollBars = System.Windows.Forms.ScrollBars.None
Me.ProfileTextBox.SelectedText = ""
Me.ProfileTextBox.SelectionLength = 0
Me.ProfileTextBox.SelectionStart = 0
Me.ProfileTextBox.ShortcutsEnabled = True
Me.ProfileTextBox.Size = New System.Drawing.Size(469, 25)
Me.ProfileTextBox.TabIndex = 4
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))
Me.ProfileTextBox.WaterMarkFont = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Pixel)
'
'Label1
'
Me.Label1.FontWeight = MetroFramework.MetroLabelWeight.Regular
@ -1308,6 +1258,8 @@ Partial Class Einstellungen
'GroupBox12
'
Me.GroupBox12.BackColor = System.Drawing.Color.Transparent
Me.GroupBox12.Controls.Add(Me.DD_Episode_Prefix)
Me.GroupBox12.Controls.Add(Me.DD_Season_Prefix)
Me.GroupBox12.Controls.Add(Me.CB_EpisodeName)
Me.GroupBox12.Controls.Add(Me.CB_AnimeDub)
Me.GroupBox12.Controls.Add(Me.CB_EpisodeNR)
@ -1315,8 +1267,6 @@ Partial Class Einstellungen
Me.GroupBox12.Controls.Add(Me.CB_Season)
Me.GroupBox12.Controls.Add(Me.CB_Anime)
Me.GroupBox12.Controls.Add(Me.TB_NameString)
Me.GroupBox12.Controls.Add(Me.DD_Episode_Prefix)
Me.GroupBox12.Controls.Add(Me.DD_Season_Prefix)
Me.GroupBox12.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox12.ForeColor = System.Drawing.Color.Black
Me.GroupBox12.Location = New System.Drawing.Point(5, 11)
@ -1326,35 +1276,111 @@ Partial Class Einstellungen
Me.GroupBox12.TabStop = False
Me.GroupBox12.Text = "Filename"
'
'DD_Episode_Prefix
'CB_EpisodeName
'
Me.DD_Episode_Prefix.DropDownHeight = 250
Me.DD_Episode_Prefix.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDown
Me.DD_Episode_Prefix.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DD_Episode_Prefix.FormattingEnabled = True
Me.DD_Episode_Prefix.IntegralHeight = False
Me.DD_Episode_Prefix.ItemHeight = 23
Me.DD_Episode_Prefix.Items.AddRange(New Object() {"[default episode prefix]"})
Me.DD_Episode_Prefix.Location = New System.Drawing.Point(248, 165)
Me.DD_Episode_Prefix.Name = "DD_Episode_Prefix"
Me.DD_Episode_Prefix.Size = New System.Drawing.Size(225, 29)
Me.DD_Episode_Prefix.TabIndex = 10
Me.DD_Episode_Prefix.UseSelectable = True
Me.CB_EpisodeName.AutoSize = True
Me.CB_EpisodeName.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_EpisodeName.ForeColor = System.Drawing.Color.Black
Me.CB_EpisodeName.Location = New System.Drawing.Point(153, 124)
Me.CB_EpisodeName.Name = "CB_EpisodeName"
Me.CB_EpisodeName.Size = New System.Drawing.Size(101, 19)
Me.CB_EpisodeName.TabIndex = 31
Me.CB_EpisodeName.Text = "Episode Title"
Me.CB_EpisodeName.UseSelectable = True
'
'DD_Season_Prefix
'CB_AnimeDub
'
Me.DD_Season_Prefix.DropDownHeight = 250
Me.DD_Season_Prefix.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDown
Me.DD_Season_Prefix.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DD_Season_Prefix.FormattingEnabled = True
Me.DD_Season_Prefix.IntegralHeight = False
Me.DD_Season_Prefix.ItemHeight = 23
Me.DD_Season_Prefix.Items.AddRange(New Object() {"[default season prefix]"})
Me.DD_Season_Prefix.Location = New System.Drawing.Point(6, 165)
Me.DD_Season_Prefix.Name = "DD_Season_Prefix"
Me.DD_Season_Prefix.Size = New System.Drawing.Size(225, 29)
Me.DD_Season_Prefix.TabIndex = 9
Me.DD_Season_Prefix.UseSelectable = True
Me.CB_AnimeDub.AutoSize = True
Me.CB_AnimeDub.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_AnimeDub.ForeColor = System.Drawing.Color.Black
Me.CB_AnimeDub.Location = New System.Drawing.Point(320, 86)
Me.CB_AnimeDub.Name = "CB_AnimeDub"
Me.CB_AnimeDub.Size = New System.Drawing.Size(125, 19)
Me.CB_AnimeDub.TabIndex = 29
Me.CB_AnimeDub.Text = "Audio Language"
Me.CB_AnimeDub.UseSelectable = True
'
'CB_EpisodeNR
'
Me.CB_EpisodeNR.AutoSize = True
Me.CB_EpisodeNR.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_EpisodeNR.ForeColor = System.Drawing.Color.Black
Me.CB_EpisodeNR.Location = New System.Drawing.Point(153, 86)
Me.CB_EpisodeNR.Name = "CB_EpisodeNR"
Me.CB_EpisodeNR.Size = New System.Drawing.Size(126, 19)
Me.CB_EpisodeNR.TabIndex = 28
Me.CB_EpisodeNR.Text = "Episode Number"
Me.CB_EpisodeNR.UseSelectable = True
'
'CB_AnimeSub
'
Me.CB_AnimeSub.AutoSize = True
Me.CB_AnimeSub.Enabled = False
Me.CB_AnimeSub.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_AnimeSub.ForeColor = System.Drawing.Color.Black
Me.CB_AnimeSub.Location = New System.Drawing.Point(320, 124)
Me.CB_AnimeSub.Name = "CB_AnimeSub"
Me.CB_AnimeSub.Size = New System.Drawing.Size(135, 19)
Me.CB_AnimeSub.TabIndex = 32
Me.CB_AnimeSub.Text = "Subtitle Language"
Me.CB_AnimeSub.UseSelectable = True
'
'CB_Season
'
Me.CB_Season.AutoSize = True
Me.CB_Season.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_Season.ForeColor = System.Drawing.Color.Black
Me.CB_Season.Location = New System.Drawing.Point(17, 124)
Me.CB_Season.Name = "CB_Season"
Me.CB_Season.Size = New System.Drawing.Size(122, 19)
Me.CB_Season.TabIndex = 30
Me.CB_Season.Text = "Season Number"
Me.CB_Season.UseSelectable = True
'
'CB_Anime
'
Me.CB_Anime.AutoSize = True
Me.CB_Anime.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_Anime.ForeColor = System.Drawing.Color.Black
Me.CB_Anime.Location = New System.Drawing.Point(17, 86)
Me.CB_Anime.Name = "CB_Anime"
Me.CB_Anime.Size = New System.Drawing.Size(100, 19)
Me.CB_Anime.TabIndex = 27
Me.CB_Anime.Text = "Series Name"
Me.CB_Anime.UseSelectable = True
'
'TB_NameString
'
'
'
'
Me.TB_NameString.CustomButton.Image = Nothing
Me.TB_NameString.CustomButton.Location = New System.Drawing.Point(439, 1)
Me.TB_NameString.CustomButton.Name = ""
Me.TB_NameString.CustomButton.Size = New System.Drawing.Size(27, 27)
Me.TB_NameString.CustomButton.Style = MetroFramework.MetroColorStyle.Blue
Me.TB_NameString.CustomButton.TabIndex = 1
Me.TB_NameString.CustomButton.Theme = MetroFramework.MetroThemeStyle.Light
Me.TB_NameString.CustomButton.UseSelectable = True
Me.TB_NameString.CustomButton.Visible = False
Me.TB_NameString.FontSize = MetroFramework.MetroTextBoxSize.Medium
Me.TB_NameString.Lines = New String(-1) {}
Me.TB_NameString.Location = New System.Drawing.Point(6, 35)
Me.TB_NameString.MaxLength = 32767
Me.TB_NameString.Name = "TB_NameString"
Me.TB_NameString.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
Me.TB_NameString.ReadOnly = True
Me.TB_NameString.ScrollBars = System.Windows.Forms.ScrollBars.None
Me.TB_NameString.SelectedText = ""
Me.TB_NameString.SelectionLength = 0
Me.TB_NameString.SelectionStart = 0
Me.TB_NameString.ShortcutsEnabled = True
Me.TB_NameString.Size = New System.Drawing.Size(467, 29)
Me.TB_NameString.TabIndex = 21
Me.TB_NameString.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
Me.TB_NameString.UseSelectable = True
Me.TB_NameString.WaterMarkColor = System.Drawing.Color.FromArgb(CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer))
Me.TB_NameString.WaterMarkFont = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Pixel)
'
'MetroTabPage1
'
@ -1366,9 +1392,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
@ -1433,10 +1459,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
@ -1670,9 +1696,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 "
'
@ -1804,110 +1830,69 @@ Partial Class Einstellungen
Me.Btn_Save.TabIndex = 9
Me.Btn_Save.UseVisualStyleBackColor = False
'
'TB_NameString
'DD_Season_Prefix
'
'
'
'
Me.TB_NameString.CustomButton.Image = Nothing
Me.TB_NameString.CustomButton.Location = New System.Drawing.Point(439, 1)
Me.TB_NameString.CustomButton.Name = ""
Me.TB_NameString.CustomButton.Size = New System.Drawing.Size(27, 27)
Me.TB_NameString.CustomButton.Style = MetroFramework.MetroColorStyle.Blue
Me.TB_NameString.CustomButton.TabIndex = 1
Me.TB_NameString.CustomButton.Theme = MetroFramework.MetroThemeStyle.Light
Me.TB_NameString.CustomButton.UseSelectable = True
Me.TB_NameString.CustomButton.Visible = False
Me.TB_NameString.FontSize = MetroFramework.MetroTextBoxSize.Medium
Me.TB_NameString.Lines = New String(-1) {}
Me.TB_NameString.Location = New System.Drawing.Point(6, 35)
Me.TB_NameString.MaxLength = 32767
Me.TB_NameString.Name = "TB_NameString"
Me.TB_NameString.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
Me.TB_NameString.ReadOnly = True
Me.TB_NameString.ScrollBars = System.Windows.Forms.ScrollBars.None
Me.TB_NameString.SelectedText = ""
Me.TB_NameString.SelectionLength = 0
Me.TB_NameString.SelectionStart = 0
Me.TB_NameString.ShortcutsEnabled = True
Me.TB_NameString.Size = New System.Drawing.Size(467, 29)
Me.TB_NameString.TabIndex = 21
Me.TB_NameString.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
Me.TB_NameString.UseSelectable = True
Me.TB_NameString.WaterMarkColor = System.Drawing.Color.FromArgb(CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer))
Me.TB_NameString.WaterMarkFont = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Pixel)
Me.DD_Season_Prefix.CustomButton.Image = Nothing
Me.DD_Season_Prefix.CustomButton.Location = New System.Drawing.Point(197, 1)
Me.DD_Season_Prefix.CustomButton.Name = ""
Me.DD_Season_Prefix.CustomButton.Size = New System.Drawing.Size(27, 27)
Me.DD_Season_Prefix.CustomButton.Style = MetroFramework.MetroColorStyle.Blue
Me.DD_Season_Prefix.CustomButton.TabIndex = 1
Me.DD_Season_Prefix.CustomButton.Theme = MetroFramework.MetroThemeStyle.Light
Me.DD_Season_Prefix.CustomButton.UseSelectable = True
Me.DD_Season_Prefix.CustomButton.Visible = False
Me.DD_Season_Prefix.FontSize = MetroFramework.MetroTextBoxSize.Medium
Me.DD_Season_Prefix.Lines = New String(-1) {}
Me.DD_Season_Prefix.Location = New System.Drawing.Point(6, 165)
Me.DD_Season_Prefix.MaxLength = 32767
Me.DD_Season_Prefix.Name = "DD_Season_Prefix"
Me.DD_Season_Prefix.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
Me.DD_Season_Prefix.ScrollBars = System.Windows.Forms.ScrollBars.None
Me.DD_Season_Prefix.SelectedText = ""
Me.DD_Season_Prefix.SelectionLength = 0
Me.DD_Season_Prefix.SelectionStart = 0
Me.DD_Season_Prefix.ShortcutsEnabled = True
Me.DD_Season_Prefix.Size = New System.Drawing.Size(225, 29)
Me.DD_Season_Prefix.TabIndex = 33
Me.DD_Season_Prefix.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
Me.DD_Season_Prefix.UseSelectable = True
Me.DD_Season_Prefix.WaterMarkColor = System.Drawing.Color.FromArgb(CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer))
Me.DD_Season_Prefix.WaterMarkFont = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Pixel)
'
'CB_EpisodeName
'DD_Episode_Prefix
'
Me.CB_EpisodeName.AutoSize = True
Me.CB_EpisodeName.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_EpisodeName.ForeColor = System.Drawing.Color.Black
Me.CB_EpisodeName.Location = New System.Drawing.Point(153, 124)
Me.CB_EpisodeName.Name = "CB_EpisodeName"
Me.CB_EpisodeName.Size = New System.Drawing.Size(101, 19)
Me.CB_EpisodeName.TabIndex = 31
Me.CB_EpisodeName.Text = "Episode Title"
Me.CB_EpisodeName.UseSelectable = True
'
'CB_AnimeDub
'
Me.CB_AnimeDub.AutoSize = True
Me.CB_AnimeDub.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_AnimeDub.ForeColor = System.Drawing.Color.Black
Me.CB_AnimeDub.Location = New System.Drawing.Point(320, 86)
Me.CB_AnimeDub.Name = "CB_AnimeDub"
Me.CB_AnimeDub.Size = New System.Drawing.Size(125, 19)
Me.CB_AnimeDub.TabIndex = 29
Me.CB_AnimeDub.Text = "Audio Language"
Me.CB_AnimeDub.UseSelectable = True
'
'CB_EpisodeNR
'
Me.CB_EpisodeNR.AutoSize = True
Me.CB_EpisodeNR.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_EpisodeNR.ForeColor = System.Drawing.Color.Black
Me.CB_EpisodeNR.Location = New System.Drawing.Point(153, 86)
Me.CB_EpisodeNR.Name = "CB_EpisodeNR"
Me.CB_EpisodeNR.Size = New System.Drawing.Size(126, 19)
Me.CB_EpisodeNR.TabIndex = 28
Me.CB_EpisodeNR.Text = "Episode Number"
Me.CB_EpisodeNR.UseSelectable = True
'
'CB_AnimeSub
'
Me.CB_AnimeSub.AutoSize = True
Me.CB_AnimeSub.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_AnimeSub.ForeColor = System.Drawing.Color.Black
Me.CB_AnimeSub.Location = New System.Drawing.Point(320, 124)
Me.CB_AnimeSub.Name = "CB_AnimeSub"
Me.CB_AnimeSub.Size = New System.Drawing.Size(135, 19)
Me.CB_AnimeSub.TabIndex = 32
Me.CB_AnimeSub.Text = "Subtitle Language"
Me.CB_AnimeSub.UseSelectable = True
'
'CB_Season
'
Me.CB_Season.AutoSize = True
Me.CB_Season.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_Season.ForeColor = System.Drawing.Color.Black
Me.CB_Season.Location = New System.Drawing.Point(17, 124)
Me.CB_Season.Name = "CB_Season"
Me.CB_Season.Size = New System.Drawing.Size(122, 19)
Me.CB_Season.TabIndex = 30
Me.CB_Season.Text = "Season Number"
Me.CB_Season.UseSelectable = True
'
'CB_Anime
'
Me.CB_Anime.AutoSize = True
Me.CB_Anime.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_Anime.ForeColor = System.Drawing.Color.Black
Me.CB_Anime.Location = New System.Drawing.Point(17, 86)
Me.CB_Anime.Name = "CB_Anime"
Me.CB_Anime.Size = New System.Drawing.Size(100, 19)
Me.CB_Anime.TabIndex = 27
Me.CB_Anime.Text = "Series Name"
Me.CB_Anime.UseSelectable = True
Me.DD_Episode_Prefix.CustomButton.Image = Nothing
Me.DD_Episode_Prefix.CustomButton.Location = New System.Drawing.Point(197, 1)
Me.DD_Episode_Prefix.CustomButton.Name = ""
Me.DD_Episode_Prefix.CustomButton.Size = New System.Drawing.Size(27, 27)
Me.DD_Episode_Prefix.CustomButton.Style = MetroFramework.MetroColorStyle.Blue
Me.DD_Episode_Prefix.CustomButton.TabIndex = 1
Me.DD_Episode_Prefix.CustomButton.Theme = MetroFramework.MetroThemeStyle.Light
Me.DD_Episode_Prefix.CustomButton.UseSelectable = True
Me.DD_Episode_Prefix.CustomButton.Visible = False
Me.DD_Episode_Prefix.FontSize = MetroFramework.MetroTextBoxSize.Medium
Me.DD_Episode_Prefix.Lines = New String(-1) {}
Me.DD_Episode_Prefix.Location = New System.Drawing.Point(248, 165)
Me.DD_Episode_Prefix.MaxLength = 32767
Me.DD_Episode_Prefix.Name = "DD_Episode_Prefix"
Me.DD_Episode_Prefix.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
Me.DD_Episode_Prefix.ScrollBars = System.Windows.Forms.ScrollBars.None
Me.DD_Episode_Prefix.SelectedText = ""
Me.DD_Episode_Prefix.SelectionLength = 0
Me.DD_Episode_Prefix.SelectionStart = 0
Me.DD_Episode_Prefix.ShortcutsEnabled = True
Me.DD_Episode_Prefix.Size = New System.Drawing.Size(225, 29)
Me.DD_Episode_Prefix.TabIndex = 34
Me.DD_Episode_Prefix.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
Me.DD_Episode_Prefix.UseSelectable = True
Me.DD_Episode_Prefix.WaterMarkColor = System.Drawing.Color.FromArgb(CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer))
Me.DD_Episode_Prefix.WaterMarkFont = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Pixel)
'
'Einstellungen
'
@ -2075,8 +2060,6 @@ Partial Class Einstellungen
Friend WithEvents AMD_hevc As ToolStripMenuItem
Friend WithEvents ListP3 As ToolStripMenuItem
Friend WithEvents Btn_Save As Button
Friend WithEvents MetroLabel2 As MetroFramework.Controls.MetroLabel
Friend WithEvents ProfileTextBox As MetroFramework.Controls.MetroTextBox
Friend WithEvents ListBit_1500 As ToolStripMenuItem
Friend WithEvents ListBit_6500 As ToolStripMenuItem
Friend WithEvents ListBit_5500 As ToolStripMenuItem
@ -2094,8 +2077,6 @@ Partial Class Einstellungen
Friend WithEvents MetroLink1 As MetroFramework.Controls.MetroLink
Friend WithEvents GroupBox12 As GroupBox
Friend WithEvents LeadingZeroDD As MetroFramework.Controls.MetroComboBox
Friend WithEvents DD_Episode_Prefix As MetroFramework.Controls.MetroComboBox
Friend WithEvents DD_Season_Prefix As MetroFramework.Controls.MetroComboBox
Friend WithEvents GroupBox17 As GroupBox
Friend WithEvents GroupBox3 As GroupBox
Friend WithEvents LangNameType_DD As MetroFramework.Controls.MetroComboBox
@ -2123,4 +2104,6 @@ Partial Class Einstellungen
Public WithEvents CB_Season As MetroFramework.Controls.MetroCheckBox
Public WithEvents CB_Anime As MetroFramework.Controls.MetroCheckBox
Friend WithEvents TB_NameString As MetroFramework.Controls.MetroTextBox
Friend WithEvents DD_Episode_Prefix As MetroFramework.Controls.MetroTextBox
Friend WithEvents DD_Season_Prefix As MetroFramework.Controls.MetroTextBox
End Class

70
Crunchyroll Downloader/einstellungen.vb
View File

@ -31,7 +31,6 @@ Public Class Einstellungen
Me.StyleManager = Manager
ProfileTextBox.Text = Main.ProfileFolder
TempTB.Text = Main.TempFolder
LeadingZeroDD.SelectedIndex = Main.LeadingZero
@ -219,19 +218,10 @@ Public Class Einstellungen
Next
If DD_Season_Prefix.Items.Contains(Main.Season_Prefix) Then
DD_Season_Prefix.SelectedItem = Main.Season_Prefix
Else
DD_Season_Prefix.Items.Add(Main.Season_Prefix)
DD_Season_Prefix.SelectedItem = Main.Season_Prefix
End If
DD_Season_Prefix.Text = Main.Season_Prefix
DD_Episode_Prefix.Text = Main.Episode_Prefix
If DD_Episode_Prefix.Items.Contains(Main.Episode_Prefix) Then
DD_Episode_Prefix.SelectedItem = Main.Episode_Prefix
Else
DD_Episode_Prefix.Items.Add(Main.Episode_Prefix)
DD_Episode_Prefix.SelectedItem = Main.Episode_Prefix
End If
NumericUpDown2.Value = Main.ErrorTolerance
@ -323,6 +313,7 @@ Public Class Einstellungen
Dim NameParts As String() = Main.NameBuilder.Split(New String() {";"}, System.StringSplitOptions.RemoveEmptyEntries)
For i As Integer = 0 To NameParts.Count - 1
If NameParts(i) = "AnimeTitle" Then
@ -336,11 +327,14 @@ Public Class Einstellungen
ElseIf NameParts(i) = "AnimeDub" Then
CB_AnimeDub.Checked = True
ElseIf NameParts(i) = "AnimeSub" Then
CB_AnimeSub.Checked = True
CB_AnimeSub.Checked = True
End If
Next
CB_AnimeSub.Checked = False ' to be continued
End Sub
@ -504,6 +498,8 @@ Public Class Einstellungen
Main.NameBuilder = TB_NameString.Text
My.Settings.NameTemplate = Main.NameBuilder
If CB_Format.Text = "MKV" Then
Main.VideoFormat = ".mkv"
@ -1181,26 +1177,25 @@ Public Class Einstellungen
Private Sub CB_Format_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CB_Format.SelectedIndexChanged
If CB_Format.Text = "AAC (Audio only)" Then
CB_Merge.SelectedIndex = 0
CB_Merge.Items.Clear()
CB_Merge.Items.Add("[merge disabled]")
CB_Merge.SelectedIndex = 0
CB_Merge.Enabled = False
ElseIf CB_Format.Text = "MP4" Then
CB_Merge.Enabled = True
CB_Merge.SelectedIndex = 0
CB_Merge.Items.Clear()
CB_Merge.Items.Add("[merge disabled]")
CB_Merge.Items.Add("mov_text")
CB_Merge.SelectedIndex = 0
'CB_Merge.Items.Add("srt")
CB_Merge.SelectedItem = Main.MergeSubsFormat
ElseIf CB_Format.Text = "MKV" Then
CB_Merge.Enabled = True
CB_Merge.SelectedIndex = 0
CB_Merge.Items.Clear()
CB_Merge.Items.Add("[merge disabled]")
CB_Merge.Items.Add("copy")
CB_Merge.Items.Add("srt")
CB_Merge.SelectedIndex = 0
CB_Merge.SelectedItem = Main.MergeSubsFormat
End If
@ -1215,20 +1210,6 @@ Public Class Einstellungen
End If
End Sub
Private Sub ProfileTextBox_Click(sender As Object, e As EventArgs) Handles ProfileTextBox.Click
Dim FolderBrowserDialog1 As New FolderBrowserDialog()
FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.MyComputer
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
Main.ProfileFolder = FolderBrowserDialog1.SelectedPath
ProfileTextBox.Text = FolderBrowserDialog1.SelectedPath
My.Settings.Pfad = Main.ProfileFolder
End If
End Sub
Private Sub DD_DLMode_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DD_DLMode.SelectedIndexChanged
If DD_DLMode.SelectedIndex > 0 Then
@ -1293,6 +1274,33 @@ Public Class Einstellungen
End Sub
Private Sub DD_Season_Prefix_UserAction(sender As Object, e As EventArgs) Handles DD_Season_Prefix.Click, DD_Season_Prefix.GotFocus
If DD_Season_Prefix.Text = Main.Season_PrefixDefault Then
DD_Season_Prefix.Text = Nothing
End If
End Sub
Private Sub DD_Season_Prefix_LostFocus(sender As Object, e As EventArgs) Handles DD_Season_Prefix.LostFocus
If DD_Season_Prefix.Text = Nothing Then
DD_Season_Prefix.Text = Main.Season_PrefixDefault
End If
End Sub
Private Sub DD_Episode_Prefix_UserAction(sender As Object, e As EventArgs) Handles DD_Episode_Prefix.Click, DD_Episode_Prefix.GotFocus
If DD_Episode_Prefix.Text = Main.Episode_Prefix Then
DD_Episode_Prefix.Text = Nothing
End If
End Sub
Private Sub DD_Episode_Prefix_LostFocus(sender As Object, e As EventArgs) Handles DD_Episode_Prefix.LostFocus
If DD_Episode_Prefix.Text = Nothing Then
DD_Episode_Prefix.Text = Main.Episode_Prefix
End If
End Sub
#End Region
#End Region

57
Crunchyroll Downloader/queue.Designer.vb generated Normal file
View File

@ -0,0 +1,57 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Queue
Inherits MetroFramework.Forms.MetroForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.Btn_Close = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Btn_Close
'
Me.Btn_Close.BackColor = System.Drawing.Color.Transparent
Me.Btn_Close.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.Btn_Close.Cursor = System.Windows.Forms.Cursors.Hand
Me.Btn_Close.FlatAppearance.BorderSize = 0
Me.Btn_Close.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Transparent
Me.Btn_Close.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Btn_Close.ForeColor = System.Drawing.Color.Transparent
Me.Btn_Close.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_close
Me.Btn_Close.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Btn_Close.Location = New System.Drawing.Point(282, 169)
Me.Btn_Close.Name = "Btn_Close"
Me.Btn_Close.Size = New System.Drawing.Size(40, 40)
Me.Btn_Close.TabIndex = 37
Me.Btn_Close.UseVisualStyleBackColor = False
'
'Queue
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(604, 378)
Me.Controls.Add(Me.Btn_Close)
Me.Name = "Queue"
Me.Text = "Queue"
Me.ResumeLayout(False)
End Sub
Friend WithEvents Btn_Close As Button
End Class

120
Crunchyroll Downloader/queue.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

44
Crunchyroll Downloader/queue.vb Normal file
View File

@ -0,0 +1,44 @@
Option Strict On
Imports MetroFramework
Imports MetroFramework.Components
Public Class Queue
Dim Manager As MetroStyleManager = Main.Manager
Private Sub Reso_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Manager.Owner = Me
Me.StyleManager = Manager
End Sub
Private Sub Btn_Close_Click(sender As Object, e As EventArgs) Handles Btn_Close.Click
Me.Close()
End Sub
Private Sub Btn_Close_MouseEnter(sender As Object, e As EventArgs) Handles Btn_Close.MouseEnter, Btn_Close.GotFocus
If Manager.Theme = MetroThemeStyle.Dark Then
Btn_Close.Image = My.Resources.main_close_dark_hover
Else
Btn_Close.Image = My.Resources.main_close_hover
End If
End Sub
Private Sub Btn_Close_MouseLeave(sender As Object, e As EventArgs) Handles Btn_Close.MouseLeave, Btn_Close.LostFocus
Btn_Close.Image = Main.CloseImg
End Sub
End Class