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

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
Inherits System.Windows.Forms.Form
Inherits MetroFramework.Forms.MetroForm
'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)
Try
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.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.groupBox1 = New System.Windows.Forms.GroupBox()
Me.StatusLabel = New System.Windows.Forms.Label()
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
Me.TextBox4 = New System.Windows.Forms.TextBox()
Me.textBox1 = New System.Windows.Forms.TextBox()
Me.textBox2 = New System.Windows.Forms.TextBox()
Me.StatusLabel = New MetroFramework.Controls.MetroLabel()
Me.ComboBox2 = New MetroFramework.Controls.MetroComboBox()
Me.TextBox4 = New MetroFramework.Controls.MetroTextBox()
Me.textBox1 = New MetroFramework.Controls.MetroTextBox()
Me.textBox2 = New MetroFramework.Controls.MetroTextBox()
Me.pictureBox4 = New System.Windows.Forms.PictureBox()
Me.pictureBox3 = New System.Windows.Forms.PictureBox()
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.Add_Display = New System.Windows.Forms.Label()
Me.comboBox4 = New System.Windows.Forms.ComboBox()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.comboBox3 = New System.Windows.Forms.ComboBox()
Me.Add_Display = New MetroFramework.Controls.MetroLabel()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.ListBox1 = New System.Windows.Forms.ListBox()
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.textBox1)
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.Size = New System.Drawing.Size(620, 162)
Me.groupBox1.TabIndex = 33
@ -69,7 +70,8 @@ Partial Class Anime_Add
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
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.Location = New System.Drawing.Point(18, 127)
Me.StatusLabel.Name = "StatusLabel"
@ -81,66 +83,132 @@ Partial Class Anime_Add
'ComboBox2
'
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.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.ItemHeight = 23
Me.ComboBox2.Location = New System.Drawing.Point(18, 98)
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.TabIndex = 37
Me.ComboBox2.UseSelectable = True
'
'TextBox4
'
Me.TextBox4.BackColor = System.Drawing.Color.White
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.Lines = New String() {"Main Directory"}
Me.TextBox4.Location = New System.Drawing.Point(18, 70)
Me.TextBox4.MaxLength = 32767
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
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.TabIndex = 36
Me.TextBox4.TabStop = False
Me.TextBox4.Text = "Main Directory"
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
'
Me.textBox1.BackColor = System.Drawing.Color.White
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.Lines = New String() {"URL"}
Me.textBox1.Location = New System.Drawing.Point(18, 14)
Me.textBox1.MaxLength = 32767
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.TabIndex = 4
Me.textBox1.TabStop = False
Me.textBox1.Text = "URL"
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
'
Me.textBox2.BackColor = System.Drawing.Color.White
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.Lines = New String() {"Name of the Anime"}
Me.textBox2.Location = New System.Drawing.Point(18, 42)
Me.textBox2.MaxLength = 32767
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.TabIndex = 5
Me.textBox2.TabStop = False
Me.textBox2.Text = "Name of the Anime"
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
'
Me.pictureBox4.BackColor = System.Drawing.Color.Transparent
Me.pictureBox4.Cursor = System.Windows.Forms.Cursors.Hand
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.Size = New System.Drawing.Size(537, 50)
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.Cursor = System.Windows.Forms.Cursors.Hand
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.Size = New System.Drawing.Size(50, 40)
Me.pictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
@ -162,18 +230,51 @@ Partial Class Anime_Add
'groupBox2
'
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.ComboBox1)
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.Size = New System.Drawing.Size(620, 162)
Me.groupBox2.TabIndex = 44
Me.groupBox2.TabStop = 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
'
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.Right), System.Windows.Forms.AnchorStyles)
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.Location = New System.Drawing.Point(20, 114)
Me.Add_Display.Name = "Add_Display"
@ -201,44 +303,11 @@ Partial Class Anime_Add
Me.Add_Display.Text = "..."
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
'
Me.GroupBox3.BackColor = System.Drawing.Color.Transparent
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.Size = New System.Drawing.Size(620, 162)
Me.GroupBox3.TabIndex = 46
@ -267,20 +336,20 @@ Partial Class Anime_Add
'
'Anime_Add
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.add_background
Me.ClientSize = New System.Drawing.Size(630, 275)
Me.ApplyImageInvert = True
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.BorderStyle = MetroFramework.Forms.MetroFormBorderStyle.FixedSingle
Me.ClientSize = New System.Drawing.Size(630, 300)
Me.Controls.Add(Me.pictureBox3)
Me.Controls.Add(Me.pictureBox4)
Me.Controls.Add(Me.groupBox2)
Me.Controls.Add(Me.groupBox1)
Me.Controls.Add(Me.GroupBox3)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
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.PerformLayout()
CType(Me.pictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
Me.groupBox2.ResumeLayout(False)
@ -290,16 +359,7 @@ Partial Class Anime_Add
Me.PerformLayout()
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
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 groupBox2 As GroupBox
Public WithEvents PictureBox1 As PictureBox
@ -308,4 +368,14 @@ Partial Class Anime_Add
Friend WithEvents Timer1 As Timer
Private WithEvents Timer2 As Timer
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

104
Crunchyroll Downloader/Anime_Add.vb
View File

@ -3,6 +3,9 @@ Imports System.Net
Imports Gecko
Imports System.IO
Imports System.Threading
Imports MetroFramework.Forms
Imports MetroFramework
Imports MetroFramework.Components
Public Class Anime_Add
Public Mass_DL_Cancel As Boolean = False
@ -36,9 +39,15 @@ Public Class Anime_Add
ComboBox2.Text = SubFolder_Nothing
End Try
End Sub
Dim Manager As MetroStyleManager = Main.Manager
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
Me.Icon = My.Resources.icon
Catch ex As Exception
@ -171,54 +180,19 @@ Public Class Anime_Add
End If
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
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
Private Sub Btn_Close_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox3.MouseLeave
Dim PB As PictureBox = sender
PB.Image = Main.CloseImg
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
Main.ListBoxList.Clear()
@ -349,11 +323,12 @@ Public Class Anime_Add
Dim OmUStreamSplitEpisodeIndex() As String = OmUStreamSplit(0).Split(New String() {"/videomaterialurl/"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim OmUStreamSplitEpisodeIndex2() As String = OmUStreamSplitEpisodeIndex(1).Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim m3u8Strings As String = Nothing
'I/nsHttp Cookie:
Try
'I/nsHttp Cookie:
Try
Using client As New WebClient()
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-Encoding: gzip, deflate, br")
client.Headers.Add("X-Requested-With: XMLHttpRequest")
@ -386,7 +361,7 @@ Public Class Anime_Add
Try
Using client As New WebClient()
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-Encoding: gzip, deflate, br")
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
Dim CB As ComboBox = sender
CB.BackColor = Color.White
If e.Index >= 0 Then
Using st As New StringFormat With {.Alignment = StringAlignment.Center}
' e.DrawBackground()
' e.DrawFocusRectangle()
e.Graphics.FillRectangle(SystemBrushes.ControlLightLight, e.Bounds)
e.Graphics.DrawString(CB.Items(e.Index).ToString, e.Font, Brushes.Black, e.Bounds, st)
'Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboBox1.DrawItem, ComboBox2.DrawItem, comboBox3.DrawItem, comboBox4.DrawItem
' Dim CB As ComboBox = sender
' 'CB.BackColor = Color.DarkGray
' If Main.DarkModeValue = True Then
' If e.Index >= 0 Then
' Using st As New StringFormat With {.Alignment = StringAlignment.Center}
' ' e.DrawBackground()
' ' e.DrawFocusRectangle()
' 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 If
End Sub
' End Using
' End If
' 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
If Mass_DL_Cancel = True Then
@ -1158,7 +1146,7 @@ Public Class Anime_Add
End If
Dim L1Name As String = "anime-on-demand.de" 'L1Name_Split(1).Replace("www.", "") + " | Dub : " + FunimationDub
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 + "-->")
Return Nothing

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

@ -1,7 +1,7 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
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.
<System.Diagnostics.DebuggerNonUserCode()>
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.bt_pause = New System.Windows.Forms.PictureBox()
Me.bt_del = New System.Windows.Forms.PictureBox()
Me.Label_Anime = New System.Windows.Forms.Label()
Me.Label_website = New System.Windows.Forms.Label()
Me.Label_Reso = New System.Windows.Forms.Label()
Me.Label_Hardsub = New System.Windows.Forms.Label()
Me.Label_percent = New System.Windows.Forms.Label()
Me.Label_Anime = New MetroFramework.Controls.MetroLabel()
Me.Label_website = New MetroFramework.Controls.MetroLabel()
Me.Label_Reso = New MetroFramework.Controls.MetroLabel()
Me.Label_Hardsub = New MetroFramework.Controls.MetroLabel()
Me.Label_percent = New MetroFramework.Controls.MetroLabel()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.Timer2 = New System.Windows.Forms.Timer(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.ProgressBar1 = New MetroFramework.Controls.MetroProgressBar()
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.bt_pause, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bt_del, System.ComponentModel.ISupportInitialize).BeginInit()
@ -82,50 +81,60 @@ Partial Class CRD_List_Item
'Label_Anime
'
Me.Label_Anime.AutoSize = True
Me.Label_Anime.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Bold)
Me.Label_Anime.Location = New System.Drawing.Point(195, 42)
Me.Label_Anime.BackColor = System.Drawing.Color.Transparent
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.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.Text = "Anime Titel, Season, Episode "
'
'Label_website
'
Me.Label_website.AutoSize = True
Me.Label_website.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Bold)
Me.Label_website.Location = New System.Drawing.Point(195, 15)
Me.Label_website.BackColor = System.Drawing.Color.Transparent
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.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.Text = "website"
'
'Label_Reso
'
Me.Label_Reso.AutoSize = True
Me.Label_Reso.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Bold)
Me.Label_Reso.Location = New System.Drawing.Point(195, 101)
Me.Label_Reso.BackColor = System.Drawing.Color.Transparent
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.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.Text = "1080p"
'
'Label_Hardsub
'
Me.Label_Hardsub.AutoSize = True
Me.Label_Hardsub.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Bold)
Me.Label_Hardsub.Location = New System.Drawing.Point(260, 101)
Me.Label_Hardsub.BackColor = System.Drawing.Color.Transparent
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.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.Text = "Hardsub Label"
'
'Label_percent
'
Me.Label_percent.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label_percent.Font = New System.Drawing.Font("Consolas", 12.0!)
Me.Label_percent.Location = New System.Drawing.Point(432, 101)
Me.Label_percent.BackColor = System.Drawing.Color.Transparent
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.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.Text = "Status Label : speed, size and percent"
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.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.Transparent
Me.Controls.Add(Me.PictureBox5)
Me.Controls.Add(Me.ProgressBar1)
Me.Controls.Add(Me.Label_percent)
@ -205,11 +215,6 @@ Partial Class CRD_List_Item
Friend WithEvents PB_Thumbnail As PictureBox
Friend WithEvents bt_pause 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 Timer2 As Timer
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
@ -218,5 +223,9 @@ Partial Class CRD_List_Item
Friend WithEvents ProgressBar1 As MetroFramework.Controls.MetroProgressBar
Friend WithEvents PictureBox5 As PictureBox
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

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">
<value>364, 15</value>
</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>

235
Crunchyroll Downloader/CRD_List_Item.vb
View File

@ -4,8 +4,16 @@ Imports System.IO
Imports System.Threading
Imports Microsoft.Win32
Imports System.ComponentModel
Imports MetroFramework
Imports MetroFramework.Components
Imports MetroFramework.Forms
Public Class CRD_List_Item
Inherits Controls.MetroUserControl
Dim ZeitGesamtInteger As Integer = 0
Dim ListOfStreams As New List(Of String)
Dim proc As Process
@ -33,6 +41,7 @@ Public Class CRD_List_Item
Dim HybridRunning As Boolean = False
Dim TargetReso As Integer = 1080
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
End Sub
Public Sub SetTheme(ByVal Theme As MetroThemeStyle)
MetroStyleManager1.Theme = Theme
End Sub
Public Sub SetTolerance(ByVal value As Integer)
Item_ErrorTolerance = value
End Sub
@ -130,6 +144,9 @@ Public Class CRD_List_Item
Public Sub SetTargetReso(ByVal Value As Integer)
TargetReso = Value
End Sub
Public Sub SetService(ByVal Value As String)
Service = Value
End Sub
#End Region
Public Sub KillRunningTask()
If HybridRunning = True Then
@ -295,26 +312,27 @@ Public Class CRD_List_Item
End Sub
Private Sub Item_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.ContextMenuStrip = ContextMenuStrip1 '.ContextMenu
Dim locationY As Integer = 0
bt_del.SetBounds(775, locationY + 10, 35, 29)
bt_pause.SetBounds(740, locationY + 15, 25, 20)
PB_Thumbnail.SetBounds(11, 20, 168, 95)
PB_Thumbnail.BringToFront()
Label_website.Location = New Point(195, locationY + 15)
Label_Anime.Location = New Point(195, locationY + 42)
Label_Reso.Location = New Point(195, locationY + 101)
Label_Hardsub.Location = New Point(260, locationY + 101)
Label_percent.SetBounds(432, locationY + 101, 378, 19)
Label_percent.AutoSize = False
ProgressBar1.SetBounds(195, locationY + 70, 601, 20)
PictureBox5.Location = New Point(0, 136)
PictureBox5.Height = 6
'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, 15)
'Label_Anime.Location = New Point(195, 37)
'Label_Reso.Location = New Point(195, 97)
'Label_Hardsub.Location = New Point(265, 97)
'Label_percent.SetBounds(432, 97, 378, 27)
'Label_percent.AutoSize = False
'ProgressBar1.SetBounds(195, 70, 601, 20)
'PictureBox5.Location = New Point(0, 136)
'PictureBox5.Height = 6
'MetroStyleManager1.Theme = Main.Manager.Theme
End Sub
Public Function GetTextBound()
Return Label_website.Location.Y
'Return Label_website.Location.Y
Return bt_del.Size.Height
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)
'MsgBox(DL_URL)
Me.StyleManager = MetroStyleManager1
DownloadPfad = DL_Pfad
HistoryDL_URL = DL_URL
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
'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 + "\"
If Not Directory.Exists(Path.GetDirectoryName(Pfad2)) Then
' Nein! Jetzt erstellen...
@ -433,40 +454,40 @@ Public Class CRD_List_Item
End Function))
For i As Integer = 1 To MergeSub.Count - 1
Dim SubsURL As String() = MergeSub(i).Split(New [Char]() {Chr(34)})
Dim SubsClient As New WebClient
SubsClient.Encoding = Encoding.UTF8
If Main.WebbrowserCookie = Nothing Then
Else
SubsClient.Headers.Add(HttpRequestHeader.Cookie, Main.WebbrowserCookie)
End If
Dim SubsFile As String = einstellungen.GeräteID() + ".txt"
Dim SubsURL As String() = MergeSub(i).Split(New [Char]() {Chr(34)})
Dim SubsClient As New WebClient
SubsClient.Encoding = Encoding.UTF8
If Main.WebbrowserCookie = Nothing Then
Else
SubsClient.Headers.Add(HttpRequestHeader.Cookie, Main.WebbrowserCookie)
End If
Dim SubsFile As String = Einstellungen.GeräteID() + ".txt"
Dim retry As Boolean = True
Dim retryCount As Integer = 3
While retry
Try
SubsClient.DownloadFile(SubsURL(0), Pfad2 + "\" + SubsFile)
Dim retry As Boolean = True
Dim retryCount As Integer = 3
While retry
Try
SubsClient.DownloadFile(SubsURL(0), Pfad2 + "\" + SubsFile)
retry = False
Catch ex As Exception
If retryCount > 0 Then
retryCount = retryCount - 1
Me.Invoke(New Action(Function()
Label_percent.Text = "Error Downloading Subtitles - retrying"
Return Nothing
End Function))
Else
Dim utf8WithoutBom2 As New System.Text.UTF8Encoding(False)
Using sink As New StreamWriter(SubsFile, False, utf8WithoutBom2)
sink.WriteLine(My.Resources.ass_template)
End Using
retry = False
Catch ex As Exception
If retryCount > 0 Then
retryCount = retryCount - 1
Me.Invoke(New Action(Function()
Label_percent.Text = "Error Downloading Subtitles - retrying"
Return Nothing
End Function))
Else
Dim utf8WithoutBom2 As New System.Text.UTF8Encoding(False)
Using sink As New StreamWriter(SubsFile, False, utf8WithoutBom2)
sink.WriteLine(My.Resources.ass_template)
End Using
retry = False
End If
End Try
End While
DL_URL = DL_URL.Replace(SubsURL(0), Pfad2 + "\" + SubsFile)
Next
End If
End Try
End While
DL_URL = DL_URL.Replace(SubsURL(0), Pfad2 + "\" + SubsFile)
Next
End If
Dim m3u8_url As String() = DL_URL.Split(New [Char]() {Chr(34)})
@ -485,28 +506,28 @@ Public Class CRD_List_Item
End If
For i As Integer = 0 To new_m3u8_2.Count - 1
'MsgBox("x" + Main.Resu.ToString)
If CBool(InStr(new_m3u8_2(i), "x" + TargetReso.ToString)) = True Then
m3u8_url_1 = new_m3u8_2(i + 1)
Exit For
End If
Next
If InStr(m3u8_url_1, "https://") Then
text = client0.DownloadString(m3u8_url_1)
Else
Dim c() As String = New Uri(m3u8_url_3).Segments
Dim path As String = "https://" + New Uri(m3u8_url_3).Host
For i3 As Integer = 0 To c.Count - 2
path = path + c(i3)
Next
m3u8_url_3 = path + m3u8_url_1
'MsgBox(m3u8_url_1)
text = client0.DownloadString(m3u8_url_3)
'MsgBox("x" + Main.Resu.ToString)
If CBool(InStr(new_m3u8_2(i), "x" + TargetReso.ToString)) = True Then
m3u8_url_1 = new_m3u8_2(i + 1)
Exit For
End If
Next
If InStr(m3u8_url_1, "https://") Then
text = client0.DownloadString(m3u8_url_1)
Else
Dim c() As String = New Uri(m3u8_url_3).Segments
Dim path As String = "https://" + New Uri(m3u8_url_3).Host
For i3 As Integer = 0 To c.Count - 2
path = path + c(i3)
Next
m3u8_url_3 = path + m3u8_url_1
'MsgBox(m3u8_url_1)
text = client0.DownloadString(m3u8_url_3)
End If
End If
Dim LoadedKeys As New List(Of String)
LoadedKeys.Add("Nothing")
Dim KeyFileCache As String = Nothing
@ -612,7 +633,7 @@ Public Class CRD_List_Item
Else
KeyClient.Headers.Add(HttpRequestHeader.Cookie, Main.WebbrowserCookie)
End If
Dim KeyFile3 As String = einstellungen.GeräteID() + ".key"
Dim KeyFile3 As String = Einstellungen.GeräteID() + ".key"
KeyFileCache = KeyFile3
Dim retry As Boolean = True
@ -620,7 +641,7 @@ Public Class CRD_List_Item
Try
KeyClient.DownloadFile(KeyFile2(0), Application.StartupPath + "\" + KeyFile3)
Retry = False
retry = False
Catch ex As Exception
If retryCount > 0 Then
retryCount = retryCount - 1
@ -634,8 +655,8 @@ Public Class CRD_List_Item
Label_percent.Text = "Access Error - download canceled"
Return Nothing
End Function))
Return Nothing
Exit Function
Return Nothing
Exit Function
'Dim utf8WithoutBom2 As New System.Text.UTF8Encoding(False)
'Using sink As New StreamWriter(SubsFile, False, utf8WithoutBom2)
' sink.WriteLine(My.Resources.ass_template)
@ -678,7 +699,7 @@ Public Class CRD_List_Item
Else
KeyClient.Headers.Add(HttpRequestHeader.Cookie, Main.WebbrowserCookie)
End If
Dim KeyFile3 As String = einstellungen.GeräteID() + ".key"
Dim KeyFile3 As String = Einstellungen.GeräteID() + ".key"
KeyFileCache = KeyFile3
Dim retry As Boolean = True
@ -686,7 +707,7 @@ Public Class CRD_List_Item
Try
KeyClient.DownloadFile(KeyFile2(0), Application.StartupPath + "\" + KeyFile3)
Retry = False
retry = False
Catch ex As Exception
If retryCount > 0 Then
retryCount = retryCount - 1
@ -739,6 +760,10 @@ Public Class CRD_List_Item
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)
sink3.WriteLine(HybrideLog)
End Using
@ -766,8 +791,8 @@ Public Class CRD_List_Item
startinfo.CreateNoWindow = True
proc = New Process
proc.EnableRaisingEvents = True
AddHandler proc.ErrorDataReceived, AddressOf ffmpegOutput
AddHandler proc.OutputDataReceived, AddressOf ffmpegOutput
AddHandler proc.ErrorDataReceived, AddressOf FFMPEGOutput
AddHandler proc.OutputDataReceived, AddressOf FFMPEGOutput
AddHandler proc.Exited, AddressOf ProcessClosed
proc.StartInfo = startinfo
proc.Start() ' start the process
@ -804,8 +829,8 @@ Public Class CRD_List_Item
startinfo.CreateNoWindow = True
proc = New Process
proc.EnableRaisingEvents = True
AddHandler proc.ErrorDataReceived, AddressOf ffmpegOutput
AddHandler proc.OutputDataReceived, AddressOf ffmpegOutput
AddHandler proc.ErrorDataReceived, AddressOf FFMPEGOutput
AddHandler proc.OutputDataReceived, AddressOf FFMPEGOutput
AddHandler proc.Exited, AddressOf ProcessClosed
proc.StartInfo = startinfo
proc.Start() ' start the process
@ -984,7 +1009,7 @@ Public Class CRD_List_Item
'MsgBox(BaseURL + SiteList(i) + vbNewLine + Pfad_DL + "\" + SiteList(i))
Dim iWert As Integer = i
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))
Pause(1)
End Using
@ -1094,41 +1119,47 @@ Public Class CRD_List_Item
End Sub
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
bt_del.Location = New Point(Me.Width - 63, 10)
bt_pause.Location = New Point(Me.Width - 98, 15)
ProgressBar1.Width = Me.Width - 223
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
End Sub
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">
<HintPath>..\packages\Geckofx60.32.60.0.50\lib\net45\Geckofx-Winforms.dll</HintPath>
</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>
<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 Include="System" />
<Reference Include="System.Data" />
@ -251,6 +251,10 @@
<Content Include="Firefox\softokn3.dll" />
<Content Include="Firefox\xul.dll" />
<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="Resources\main-setting_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.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.ComboBox1 = New MetroFramework.Controls.MetroComboBox()
Me.pictureBox3 = New System.Windows.Forms.PictureBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
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()
Me.GroupBox3.SuspendLayout()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
@ -34,17 +34,16 @@ Partial Class ErrorDialog
'
'ComboBox1
'
Me.ComboBox1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
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.FormattingEnabled = True
Me.ComboBox1.IntegralHeight = False
Me.ComboBox1.ItemHeight = 16
Me.ComboBox1.ItemHeight = 23
Me.ComboBox1.Location = New System.Drawing.Point(34, 82)
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.UseSelectable = True
'
'pictureBox3
'
@ -88,7 +87,8 @@ Partial Class ErrorDialog
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
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.Location = New System.Drawing.Point(6, 16)
Me.StatusLabel.Name = "StatusLabel"
@ -101,7 +101,7 @@ Partial Class ErrorDialog
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
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.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.pictureBox3)
@ -114,10 +114,9 @@ Partial Class ErrorDialog
Me.PerformLayout()
End Sub
Friend WithEvents ComboBox1 As ComboBox
Private WithEvents pictureBox3 As PictureBox
Private WithEvents GroupBox3 As GroupBox
Public WithEvents StatusLabel As Label
Private WithEvents PictureBox9 As PictureBox
Friend WithEvents ComboBox1 As MetroFramework.Controls.MetroComboBox
Public WithEvents StatusLabel As MetroFramework.Controls.MetroLabel
End Class

57
Crunchyroll Downloader/ErrorDialog.vb
View File

@ -1,47 +1,15 @@
Public Class ErrorDialog
#Region " Move Form "
Imports MetroFramework.Components
' [ Move Form ]
'
' // By Elektro
Public Class ErrorDialog
Public MoveForm As Boolean
Public MoveForm_MousePosition As Point
Dim Manager As MetroStyleManager = Main.Manager
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
' Me.StyleManager = Main.StyleManager
'ButtonResoNotFound.Text = Main.ButtonResoNotFoundText
Manager.Owner = Me
Me.StyleManager = Manager
pictureBox3.Image = Main.CloseImg
Try
Me.Icon = My.Resources.icon
Catch ex As Exception
@ -168,12 +136,15 @@
Me.Close()
End Sub
Private Sub PictureBox3_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox3.MouseEnter
pictureBox3.BackColor = SystemColors.Control
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
Private Sub PictureBox3_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox3.MouseLeave
pictureBox3.BackColor = Color.Transparent
Private Sub Btn_Close_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox3.MouseLeave
Dim PB As PictureBox = sender
PB.Image = Main.CloseImg
End Sub
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.MetroStyleExtender1 = New MetroFramework.Components.MetroStyleExtender(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_Close, 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.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Btn_add
@ -126,6 +124,7 @@ Partial Class Main
'
'PictureBox5
'
Me.PictureBox5.BackColor = System.Drawing.Color.Transparent
Me.PictureBox5.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.balken
Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.PictureBox5.Location = New System.Drawing.Point(1, 65)
@ -163,6 +162,7 @@ Partial Class Main
'
'PictureBox6
'
Me.PictureBox6.BackColor = System.Drawing.Color.Transparent
Me.PictureBox6.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.balken
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand
@ -178,24 +178,12 @@ Partial Class Main
Me.MetroStyleManager1.Owner = Me
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
'
Me.ApplyImageInvert = True
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.BorderStyle = MetroFramework.Forms.MetroFormBorderStyle.FixedSingle
Me.ClientSize = New System.Drawing.Size(842, 630)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.TheTextBox)
Me.Controls.Add(Me.PictureBox6)
Me.Controls.Add(Me.PictureBox5)
@ -222,7 +210,6 @@ Partial Class Main
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -241,6 +228,5 @@ Partial Class Main
Friend WithEvents TheTextBox As RichTextBox
Friend WithEvents PictureBox6 As PictureBox
Friend WithEvents MetroStyleExtender1 As MetroFramework.Components.MetroStyleExtender
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents MetroStyleManager1 As MetroFramework.Components.MetroStyleManager
End Class

74
Crunchyroll Downloader/Main.vb
View File

@ -15,7 +15,7 @@ Public Class Main
Public Manager As New MetroStyleManager
Public DarkModeValue As Boolean = False
@ -139,13 +139,29 @@ Public Class Main
Me.Invalidate()
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
Private Sub Btn_add_MouseEnter(sender As Object, e As EventArgs) Handles Btn_add.MouseEnter
Dim PB As PictureBox = sender
PB.Image = My.Resources.main_add_invert
If Manager.Theme = MetroThemeStyle.Dark Then
PB.Image = My.Resources.main_add_invert_dark
Else
PB.Image = My.Resources.main_add_invert
End If
End Sub
Private Sub Btn_add_MouseLeave(sender As Object, e As EventArgs) Handles Btn_add.MouseLeave
@ -154,7 +170,12 @@ Public Class Main
End Sub
Private Sub Btn_Browser_MouseEnter(sender As Object, e As EventArgs) Handles Btn_Browser.MouseEnter
Dim PB As PictureBox = sender
PB.Image = My.Resources.main_browser_invert
If Manager.Theme = MetroThemeStyle.Dark Then
PB.Image = My.Resources.main_browser_invert_dark
Else
PB.Image = My.Resources.main_browser_invert
End If
End Sub
Private Sub Btn_Browser_MouseLeave(sender As Object, e As EventArgs) Handles Btn_Browser.MouseLeave
@ -163,7 +184,12 @@ Public Class Main
End Sub
Private Sub Btn_Settings_MouseEnter(sender As Object, e As EventArgs) Handles Btn_Settings.MouseEnter
Dim PB As PictureBox = sender
PB.Image = My.Resources.main_setting_invert
If Manager.Theme = MetroThemeStyle.Dark Then
PB.Image = My.Resources.main_setting_invert_dark
Else
PB.Image = My.Resources.main_setting_invert
End If
End Sub
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
Dim PB As PictureBox = sender
PB.Image = My.Resources.main_close
PB.Image = CloseImg
End Sub
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
PictureBox5.Width = Me.Width - 40
PictureBox1.Width = Me.Width - 2
PictureBox6.Location = New Point(1, Me.Height - ListViewHeightOffset)
PictureBox6.Width = Me.Width - 40
@ -244,6 +270,10 @@ Public Class Main
#End Region
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
Dim tbtl As TextBoxTraceListener = New TextBoxTraceListener(TheTextBox)
@ -257,9 +287,22 @@ Public Class Main
' FirstStartup.ShowDialog()
'End Try
'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.Theme = MetroThemeStyle.Light
If DarkModeValue = True Then
Manager.Theme = MetroThemeStyle.Dark
DarkMode()
Else
Manager.Theme = MetroThemeStyle.Light
LightMode()
End If
Me.StyleManager = Manager
Manager.Owner = Me
@ -488,7 +531,7 @@ Public Class Main
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
Try
Dim wc As New WebClient()
@ -501,11 +544,11 @@ Public Class Main
End Try
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 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
Item.Visible = False
@ -526,6 +569,7 @@ Public Class Main
r = ListView1.Items(c).Bounds()
r.Width = 838
r.Height = 142
Item.SetService(Service)
Item.SetTolerance(ErrorTolerance)
Item.SetTargetReso(Reso)
Item.SetLabelWebsite(NameP1)
@ -549,7 +593,7 @@ Public Class Main
Dim Thumbnail As Image = My.Resources.main_del
Try
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 ms As New MemoryStream(bytes)
Thumbnail = System.Drawing.Image.FromStream(ms)
@ -2044,7 +2088,7 @@ Public Class Main
Try
Dim ItemDownloadingCount As Integer = 0
For i As Integer = 0 To ListView1.Items.Count - 1
ItemList(i).SetTheme(Manager.Theme)
If ItemList(i).GetIsStatusFinished() = False Then
ItemDownloadingCount = ItemDownloadingCount + 1
End If
@ -2624,7 +2668,7 @@ Public Class Main
Dim L1Name_Split As String() = WebbrowserURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim L1Name As String = L1Name_Split(1).Replace("www.", "") + " | Dub : " + FunimationDub
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
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 + "-->")
@ -3073,6 +3117,10 @@ Public Class Main
ErrorDialog.Show()
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs)
ErrorDialog.ShowDialog()
End Sub
#End Region

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

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

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

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

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

@ -127,15 +127,9 @@
&lt;img alt="image error" src="</value>
</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">
<value>..\Resources\main-add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</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">
<value>"&gt;</value>
</data>
@ -157,9 +151,6 @@
<data name="AoD_Titel" xml:space="preserve">
<value>"title":"</value>
</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">
<value>", "kind": "subtitle", "type": "Full", "language": "</value>
</data>
@ -178,9 +169,6 @@
&lt;address&gt;Server at Crunchyroll Downloader Port 8080&lt;/address&gt;
&lt;/body&gt;&lt;/html&gt;</value>
</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">
<value>src="/player/</value>
</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">
<value>&lt;img id="footer_country_flag" src="https://www.crunchyroll.com/i/country_flags/</value>
</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">
<value>..\Resources\balken_console.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</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">
<value>..\Resources\main_button_download_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</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">
<value>"&gt; &lt;img alt="image error" src="cc1.png" class="class-cc"&gt;</value>
</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;body id="bodypage" class="main-bg" &gt;</value>
</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">
<value>..\Resources\Main_top.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</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">
<value>”&lt;/h4&gt;</value>
</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>

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
newPath = Path
newPath = Path + "\"
Else
newPath = Path + "\" + SubFolder_Value + "\"
End If
Debug.WriteLine(newPath)
Return newPath.Replace("\\", "\")
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.
</summary>
</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">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@ -97,11 +92,6 @@ Video Position: 0
[Rest der Zeichenfolge wurde abgeschnitten]&quot;; ähnelt.
</summary>
</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">
<summary>
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.
</summary>
</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">
<summary>
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.
</summary>
</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">
<summary>
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.
</summary>
</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">
<summary>
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.
</summary>
</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">
<summary>
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.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_credits_default">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_credits_hover">
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_close_dark">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
@ -463,6 +443,11 @@ setInterval(function loadXMLDoc() {
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</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">
<summary>
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>
</resheader>
<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 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 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 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 name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>60</value>

76
Crunchyroll Downloader/einstellungen.vb
View File

@ -10,11 +10,23 @@ Imports MetroFramework.Components
Public Class Einstellungen
Inherits MetroForm
Dim Manager As MetroStyleManager = Main.Manager
Private Sub Einstellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Label6.Text = "Version " + Application.ProductVersion.ToString
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
For i As Integer = 0 To Main.SoftSubs.Count - 1
@ -523,12 +535,15 @@ Public Class Einstellungen
Me.Close()
End Sub
#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
Private Sub PictureBox1_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox1.MouseLeave
pictureBox1.BackColor = Color.Transparent
Private Sub Btn_Close_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox1.MouseLeave
Dim PB As PictureBox = sender
PB.Image = Main.CloseImg
End Sub
Private Sub PictureBox4_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox4.MouseEnter
@ -760,20 +775,63 @@ Public Class Einstellungen
End If
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/")
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")
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")
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.
</summary>
</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">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
@ -97,11 +92,6 @@ Video Position: 0
[Rest der Zeichenfolge wurde abgeschnitten]&quot;; ähnelt.
</summary>
</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">
<summary>
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.
</summary>
</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">
<summary>
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.
</summary>
</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">
<summary>
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.
</summary>
</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">
<summary>
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.
</summary>
</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">
<summary>
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.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_credits_default">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_credits_hover">
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_close_dark">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
@ -463,6 +443,11 @@ setInterval(function loadXMLDoc() {
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</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">
<summary>
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.