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

dark mode added

Browse Source 
dark mode added
small fixes
This commit is contained in:
hama3254 2020-12-10 19:18:20 +01:00
parent b512ad831e
commit 4bc91db2fa
62 changed files with 986 additions and 831 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/Crunchyroll Downloader/v15/.suo
View File

Binary file not shown.

BIN
.vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide
View File

Binary file not shown.

BIN
.vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide-shm
View File

Binary file not shown.

BIN
.vs/Crunchyroll Downloader/v15/Server/sqlite3/storage.ide-wal
View File

Binary file not shown.

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

@ -1,9 +1,10 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Anime_Add Partial Class Anime_Add
Inherits System.Windows.Forms.Form Inherits MetroFramework.Forms.MetroForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try Try
If disposing AndAlso components IsNot Nothing Then If disposing AndAlso components IsNot Nothing Then
@ -20,23 +21,23 @@ Partial Class Anime_Add
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Me.groupBox1 = New System.Windows.Forms.GroupBox() Me.groupBox1 = New System.Windows.Forms.GroupBox()
Me.StatusLabel = New System.Windows.Forms.Label() Me.StatusLabel = New MetroFramework.Controls.MetroLabel()
Me.ComboBox2 = New System.Windows.Forms.ComboBox() Me.ComboBox2 = New MetroFramework.Controls.MetroComboBox()
Me.TextBox4 = New System.Windows.Forms.TextBox() Me.TextBox4 = New MetroFramework.Controls.MetroTextBox()
Me.textBox1 = New System.Windows.Forms.TextBox() Me.textBox1 = New MetroFramework.Controls.MetroTextBox()
Me.textBox2 = New System.Windows.Forms.TextBox() Me.textBox2 = New MetroFramework.Controls.MetroTextBox()
Me.pictureBox4 = New System.Windows.Forms.PictureBox() Me.pictureBox4 = New System.Windows.Forms.PictureBox()
Me.pictureBox3 = New System.Windows.Forms.PictureBox() Me.pictureBox3 = New System.Windows.Forms.PictureBox()
Me.groupBox2 = New System.Windows.Forms.GroupBox() Me.groupBox2 = New System.Windows.Forms.GroupBox()
Me.comboBox4 = New MetroFramework.Controls.MetroComboBox()
Me.ComboBox1 = New MetroFramework.Controls.MetroComboBox()
Me.comboBox3 = New MetroFramework.Controls.MetroComboBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Add_Display = New System.Windows.Forms.Label() Me.Add_Display = New MetroFramework.Controls.MetroLabel()
Me.comboBox4 = New System.Windows.Forms.ComboBox()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.comboBox3 = New System.Windows.Forms.ComboBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.ListBox1 = New System.Windows.Forms.ListBox() Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
@ -57,7 +58,7 @@ Partial Class Anime_Add
Me.groupBox1.Controls.Add(Me.TextBox4) Me.groupBox1.Controls.Add(Me.TextBox4)
Me.groupBox1.Controls.Add(Me.textBox1) Me.groupBox1.Controls.Add(Me.textBox1)
Me.groupBox1.Controls.Add(Me.textBox2) Me.groupBox1.Controls.Add(Me.textBox2)
Me.groupBox1.Location = New System.Drawing.Point(5, 45) Me.groupBox1.Location = New System.Drawing.Point(3, 63)
Me.groupBox1.Name = "groupBox1" Me.groupBox1.Name = "groupBox1"
Me.groupBox1.Size = New System.Drawing.Size(620, 162) Me.groupBox1.Size = New System.Drawing.Size(620, 162)
Me.groupBox1.TabIndex = 33 Me.groupBox1.TabIndex = 33
@ -69,7 +70,8 @@ Partial Class Anime_Add
Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.StatusLabel.BackColor = System.Drawing.Color.Transparent Me.StatusLabel.BackColor = System.Drawing.Color.Transparent
Me.StatusLabel.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.StatusLabel.FontSize = MetroFramework.MetroLabelSize.Tall
Me.StatusLabel.FontWeight = MetroFramework.MetroLabelWeight.Regular
Me.StatusLabel.ForeColor = System.Drawing.SystemColors.InactiveCaptionText Me.StatusLabel.ForeColor = System.Drawing.SystemColors.InactiveCaptionText
Me.StatusLabel.Location = New System.Drawing.Point(18, 127) Me.StatusLabel.Location = New System.Drawing.Point(18, 127)
Me.StatusLabel.Name = "StatusLabel" Me.StatusLabel.Name = "StatusLabel"
@ -81,66 +83,132 @@ Partial Class Anime_Add
'ComboBox2 'ComboBox2
' '
Me.ComboBox2.BackColor = System.Drawing.Color.White Me.ComboBox2.BackColor = System.Drawing.Color.White
Me.ComboBox2.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox2.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ComboBox2.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ComboBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) Me.ComboBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.ComboBox2.FormattingEnabled = True Me.ComboBox2.FormattingEnabled = True
Me.ComboBox2.ItemHeight = 23
Me.ComboBox2.Location = New System.Drawing.Point(18, 98) Me.ComboBox2.Location = New System.Drawing.Point(18, 98)
Me.ComboBox2.Name = "ComboBox2" Me.ComboBox2.Name = "ComboBox2"
Me.ComboBox2.Size = New System.Drawing.Size(585, 23) Me.ComboBox2.Size = New System.Drawing.Size(584, 29)
Me.ComboBox2.Sorted = True Me.ComboBox2.Sorted = True
Me.ComboBox2.TabIndex = 37 Me.ComboBox2.TabIndex = 37
Me.ComboBox2.UseSelectable = True
' '
'TextBox4 'TextBox4
' '
Me.TextBox4.BackColor = System.Drawing.Color.White Me.TextBox4.BackColor = System.Drawing.Color.White
Me.TextBox4.Cursor = System.Windows.Forms.Cursors.Hand Me.TextBox4.Cursor = System.Windows.Forms.Cursors.Hand
Me.TextBox4.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) '
'
'
Me.TextBox4.CustomButton.Image = Nothing
Me.TextBox4.CustomButton.Location = New System.Drawing.Point(565, 2)
Me.TextBox4.CustomButton.Name = ""
Me.TextBox4.CustomButton.Size = New System.Drawing.Size(17, 17)
Me.TextBox4.CustomButton.Style = MetroFramework.MetroColorStyle.Blue
Me.TextBox4.CustomButton.TabIndex = 1
Me.TextBox4.CustomButton.Theme = MetroFramework.MetroThemeStyle.Light
Me.TextBox4.CustomButton.UseSelectable = True
Me.TextBox4.CustomButton.Visible = False
Me.TextBox4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) Me.TextBox4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.TextBox4.Lines = New String() {"Main Directory"}
Me.TextBox4.Location = New System.Drawing.Point(18, 70) Me.TextBox4.Location = New System.Drawing.Point(18, 70)
Me.TextBox4.MaxLength = 32767
Me.TextBox4.Name = "TextBox4" Me.TextBox4.Name = "TextBox4"
Me.TextBox4.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
Me.TextBox4.ReadOnly = True Me.TextBox4.ReadOnly = True
Me.TextBox4.ScrollBars = System.Windows.Forms.ScrollBars.None
Me.TextBox4.SelectedText = ""
Me.TextBox4.SelectionLength = 0
Me.TextBox4.SelectionStart = 0
Me.TextBox4.ShortcutsEnabled = True
Me.TextBox4.Size = New System.Drawing.Size(585, 22) Me.TextBox4.Size = New System.Drawing.Size(585, 22)
Me.TextBox4.TabIndex = 36 Me.TextBox4.TabIndex = 36
Me.TextBox4.TabStop = False Me.TextBox4.TabStop = False
Me.TextBox4.Text = "Main Directory" Me.TextBox4.Text = "Main Directory"
Me.TextBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center Me.TextBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
Me.TextBox4.UseSelectable = True
Me.TextBox4.WaterMarkColor = System.Drawing.Color.FromArgb(CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer))
Me.TextBox4.WaterMarkFont = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Pixel)
' '
'textBox1 'textBox1
' '
Me.textBox1.BackColor = System.Drawing.Color.White Me.textBox1.BackColor = System.Drawing.Color.White
Me.textBox1.Cursor = System.Windows.Forms.Cursors.Hand Me.textBox1.Cursor = System.Windows.Forms.Cursors.Hand
Me.textBox1.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) '
'
'
Me.textBox1.CustomButton.Image = Nothing
Me.textBox1.CustomButton.Location = New System.Drawing.Point(565, 2)
Me.textBox1.CustomButton.Name = ""
Me.textBox1.CustomButton.Size = New System.Drawing.Size(17, 17)
Me.textBox1.CustomButton.Style = MetroFramework.MetroColorStyle.Blue
Me.textBox1.CustomButton.TabIndex = 1
Me.textBox1.CustomButton.Theme = MetroFramework.MetroThemeStyle.Light
Me.textBox1.CustomButton.UseSelectable = True
Me.textBox1.CustomButton.Visible = False
Me.textBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) Me.textBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.textBox1.Lines = New String() {"URL"}
Me.textBox1.Location = New System.Drawing.Point(18, 14) Me.textBox1.Location = New System.Drawing.Point(18, 14)
Me.textBox1.MaxLength = 32767
Me.textBox1.Name = "textBox1" Me.textBox1.Name = "textBox1"
Me.textBox1.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
Me.textBox1.ScrollBars = System.Windows.Forms.ScrollBars.None
Me.textBox1.SelectedText = ""
Me.textBox1.SelectionLength = 0
Me.textBox1.SelectionStart = 0
Me.textBox1.ShortcutsEnabled = True
Me.textBox1.Size = New System.Drawing.Size(585, 22) Me.textBox1.Size = New System.Drawing.Size(585, 22)
Me.textBox1.TabIndex = 4 Me.textBox1.TabIndex = 4
Me.textBox1.TabStop = False Me.textBox1.TabStop = False
Me.textBox1.Text = "URL" Me.textBox1.Text = "URL"
Me.textBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center Me.textBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
Me.textBox1.UseSelectable = True
Me.textBox1.WaterMarkColor = System.Drawing.Color.FromArgb(CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer))
Me.textBox1.WaterMarkFont = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Pixel)
' '
'textBox2 'textBox2
' '
Me.textBox2.BackColor = System.Drawing.Color.White Me.textBox2.BackColor = System.Drawing.Color.White
Me.textBox2.Cursor = System.Windows.Forms.Cursors.Hand Me.textBox2.Cursor = System.Windows.Forms.Cursors.Hand
Me.textBox2.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) '
'
'
Me.textBox2.CustomButton.Image = Nothing
Me.textBox2.CustomButton.Location = New System.Drawing.Point(565, 2)
Me.textBox2.CustomButton.Name = ""
Me.textBox2.CustomButton.Size = New System.Drawing.Size(17, 17)
Me.textBox2.CustomButton.Style = MetroFramework.MetroColorStyle.Blue
Me.textBox2.CustomButton.TabIndex = 1
Me.textBox2.CustomButton.Theme = MetroFramework.MetroThemeStyle.Light
Me.textBox2.CustomButton.UseSelectable = True
Me.textBox2.CustomButton.Visible = False
Me.textBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) Me.textBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.textBox2.Lines = New String() {"Name of the Anime"}
Me.textBox2.Location = New System.Drawing.Point(18, 42) Me.textBox2.Location = New System.Drawing.Point(18, 42)
Me.textBox2.MaxLength = 32767
Me.textBox2.Name = "textBox2" Me.textBox2.Name = "textBox2"
Me.textBox2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
Me.textBox2.ScrollBars = System.Windows.Forms.ScrollBars.None
Me.textBox2.SelectedText = ""
Me.textBox2.SelectionLength = 0
Me.textBox2.SelectionStart = 0
Me.textBox2.ShortcutsEnabled = True
Me.textBox2.Size = New System.Drawing.Size(585, 22) Me.textBox2.Size = New System.Drawing.Size(585, 22)
Me.textBox2.TabIndex = 5 Me.textBox2.TabIndex = 5
Me.textBox2.TabStop = False Me.textBox2.TabStop = False
Me.textBox2.Text = "Name of the Anime" Me.textBox2.Text = "Name of the Anime"
Me.textBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center Me.textBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
Me.textBox2.UseSelectable = True
Me.textBox2.WaterMarkColor = System.Drawing.Color.FromArgb(CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer))
Me.textBox2.WaterMarkFont = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Pixel)
' '
'pictureBox4 'pictureBox4
' '
Me.pictureBox4.BackColor = System.Drawing.Color.Transparent Me.pictureBox4.BackColor = System.Drawing.Color.Transparent
Me.pictureBox4.Cursor = System.Windows.Forms.Cursors.Hand Me.pictureBox4.Cursor = System.Windows.Forms.Cursors.Hand
Me.pictureBox4.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_button_download_default Me.pictureBox4.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_button_download_default
Me.pictureBox4.Location = New System.Drawing.Point(44, 213) Me.pictureBox4.Location = New System.Drawing.Point(42, 231)
Me.pictureBox4.Name = "pictureBox4" Me.pictureBox4.Name = "pictureBox4"
Me.pictureBox4.Size = New System.Drawing.Size(537, 50) Me.pictureBox4.Size = New System.Drawing.Size(537, 50)
Me.pictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage Me.pictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
@ -152,7 +220,7 @@ Partial Class Anime_Add
Me.pictureBox3.BackColor = System.Drawing.Color.Transparent Me.pictureBox3.BackColor = System.Drawing.Color.Transparent
Me.pictureBox3.Cursor = System.Windows.Forms.Cursors.Hand Me.pictureBox3.Cursor = System.Windows.Forms.Cursors.Hand
Me.pictureBox3.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_close Me.pictureBox3.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_close
Me.pictureBox3.Location = New System.Drawing.Point(579, 1) Me.pictureBox3.Location = New System.Drawing.Point(580, 0)
Me.pictureBox3.Name = "pictureBox3" Me.pictureBox3.Name = "pictureBox3"
Me.pictureBox3.Size = New System.Drawing.Size(50, 40) Me.pictureBox3.Size = New System.Drawing.Size(50, 40)
Me.pictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize Me.pictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
@ -162,18 +230,51 @@ Partial Class Anime_Add
'groupBox2 'groupBox2
' '
Me.groupBox2.BackColor = System.Drawing.Color.Transparent Me.groupBox2.BackColor = System.Drawing.Color.Transparent
Me.groupBox2.Controls.Add(Me.PictureBox1)
Me.groupBox2.Controls.Add(Me.Add_Display)
Me.groupBox2.Controls.Add(Me.comboBox4) Me.groupBox2.Controls.Add(Me.comboBox4)
Me.groupBox2.Controls.Add(Me.ComboBox1) Me.groupBox2.Controls.Add(Me.ComboBox1)
Me.groupBox2.Controls.Add(Me.comboBox3) Me.groupBox2.Controls.Add(Me.comboBox3)
Me.groupBox2.Location = New System.Drawing.Point(5, 45) Me.groupBox2.Controls.Add(Me.PictureBox1)
Me.groupBox2.Controls.Add(Me.Add_Display)
Me.groupBox2.Location = New System.Drawing.Point(3, 63)
Me.groupBox2.Name = "groupBox2" Me.groupBox2.Name = "groupBox2"
Me.groupBox2.Size = New System.Drawing.Size(620, 162) Me.groupBox2.Size = New System.Drawing.Size(620, 162)
Me.groupBox2.TabIndex = 44 Me.groupBox2.TabIndex = 44
Me.groupBox2.TabStop = False Me.groupBox2.TabStop = False
Me.groupBox2.Visible = False Me.groupBox2.Visible = False
' '
'comboBox4
'
Me.comboBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.comboBox4.FormattingEnabled = True
Me.comboBox4.ItemHeight = 23
Me.comboBox4.Location = New System.Drawing.Point(24, 83)
Me.comboBox4.Name = "comboBox4"
Me.comboBox4.Size = New System.Drawing.Size(585, 29)
Me.comboBox4.TabIndex = 2
Me.comboBox4.UseSelectable = True
'
'ComboBox1
'
Me.ComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.ItemHeight = 23
Me.ComboBox1.Location = New System.Drawing.Point(24, 19)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(585, 29)
Me.ComboBox1.TabIndex = 1
Me.ComboBox1.UseSelectable = True
'
'comboBox3
'
Me.comboBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.comboBox3.FormattingEnabled = True
Me.comboBox3.ItemHeight = 23
Me.comboBox3.Location = New System.Drawing.Point(24, 51)
Me.comboBox3.Name = "comboBox3"
Me.comboBox3.Size = New System.Drawing.Size(585, 29)
Me.comboBox3.TabIndex = 1
Me.comboBox3.UseSelectable = True
'
'PictureBox1 'PictureBox1
' '
Me.PictureBox1.BackColor = System.Drawing.Color.Transparent Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
@ -192,7 +293,8 @@ Partial Class Anime_Add
Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Add_Display.BackColor = System.Drawing.Color.Transparent Me.Add_Display.BackColor = System.Drawing.Color.Transparent
Me.Add_Display.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Add_Display.FontSize = MetroFramework.MetroLabelSize.Tall
Me.Add_Display.FontWeight = MetroFramework.MetroLabelWeight.Regular
Me.Add_Display.ForeColor = System.Drawing.Color.Black Me.Add_Display.ForeColor = System.Drawing.Color.Black
Me.Add_Display.Location = New System.Drawing.Point(20, 114) Me.Add_Display.Location = New System.Drawing.Point(20, 114)
Me.Add_Display.Name = "Add_Display" Me.Add_Display.Name = "Add_Display"
@ -201,44 +303,11 @@ Partial Class Anime_Add
Me.Add_Display.Text = "..." Me.Add_Display.Text = "..."
Me.Add_Display.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.Add_Display.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
' '
'comboBox4
'
Me.comboBox4.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.comboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.comboBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.comboBox4.FormattingEnabled = True
Me.comboBox4.Location = New System.Drawing.Point(24, 83)
Me.comboBox4.Name = "comboBox4"
Me.comboBox4.Size = New System.Drawing.Size(585, 23)
Me.comboBox4.TabIndex = 2
'
'ComboBox1
'
Me.ComboBox1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Location = New System.Drawing.Point(24, 19)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(585, 23)
Me.ComboBox1.TabIndex = 1
'
'comboBox3
'
Me.comboBox3.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.comboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.comboBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.comboBox3.FormattingEnabled = True
Me.comboBox3.Location = New System.Drawing.Point(24, 51)
Me.comboBox3.Name = "comboBox3"
Me.comboBox3.Size = New System.Drawing.Size(585, 23)
Me.comboBox3.TabIndex = 1
'
'GroupBox3 'GroupBox3
' '
Me.GroupBox3.BackColor = System.Drawing.Color.Transparent Me.GroupBox3.BackColor = System.Drawing.Color.Transparent
Me.GroupBox3.Controls.Add(Me.ListBox1) Me.GroupBox3.Controls.Add(Me.ListBox1)
Me.GroupBox3.Location = New System.Drawing.Point(5, 45) Me.GroupBox3.Location = New System.Drawing.Point(3, 63)
Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(620, 162) Me.GroupBox3.Size = New System.Drawing.Size(620, 162)
Me.GroupBox3.TabIndex = 46 Me.GroupBox3.TabIndex = 46
@ -267,20 +336,20 @@ Partial Class Anime_Add
' '
'Anime_Add 'Anime_Add
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.ApplyImageInvert = True
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.add_background Me.BorderStyle = MetroFramework.Forms.MetroFormBorderStyle.FixedSingle
Me.ClientSize = New System.Drawing.Size(630, 275) Me.ClientSize = New System.Drawing.Size(630, 300)
Me.Controls.Add(Me.pictureBox3) Me.Controls.Add(Me.pictureBox3)
Me.Controls.Add(Me.pictureBox4) Me.Controls.Add(Me.pictureBox4)
Me.Controls.Add(Me.groupBox2) Me.Controls.Add(Me.groupBox2)
Me.Controls.Add(Me.groupBox1) Me.Controls.Add(Me.groupBox1)
Me.Controls.Add(Me.GroupBox3) Me.Controls.Add(Me.GroupBox3)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "Anime_Add" Me.Name = "Anime_Add"
Me.Text = "Add" Me.Padding = New System.Windows.Forms.Padding(10, 60, 20, 20)
Me.Text = "Add Video"
Me.TextAlign = MetroFramework.Forms.MetroFormTextAlign.Center
Me.groupBox1.ResumeLayout(False) Me.groupBox1.ResumeLayout(False)
Me.groupBox1.PerformLayout()
CType(Me.pictureBox4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pictureBox3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
Me.groupBox2.ResumeLayout(False) Me.groupBox2.ResumeLayout(False)
@ -290,16 +359,7 @@ Partial Class Anime_Add
Me.PerformLayout() Me.PerformLayout()
End Sub End Sub
Public WithEvents textBox1 As TextBox
Public WithEvents ComboBox2 As ComboBox
Public WithEvents TextBox4 As TextBox
Public WithEvents textBox2 As TextBox
Private WithEvents pictureBox3 As PictureBox Private WithEvents pictureBox3 As PictureBox
Public WithEvents StatusLabel As Label
Public WithEvents Add_Display As Label
Public WithEvents comboBox4 As ComboBox
Public WithEvents ComboBox1 As ComboBox
Public WithEvents comboBox3 As ComboBox
Public WithEvents pictureBox4 As PictureBox Public WithEvents pictureBox4 As PictureBox
Public WithEvents groupBox2 As GroupBox Public WithEvents groupBox2 As GroupBox
Public WithEvents PictureBox1 As PictureBox Public WithEvents PictureBox1 As PictureBox
@ -308,4 +368,14 @@ Partial Class Anime_Add
Friend WithEvents Timer1 As Timer Friend WithEvents Timer1 As Timer
Private WithEvents Timer2 As Timer Private WithEvents Timer2 As Timer
Public WithEvents ListBox1 As ListBox Public WithEvents ListBox1 As ListBox
Public WithEvents StatusLabel As MetroFramework.Controls.MetroLabel
Public WithEvents Add_Display As MetroFramework.Controls.MetroLabel
Friend WithEvents MetroTextBox1 As MetroFramework.Controls.MetroTextBox
Public WithEvents textBox1 As MetroFramework.Controls.MetroTextBox
Public WithEvents TextBox4 As MetroFramework.Controls.MetroTextBox
Public WithEvents textBox2 As MetroFramework.Controls.MetroTextBox
Public WithEvents ComboBox2 As MetroFramework.Controls.MetroComboBox
Public WithEvents comboBox4 As MetroFramework.Controls.MetroComboBox
Public WithEvents ComboBox1 As MetroFramework.Controls.MetroComboBox
Public WithEvents comboBox3 As MetroFramework.Controls.MetroComboBox
End Class End Class

100
Crunchyroll Downloader/Anime_Add.vb
View File

@ -3,6 +3,9 @@ Imports System.Net
Imports Gecko Imports Gecko
Imports System.IO Imports System.IO
Imports System.Threading Imports System.Threading
Imports MetroFramework.Forms
Imports MetroFramework
Imports MetroFramework.Components
Public Class Anime_Add Public Class Anime_Add
Public Mass_DL_Cancel As Boolean = False Public Mass_DL_Cancel As Boolean = False
@ -36,9 +39,15 @@ Public Class Anime_Add
ComboBox2.Text = SubFolder_Nothing ComboBox2.Text = SubFolder_Nothing
End Try End Try
End Sub End Sub
Dim Manager As MetroStyleManager = Main.Manager
Private Sub Anime_Add_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Anime_Add_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Manager.Owner = Me
Me.StyleManager = Manager
pictureBox3.Image = Main.CloseImg
Try Try
Me.Icon = My.Resources.icon Me.Icon = My.Resources.icon
Catch ex As Exception Catch ex As Exception
@ -171,54 +180,19 @@ Public Class Anime_Add
End If End If
End Sub End Sub
#Region " Move Form "
' [ Move Form ]
'
' // By Elektro
Public MoveForm As Boolean
Public MoveForm_MousePosition As Point
Public Sub MoveForm_MouseDown(sender As Object, e As MouseEventArgs) Handles _
MyBase.MouseDown ' Add more handles here (Example: PictureBox1.MouseDown)
If e.Button = MouseButtons.Left Then
MoveForm = True
Me.Cursor = Cursors.NoMove2D
MoveForm_MousePosition = e.Location
End If
Private Sub Btn_Close_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox3.MouseEnter
Dim PB As PictureBox = sender
PB.Image = My.Resources.main_del
End Sub End Sub
Public Sub MoveForm_MouseMove(sender As Object, e As MouseEventArgs) Handles _ Private Sub Btn_Close_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox3.MouseLeave
MyBase.MouseMove ' Add more handles here (Example: PictureBox1.MouseMove) Dim PB As PictureBox = sender
PB.Image = Main.CloseImg
If MoveForm Then
Me.Location = Me.Location + (e.Location - MoveForm_MousePosition)
End If
End Sub End Sub
Public Sub MoveForm_MouseUp(sender As Object, e As MouseEventArgs) Handles _
MyBase.MouseUp ' Add more handles here (Example: PictureBox1.MouseUp)
If e.Button = MouseButtons.Left Then
MoveForm = False
Me.Cursor = Cursors.Default
End If
End Sub
#End Region
Private Sub PictureBox3_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox3.MouseEnter
pictureBox3.BackColor = SystemColors.Control
End Sub
Private Sub PictureBox3_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox3.MouseLeave
pictureBox3.BackColor = Color.Transparent
End Sub
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles pictureBox3.Click Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles pictureBox3.Click
Main.ListBoxList.Clear() Main.ListBoxList.Clear()
@ -350,10 +324,11 @@ Public Class Anime_Add
Dim OmUStreamSplitEpisodeIndex2() As String = OmUStreamSplitEpisodeIndex(1).Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries) Dim OmUStreamSplitEpisodeIndex2() As String = OmUStreamSplitEpisodeIndex(1).Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim m3u8Strings As String = Nothing Dim m3u8Strings As String = Nothing
'I/nsHttp Cookie: 'I/nsHttp Cookie:
Try Try
Using client As New WebClient() Using client As New WebClient()
client.Encoding = System.Text.Encoding.UTF8 client.Encoding = System.Text.Encoding.UTF8
client.Headers.Add(My.Resources.ffmpeg_user_agend) client.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), ""))
client.Headers.Add("ACCEPT: application/json, text/javascript, */*; q=0.01") client.Headers.Add("ACCEPT: application/json, text/javascript, */*; q=0.01")
client.Headers.Add("Accept-Encoding: gzip, deflate, br") client.Headers.Add("Accept-Encoding: gzip, deflate, br")
client.Headers.Add("X-Requested-With: XMLHttpRequest") client.Headers.Add("X-Requested-With: XMLHttpRequest")
@ -386,7 +361,7 @@ Public Class Anime_Add
Try Try
Using client As New WebClient() Using client As New WebClient()
client.Encoding = System.Text.Encoding.UTF8 client.Encoding = System.Text.Encoding.UTF8
client.Headers.Add(My.Resources.ffmpeg_user_agend) client.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), ""))
client.Headers.Add("ACCEPT: application/json, text/javascript, */*; q=0.01") client.Headers.Add("ACCEPT: application/json, text/javascript, */*; q=0.01")
client.Headers.Add("Accept-Encoding: gzip, deflate, br") client.Headers.Add("Accept-Encoding: gzip, deflate, br")
client.Headers.Add("X-Requested-With: XMLHttpRequest") client.Headers.Add("X-Requested-With: XMLHttpRequest")
@ -539,19 +514,32 @@ Public Class Anime_Add
Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboBox1.DrawItem, ComboBox2.DrawItem, comboBox3.DrawItem, comboBox4.DrawItem 'Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboBox1.DrawItem, ComboBox2.DrawItem, comboBox3.DrawItem, comboBox4.DrawItem
Dim CB As ComboBox = sender ' Dim CB As ComboBox = sender
CB.BackColor = Color.White ' 'CB.BackColor = Color.DarkGray
If e.Index >= 0 Then ' If Main.DarkModeValue = True Then
Using st As New StringFormat With {.Alignment = StringAlignment.Center} ' If e.Index >= 0 Then
' e.DrawBackground() ' Using st As New StringFormat With {.Alignment = StringAlignment.Center}
' e.DrawFocusRectangle() ' ' e.DrawBackground()
e.Graphics.FillRectangle(SystemBrushes.ControlLightLight, e.Bounds) ' ' e.DrawFocusRectangle()
e.Graphics.DrawString(CB.Items(e.Index).ToString, e.Font, Brushes.Black, e.Bounds, st) ' e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
' e.Graphics.DrawString(CB.Items(e.Index).ToString, e.Font, SystemBrushes.ControlLightLight, e.Bounds, st)
End Using ' End Using
End If ' End If
End Sub ' Else
' If e.Index >= 0 Then
' Using st As New StringFormat With {.Alignment = StringAlignment.Center}
' ' e.DrawBackground()
' ' e.DrawFocusRectangle()
' e.Graphics.FillRectangle(SystemBrushes.ControlLightLight, e.Bounds)
' e.Graphics.DrawString(CB.Items(e.Index).ToString, e.Font, Brushes.Black, e.Bounds, st)
' End Using
' End If
' End If
'End Sub
Private Sub PictureBox4_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox4.MouseEnter Private Sub PictureBox4_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox4.MouseEnter
If Mass_DL_Cancel = True Then If Mass_DL_Cancel = True Then
@ -1158,7 +1146,7 @@ Public Class Anime_Add
End If End If
Dim L1Name As String = "anime-on-demand.de" 'L1Name_Split(1).Replace("www.", "") + " | Dub : " + FunimationDub Dim L1Name As String = "anime-on-demand.de" 'L1Name_Split(1).Replace("www.", "") + " | Dub : " + FunimationDub
Me.Invoke(New Action(Function() Me.Invoke(New Action(Function()
Main.ListItemAdd(Pfad2, L1Name, AoDTitle, DisplayReso, "Unknown", "None", AoDThumbnail, AoDm3u8Final, DownloadPfad) Main.ListItemAdd(Pfad2, L1Name, AoDTitle, DisplayReso, "Unknown", "None", AoDThumbnail, AoDm3u8Final, DownloadPfad, "AoD")
Main.liList.Add(My.Resources.htmlvorThumbnail + AoDThumbnail + My.Resources.htmlnachTumbnail + "<br>" + AoDTitle + My.Resources.htmlvorAufloesung + "[Auto]" + My.Resources.htmlvorSoftSubs + vbNewLine + "None" + My.Resources.htmlvorHardSubs + "null" + My.Resources.htmlnachHardSubs + "<!-- " + AoDTitle + "-->") Main.liList.Add(My.Resources.htmlvorThumbnail + AoDThumbnail + My.Resources.htmlnachTumbnail + "<br>" + AoDTitle + My.Resources.htmlvorAufloesung + "[Auto]" + My.Resources.htmlvorSoftSubs + vbNewLine + "None" + My.Resources.htmlvorHardSubs + "null" + My.Resources.htmlnachHardSubs + "<!-- " + AoDTitle + "-->")
Return Nothing Return Nothing

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

@ -1,7 +1,7 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class CRD_List_Item Partial Class CRD_List_Item
Inherits System.Windows.Forms.UserControl 'Inherits System.Windows.Forms.UserControl
Inherits MetroFramework.Controls.MetroUserControl
'UserControl1 überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'UserControl1 überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> <System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
@ -26,11 +26,11 @@ Partial Class CRD_List_Item
Me.PB_Thumbnail = New System.Windows.Forms.PictureBox() Me.PB_Thumbnail = New System.Windows.Forms.PictureBox()
Me.bt_pause = New System.Windows.Forms.PictureBox() Me.bt_pause = New System.Windows.Forms.PictureBox()
Me.bt_del = New System.Windows.Forms.PictureBox() Me.bt_del = New System.Windows.Forms.PictureBox()
Me.Label_Anime = New System.Windows.Forms.Label() Me.Label_Anime = New MetroFramework.Controls.MetroLabel()
Me.Label_website = New System.Windows.Forms.Label() Me.Label_website = New MetroFramework.Controls.MetroLabel()
Me.Label_Reso = New System.Windows.Forms.Label() Me.Label_Reso = New MetroFramework.Controls.MetroLabel()
Me.Label_Hardsub = New System.Windows.Forms.Label() Me.Label_Hardsub = New MetroFramework.Controls.MetroLabel()
Me.Label_percent = New System.Windows.Forms.Label() Me.Label_percent = New MetroFramework.Controls.MetroLabel()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.Timer2 = New System.Windows.Forms.Timer(Me.components) Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
@ -39,7 +39,6 @@ Partial Class CRD_List_Item
Me.PictureBox5 = New System.Windows.Forms.PictureBox() Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.ProgressBar1 = New MetroFramework.Controls.MetroProgressBar() Me.ProgressBar1 = New MetroFramework.Controls.MetroProgressBar()
Me.MetroStyleManager1 = New MetroFramework.Components.MetroStyleManager(Me.components) Me.MetroStyleManager1 = New MetroFramework.Components.MetroStyleManager(Me.components)
Me.MetroStyleExtender1 = New MetroFramework.Components.MetroStyleExtender(Me.components)
CType(Me.PB_Thumbnail, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PB_Thumbnail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bt_pause, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.bt_pause, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bt_del, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.bt_del, System.ComponentModel.ISupportInitialize).BeginInit()
@ -82,50 +81,60 @@ Partial Class CRD_List_Item
'Label_Anime 'Label_Anime
' '
Me.Label_Anime.AutoSize = True Me.Label_Anime.AutoSize = True
Me.Label_Anime.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Bold) Me.Label_Anime.BackColor = System.Drawing.Color.Transparent
Me.Label_Anime.Location = New System.Drawing.Point(195, 42) Me.Label_Anime.FontSize = MetroFramework.MetroLabelSize.Tall
Me.Label_Anime.FontWeight = MetroFramework.MetroLabelWeight.Regular
Me.Label_Anime.Location = New System.Drawing.Point(195, 37)
Me.Label_Anime.Name = "Label_Anime" Me.Label_Anime.Name = "Label_Anime"
Me.Label_Anime.Size = New System.Drawing.Size(270, 19) Me.Label_Anime.Size = New System.Drawing.Size(243, 25)
Me.Label_Anime.TabIndex = 3 Me.Label_Anime.TabIndex = 3
Me.Label_Anime.Text = "Anime Titel, Season, Episode " Me.Label_Anime.Text = "Anime Titel, Season, Episode "
' '
'Label_website 'Label_website
' '
Me.Label_website.AutoSize = True Me.Label_website.AutoSize = True
Me.Label_website.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Bold) Me.Label_website.BackColor = System.Drawing.Color.Transparent
Me.Label_website.Location = New System.Drawing.Point(195, 15) Me.Label_website.FontSize = MetroFramework.MetroLabelSize.Tall
Me.Label_website.FontWeight = MetroFramework.MetroLabelWeight.Regular
Me.Label_website.Location = New System.Drawing.Point(195, 10)
Me.Label_website.Name = "Label_website" Me.Label_website.Name = "Label_website"
Me.Label_website.Size = New System.Drawing.Size(72, 19) Me.Label_website.Size = New System.Drawing.Size(72, 25)
Me.Label_website.TabIndex = 4 Me.Label_website.TabIndex = 4
Me.Label_website.Text = "website" Me.Label_website.Text = "website"
' '
'Label_Reso 'Label_Reso
' '
Me.Label_Reso.AutoSize = True Me.Label_Reso.AutoSize = True
Me.Label_Reso.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Bold) Me.Label_Reso.BackColor = System.Drawing.Color.Transparent
Me.Label_Reso.Location = New System.Drawing.Point(195, 101) Me.Label_Reso.FontSize = MetroFramework.MetroLabelSize.Tall
Me.Label_Reso.FontWeight = MetroFramework.MetroLabelWeight.Regular
Me.Label_Reso.Location = New System.Drawing.Point(195, 97)
Me.Label_Reso.Name = "Label_Reso" Me.Label_Reso.Name = "Label_Reso"
Me.Label_Reso.Size = New System.Drawing.Size(54, 19) Me.Label_Reso.Size = New System.Drawing.Size(63, 25)
Me.Label_Reso.TabIndex = 5 Me.Label_Reso.TabIndex = 5
Me.Label_Reso.Text = "1080p" Me.Label_Reso.Text = "1080p"
' '
'Label_Hardsub 'Label_Hardsub
' '
Me.Label_Hardsub.AutoSize = True Me.Label_Hardsub.AutoSize = True
Me.Label_Hardsub.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Bold) Me.Label_Hardsub.BackColor = System.Drawing.Color.Transparent
Me.Label_Hardsub.Location = New System.Drawing.Point(260, 101) Me.Label_Hardsub.FontSize = MetroFramework.MetroLabelSize.Tall
Me.Label_Hardsub.FontWeight = MetroFramework.MetroLabelWeight.Regular
Me.Label_Hardsub.Location = New System.Drawing.Point(265, 97)
Me.Label_Hardsub.Name = "Label_Hardsub" Me.Label_Hardsub.Name = "Label_Hardsub"
Me.Label_Hardsub.Size = New System.Drawing.Size(126, 19) Me.Label_Hardsub.Size = New System.Drawing.Size(126, 25)
Me.Label_Hardsub.TabIndex = 6 Me.Label_Hardsub.TabIndex = 6
Me.Label_Hardsub.Text = "Hardsub Label" Me.Label_Hardsub.Text = "Hardsub Label"
' '
'Label_percent 'Label_percent
' '
Me.Label_percent.Anchor = System.Windows.Forms.AnchorStyles.Right Me.Label_percent.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label_percent.Font = New System.Drawing.Font("Consolas", 12.0!) Me.Label_percent.BackColor = System.Drawing.Color.Transparent
Me.Label_percent.Location = New System.Drawing.Point(432, 101) Me.Label_percent.FontSize = MetroFramework.MetroLabelSize.Tall
Me.Label_percent.FontWeight = MetroFramework.MetroLabelWeight.Regular
Me.Label_percent.Location = New System.Drawing.Point(432, 97)
Me.Label_percent.Name = "Label_percent" Me.Label_percent.Name = "Label_percent"
Me.Label_percent.Size = New System.Drawing.Size(378, 19) Me.Label_percent.Size = New System.Drawing.Size(378, 27)
Me.Label_percent.TabIndex = 7 Me.Label_percent.TabIndex = 7
Me.Label_percent.Text = "Status Label : speed, size and percent" Me.Label_percent.Text = "Status Label : speed, size and percent"
Me.Label_percent.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Label_percent.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@ -179,6 +188,7 @@ Partial Class CRD_List_Item
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.Transparent
Me.Controls.Add(Me.PictureBox5) Me.Controls.Add(Me.PictureBox5)
Me.Controls.Add(Me.ProgressBar1) Me.Controls.Add(Me.ProgressBar1)
Me.Controls.Add(Me.Label_percent) Me.Controls.Add(Me.Label_percent)
@ -205,11 +215,6 @@ Partial Class CRD_List_Item
Friend WithEvents PB_Thumbnail As PictureBox Friend WithEvents PB_Thumbnail As PictureBox
Friend WithEvents bt_pause As PictureBox Friend WithEvents bt_pause As PictureBox
Friend WithEvents bt_del As PictureBox Friend WithEvents bt_del As PictureBox
Friend WithEvents Label_Anime As Label
Friend WithEvents Label_website As Label
Friend WithEvents Label_Reso As Label
Friend WithEvents Label_Hardsub As Label
Friend WithEvents Label_percent As Label
Friend WithEvents ToolTip1 As ToolTip Friend WithEvents ToolTip1 As ToolTip
Friend WithEvents Timer2 As Timer Friend WithEvents Timer2 As Timer
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
@ -218,5 +223,9 @@ Partial Class CRD_List_Item
Friend WithEvents ProgressBar1 As MetroFramework.Controls.MetroProgressBar Friend WithEvents ProgressBar1 As MetroFramework.Controls.MetroProgressBar
Friend WithEvents PictureBox5 As PictureBox Friend WithEvents PictureBox5 As PictureBox
Friend WithEvents MetroStyleManager1 As MetroFramework.Components.MetroStyleManager Friend WithEvents MetroStyleManager1 As MetroFramework.Components.MetroStyleManager
Friend WithEvents MetroStyleExtender1 As MetroFramework.Components.MetroStyleExtender Friend WithEvents Label_Anime As MetroFramework.Controls.MetroLabel
Friend WithEvents Label_website As MetroFramework.Controls.MetroLabel
Friend WithEvents Label_Reso As MetroFramework.Controls.MetroLabel
Friend WithEvents Label_Hardsub As MetroFramework.Controls.MetroLabel
Friend WithEvents Label_percent As MetroFramework.Controls.MetroLabel
End Class End Class

3
Crunchyroll Downloader/CRD_List_Item.resx
View File

@ -129,7 +129,4 @@
<metadata name="MetroStyleManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="MetroStyleManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>364, 15</value> <value>364, 15</value>
</metadata> </metadata>
<metadata name="MetroStyleExtender1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>530, 15</value>
</metadata>
</root> </root>

129
Crunchyroll Downloader/CRD_List_Item.vb
View File

@ -4,8 +4,16 @@ Imports System.IO
Imports System.Threading Imports System.Threading
Imports Microsoft.Win32 Imports Microsoft.Win32
Imports System.ComponentModel Imports System.ComponentModel
Imports MetroFramework
Imports MetroFramework.Components
Imports MetroFramework.Forms
Public Class CRD_List_Item Public Class CRD_List_Item
Inherits Controls.MetroUserControl
Dim ZeitGesamtInteger As Integer = 0 Dim ZeitGesamtInteger As Integer = 0
Dim ListOfStreams As New List(Of String) Dim ListOfStreams As New List(Of String)
Dim proc As Process Dim proc As Process
@ -33,6 +41,7 @@ Public Class CRD_List_Item
Dim HybridRunning As Boolean = False Dim HybridRunning As Boolean = False
Dim TargetReso As Integer = 1080 Dim TargetReso As Integer = 1080
Dim HybrideLog As String = Nothing Dim HybrideLog As String = Nothing
Dim Service As String = "CR"
@ -51,6 +60,11 @@ Public Class CRD_List_Item
Label_website.Text = Text Label_website.Text = Text
Label_website_Text = Text Label_website_Text = Text
End Sub End Sub
Public Sub SetTheme(ByVal Theme As MetroThemeStyle)
MetroStyleManager1.Theme = Theme
End Sub
Public Sub SetTolerance(ByVal value As Integer) Public Sub SetTolerance(ByVal value As Integer)
Item_ErrorTolerance = value Item_ErrorTolerance = value
End Sub End Sub
@ -130,6 +144,9 @@ Public Class CRD_List_Item
Public Sub SetTargetReso(ByVal Value As Integer) Public Sub SetTargetReso(ByVal Value As Integer)
TargetReso = Value TargetReso = Value
End Sub End Sub
Public Sub SetService(ByVal Value As String)
Service = Value
End Sub
#End Region #End Region
Public Sub KillRunningTask() Public Sub KillRunningTask()
If HybridRunning = True Then If HybridRunning = True Then
@ -295,26 +312,27 @@ Public Class CRD_List_Item
End Sub End Sub
Private Sub Item_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Item_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.ContextMenuStrip = ContextMenuStrip1 '.ContextMenu Me.ContextMenuStrip = ContextMenuStrip1 '.ContextMenu
Dim locationY As Integer = 0 'bt_del.SetBounds(775, 10, 35, 29)
bt_del.SetBounds(775, locationY + 10, 35, 29) 'bt_pause.SetBounds(740, 15, 25, 20)
bt_pause.SetBounds(740, locationY + 15, 25, 20) 'PB_Thumbnail.SetBounds(11, 20, 168, 95)
PB_Thumbnail.SetBounds(11, 20, 168, 95) 'PB_Thumbnail.BringToFront()
PB_Thumbnail.BringToFront() 'Label_website.Location = New Point(195, 15)
Label_website.Location = New Point(195, locationY + 15) 'Label_Anime.Location = New Point(195, 37)
Label_Anime.Location = New Point(195, locationY + 42) 'Label_Reso.Location = New Point(195, 97)
Label_Reso.Location = New Point(195, locationY + 101) 'Label_Hardsub.Location = New Point(265, 97)
Label_Hardsub.Location = New Point(260, locationY + 101) 'Label_percent.SetBounds(432, 97, 378, 27)
Label_percent.SetBounds(432, locationY + 101, 378, 19) 'Label_percent.AutoSize = False
Label_percent.AutoSize = False 'ProgressBar1.SetBounds(195, 70, 601, 20)
ProgressBar1.SetBounds(195, locationY + 70, 601, 20) 'PictureBox5.Location = New Point(0, 136)
PictureBox5.Location = New Point(0, 136) 'PictureBox5.Height = 6
PictureBox5.Height = 6
'MetroStyleManager1.Theme = Main.Manager.Theme
End Sub End Sub
Public Function GetTextBound() Public Function GetTextBound()
Return Label_website.Location.Y 'Return Label_website.Location.Y
Return bt_del.Size.Height
End Function End Function
@ -322,6 +340,9 @@ 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) Public Sub StartDownload(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal Filename As String, ByVal DownloadHybridMode As Boolean)
'MsgBox(DL_URL) 'MsgBox(DL_URL)
Me.StyleManager = MetroStyleManager1
DownloadPfad = DL_Pfad DownloadPfad = DL_Pfad
HistoryDL_URL = DL_URL HistoryDL_URL = DL_URL
HistoryDL_Pfad = DL_Pfad HistoryDL_Pfad = DL_Pfad
@ -411,7 +432,7 @@ Public Class CRD_List_Item
Public Function DownloadHybrid(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal Filename As String) As String Public Function DownloadHybrid(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal Filename As String) As String
'MsgBox(DL_URL) 'MsgBox(DL_URL)
Dim Folder As String = einstellungen.GeräteID() Dim Folder As String = Einstellungen.GeräteID()
Dim Pfad2 As String = Path.GetDirectoryName(DL_Pfad.Replace(Chr(34), "")) + "\" + Folder + "\" Dim Pfad2 As String = Path.GetDirectoryName(DL_Pfad.Replace(Chr(34), "")) + "\" + Folder + "\"
If Not Directory.Exists(Path.GetDirectoryName(Pfad2)) Then If Not Directory.Exists(Path.GetDirectoryName(Pfad2)) Then
' Nein! Jetzt erstellen... ' Nein! Jetzt erstellen...
@ -440,7 +461,7 @@ Public Class CRD_List_Item
Else Else
SubsClient.Headers.Add(HttpRequestHeader.Cookie, Main.WebbrowserCookie) SubsClient.Headers.Add(HttpRequestHeader.Cookie, Main.WebbrowserCookie)
End If End If
Dim SubsFile As String = einstellungen.GeräteID() + ".txt" Dim SubsFile As String = Einstellungen.GeräteID() + ".txt"
Dim retry As Boolean = True Dim retry As Boolean = True
Dim retryCount As Integer = 3 Dim retryCount As Integer = 3
@ -612,7 +633,7 @@ Public Class CRD_List_Item
Else Else
KeyClient.Headers.Add(HttpRequestHeader.Cookie, Main.WebbrowserCookie) KeyClient.Headers.Add(HttpRequestHeader.Cookie, Main.WebbrowserCookie)
End If End If
Dim KeyFile3 As String = einstellungen.GeräteID() + ".key" Dim KeyFile3 As String = Einstellungen.GeräteID() + ".key"
KeyFileCache = KeyFile3 KeyFileCache = KeyFile3
Dim retry As Boolean = True Dim retry As Boolean = True
@ -620,7 +641,7 @@ Public Class CRD_List_Item
Try Try
KeyClient.DownloadFile(KeyFile2(0), Application.StartupPath + "\" + KeyFile3) KeyClient.DownloadFile(KeyFile2(0), Application.StartupPath + "\" + KeyFile3)
Retry = False retry = False
Catch ex As Exception Catch ex As Exception
If retryCount > 0 Then If retryCount > 0 Then
retryCount = retryCount - 1 retryCount = retryCount - 1
@ -678,7 +699,7 @@ Public Class CRD_List_Item
Else Else
KeyClient.Headers.Add(HttpRequestHeader.Cookie, Main.WebbrowserCookie) KeyClient.Headers.Add(HttpRequestHeader.Cookie, Main.WebbrowserCookie)
End If End If
Dim KeyFile3 As String = einstellungen.GeräteID() + ".key" Dim KeyFile3 As String = Einstellungen.GeräteID() + ".key"
KeyFileCache = KeyFile3 KeyFileCache = KeyFile3
Dim retry As Boolean = True Dim retry As Boolean = True
@ -686,7 +707,7 @@ Public Class CRD_List_Item
Try Try
KeyClient.DownloadFile(KeyFile2(0), Application.StartupPath + "\" + KeyFile3) KeyClient.DownloadFile(KeyFile2(0), Application.StartupPath + "\" + KeyFile3)
Retry = False retry = False
Catch ex As Exception Catch ex As Exception
If retryCount > 0 Then If retryCount > 0 Then
retryCount = retryCount - 1 retryCount = retryCount - 1
@ -739,6 +760,10 @@ Public Class CRD_List_Item
DL_URL = DL_URL.Replace(m3u8_url(1), Pfad2 + "index" + Folder + ".m3u8") DL_URL = DL_URL.Replace(m3u8_url(1), Pfad2 + "index" + Folder + ".m3u8")
If InStr(DL_URL, "-headers " + My.Resources.ffmpeg_user_agend) Then
DL_URL = DL_URL.Replace("-headers " + My.Resources.ffmpeg_user_agend, "")
End If
Using sink3 As New StreamWriter(Path.GetDirectoryName(DL_Pfad.Replace(Chr(34), "")) + "\hybridelog.log", False, utf8WithoutBom) Using sink3 As New StreamWriter(Path.GetDirectoryName(DL_Pfad.Replace(Chr(34), "")) + "\hybridelog.log", False, utf8WithoutBom)
sink3.WriteLine(HybrideLog) sink3.WriteLine(HybrideLog)
End Using End Using
@ -766,8 +791,8 @@ Public Class CRD_List_Item
startinfo.CreateNoWindow = True startinfo.CreateNoWindow = True
proc = New Process proc = New Process
proc.EnableRaisingEvents = True proc.EnableRaisingEvents = True
AddHandler proc.ErrorDataReceived, AddressOf ffmpegOutput AddHandler proc.ErrorDataReceived, AddressOf FFMPEGOutput
AddHandler proc.OutputDataReceived, AddressOf ffmpegOutput AddHandler proc.OutputDataReceived, AddressOf FFMPEGOutput
AddHandler proc.Exited, AddressOf ProcessClosed AddHandler proc.Exited, AddressOf ProcessClosed
proc.StartInfo = startinfo proc.StartInfo = startinfo
proc.Start() ' start the process proc.Start() ' start the process
@ -804,8 +829,8 @@ Public Class CRD_List_Item
startinfo.CreateNoWindow = True startinfo.CreateNoWindow = True
proc = New Process proc = New Process
proc.EnableRaisingEvents = True proc.EnableRaisingEvents = True
AddHandler proc.ErrorDataReceived, AddressOf ffmpegOutput AddHandler proc.ErrorDataReceived, AddressOf FFMPEGOutput
AddHandler proc.OutputDataReceived, AddressOf ffmpegOutput AddHandler proc.OutputDataReceived, AddressOf FFMPEGOutput
AddHandler proc.Exited, AddressOf ProcessClosed AddHandler proc.Exited, AddressOf ProcessClosed
proc.StartInfo = startinfo proc.StartInfo = startinfo
proc.Start() ' start the process proc.Start() ' start the process
@ -984,7 +1009,7 @@ Public Class CRD_List_Item
'MsgBox(BaseURL + SiteList(i) + vbNewLine + Pfad_DL + "\" + SiteList(i)) 'MsgBox(BaseURL + SiteList(i) + vbNewLine + Pfad_DL + "\" + SiteList(i))
Dim iWert As Integer = i Dim iWert As Integer = i
Using client As New WebClient() Using client As New WebClient()
client.Headers.Add(My.Resources.ffmpeg_user_agend) client.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), ""))
client.DownloadFile(BaseURL + SiteList(i), Pfad_DL + "\" + SiteList(i)) client.DownloadFile(BaseURL + SiteList(i), Pfad_DL + "\" + SiteList(i))
Pause(1) Pause(1)
End Using End Using
@ -1094,41 +1119,47 @@ Public Class CRD_List_Item
End Sub End Sub
Private Sub CRD_List_Item_Resize(sender As Object, e As EventArgs) Handles Me.Resize Private Sub CRD_List_Item_Resize(sender As Object, e As EventArgs) Handles Me.Resize
bt_del.SetBounds(775, 10, 35, 29)
bt_pause.SetBounds(740, 15, 25, 20)
PB_Thumbnail.SetBounds(11, 20, 168, 95)
PB_Thumbnail.BringToFront()
Label_website.Location = New Point(195, 12)
Label_Anime.Location = New Point(195, 40)
Label_Reso.Location = New Point(195, 97)
Label_Hardsub.Location = New Point(265, 97)
Label_percent.SetBounds(Me.Width - 400, 97, 378, 27)
Label_percent.AutoSize = False
ProgressBar1.SetBounds(195, 70, 601, 20)
PictureBox5.Location = New Point(0, 136)
PictureBox5.Height = 6
If Service = "AoD" Then
MetroStyleManager1.Style = MetroColorStyle.LightGreen
ElseIf Service = "FM" Then
MetroStyleManager1.Style = MetroColorStyle.DarkPurple
Else
MetroStyleManager1.Style = MetroColorStyle.Orange
End If
MetroStyleManager1.Theme = Main.Manager.Theme
MetroStyleManager1.Owner = Me
Me.StyleManager = MetroStyleManager1
PictureBox5.Width = Me.Width - 40 PictureBox5.Width = Me.Width - 40
bt_del.Location = New Point(Me.Width - 63, 10) bt_del.Location = New Point(Me.Width - 63, 10)
bt_pause.Location = New Point(Me.Width - 98, 15) bt_pause.Location = New Point(Me.Width - 98, 15)
ProgressBar1.Width = Me.Width - 223 ProgressBar1.Width = Me.Width - 223
End Sub End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs)
Dim rnd As New Random
Dim ZufallsZahl As Integer = rnd.Next(1, 33)
If ZufallsZahl > 30 Then
MetroStyleManager1.Style = MetroFramework.MetroColorStyle.Blue
Debug.WriteLine("Blue")
ElseIf ZufallsZahl > 25 Then
MetroStyleManager1.Style = MetroFramework.MetroColorStyle.Lime
Debug.WriteLine("Lime")
ElseIf ZufallsZahl > 20 Then
MetroStyleManager1.Style = MetroFramework.MetroColorStyle.Magenta
Debug.WriteLine("Magenta")
ElseIf ZufallsZahl > 15 Then
MetroStyleManager1.Style = MetroFramework.MetroColorStyle.Green
Debug.WriteLine("Green")
ElseIf ZufallsZahl > 10 Then
MetroStyleManager1.Style = MetroFramework.MetroColorStyle.Brown
Debug.WriteLine("Brown")
ElseIf ZufallsZahl > 5 Then
MetroStyleManager1.Style = MetroFramework.MetroColorStyle.Purple
Debug.WriteLine("Purple")
End If
End Sub
Private Sub Label_Anime_Click(sender As Object, e As EventArgs) Handles ProgressBar1.Click, PB_Thumbnail.Click, MyBase.Click, Label_website.Click, Label_Reso.Click, Label_percent.Click, Label_Anime.Click Private Sub Label_Anime_Click(sender As Object, e As EventArgs) Handles ProgressBar1.Click, PB_Thumbnail.Click, MyBase.Click, Label_website.Click, Label_Reso.Click, Label_percent.Click, Label_Anime.Click
End Sub End Sub
End Class End Class

8
Crunchyroll Downloader/Crunchyroll Downloader.vbproj
View File

@ -94,9 +94,9 @@
<Reference Include="Geckofx-Winforms, Version=60.0.50.0, Culture=neutral, PublicKeyToken=3209ac31600d1857, processorArchitecture=x86"> <Reference Include="Geckofx-Winforms, Version=60.0.50.0, Culture=neutral, PublicKeyToken=3209ac31600d1857, processorArchitecture=x86">
<HintPath>..\packages\Geckofx60.32.60.0.50\lib\net45\Geckofx-Winforms.dll</HintPath> <HintPath>..\packages\Geckofx60.32.60.0.50\lib\net45\Geckofx-Winforms.dll</HintPath>
</Reference> </Reference>
<Reference Include="MetroFramework, Version=1.4.0.0, Culture=neutral, PublicKeyToken=5f91a84759bf584a, processorArchitecture=MSIL"> <Reference Include="MetroFramework, Version=1.4.0.0, Culture=neutral, PublicKeyToken=5f91a84759bf584a, processorArchitecture=x86">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>E:\ui\metroframework-modern-ui-master\MetroFramework\bin\x86\Debug\MetroFramework.dll</HintPath> <HintPath>..\..\metroframework-modern-ui\MetroFramework\bin\x86\Debug\MetroFramework.dll</HintPath>
</Reference> </Reference>
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.Data" /> <Reference Include="System.Data" />
@ -251,6 +251,10 @@
<Content Include="Firefox\softokn3.dll" /> <Content Include="Firefox\softokn3.dll" />
<Content Include="Firefox\xul.dll" /> <Content Include="Firefox\xul.dll" />
<Content Include="icon.ico" /> <Content Include="icon.ico" />
<None Include="Resources\main-setting_invert_dark.png" />
<None Include="Resources\main-close_dark.png" />
<None Include="Resources\main-browser_invert_dark.png" />
<None Include="Resources\main-add_invert_dark.png" />
<None Include="packages.config" /> <None Include="packages.config" />
<None Include="Resources\main-setting_invert.png" /> <None Include="Resources\main-setting_invert.png" />
<None Include="Resources\main-browser_invert.png" /> <None Include="Resources\main-browser_invert.png" />

BIN
Crunchyroll Downloader/Einstellungen_backup.7z
View File

Binary file not shown.

21
Crunchyroll Downloader/ErrorDialog.Designer.vb generated
View File

@ -22,11 +22,11 @@ Partial Class ErrorDialog
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.ComboBox1 = New System.Windows.Forms.ComboBox() Me.ComboBox1 = New MetroFramework.Controls.MetroComboBox()
Me.pictureBox3 = New System.Windows.Forms.PictureBox() Me.pictureBox3 = New System.Windows.Forms.PictureBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.PictureBox9 = New System.Windows.Forms.PictureBox() Me.PictureBox9 = New System.Windows.Forms.PictureBox()
Me.StatusLabel = New System.Windows.Forms.Label() Me.StatusLabel = New MetroFramework.Controls.MetroLabel()
CType(Me.pictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox3.SuspendLayout() Me.GroupBox3.SuspendLayout()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
@ -34,17 +34,16 @@ Partial Class ErrorDialog
' '
'ComboBox1 'ComboBox1
' '
Me.ComboBox1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.ComboBox1.DropDownHeight = 250 Me.ComboBox1.DropDownHeight = 250
Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ComboBox1.FormattingEnabled = True Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.IntegralHeight = False Me.ComboBox1.IntegralHeight = False
Me.ComboBox1.ItemHeight = 16 Me.ComboBox1.ItemHeight = 23
Me.ComboBox1.Location = New System.Drawing.Point(34, 82) Me.ComboBox1.Location = New System.Drawing.Point(34, 82)
Me.ComboBox1.Name = "ComboBox1" Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(281, 22) Me.ComboBox1.Size = New System.Drawing.Size(281, 29)
Me.ComboBox1.TabIndex = 33 Me.ComboBox1.TabIndex = 33
Me.ComboBox1.UseSelectable = True
' '
'pictureBox3 'pictureBox3
' '
@ -88,7 +87,8 @@ Partial Class ErrorDialog
Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.StatusLabel.BackColor = System.Drawing.Color.Transparent Me.StatusLabel.BackColor = System.Drawing.Color.Transparent
Me.StatusLabel.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.StatusLabel.FontSize = MetroFramework.MetroLabelSize.Tall
Me.StatusLabel.FontWeight = MetroFramework.MetroLabelWeight.Bold
Me.StatusLabel.ForeColor = System.Drawing.Color.Black Me.StatusLabel.ForeColor = System.Drawing.Color.Black
Me.StatusLabel.Location = New System.Drawing.Point(6, 16) Me.StatusLabel.Location = New System.Drawing.Point(6, 16)
Me.StatusLabel.Name = "StatusLabel" Me.StatusLabel.Name = "StatusLabel"
@ -101,7 +101,7 @@ Partial Class ErrorDialog
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Background 'Me.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Background
Me.ClientSize = New System.Drawing.Size(380, 280) Me.ClientSize = New System.Drawing.Size(380, 280)
Me.Controls.Add(Me.GroupBox3) Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.pictureBox3) Me.Controls.Add(Me.pictureBox3)
@ -114,10 +114,9 @@ Partial Class ErrorDialog
Me.PerformLayout() Me.PerformLayout()
End Sub End Sub
Friend WithEvents ComboBox1 As ComboBox
Private WithEvents pictureBox3 As PictureBox Private WithEvents pictureBox3 As PictureBox
Private WithEvents GroupBox3 As GroupBox Private WithEvents GroupBox3 As GroupBox
Public WithEvents StatusLabel As Label
Private WithEvents PictureBox9 As PictureBox Private WithEvents PictureBox9 As PictureBox
Friend WithEvents ComboBox1 As MetroFramework.Controls.MetroComboBox
Public WithEvents StatusLabel As MetroFramework.Controls.MetroLabel
End Class End Class

57
Crunchyroll Downloader/ErrorDialog.vb
View File

@ -1,47 +1,15 @@
Public Class ErrorDialog Imports MetroFramework.Components
#Region " Move Form "
' [ Move Form ] Public Class ErrorDialog
'
' // By Elektro
Public MoveForm As Boolean Dim Manager As MetroStyleManager = Main.Manager
Public MoveForm_MousePosition As Point
Public Sub MoveForm_MouseDown(sender As Object, e As MouseEventArgs) Handles _
MyBase.MouseDown ' Add more handles here (Example: PictureBox1.MouseDown)
If e.Button = MouseButtons.Left Then
MoveForm = True
Me.Cursor = Cursors.NoMove2D
MoveForm_MousePosition = e.Location
End If
End Sub
Public Sub MoveForm_MouseMove(sender As Object, e As MouseEventArgs) Handles _
MyBase.MouseMove ' Add more handles here (Example: PictureBox1.MouseMove)
If MoveForm Then
Me.Location = Me.Location + (e.Location - MoveForm_MousePosition)
End If
End Sub
Public Sub MoveForm_MouseUp(sender As Object, e As MouseEventArgs) Handles _
MyBase.MouseUp ' Add more handles here (Example: PictureBox1.MouseUp)
If e.Button = MouseButtons.Left Then
MoveForm = False
Me.Cursor = Cursors.Default
End If
End Sub
#End Region
Private Sub Reso_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Reso_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Me.StyleManager = Main.StyleManager Manager.Owner = Me
'ButtonResoNotFound.Text = Main.ButtonResoNotFoundText Me.StyleManager = Manager
pictureBox3.Image = Main.CloseImg
Try Try
Me.Icon = My.Resources.icon Me.Icon = My.Resources.icon
Catch ex As Exception Catch ex As Exception
@ -168,12 +136,15 @@
Me.Close() Me.Close()
End Sub End Sub
Private Sub PictureBox3_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox3.MouseEnter Private Sub Btn_Close_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox3.MouseEnter
pictureBox3.BackColor = SystemColors.Control Dim PB As PictureBox = sender
PB.Image = My.Resources.main_del
End Sub End Sub
Private Sub PictureBox3_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox3.MouseLeave Private Sub Btn_Close_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox3.MouseLeave
pictureBox3.BackColor = Color.Transparent Dim PB As PictureBox = sender
PB.Image = Main.CloseImg
End Sub End Sub
End Class End Class

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

@ -38,7 +38,6 @@ Partial Class Main
Me.PictureBox6 = New System.Windows.Forms.PictureBox() Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.MetroStyleExtender1 = New MetroFramework.Components.MetroStyleExtender(Me.components) Me.MetroStyleExtender1 = New MetroFramework.Components.MetroStyleExtender(Me.components)
Me.MetroStyleManager1 = New MetroFramework.Components.MetroStyleManager(Me.components) Me.MetroStyleManager1 = New MetroFramework.Components.MetroStyleManager(Me.components)
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
CType(Me.Btn_add, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Btn_add, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Btn_Close, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Btn_Close, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Btn_Settings, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Btn_Settings, System.ComponentModel.ISupportInitialize).BeginInit()
@ -46,7 +45,6 @@ Partial Class Main
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'Btn_add 'Btn_add
@ -126,6 +124,7 @@ Partial Class Main
' '
'PictureBox5 'PictureBox5
' '
Me.PictureBox5.BackColor = System.Drawing.Color.Transparent
Me.PictureBox5.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.balken Me.PictureBox5.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.balken
Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.PictureBox5.Location = New System.Drawing.Point(1, 65) Me.PictureBox5.Location = New System.Drawing.Point(1, 65)
@ -163,6 +162,7 @@ Partial Class Main
' '
'PictureBox6 'PictureBox6
' '
Me.PictureBox6.BackColor = System.Drawing.Color.Transparent
Me.PictureBox6.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.balken Me.PictureBox6.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.balken
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
@ -178,24 +178,12 @@ Partial Class Main
Me.MetroStyleManager1.Owner = Me Me.MetroStyleManager1.Owner = Me
Me.MetroStyleManager1.Style = MetroFramework.MetroColorStyle.Orange Me.MetroStyleManager1.Style = MetroFramework.MetroColorStyle.Orange
' '
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.Main_top
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.PictureBox1.Location = New System.Drawing.Point(1, 0)
Me.PictureBox1.Margin = New System.Windows.Forms.Padding(0)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(840, 1)
Me.PictureBox1.TabIndex = 70
Me.PictureBox1.TabStop = False
'
'Main 'Main
' '
Me.ApplyImageInvert = True Me.ApplyImageInvert = True
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.BorderStyle = MetroFramework.Forms.MetroFormBorderStyle.FixedSingle Me.BorderStyle = MetroFramework.Forms.MetroFormBorderStyle.FixedSingle
Me.ClientSize = New System.Drawing.Size(842, 630) Me.ClientSize = New System.Drawing.Size(842, 630)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.TheTextBox) Me.Controls.Add(Me.TheTextBox)
Me.Controls.Add(Me.PictureBox6) Me.Controls.Add(Me.PictureBox6)
Me.Controls.Add(Me.PictureBox5) Me.Controls.Add(Me.PictureBox5)
@ -222,7 +210,6 @@ Partial Class Main
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -241,6 +228,5 @@ Partial Class Main
Friend WithEvents TheTextBox As RichTextBox Friend WithEvents TheTextBox As RichTextBox
Friend WithEvents PictureBox6 As PictureBox Friend WithEvents PictureBox6 As PictureBox
Friend WithEvents MetroStyleExtender1 As MetroFramework.Components.MetroStyleExtender Friend WithEvents MetroStyleExtender1 As MetroFramework.Components.MetroStyleExtender
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents MetroStyleManager1 As MetroFramework.Components.MetroStyleManager Friend WithEvents MetroStyleManager1 As MetroFramework.Components.MetroStyleManager
End Class End Class

66
Crunchyroll Downloader/Main.vb
View File

@ -15,7 +15,7 @@ Public Class Main
Public Manager As New MetroStyleManager Public Manager As New MetroStyleManager
Public DarkModeValue As Boolean = False
@ -139,13 +139,29 @@ Public Class Main
Me.Invalidate() Me.Invalidate()
End Sub End Sub
Public CloseImg As Bitmap = My.Resources.main_del
Public Sub DarkMode()
ListView1.BackColor = Color.FromArgb(50, 50, 50)
CloseImg = My.Resources.main_close_dark
Btn_Close.Image = CloseImg
End Sub
Public Sub LightMode()
ListView1.BackColor = SystemColors.Control
CloseImg = My.Resources.main_close
Btn_Close.Image = CloseImg
End Sub
Dim ListViewHeightOffset As Integer = 7 Dim ListViewHeightOffset As Integer = 7
Private Sub Btn_add_MouseEnter(sender As Object, e As EventArgs) Handles Btn_add.MouseEnter Private Sub Btn_add_MouseEnter(sender As Object, e As EventArgs) Handles Btn_add.MouseEnter
Dim PB As PictureBox = sender Dim PB As PictureBox = sender
If Manager.Theme = MetroThemeStyle.Dark Then
PB.Image = My.Resources.main_add_invert_dark
Else
PB.Image = My.Resources.main_add_invert PB.Image = My.Resources.main_add_invert
End If
End Sub End Sub
Private Sub Btn_add_MouseLeave(sender As Object, e As EventArgs) Handles Btn_add.MouseLeave Private Sub Btn_add_MouseLeave(sender As Object, e As EventArgs) Handles Btn_add.MouseLeave
@ -154,7 +170,12 @@ Public Class Main
End Sub End Sub
Private Sub Btn_Browser_MouseEnter(sender As Object, e As EventArgs) Handles Btn_Browser.MouseEnter Private Sub Btn_Browser_MouseEnter(sender As Object, e As EventArgs) Handles Btn_Browser.MouseEnter
Dim PB As PictureBox = sender Dim PB As PictureBox = sender
If Manager.Theme = MetroThemeStyle.Dark Then
PB.Image = My.Resources.main_browser_invert_dark
Else
PB.Image = My.Resources.main_browser_invert PB.Image = My.Resources.main_browser_invert
End If
End Sub End Sub
Private Sub Btn_Browser_MouseLeave(sender As Object, e As EventArgs) Handles Btn_Browser.MouseLeave Private Sub Btn_Browser_MouseLeave(sender As Object, e As EventArgs) Handles Btn_Browser.MouseLeave
@ -163,7 +184,12 @@ Public Class Main
End Sub End Sub
Private Sub Btn_Settings_MouseEnter(sender As Object, e As EventArgs) Handles Btn_Settings.MouseEnter Private Sub Btn_Settings_MouseEnter(sender As Object, e As EventArgs) Handles Btn_Settings.MouseEnter
Dim PB As PictureBox = sender Dim PB As PictureBox = sender
If Manager.Theme = MetroThemeStyle.Dark Then
PB.Image = My.Resources.main_setting_invert_dark
Else
PB.Image = My.Resources.main_setting_invert PB.Image = My.Resources.main_setting_invert
End If
End Sub End Sub
Private Sub Btn_Settings_MouseLeave(sender As Object, e As EventArgs) Handles Btn_Settings.MouseLeave Private Sub Btn_Settings_MouseLeave(sender As Object, e As EventArgs) Handles Btn_Settings.MouseLeave
@ -177,7 +203,7 @@ Public Class Main
Private Sub Btn_Close_MouseLeave(sender As Object, e As EventArgs) Handles Btn_Close.MouseLeave Private Sub Btn_Close_MouseLeave(sender As Object, e As EventArgs) Handles Btn_Close.MouseLeave
Dim PB As PictureBox = sender Dim PB As PictureBox = sender
PB.Image = My.Resources.main_close PB.Image = CloseImg
End Sub End Sub
Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
@ -212,7 +238,7 @@ Public Class Main
ListView1.Height = Me.Height - 71 - ListViewHeightOffset ListView1.Height = Me.Height - 71 - ListViewHeightOffset
PictureBox5.Width = Me.Width - 40 PictureBox5.Width = Me.Width - 40
PictureBox1.Width = Me.Width - 2
PictureBox6.Location = New Point(1, Me.Height - ListViewHeightOffset) PictureBox6.Location = New Point(1, Me.Height - ListViewHeightOffset)
PictureBox6.Width = Me.Width - 40 PictureBox6.Width = Me.Width - 40
@ -244,6 +270,10 @@ Public Class Main
#End Region #End Region
Public Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Integer, ByVal dwVolume As Integer) As Integer Public Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Integer, ByVal dwVolume As Integer) As Integer
Public Sub SetSettingsTheme()
Einstellungen.Theme = Manager.Theme
End Sub
Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim tbtl As TextBoxTraceListener = New TextBoxTraceListener(TheTextBox) Dim tbtl As TextBoxTraceListener = New TextBoxTraceListener(TheTextBox)
@ -257,9 +287,22 @@ Public Class Main
' FirstStartup.ShowDialog() ' FirstStartup.ShowDialog()
'End Try 'End Try
'Dim Style As New MetroStyleManager 'Dim Style As New MetroStyleManager
'
Try
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
DarkModeValue = CBool(Integer.Parse(rkg.GetValue("Dark_Mode").ToString))
Catch ex As Exception
End Try
Manager.Style = MetroColorStyle.Orange Manager.Style = MetroColorStyle.Orange
If DarkModeValue = True Then
Manager.Theme = MetroThemeStyle.Dark
DarkMode()
Else
Manager.Theme = MetroThemeStyle.Light Manager.Theme = MetroThemeStyle.Light
LightMode()
End If
Me.StyleManager = Manager Me.StyleManager = Manager
Manager.Owner = Me Manager.Owner = Me
@ -488,7 +531,7 @@ Public Class Main
End Sub End Sub
Public Sub ListItemAdd(ByVal NameKomplett As String, ByVal NameP1 As String, ByVal NameP2 As String, ByVal Reso As String, ByVal HardSub As String, ByVal SoftSubs As String, ByVal ThumbnialURL As String, ByVal URL_DL As String, ByVal Pfad_DL As String) ', ByVal AudioLang As String) Public Sub ListItemAdd(ByVal NameKomplett As String, ByVal NameP1 As String, ByVal NameP2 As String, ByVal Reso As String, ByVal HardSub As String, ByVal SoftSubs As String, ByVal ThumbnialURL As String, ByVal URL_DL As String, ByVal Pfad_DL As String, Optional Service As String = "CR") ', ByVal AudioLang As String)
Dim Thumbnail As Image = My.Resources.main_del Dim Thumbnail As Image = My.Resources.main_del
Try Try
Dim wc As New WebClient() Dim wc As New WebClient()
@ -501,11 +544,11 @@ Public Class Main
End Try End Try
With ListView1.Items.Add(0) With ListView1.Items.Add(0)
ItemConstructor(NameP1, NameP2, Reso, HardSub, SoftSubs, Thumbnail, URL_DL, Pfad_DL) ItemConstructor(NameP1, NameP2, Reso, HardSub, SoftSubs, Thumbnail, URL_DL, Pfad_DL, Service)
End With End With
End Sub End Sub
Public Sub ItemConstructor(ByVal NameP1 As String, ByVal NameP2 As String, ByVal DisplayReso As String, ByVal HardSub As String, ByVal SoftSubs As String, ByVal Thumbnail As Image, ByVal URL_DL As String, ByVal Pfad_DL As String) Public Sub ItemConstructor(ByVal NameP1 As String, ByVal NameP2 As String, ByVal DisplayReso As String, ByVal HardSub As String, ByVal SoftSubs As String, ByVal Thumbnail As Image, ByVal URL_DL As String, ByVal Pfad_DL As String, ByVal Service As String)
Dim Item As New CRD_List_Item Dim Item As New CRD_List_Item
Item.Visible = False Item.Visible = False
@ -526,6 +569,7 @@ Public Class Main
r = ListView1.Items(c).Bounds() r = ListView1.Items(c).Bounds()
r.Width = 838 r.Width = 838
r.Height = 142 r.Height = 142
Item.SetService(Service)
Item.SetTolerance(ErrorTolerance) Item.SetTolerance(ErrorTolerance)
Item.SetTargetReso(Reso) Item.SetTargetReso(Reso)
Item.SetLabelWebsite(NameP1) Item.SetLabelWebsite(NameP1)
@ -549,7 +593,7 @@ Public Class Main
Dim Thumbnail As Image = My.Resources.main_del Dim Thumbnail As Image = My.Resources.main_del
Try Try
Dim wc As New WebClient() Dim wc As New WebClient()
wc.Headers.Add(My.Resources.ffmpeg_user_agend) wc.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), ""))
Dim bytes As Byte() = wc.DownloadData(ThumbnialURL) Dim bytes As Byte() = wc.DownloadData(ThumbnialURL)
Dim ms As New MemoryStream(bytes) Dim ms As New MemoryStream(bytes)
Thumbnail = System.Drawing.Image.FromStream(ms) Thumbnail = System.Drawing.Image.FromStream(ms)
@ -2044,7 +2088,7 @@ Public Class Main
Try Try
Dim ItemDownloadingCount As Integer = 0 Dim ItemDownloadingCount As Integer = 0
For i As Integer = 0 To ListView1.Items.Count - 1 For i As Integer = 0 To ListView1.Items.Count - 1
ItemList(i).SetTheme(Manager.Theme)
If ItemList(i).GetIsStatusFinished() = False Then If ItemList(i).GetIsStatusFinished() = False Then
ItemDownloadingCount = ItemDownloadingCount + 1 ItemDownloadingCount = ItemDownloadingCount + 1
End If End If
@ -2624,7 +2668,7 @@ Public Class Main
Dim L1Name_Split As String() = WebbrowserURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries) Dim L1Name_Split As String() = WebbrowserURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim L1Name As String = L1Name_Split(1).Replace("www.", "") + " | Dub : " + FunimationDub Dim L1Name As String = L1Name_Split(1).Replace("www.", "") + " | Dub : " + FunimationDub
Me.Invoke(New Action(Function() Me.Invoke(New Action(Function()
ListItemAdd(Pfad_DL, L1Name, DefaultName, ResoHTMLDisplay, "Unknown", SubValuesToDisplay(), thumbnail3, Funimation_m3u8_final, Chr(34) + DownloadPfad + Chr(34)) ListItemAdd(Pfad_DL, L1Name, DefaultName, ResoHTMLDisplay, "Unknown", SubValuesToDisplay(), thumbnail3, Funimation_m3u8_final, Chr(34) + DownloadPfad + Chr(34), "FM")
Return Nothing Return Nothing
End Function)) End Function))
liList.Add(My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + FunimationTitle + " <br> " + FunimationSeason + " " + FunimationEpisode + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + "null" + My.Resources.htmlnachHardSubs + "<!-- " + DefaultName + "-->") liList.Add(My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + FunimationTitle + " <br> " + FunimationSeason + " " + FunimationEpisode + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + "null" + My.Resources.htmlnachHardSubs + "<!-- " + DefaultName + "-->")
@ -3073,6 +3117,10 @@ Public Class Main
ErrorDialog.Show() ErrorDialog.Show()
End Sub End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs)
ErrorDialog.ShowDialog()
End Sub
#End Region #End Region

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

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

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

@ -70,16 +70,6 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property add_background() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("add_background", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@ -188,16 +178,6 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property backgroud() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("backgroud", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@ -254,16 +234,6 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property crdSettings_Background() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("crdSettings_Background", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@ -304,26 +274,6 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property credits_background() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("credits_background", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property DialogNotFound_Background() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("DialogNotFound_Background", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@ -673,6 +623,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property main_add_invert_dark() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("main_add_invert_dark", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@ -703,6 +663,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property main_browser_invert_dark() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("main_browser_invert_dark", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@ -746,19 +716,9 @@ Namespace My.Resources
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
Friend ReadOnly Property main_credits_default() As System.Drawing.Bitmap Friend ReadOnly Property main_close_dark() As System.Drawing.Bitmap
Get Get
Dim obj As Object = ResourceManager.GetObject("main_credits_default", resourceCulture) Dim obj As Object = ResourceManager.GetObject("main_close_dark", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property main_credits_hover() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("main_credits_hover", resourceCulture)
Return CType(obj,System.Drawing.Bitmap) Return CType(obj,System.Drawing.Bitmap)
End Get End Get
End Property End Property
@ -833,6 +793,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property main_setting_invert_dark() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("main_setting_invert_dark", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>

33
Crunchyroll Downloader/My Project/Resources.resx
View File

@ -127,15 +127,9 @@
&lt;img alt="image error" src="</value> &lt;img alt="image error" src="</value>
</data> </data>
<data name="backgroud" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\backgroud.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="main_add" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="main_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\main-add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\main-add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="DialogNotFound_Background" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\DialogNotFound_Background.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Funimation_Split_2" xml:space="preserve"> <data name="Funimation_Split_2" xml:space="preserve">
<value>"&gt;</value> <value>"&gt;</value>
</data> </data>
@ -157,9 +151,6 @@
<data name="AoD_Titel" xml:space="preserve"> <data name="AoD_Titel" xml:space="preserve">
<value>"title":"</value> <value>"title":"</value>
</data> </data>
<data name="credits_background" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\credits-background.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Funimation_Subtitle_String2" xml:space="preserve"> <data name="Funimation_Subtitle_String2" xml:space="preserve">
<value>", "kind": "subtitle", "type": "Full", "language": "</value> <value>", "kind": "subtitle", "type": "Full", "language": "</value>
</data> </data>
@ -178,9 +169,6 @@
&lt;address&gt;Server at Crunchyroll Downloader Port 8080&lt;/address&gt; &lt;address&gt;Server at Crunchyroll Downloader Port 8080&lt;/address&gt;
&lt;/body&gt;&lt;/html&gt;</value> &lt;/body&gt;&lt;/html&gt;</value>
</data> </data>
<data name="crdSettings_Background" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\crdSettings_Background.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Funimation_Player_ID" xml:space="preserve"> <data name="Funimation_Player_ID" xml:space="preserve">
<value>src="/player/</value> <value>src="/player/</value>
</data> </data>
@ -374,9 +362,6 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
<data name="CC_String" xml:space="preserve"> <data name="CC_String" xml:space="preserve">
<value>&lt;img id="footer_country_flag" src="https://www.crunchyroll.com/i/country_flags/</value> <value>&lt;img id="footer_country_flag" src="https://www.crunchyroll.com/i/country_flags/</value>
</data> </data>
<data name="add_background" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\add-background.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="balken_console" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="balken_console" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\balken_console.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\balken_console.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -392,9 +377,6 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
<data name="main_button_download_default" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="main_button_download_default" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\main_button_download_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\main_button_download_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="main_credits_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\main_credits_hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="htmlvorHardSubs" xml:space="preserve"> <data name="htmlvorHardSubs" xml:space="preserve">
<value>"&gt; &lt;img alt="image error" src="cc1.png" class="class-cc"&gt;</value> <value>"&gt; &lt;img alt="image error" src="cc1.png" class="class-cc"&gt;</value>
</data> </data>
@ -502,9 +484,6 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
&lt;/style&gt; &lt;/style&gt;
&lt;body id="bodypage" class="main-bg" &gt;</value> &lt;body id="bodypage" class="main-bg" &gt;</value>
</data> </data>
<data name="main_credits_default" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\main_credits_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Main_top" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Main_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Main_top.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Main_top.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -532,4 +511,16 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
<data name="CR_MediaName2" xml:space="preserve"> <data name="CR_MediaName2" xml:space="preserve">
<value>”&lt;/h4&gt;</value> <value>”&lt;/h4&gt;</value>
</data> </data>
<data name="main_add_invert_dark" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\main-add_invert_dark.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="main_browser_invert_dark" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\main-browser_invert_dark.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="main_close_dark" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\main-close_dark.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="main_setting_invert_dark" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\main-setting_invert_dark.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root> </root>

BIN
Crunchyroll Downloader/Resources/DialogNotFound_Background.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 4.1 KiB

BIN
Crunchyroll Downloader/Resources/FirstStatup_background.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 5.0 KiB

BIN
Crunchyroll Downloader/Resources/about_icon.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 5.3 KiB

After

Width:  |  Height:  |  Size: 8.1 KiB

BIN
Crunchyroll Downloader/Resources/add-background.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 4.9 KiB

BIN
Crunchyroll Downloader/Resources/backgroud.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 1.4 KiB

BIN
Crunchyroll Downloader/Resources/balken.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 934 B

After

Width:  |  Height:  |  Size: 931 B

BIN
Crunchyroll Downloader/Resources/crdSettings_Background.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 4.8 KiB

BIN
Crunchyroll Downloader/Resources/credits-background-icon.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 9.4 KiB

BIN
Crunchyroll Downloader/Resources/credits-background.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 6.8 KiB

BIN
Crunchyroll Downloader/Resources/credits-background2.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 3.0 KiB

BIN
Crunchyroll Downloader/Resources/credits_close_default.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 3.1 KiB

BIN
Crunchyroll Downloader/Resources/credits_close_hover.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 3.0 KiB

BIN
Crunchyroll Downloader/Resources/download-cc.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 224 B

BIN
Crunchyroll Downloader/Resources/main-add_invert_dark.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 9.0 KiB

BIN
Crunchyroll Downloader/Resources/main-browser_invert_dark.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 11 KiB

BIN
Crunchyroll Downloader/Resources/main-close_dark.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.3 KiB

BIN
Crunchyroll Downloader/Resources/main-setting_invert_dark.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 7.7 KiB

BIN
Crunchyroll Downloader/Resources/main_credits_default.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 5.4 KiB

BIN
Crunchyroll Downloader/Resources/main_credits_hover.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 5.0 KiB

BIN
Crunchyroll Downloader/Resources/old/main-add.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 577 B

BIN
Crunchyroll Downloader/Resources/old/main-add_hover.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 591 B

BIN
Crunchyroll Downloader/Resources/old/main-browser.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 946 B

BIN
Crunchyroll Downloader/Resources/old/main-browser_hover.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 946 B

BIN
Crunchyroll Downloader/Resources/old/main-settings.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 820 B

BIN
Crunchyroll Downloader/Resources/old/main-settings_hover.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 775 B

4
Crunchyroll Downloader/Subfolder.vb
View File

@ -19,14 +19,14 @@
ElseIf SubFolder_Value = SubFolder_Nothing Then ElseIf SubFolder_Value = SubFolder_Nothing Then
newPath = Path newPath = Path + "\"
Else Else
newPath = Path + "\" + SubFolder_Value + "\" newPath = Path + "\" + SubFolder_Value + "\"
End If End If
Debug.WriteLine(newPath)
Return newPath.Replace("\\", "\") Return newPath.Replace("\\", "\")
End Function End Function

BIN
Crunchyroll Downloader/bin/x86/Debug/Crunchyroll Downloader.exe
View File

Binary file not shown.

BIN
Crunchyroll Downloader/bin/x86/Debug/Crunchyroll Downloader.pdb
View File

Binary file not shown.

47
Crunchyroll Downloader/bin/x86/Debug/Crunchyroll Downloader.xml
View File

@ -27,11 +27,6 @@ Crunchyroll Downloader
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary> </summary>
</member> </member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_background">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_mass_cancel"> <member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_mass_cancel">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@ -97,11 +92,6 @@ Video Position: 0
[Rest der Zeichenfolge wurde abgeschnitten]&quot;; ähnelt. [Rest der Zeichenfolge wurde abgeschnitten]&quot;; ähnelt.
</summary> </summary>
</member> </member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.backgroud">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.balken"> <member name="P:Crunchyroll_Downloader.My.Resources.Resources.balken">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@ -132,11 +122,6 @@ Video Position: 0
Sucht eine lokalisierte Zeichenfolge, die ”&lt;/h4&gt; ähnelt. Sucht eine lokalisierte Zeichenfolge, die ”&lt;/h4&gt; ähnelt.
</summary> </summary>
</member> </member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Background">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Button_SafeExit"> <member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Button_SafeExit">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@ -157,16 +142,6 @@ Video Position: 0
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary> </summary>
</member> </member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.credits_background">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Background">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Submit"> <member name="P:Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Submit">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@ -383,6 +358,11 @@ setInterval(function loadXMLDoc() {
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary> </summary>
</member> </member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_add_invert_dark">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_background"> <member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_background">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@ -398,6 +378,11 @@ setInterval(function loadXMLDoc() {
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary> </summary>
</member> </member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_browser_invert_dark">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_button_download_deactivate"> <member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_button_download_deactivate">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@ -418,12 +403,7 @@ setInterval(function loadXMLDoc() {
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary> </summary>
</member> </member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_credits_default"> <member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_close_dark">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_credits_hover">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary> </summary>
@ -463,6 +443,11 @@ setInterval(function loadXMLDoc() {
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary> </summary>
</member> </member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_setting_invert_dark">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_settings"> <member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_settings">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.

BIN
Crunchyroll Downloader/bin/x86/Debug/MetroFramework.dll
View File

Binary file not shown.

BIN
Crunchyroll Downloader/bin/x86/Debug/MetroFramework.pdb
View File

Binary file not shown.

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

File diff suppressed because it is too large Load Diff

8
Crunchyroll Downloader/einstellungen.resx
View File

@ -118,16 +118,16 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>183, 17</value> <value>19, 20</value>
</metadata> </metadata>
<metadata name="ToolTip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolTip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>397, 17</value> <value>233, 20</value>
</metadata> </metadata>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>282, 17</value> <value>118, 20</value>
</metadata> </metadata>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>282, 17</value> <value>118, 20</value>
</metadata> </metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>60</value> <value>60</value>

76
Crunchyroll Downloader/einstellungen.vb
View File

@ -10,11 +10,23 @@ Imports MetroFramework.Components
Public Class Einstellungen Public Class Einstellungen
Inherits MetroForm Inherits MetroForm
Dim Manager As MetroStyleManager = Main.Manager
Private Sub Einstellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Einstellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Label6.Text = "Version " + Application.ProductVersion.ToString Label6.Text = "Version " + Application.ProductVersion.ToString
Dim Manager As MetroStyleManager = Main.Manager
Manager.Owner = Me
Manager.Owner = Me
Me.StyleManager = Manager
If Main.DarkModeValue = True Then
DarkMode.Checked = True
GroupBoxColor(Color.FromArgb(150, 150, 150))
pictureBox1.Image = Main.CloseImg
Else
GroupBoxColor(Color.FromArgb(0, 0, 0))
DarkMode.Checked = False
End If
TabControl1.SelectedIndex = 0 TabControl1.SelectedIndex = 0
For i As Integer = 0 To Main.SoftSubs.Count - 1 For i As Integer = 0 To Main.SoftSubs.Count - 1
@ -523,12 +535,15 @@ Public Class Einstellungen
Me.Close() Me.Close()
End Sub End Sub
#Region "UI" #Region "UI"
Private Sub PictureBox1_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox1.MouseEnter
pictureBox1.BackColor = SystemColors.Control Private Sub Btn_Close_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox1.MouseEnter
Dim PB As PictureBox = sender
PB.Image = My.Resources.main_del
End Sub End Sub
Private Sub PictureBox1_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox1.MouseLeave Private Sub Btn_Close_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox1.MouseLeave
pictureBox1.BackColor = Color.Transparent Dim PB As PictureBox = sender
PB.Image = Main.CloseImg
End Sub End Sub
Private Sub PictureBox4_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox4.MouseEnter Private Sub PictureBox4_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox4.MouseEnter
@ -760,20 +775,63 @@ Public Class Einstellungen
End If End If
End Sub End Sub
Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click Private Sub Label7_Click(sender As Object, e As EventArgs)
Process.Start("https://bitbucket.org/geckofx/geckofx-60.0/src/default/") Process.Start("https://bitbucket.org/geckofx/geckofx-60.0/src/default/")
End Sub End Sub
Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click Private Sub Label3_Click(sender As Object, e As EventArgs)
Process.Start("https://www.ffmpeg.org/about.html") Process.Start("https://www.ffmpeg.org/about.html")
End Sub End Sub
Private Sub Label9_Click(sender As Object, e As EventArgs) Handles Label9.Click Private Sub Label9_Click(sender As Object, e As EventArgs)
Process.Start("https://github.com/hama3254/metroframework-modern-ui") Process.Start("https://github.com/hama3254/metroframework-modern-ui")
End Sub End Sub
Sub GroupBoxColor(ByVal color As Color)
SoftSubs.ForeColor = color
GB_SubLanguage.ForeColor = color
DL_Count_simultaneous.ForeColor = color
GB_Resolution.ForeColor = color
GroupBox1.ForeColor = color
GroupBox2.ForeColor = color
GroupBox3.ForeColor = color
GroupBox5.ForeColor = color
GroupBox6.ForeColor = color
GroupBox7.ForeColor = color
GroupBox8.ForeColor = color
GroupBox9.ForeColor = color
GroupBox10.ForeColor = color
GroupBox11.ForeColor = color
GroupBox12.ForeColor = color
End Sub
Private Sub GroupBox2_EnabledChanged(sender As Object, e As EventArgs) Handles GroupBox2.EnabledChanged
End Sub
Private Sub DarkMode_CheckedChanged(sender As Object, e As EventArgs) Handles DarkMode.CheckedChanged
Dim rk As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader")
If DarkMode.Checked = True Then
rk.SetValue("Dark_Mode", 1, RegistryValueKind.String)
Manager.Theme = MetroThemeStyle.Dark
GroupBoxColor(Color.FromArgb(150, 150, 150))
Main.DarkMode()
Main.DarkModeValue = True
pictureBox1.Image = Main.CloseImg
Else
Main.DarkModeValue = False
rk.SetValue("Dark_Mode", 0, RegistryValueKind.String)
Manager.Theme = MetroThemeStyle.Light
Main.LightMode()
GroupBoxColor(Color.FromArgb(0, 0, 0))
pictureBox1.Image = Main.CloseImg
End If
End Sub

BIN
Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.exe
View File

Binary file not shown.

BIN
Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.pdb
View File

Binary file not shown.

2
Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.vbproj.CoreCompileInputs.cache
View File

@ -1 +1 @@
237c9b2a5286ec54ed4b5347c70a9d9c9eff3d81 11dcefd4d648c4dece2d5b0632ae9f091b805be2

BIN
Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.vbproj.GenerateResource.cache
View File

Binary file not shown.

BIN
Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.vbprojAssemblyReference.cache
View File

Binary file not shown.

47
Crunchyroll Downloader/obj/x86/Debug/Crunchyroll Downloader.xml
View File

@ -27,11 +27,6 @@ Crunchyroll Downloader
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary> </summary>
</member> </member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_background">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_mass_cancel"> <member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_mass_cancel">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@ -97,11 +92,6 @@ Video Position: 0
[Rest der Zeichenfolge wurde abgeschnitten]&quot;; ähnelt. [Rest der Zeichenfolge wurde abgeschnitten]&quot;; ähnelt.
</summary> </summary>
</member> </member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.backgroud">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.balken"> <member name="P:Crunchyroll_Downloader.My.Resources.Resources.balken">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@ -132,11 +122,6 @@ Video Position: 0
Sucht eine lokalisierte Zeichenfolge, die ”&lt;/h4&gt; ähnelt. Sucht eine lokalisierte Zeichenfolge, die ”&lt;/h4&gt; ähnelt.
</summary> </summary>
</member> </member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Background">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Button_SafeExit"> <member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Button_SafeExit">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@ -157,16 +142,6 @@ Video Position: 0
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary> </summary>
</member> </member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.credits_background">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Background">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Submit"> <member name="P:Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Submit">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@ -383,6 +358,11 @@ setInterval(function loadXMLDoc() {
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary> </summary>
</member> </member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_add_invert_dark">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_background"> <member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_background">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@ -398,6 +378,11 @@ setInterval(function loadXMLDoc() {
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary> </summary>
</member> </member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_browser_invert_dark">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_button_download_deactivate"> <member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_button_download_deactivate">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@ -418,12 +403,7 @@ setInterval(function loadXMLDoc() {
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary> </summary>
</member> </member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_credits_default"> <member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_close_dark">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_credits_hover">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary> </summary>
@ -463,6 +443,11 @@ setInterval(function loadXMLDoc() {
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary> </summary>
</member> </member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_setting_invert_dark">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_settings"> <member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_settings">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.

BIN
Crunchyroll Downloader/obj/x86/Debug/Crunchyroll_Downloader.Resources.resources
View File

Binary file not shown.

BIN
Crunchyroll Downloader/obj/x86/Debug/DesignTimeResolveAssemblyReferences.cache
View File

Binary file not shown.

BIN
Crunchyroll Downloader/obj/x86/Debug/DesignTimeResolveAssemblyReferencesInput.cache
View File

Binary file not shown.

BIN
Crunchyroll Downloader/obj/x86/Debug/TempPE/My Project.Resources.Designer.vb.dll
View File

Binary file not shown.