Desing and Background changes
-small desing changes -UI backend rewritten with custom controll
@ -27,6 +27,18 @@ Global
|
||||
{9B604819-2DB7-4BE1-BA43-43BABEBB5EC3}.Release|x64.Build.0 = Release|x64
|
||||
{9B604819-2DB7-4BE1-BA43-43BABEBB5EC3}.Release|x86.ActiveCfg = Release|x86
|
||||
{9B604819-2DB7-4BE1-BA43-43BABEBB5EC3}.Release|x86.Build.0 = Release|x86
|
||||
{AB9551A3-12BC-4116-9DE1-2C8335556D0A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{AB9551A3-12BC-4116-9DE1-2C8335556D0A}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{AB9551A3-12BC-4116-9DE1-2C8335556D0A}.Debug|x64.ActiveCfg = Debug|Any CPU
|
||||
{AB9551A3-12BC-4116-9DE1-2C8335556D0A}.Debug|x64.Build.0 = Debug|Any CPU
|
||||
{AB9551A3-12BC-4116-9DE1-2C8335556D0A}.Debug|x86.ActiveCfg = Debug|Any CPU
|
||||
{AB9551A3-12BC-4116-9DE1-2C8335556D0A}.Debug|x86.Build.0 = Debug|Any CPU
|
||||
{AB9551A3-12BC-4116-9DE1-2C8335556D0A}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{AB9551A3-12BC-4116-9DE1-2C8335556D0A}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{AB9551A3-12BC-4116-9DE1-2C8335556D0A}.Release|x64.ActiveCfg = Release|Any CPU
|
||||
{AB9551A3-12BC-4116-9DE1-2C8335556D0A}.Release|x64.Build.0 = Release|Any CPU
|
||||
{AB9551A3-12BC-4116-9DE1-2C8335556D0A}.Release|x86.ActiveCfg = Release|Any CPU
|
||||
{AB9551A3-12BC-4116-9DE1-2C8335556D0A}.Release|x86.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
|
@ -191,7 +191,6 @@ Public Class Anime_Add
|
||||
|
||||
Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles pictureBox4.Click
|
||||
'pictureBox4.Enabled = False
|
||||
Main.RemoveFinishedTask()
|
||||
Main.LoginOnly = "Download Mode!"
|
||||
If groupBox1.Visible = True Then
|
||||
Try
|
||||
@ -207,7 +206,7 @@ Public Class Anime_Add
|
||||
' Exit Sub
|
||||
' pictureBox4.Enabled = True
|
||||
Else
|
||||
If Main.PR_List.Count >= Main.MaxDL Then
|
||||
If Main.RunningDownloads >= Main.MaxDL Then
|
||||
ListBox1.Items.Add(textBox1.Text)
|
||||
textBox1.ForeColor = Color.FromArgb(9248044)
|
||||
Main.Pause(1)
|
||||
@ -228,7 +227,7 @@ Public Class Anime_Add
|
||||
Dim FileLocation As DirectoryInfo = New DirectoryInfo(Application.StartupPath)
|
||||
Dim CurrentFile As String = Nothing
|
||||
For Each File In FileLocation.GetFiles()
|
||||
If InStr(File.FullName, "log.txt") Then
|
||||
If InStr(File.FullName, "gecko-network.txt") Then
|
||||
CurrentFile = File.FullName
|
||||
Exit For
|
||||
End If
|
||||
@ -242,7 +241,7 @@ Public Class Anime_Add
|
||||
logFileStream.Close()
|
||||
End If
|
||||
Main.LogBrowserData = True
|
||||
GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt"
|
||||
GeckoPreferences.Default("logging.config.LOG_FILE") = "gecko-network.txt"
|
||||
GeckoPreferences.Default("logging.nsHttp") = 3
|
||||
GeckoFX.WebBrowser1.Navigate(textBox1.Text)
|
||||
StatusLabel.Text = "Status: looking for non CR video file"
|
||||
@ -400,9 +399,7 @@ Public Class Anime_Add
|
||||
pictureBox4.Image = My.Resources.main_button_download_default
|
||||
End If
|
||||
End If
|
||||
If Main.PR_List.Count >= Main.MaxDL Then
|
||||
Main.RemoveFinishedTask()
|
||||
Else
|
||||
If Main.RunningDownloads < Main.MaxDL Then
|
||||
If ListBox1.Items.Count > 0 Then
|
||||
If GroupBox3.Visible = True Then
|
||||
If Main.Grapp_RDY = True Then
|
||||
|
@ -61,6 +61,7 @@ Namespace My
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.ToString)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
165
Crunchyroll Downloader/CRD_List_Item.Designer.vb
generated
Normal file
@ -0,0 +1,165 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class CRD_List_Item
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl1 überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
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.ProgressBar1 = New System.Windows.Forms.ProgressBar()
|
||||
Me.ToolTip1 = New System.Windows.Forms.ToolTip(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()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'PB_Thumbnail
|
||||
'
|
||||
Me.PB_Thumbnail.BackColor = System.Drawing.SystemColors.Desktop
|
||||
Me.PB_Thumbnail.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.main_del
|
||||
Me.PB_Thumbnail.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
|
||||
Me.PB_Thumbnail.Location = New System.Drawing.Point(11, 20)
|
||||
Me.PB_Thumbnail.Name = "PB_Thumbnail"
|
||||
Me.PB_Thumbnail.Size = New System.Drawing.Size(168, 95)
|
||||
Me.PB_Thumbnail.TabIndex = 0
|
||||
Me.PB_Thumbnail.TabStop = False
|
||||
'
|
||||
'bt_pause
|
||||
'
|
||||
Me.bt_pause.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.main_pause
|
||||
Me.bt_pause.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.bt_pause.Location = New System.Drawing.Point(740, 15)
|
||||
Me.bt_pause.Name = "bt_pause"
|
||||
Me.bt_pause.Size = New System.Drawing.Size(25, 20)
|
||||
Me.bt_pause.TabIndex = 1
|
||||
Me.bt_pause.TabStop = False
|
||||
'
|
||||
'bt_del
|
||||
'
|
||||
Me.bt_del.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.main_del
|
||||
Me.bt_del.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.bt_del.Location = New System.Drawing.Point(775, 10)
|
||||
Me.bt_del.Name = "bt_del"
|
||||
Me.bt_del.Size = New System.Drawing.Size(35, 29)
|
||||
Me.bt_del.TabIndex = 2
|
||||
Me.bt_del.TabStop = False
|
||||
'
|
||||
'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.Name = "Label_Anime"
|
||||
Me.Label_Anime.Size = New System.Drawing.Size(270, 19)
|
||||
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.Name = "Label_website"
|
||||
Me.Label_website.Size = New System.Drawing.Size(72, 19)
|
||||
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.Name = "Label_Reso"
|
||||
Me.Label_Reso.Size = New System.Drawing.Size(99, 19)
|
||||
Me.Label_Reso.TabIndex = 5
|
||||
Me.Label_Reso.Text = "Resolution"
|
||||
'
|
||||
'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(300, 101)
|
||||
Me.Label_Hardsub.Name = "Label_Hardsub"
|
||||
Me.Label_Hardsub.Size = New System.Drawing.Size(126, 19)
|
||||
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(456, 101)
|
||||
Me.Label_percent.Name = "Label_percent"
|
||||
Me.Label_percent.Size = New System.Drawing.Size(340, 19)
|
||||
Me.Label_percent.TabIndex = 7
|
||||
Me.Label_percent.Text = "Status Label : speed, size and percent"
|
||||
Me.Label_percent.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'ProgressBar1
|
||||
'
|
||||
Me.ProgressBar1.Location = New System.Drawing.Point(195, 70)
|
||||
Me.ProgressBar1.Name = "ProgressBar1"
|
||||
Me.ProgressBar1.Size = New System.Drawing.Size(601, 20)
|
||||
Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Continuous
|
||||
Me.ProgressBar1.TabIndex = 8
|
||||
'
|
||||
'Item
|
||||
'
|
||||
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.backgroud
|
||||
Me.Controls.Add(Me.ProgressBar1)
|
||||
Me.Controls.Add(Me.Label_percent)
|
||||
Me.Controls.Add(Me.Label_Hardsub)
|
||||
Me.Controls.Add(Me.Label_Reso)
|
||||
Me.Controls.Add(Me.Label_website)
|
||||
Me.Controls.Add(Me.Label_Anime)
|
||||
Me.Controls.Add(Me.bt_del)
|
||||
Me.Controls.Add(Me.bt_pause)
|
||||
Me.Controls.Add(Me.PB_Thumbnail)
|
||||
Me.Name = "Item"
|
||||
Me.Size = New System.Drawing.Size(838, 142)
|
||||
CType(Me.PB_Thumbnail, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.bt_pause, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.bt_del, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
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 ProgressBar1 As ProgressBar
|
||||
Friend WithEvents ToolTip1 As ToolTip
|
||||
End Class
|
123
Crunchyroll Downloader/CRD_List_Item.resx
Normal file
@ -0,0 +1,123 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>19, 12</value>
|
||||
</metadata>
|
||||
</root>
|
358
Crunchyroll Downloader/CRD_List_Item.vb
Normal file
@ -0,0 +1,358 @@
|
||||
Imports System.Net
|
||||
Imports System.Text
|
||||
Imports System.IO
|
||||
Imports Microsoft.Win32
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class CRD_List_Item
|
||||
Dim ZeitGesamtInteger As Integer = 0
|
||||
Dim ListOfStreams As New List(Of String)
|
||||
Dim proc As New Process
|
||||
|
||||
Dim StatusRunning As Boolean = True
|
||||
Dim UsedMap As String = Nothing
|
||||
Dim ffmpeg_command As String = Nothing
|
||||
Dim Debug2 As Boolean = False
|
||||
Dim MergeSubstoMP4 As Boolean = False
|
||||
Dim SaveLog As Boolean = False
|
||||
Dim DownloadPfad As String = Nothing
|
||||
#Region "Set UI"
|
||||
Public Sub SetLabelWebsite(ByVal Text As String)
|
||||
Label_website.Text = Text
|
||||
End Sub
|
||||
Public Sub SetLabelAnimeTitel(ByVal Text As String)
|
||||
Label_Anime.Text = Text
|
||||
End Sub
|
||||
Public Sub SetLabelResolution(ByVal Text As String)
|
||||
Label_Reso.Text = Text
|
||||
End Sub
|
||||
Public Sub SetLabelHardsub(ByVal Text As String)
|
||||
Label_Hardsub.Text = Text
|
||||
End Sub
|
||||
Public Sub SetLabelPercent(ByVal Text As String)
|
||||
Label_percent.Text = Text
|
||||
End Sub
|
||||
Public Sub SetThumbnailImage(ByVal Thumbnail As Image)
|
||||
PB_Thumbnail.BackgroundImage = Thumbnail
|
||||
End Sub
|
||||
#End Region
|
||||
#Region "Get Variables"
|
||||
Public Function GetPauseStatus() As Boolean
|
||||
Return StatusRunning
|
||||
End Function
|
||||
Public Function GetIsStatusFinished() As Boolean
|
||||
If proc.HasExited = True Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
#Region "Set Variables"
|
||||
Public Sub SetUsedMap(ByVal Value As String)
|
||||
UsedMap = Value
|
||||
End Sub
|
||||
Public Sub Setffmpeg_command(ByVal Value As String)
|
||||
ffmpeg_command = Value
|
||||
End Sub
|
||||
Public Sub SetMergeSubstoMP4(ByVal Value As Boolean)
|
||||
MergeSubstoMP4 = Value
|
||||
End Sub
|
||||
Public Sub SetDebug2(ByVal Value As Boolean)
|
||||
Debug2 = Value
|
||||
End Sub
|
||||
Public Sub SetSaveLog(ByVal Value As Boolean)
|
||||
SaveLog = Value
|
||||
End Sub
|
||||
#End Region
|
||||
Public Sub KillRunningTask()
|
||||
proc.Kill()
|
||||
proc.WaitForExit(500)
|
||||
Label_percent.Text = "canceled -%"
|
||||
End Sub
|
||||
|
||||
Private Sub bt_del_MouseEnter(sender As Object, e As EventArgs) Handles bt_del.MouseEnter
|
||||
Dim p As PictureBox = sender
|
||||
p.BackgroundImage = My.Resources.main_del_hover
|
||||
End Sub
|
||||
|
||||
Private Sub bt_del_MouseLeave(sender As Object, e As EventArgs) Handles bt_del.MouseLeave
|
||||
Dim p As PictureBox = sender
|
||||
p.BackgroundImage = My.Resources.main_del
|
||||
End Sub
|
||||
Private Sub bt_pause_MouseEnter(sender As Object, e As EventArgs) Handles bt_pause.MouseEnter
|
||||
Dim p As PictureBox = sender
|
||||
If StatusRunning = True Then
|
||||
p.BackgroundImage = My.Resources.main_pause_hover
|
||||
Else
|
||||
p.BackgroundImage = My.Resources.main_pause_play_hover
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bt_pause_MouseLeave(sender As Object, e As EventArgs) Handles bt_pause.MouseLeave
|
||||
Dim p As PictureBox = sender
|
||||
If StatusRunning = True Then
|
||||
p.BackgroundImage = My.Resources.main_pause
|
||||
Else
|
||||
p.BackgroundImage = My.Resources.main_pause_play
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bt_pause_Click(sender As Object, e As EventArgs) Handles bt_pause.Click
|
||||
If StatusRunning = True Then
|
||||
StatusRunning = False
|
||||
bt_pause.BackgroundImage = My.Resources.main_pause_play
|
||||
SuspendProcess(proc)
|
||||
Else
|
||||
StatusRunning = True
|
||||
bt_pause.BackgroundImage = My.Resources.main_pause
|
||||
ResumeProcess(proc)
|
||||
End If
|
||||
End Sub
|
||||
Public Sub SetToolTip(ByVal Text As String)
|
||||
ToolTip1.SetToolTip(Me, Text)
|
||||
End Sub
|
||||
Private Sub Item_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
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(300, locationY + 101)
|
||||
Label_percent.SetBounds(480, locationY + 101, 340, 19)
|
||||
Label_percent.AutoSize = False
|
||||
ProgressBar1.SetBounds(195, locationY + 70, 601, 20)
|
||||
End Sub
|
||||
|
||||
Public Function GetTextBound()
|
||||
Return Label_website.Location.Y
|
||||
End Function
|
||||
Public Sub SetLocations(ByVal locationY As Integer)
|
||||
bt_del.SetBounds(775, locationY + 10, 35, 29)
|
||||
bt_pause.SetBounds(740, locationY + 15, 25, 20)
|
||||
PB_Thumbnail.SetBounds(11, locationY + 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(300, locationY + 101)
|
||||
Label_percent.SetBounds(456, locationY + 101, 340, 19)
|
||||
Label_percent.AutoSize = False
|
||||
ProgressBar1.SetBounds(195, locationY + 70, 601, 20)
|
||||
End Sub
|
||||
|
||||
#Region "Download + Update UI"
|
||||
|
||||
Public Function DownloadFFMPEG(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal Filename As String) As String
|
||||
DownloadPfad = DL_Pfad
|
||||
|
||||
Dim exepath As String = Application.StartupPath + "\ffmpeg.exe"
|
||||
Dim startinfo As New System.Diagnostics.ProcessStartInfo
|
||||
'Dim cmd As String = "-i " + Chr(34) + URL_DL + Chr(34) + " -c copy -bsf:a aac_adtstoasc " + Pfad_DL 'start ffmpeg with command strFFCMD string
|
||||
Dim cmd As String = "-i " + Chr(34) + DL_URL + Chr(34) + " " + ffmpeg_command + " " + DL_Pfad 'start ffmpeg with command strFFCMD string
|
||||
If MergeSubstoMP4 = True Then
|
||||
If CBool(InStr(DL_URL, "-i " + Chr(34))) = True Then
|
||||
cmd = DL_URL + " " + DL_Pfad
|
||||
End If
|
||||
End If
|
||||
If UsedMap = Nothing Then
|
||||
Else
|
||||
cmd = "-i " + Chr(34) + DL_URL + Chr(34) + " -map 0:a " + "-map " + UsedMap + " " + ffmpeg_command + " " + DL_Pfad
|
||||
UsedMap = Nothing
|
||||
End If
|
||||
If Debug2 = True Then
|
||||
MsgBox(cmd)
|
||||
End If
|
||||
|
||||
|
||||
'all parameters required to run the process
|
||||
startinfo.FileName = exepath
|
||||
startinfo.Arguments = cmd
|
||||
startinfo.UseShellExecute = False
|
||||
startinfo.WindowStyle = ProcessWindowStyle.Normal
|
||||
startinfo.RedirectStandardError = True
|
||||
startinfo.RedirectStandardInput = True
|
||||
startinfo.RedirectStandardOutput = True
|
||||
startinfo.CreateNoWindow = True
|
||||
AddHandler proc.ErrorDataReceived, AddressOf TestOutput
|
||||
AddHandler proc.OutputDataReceived, AddressOf TestOutput
|
||||
proc.StartInfo = startinfo
|
||||
'PR_List.Add(proc)
|
||||
proc.Start() ' start the process
|
||||
proc.BeginOutputReadLine()
|
||||
proc.BeginErrorReadLine()
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
Sub TestOutput(ByVal sender As Object, ByVal e As DataReceivedEventArgs)
|
||||
Try
|
||||
Dim logfile As String = DownloadPfad.Replace(".mp4", ".log").Replace(Chr(34), "")
|
||||
If SaveLog = True Then
|
||||
If File.Exists(logfile) Then
|
||||
Using sw As StreamWriter = File.AppendText(logfile)
|
||||
sw.Write(vbNewLine)
|
||||
sw.Write(Date.Now + e.Data)
|
||||
End Using
|
||||
Else
|
||||
File.WriteAllText(logfile, Date.Now + " " + e.Data)
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
#Region "Detect Auto resolution"
|
||||
If MergeSubstoMP4 = False Then
|
||||
If CBool(InStr(e.Data, "Stream #")) And CBool(InStr(e.Data, "Video")) = True Then
|
||||
'MsgBox(True.ToString + vbNewLine + e.Data)
|
||||
'MsgBox(InStr(e.Data, "Stream #").ToString + vbNewLine + InStr(e.Data, "Video").ToString)
|
||||
|
||||
'MsgBox("with CBool" + vbNewLine + CBool(InStr(e.Data, "Stream #")).ToString + vbNewLine + CBool(InStr(e.Data, "Video")).ToString)
|
||||
|
||||
ListOfStreams.Add(e.Data)
|
||||
End If
|
||||
If InStr(e.Data, "Stream #") And InStr(e.Data, " -> ") Then
|
||||
'UsesStreams.Add(e.Data)
|
||||
'MsgBox(e.Data)
|
||||
Dim StreamSearch() As String = e.Data.Split(New String() {" -> "}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim StreamSearch2 As String = StreamSearch(0) + ":"
|
||||
For i As Integer = 0 To ListOfStreams.Count - 1
|
||||
If CBool(InStr(ListOfStreams(i), StreamSearch2)) Then 'And CBool(InStr(ListOfStreams(i), " Video:")) Then
|
||||
'MsgBox(ListOfStreams(i))
|
||||
Dim ResoSearch() As String = ListOfStreams(i).Split(New String() {"x"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
'MsgBox(ResoSearch(1))
|
||||
If CBool(InStr(ResoSearch(2), " [")) = True Then
|
||||
Dim ResoSearch2() As String = ResoSearch(2).Split(New String() {" ["}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Me.Invoke(New Action(Function()
|
||||
Label_Reso.Text = ResoSearch2(0) + "p"
|
||||
Return Nothing
|
||||
End Function))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
#End Region
|
||||
|
||||
If InStr(e.Data, "Duration: N/A, bitrate: N/A") Then
|
||||
|
||||
ElseIf InStr(e.Data, "Duration: ") Then
|
||||
Dim ZeitGesamt As String() = e.Data.Split(New String() {"Duration: "}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim ZeitGesamt2 As String() = ZeitGesamt(1).Split(New [Char]() {System.Convert.ToChar(".")})
|
||||
Dim ZeitGesamtSplit() As String = ZeitGesamt2(0).Split(New [Char]() {System.Convert.ToChar(":")})
|
||||
'MsgBox(ZeitGesamt2(0))
|
||||
ZeitGesamtInteger = CInt(ZeitGesamtSplit(0)) * 3600 + CInt(ZeitGesamtSplit(1)) * 60 + CInt(ZeitGesamtSplit(2))
|
||||
|
||||
|
||||
|
||||
ElseIf InStr(e.Data, " time=") Then
|
||||
'MsgBox(e.Data)
|
||||
Dim ZeitFertig As String() = e.Data.Split(New String() {" time="}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim ZeitFertig2 As String() = ZeitFertig(1).Split(New [Char]() {System.Convert.ToChar(".")})
|
||||
Dim ZeitFertigSplit() As String = ZeitFertig2(0).Split(New [Char]() {System.Convert.ToChar(":")})
|
||||
Dim ZeitFertigInteger As Integer = CInt(ZeitFertigSplit(0)) * 3600 + CInt(ZeitFertigSplit(1)) * 60 + CInt(ZeitFertigSplit(2))
|
||||
Dim bitrate3 As String = 0
|
||||
If InStr(e.Data, "bitrate=") Then
|
||||
Dim bitrate As String() = e.Data.Split(New String() {"bitrate="}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim bitrate2 As String() = bitrate(1).Split(New String() {"kbits/s"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
|
||||
If InStr(bitrate2(0), ".") Then
|
||||
Dim bitrateTemo As String() = bitrate2(0).Split(New String() {"."}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
bitrate3 = bitrateTemo(0)
|
||||
ElseIf InStr(bitrate2(0), ",") Then
|
||||
Dim bitrateTemo As String() = bitrate2(0).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
bitrate3 = bitrateTemo(0)
|
||||
End If
|
||||
End If
|
||||
Dim bitrateInt As Double = CInt(bitrate3) / 1024
|
||||
Dim FileSize As Double = ZeitGesamtInteger * bitrateInt / 8
|
||||
Dim DownloadFinished As Double = ZeitFertigInteger * bitrateInt / 8
|
||||
Dim percent As Integer = ZeitFertigInteger / ZeitGesamtInteger * 100
|
||||
Me.Invoke(New Action(Function()
|
||||
ProgressBar1.Value = percent
|
||||
Label_percent.Text = Math.Round(DownloadFinished, 2, MidpointRounding.AwayFromZero).ToString + "MB/" + Math.Round(FileSize, 2, MidpointRounding.AwayFromZero).ToString + "MB " + percent.ToString + "%"
|
||||
Return Nothing
|
||||
End Function))
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "Manga DL"
|
||||
|
||||
|
||||
Public Sub DownloadMangaPages(ByVal Pfad As String, ByVal BaseURL As String, ByVal SiteList As List(Of String), ByVal FolderName As String)
|
||||
|
||||
Dim Pfad_DL As String = Pfad + "\" + FolderName
|
||||
If Debug2 = True Then
|
||||
MsgBox(BaseURL + SiteList(0))
|
||||
End If
|
||||
|
||||
|
||||
Try
|
||||
Directory.CreateDirectory(Pfad_DL)
|
||||
'MsgBox(True.ToString)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
For i As Integer = 0 To SiteList.Count - 1
|
||||
'MsgBox(BaseURL + SiteList(i) + vbNewLine + Pfad_DL + "\" + SiteList(i))
|
||||
Dim iWert As Integer = i
|
||||
Using client As New WebClient()
|
||||
client.Headers.Add("User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:70.0) Gecko/20100101 Firefox/70.0")
|
||||
client.DownloadFile(BaseURL + SiteList(i), Pfad_DL + "\" + SiteList(i))
|
||||
Pause(1)
|
||||
End Using
|
||||
Me.Invoke(New Action(Function()
|
||||
iWert = iWert + 1
|
||||
Dim Prozent As Integer = iWert / SiteList.Count * 100
|
||||
Label_percent.Text = iWert.ToString + "/" + SiteList.Count.ToString + " " + Prozent.ToString + "%"
|
||||
ProgressBar1.Value = Prozent
|
||||
Return Nothing
|
||||
End Function))
|
||||
|
||||
Next
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
Private Sub bt_del_Click(sender As Object, e As EventArgs) Handles bt_del.Click
|
||||
If proc.HasExited Then
|
||||
|
||||
Else
|
||||
KillRunningTask()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Private Sub SuspendProcess(ByVal process As System.Diagnostics.Process)
|
||||
For Each t As ProcessThread In process.Threads
|
||||
Dim th As IntPtr
|
||||
th = OpenThread(ThreadAccess.SUSPEND_RESUME, False, t.Id)
|
||||
If th <> IntPtr.Zero Then
|
||||
SuspendThread(th)
|
||||
CloseHandle(th)
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ResumeProcess(ByVal process As System.Diagnostics.Process)
|
||||
For Each t As ProcessThread In process.Threads
|
||||
Dim th As IntPtr
|
||||
th = OpenThread(ThreadAccess.SUSPEND_RESUME, False, t.Id)
|
||||
If th <> IntPtr.Zero Then
|
||||
ResumeThread(th)
|
||||
CloseHandle(th)
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
@ -94,10 +94,6 @@
|
||||
<Reference Include="Geckofx-Winforms, Version=60.0.46.0, Culture=neutral, PublicKeyToken=3209ac31600d1857, processorArchitecture=x86">
|
||||
<HintPath>..\packages\Geckofx60.32.60.0.46\lib\net45\Geckofx-Winforms.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Helpers, Version=1.0.0.0, Culture=neutral, processorArchitecture=x86">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>E:\Projects\AsyncWorkerVB08\Helpers\bin\x86\Release\Helpers.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
@ -150,17 +146,18 @@
|
||||
<Compile Include="GeckoFX.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Login.Designer.vb">
|
||||
<DependentUpon>Login.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Login.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="ProcessSleep.vb" />
|
||||
<Compile Include="Startup.Designer.vb">
|
||||
<DependentUpon>Startup.vb</DependentUpon>
|
||||
</Compile>
|
||||
@ -189,6 +186,12 @@
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
<Compile Include="CRD_List_Item.Designer.vb">
|
||||
<DependentUpon>CRD_List_Item.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="CRD_List_Item.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="Anime_Add.resx">
|
||||
@ -203,6 +206,9 @@
|
||||
<EmbeddedResource Include="GeckoFX.resx">
|
||||
<DependentUpon>GeckoFX.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="CRD_List_Item.resx">
|
||||
<DependentUpon>CRD_List_Item.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Login.resx">
|
||||
<DependentUpon>Login.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
@ -258,10 +264,15 @@
|
||||
<Content Include="Firefox\softokn3.dll" />
|
||||
<Content Include="Firefox\xul.dll" />
|
||||
<Content Include="icon.ico" />
|
||||
<None Include="Resources\main-browser_hover.png" />
|
||||
<None Include="Resources\main-settings_hover.png" />
|
||||
<None Include="Resources\main-pause-play-hover.png" />
|
||||
<None Include="Resources\main-pause-play.png" />
|
||||
<None Include="Resources\main-pause-hover.png" />
|
||||
<None Include="Resources\main-pause.png" />
|
||||
<None Include="packages.config" />
|
||||
<None Include="Resources\LoginSkipHover.png" />
|
||||
<None Include="Resources\LoginSkip.png" />
|
||||
<None Include="Resources\Help_Background.PNG" />
|
||||
<None Include="Resources\softsubs_download_hover.png" />
|
||||
<None Include="Resources\softsubs_download_gray.png" />
|
||||
<None Include="Resources\softsubs_download.png" />
|
||||
@ -286,24 +297,18 @@
|
||||
<None Include="Resources\main-background.png" />
|
||||
<None Include="Resources\download_subs_hover.png" />
|
||||
<None Include="Resources\download_subs.png" />
|
||||
<None Include="Resources\SoftSubs_Baclground.png" />
|
||||
<None Include="Resources\settings_add_softsubs_hover.png" />
|
||||
<None Include="Resources\settings_add_softsubs.png" />
|
||||
<None Include="Resources\DialogNotFound_Submit_hover.png" />
|
||||
<None Include="Resources\DialogNotFound_Submit.png" />
|
||||
<None Include="Resources\DialogNotFound_Background.png" />
|
||||
<None Include="Resources\main_button_download-deactivate.png" />
|
||||
<None Include="Resources\crdsettings_setUScookie_button_hover.png" />
|
||||
<None Include="Resources\crdsettings_setUScookie_button.png" />
|
||||
<None Include="Resources\main_window_background_new.png" />
|
||||
<None Include="Resources\credits_close_hover.png" />
|
||||
<None Include="Resources\credits_close_default.png" />
|
||||
<None Include="Resources\main_credits_hover.png" />
|
||||
<None Include="Resources\main_credits_default.png" />
|
||||
<None Include="Resources\main_button_download_hovert.png" />
|
||||
<None Include="Resources\main_button_download_default.png" />
|
||||
<None Include="Resources\crdsettings_setowncookie_button_hover.png" />
|
||||
<None Include="Resources\crdsettings_setowncookie_button.png" />
|
||||
<None Include="Resources\crdSettings_Button_SafeExit_hover.png" />
|
||||
<None Include="Resources\crdSettings_Button_SafeExit.png" />
|
||||
<None Include="Resources\crdSettings_Background.png" />
|
||||
|
1
Crunchyroll Downloader/GeckoFX.Designer.vb
generated
@ -40,6 +40,7 @@ Partial Class GeckoFX
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.TextBox1.Location = New System.Drawing.Point(289, 1)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
|
@ -174,7 +174,7 @@ Public Class GeckoFX
|
||||
Dim FileLocation As DirectoryInfo = New DirectoryInfo(Application.StartupPath)
|
||||
Dim CurrentFile As String = Nothing
|
||||
For Each File In FileLocation.GetFiles()
|
||||
If InStr(File.FullName, "log.txt") Then
|
||||
If InStr(File.FullName, "gecko-network.txt") Then
|
||||
CurrentFile = File.FullName
|
||||
Exit For
|
||||
End If
|
||||
@ -208,7 +208,7 @@ Public Class GeckoFX
|
||||
If InStr(HTMLString, ".m3u8") Then 'm3u8?
|
||||
Anime_Add.StatusLabel.Text = "Status: m3u8 found, trying to start the download"
|
||||
Main.LogBrowserData = False
|
||||
GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt"
|
||||
GeckoPreferences.Default("logging.config.LOG_FILE") = "gecko-network.txt"
|
||||
GeckoPreferences.Default("logging.nsHttp") = 0
|
||||
Dim URL As String = Nothing
|
||||
Dim HTMLSplit() As String = HTMLString.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
@ -444,7 +444,10 @@ Public Class GeckoFX
|
||||
If Main.Debug2 = True Then
|
||||
MsgBox(BaseURL3)
|
||||
End If
|
||||
AsyncWorkerX.RunAsync(AddressOf Main.DownloadMangaPages, BaseURL3, ImageList, Main.RemoveExtraSpaces(NameDLFinal))
|
||||
'AsyncWorkerX.RunAsync(AddressOf Main.DownloadMangaPages, BaseURL3, ImageList, Main.RemoveExtraSpaces(NameDLFinal))
|
||||
Dim Thumbnail As String = BaseURL3 + ImageList(0)
|
||||
Main.MangaListItemAdd(Main.RemoveExtraSpaces(NameDLFinal), Thumbnail, BaseURL3, ImageList)
|
||||
|
||||
ElseIf InStr(WebBrowser1.Url.ToString, "cr-cookie-ui.php") Then
|
||||
MsgBox(WebBrowser1.Document.Body.InnerHtml)
|
||||
|
||||
@ -457,13 +460,13 @@ Public Class GeckoFX
|
||||
Button2.Enabled = False
|
||||
ScanTrue = True
|
||||
|
||||
GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt"
|
||||
GeckoPreferences.Default("logging.config.LOG_FILE") = "gecko-network.txt"
|
||||
GeckoPreferences.Default("logging.nsHttp") = 3
|
||||
Main.LogBrowserData = True
|
||||
Dim FileLocation As DirectoryInfo = New DirectoryInfo(Application.StartupPath)
|
||||
Dim CurrentFile As String = Nothing
|
||||
For Each File In FileLocation.GetFiles()
|
||||
If InStr(File.FullName, "log.txt") Then
|
||||
If InStr(File.FullName, "gecko-network.txt") Then
|
||||
CurrentFile = File.FullName
|
||||
Exit For
|
||||
End If
|
||||
@ -546,7 +549,7 @@ Public Class GeckoFX
|
||||
If InStr(HTMLString, ".m3u8") Then 'm3u8?
|
||||
Button2.Text = "found m3u8"
|
||||
Main.LogBrowserData = False
|
||||
GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt"
|
||||
GeckoPreferences.Default("logging.config.LOG_FILE") = "gecko-network.txt"
|
||||
GeckoPreferences.Default("logging.nsHttp") = 0
|
||||
Dim URL As String = Nothing
|
||||
Dim HTMLSplit() As String = HTMLString.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
@ -571,7 +574,7 @@ Public Class GeckoFX
|
||||
HTMLString = Main.mpdList.Item(0)
|
||||
Button2.Text = "found mpd!"
|
||||
Main.LogBrowserData = False
|
||||
GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt"
|
||||
GeckoPreferences.Default("logging.config.LOG_FILE") = "gecko-network.txt"
|
||||
GeckoPreferences.Default("logging.nsHttp") = 0
|
||||
Dim URL As String = Nothing
|
||||
Dim HTMLSplit() As String = HTMLString.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
@ -599,7 +602,7 @@ Public Class GeckoFX
|
||||
'Button2.Text = "found mpd!"
|
||||
Main.LogBrowserData = False
|
||||
|
||||
GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt"
|
||||
GeckoPreferences.Default("logging.config.LOG_FILE") = "gecko-network.txt"
|
||||
GeckoPreferences.Default("logging.nsHttp") = 0
|
||||
Dim URL As String = Nothing
|
||||
Dim HTMLSplit() As String = HTMLString.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
|
4
Crunchyroll Downloader/Login.Designer.vb
generated
@ -110,7 +110,7 @@ Partial Class Login
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
Me.PictureBox1.BackColor = System.Drawing.Color.Gray
|
||||
Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.PictureBox1.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.LoginSkip
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(20, 144)
|
||||
@ -122,7 +122,7 @@ Partial Class Login
|
||||
'
|
||||
'PictureBox9
|
||||
'
|
||||
Me.PictureBox9.BackColor = System.Drawing.Color.Gray
|
||||
Me.PictureBox9.BackColor = System.Drawing.Color.Transparent
|
||||
Me.PictureBox9.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.PictureBox9.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Submit
|
||||
Me.PictureBox9.Location = New System.Drawing.Point(186, 144)
|
||||
|
15
Crunchyroll Downloader/Main.designer.vb
generated
@ -34,6 +34,7 @@ Partial Class Main
|
||||
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
|
||||
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
|
||||
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
|
||||
CType(Me.pictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.pictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.pictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@ -48,7 +49,7 @@ Partial Class Main
|
||||
Me.pictureBox4.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_add
|
||||
Me.pictureBox4.Location = New System.Drawing.Point(23, 18)
|
||||
Me.pictureBox4.Name = "pictureBox4"
|
||||
Me.pictureBox4.Size = New System.Drawing.Size(63, 30)
|
||||
Me.pictureBox4.Size = New System.Drawing.Size(60, 24)
|
||||
Me.pictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.pictureBox4.TabIndex = 24
|
||||
Me.pictureBox4.TabStop = False
|
||||
@ -70,9 +71,9 @@ Partial Class Main
|
||||
Me.pictureBox2.BackColor = System.Drawing.Color.Transparent
|
||||
Me.pictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.pictureBox2.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_settings
|
||||
Me.pictureBox2.Location = New System.Drawing.Point(714, 12)
|
||||
Me.pictureBox2.Location = New System.Drawing.Point(702, 18)
|
||||
Me.pictureBox2.Name = "pictureBox2"
|
||||
Me.pictureBox2.Size = New System.Drawing.Size(36, 36)
|
||||
Me.pictureBox2.Size = New System.Drawing.Size(60, 24)
|
||||
Me.pictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
|
||||
Me.pictureBox2.TabIndex = 22
|
||||
Me.pictureBox2.TabStop = False
|
||||
@ -84,7 +85,7 @@ Partial Class Main
|
||||
Me.pictureBox1.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_browser
|
||||
Me.pictureBox1.Location = New System.Drawing.Point(116, 18)
|
||||
Me.pictureBox1.Name = "pictureBox1"
|
||||
Me.pictureBox1.Size = New System.Drawing.Size(65, 32)
|
||||
Me.pictureBox1.Size = New System.Drawing.Size(60, 24)
|
||||
Me.pictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
|
||||
Me.pictureBox1.TabIndex = 21
|
||||
Me.pictureBox1.TabStop = False
|
||||
@ -146,6 +147,11 @@ Partial Class Main
|
||||
'
|
||||
Me.Timer1.Enabled = True
|
||||
'
|
||||
'Timer2
|
||||
'
|
||||
Me.Timer2.Enabled = True
|
||||
Me.Timer2.Interval = 1000
|
||||
'
|
||||
'Main
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@ -186,4 +192,5 @@ Partial Class Main
|
||||
Friend WithEvents PictureBox5 As PictureBox
|
||||
Friend WithEvents ToolTip1 As ToolTip
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents Timer2 As Timer
|
||||
End Class
|
||||
|
@ -123,6 +123,9 @@
|
||||
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>116, 17</value>
|
||||
</metadata>
|
||||
<metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>205, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>87</value>
|
||||
</metadata>
|
||||
|
@ -5,6 +5,8 @@ Imports Microsoft.Win32
|
||||
Imports System.ComponentModel
|
||||
Public Class Main
|
||||
Public ListBoxList As New List(Of String)
|
||||
Dim ItemList As New List(Of CRD_List_Item)
|
||||
Public RunningDownloads As Integer = 0
|
||||
Public UseQueue As Boolean = False
|
||||
Public m3u8List As New List(Of String)
|
||||
Public txtList As New List(Of String)
|
||||
@ -19,11 +21,9 @@ Public Class Main
|
||||
Public MergeSubstoMP4 As Boolean = False
|
||||
Public LoginDialog As Boolean = False
|
||||
Public SaveLog As Boolean = False
|
||||
Dim ListOfStreams As New List(Of String)
|
||||
Public NonCR_Timeout As Integer = 5
|
||||
Public NonCR_URL As String = Nothing
|
||||
Public DlSoftSubsRDY As Boolean = True
|
||||
Public gIndexH As Integer = -1
|
||||
Public DialogTaskString As String
|
||||
Public UserCloseDialog As Boolean = False
|
||||
Dim Aktuell As String
|
||||
@ -34,23 +34,18 @@ Public Class Main
|
||||
Public c As Boolean = True
|
||||
Public d As Boolean = True
|
||||
Public LoginOnly As String = "False"
|
||||
Public CreditsOnly As Boolean = False
|
||||
Public Pfad As String = My.Computer.FileSystem.CurrentDirectory
|
||||
Public ffmpeg_command As String = " -c copy -bsf:a aac_adtstoasc" '" -c:v hevc_nvenc -preset fast -b:v 6M -bsf:a aac_adtstoasc "
|
||||
Public Resu As Integer
|
||||
Dim Resu2 As String
|
||||
Public ResuSave As String = "6666x6666"
|
||||
Public SubSprache As String
|
||||
'Public Unlock As Integer = 0
|
||||
'Public Unlock2 As Integer
|
||||
Public SubFolder As Integer
|
||||
Public SoftSubs As New List(Of String)
|
||||
Public AbourtList As New List(Of String)
|
||||
Public watingList As New List(Of String)
|
||||
Dim SoftSubsString As String
|
||||
Dim CR_Unlock_Error As String
|
||||
Dim versuch2 As Integer = 0
|
||||
Public keks As String = Nothing
|
||||
Public Startseite As String = "https://www.crunchyroll.com/"
|
||||
Dim SubSprache2 As String
|
||||
Dim URL_DL As String
|
||||
@ -59,13 +54,8 @@ Public Class Main
|
||||
Public Grapp_non_cr_RDY As Boolean = True
|
||||
Public Grapp_Abord As Boolean = False
|
||||
Public MaxDL As Integer
|
||||
'Public TaskCount As Integer = 0
|
||||
Public Event UpdateUI(ByVal sender As String, ByVal Int As Integer, ByVal Size As Double, ByVal Finished As Double)
|
||||
Public ResoNotFoundString As String
|
||||
Public ResoBackString As String
|
||||
Dim PB_list As New List(Of PictureBox)
|
||||
Public bt_dl As New List(Of PictureBox)
|
||||
Public PR_List As New List(Of Process)
|
||||
Public WebbrowserURL As String = Nothing
|
||||
Public WebbrowserText As String = Nothing
|
||||
Public WebbrowserTitle As String = Nothing
|
||||
@ -108,21 +98,21 @@ Public Class Main
|
||||
|
||||
#Region "UI"
|
||||
|
||||
Private Sub PictureBox1_MouseHover(sender As Object, e As EventArgs) Handles pictureBox1.MouseMove
|
||||
pictureBox1.BackColor = SystemColors.Control
|
||||
Private Sub PictureBox1_MouseHover(sender As Object, e As EventArgs) Handles pictureBox1.MouseEnter
|
||||
pictureBox1.BackgroundImage = My.Resources.main_browser
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox1.MouseLeave
|
||||
pictureBox1.BackColor = Color.Transparent
|
||||
pictureBox1.BackgroundImage = My.Resources.main_browser_hover
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub PictureBox2_MouseHover(sender As Object, e As EventArgs) Handles pictureBox2.MouseMove
|
||||
pictureBox2.BackColor = SystemColors.Control
|
||||
Private Sub PictureBox2_MouseHover(sender As Object, e As EventArgs) Handles pictureBox2.MouseEnter
|
||||
pictureBox2.BackgroundImage = My.Resources.main_settings
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox2_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox2.MouseLeave
|
||||
pictureBox2.BackColor = Color.Transparent
|
||||
pictureBox2.BackgroundImage = My.Resources.main_settings_hover
|
||||
End Sub
|
||||
|
||||
|
||||
@ -159,7 +149,7 @@ Public Class Main
|
||||
Try
|
||||
Dim FileLocation As DirectoryInfo = New DirectoryInfo(Application.StartupPath)
|
||||
For Each File In FileLocation.GetFiles()
|
||||
If InStr(File.FullName, "log.txt") Then
|
||||
If InStr(File.FullName, "gecko-network.txt") Then
|
||||
My.Computer.FileSystem.DeleteFile(Path.Combine(Application.StartupPath, File.FullName))
|
||||
Exit For
|
||||
End If
|
||||
@ -170,12 +160,6 @@ Public Class Main
|
||||
ServicePointManager.Expect100Continue = True
|
||||
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
|
||||
Me.Icon = My.Resources.icon
|
||||
Try
|
||||
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
|
||||
keks = rkg.GetValue("keks").ToString
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
|
||||
Try
|
||||
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
|
||||
@ -287,137 +271,112 @@ Public Class Main
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub ListAdd(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)
|
||||
'MsgBox(NameKomplett)
|
||||
Dim ReDl As Boolean = False
|
||||
Dim index As Integer = 0
|
||||
For i As Integer = 0 To PB_list.Count - 1
|
||||
If PB_list.Item(i).Name = NameKomplett Then
|
||||
ReDl = True
|
||||
index = i
|
||||
End If
|
||||
Next
|
||||
If ReDl = True Then
|
||||
Dim PB As PictureBox = bt_dl.Item(index)
|
||||
PB.Enabled = True
|
||||
Else
|
||||
Dim b As New Bitmap(838, 142, System.Drawing.Imaging.PixelFormat.Format24bppRgb)
|
||||
Dim g As Graphics = Graphics.FromImage(b)
|
||||
Dim ZeroPoint As Point = New Point(0, 0)
|
||||
Dim TextPoint As Point = New Point(195, 15)
|
||||
Dim TextPointL2 As Point = New Point(195, 42)
|
||||
Dim TextPointL3 As Point = New Point(773, 100)
|
||||
Dim TextPointL4 As Point = New Point(195, 101)
|
||||
Dim TextPointL4A2 As Point = New Point(300, 101)
|
||||
Dim ThumbnialPoint As Point = New Point(11, 20)
|
||||
Dim ProgressbarPoint As Point = New Point(195, 70)
|
||||
Dim newImage As Image = My.Resources.backgroud
|
||||
Dim img As Image = My.Resources.main_del
|
||||
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)
|
||||
Dim Thumbnail As Image = My.Resources.main_del
|
||||
Try
|
||||
Dim wc As New WebClient()
|
||||
Dim bytes As Byte() = wc.DownloadData(ThumbnialURL)
|
||||
Dim ms As New MemoryStream(bytes)
|
||||
img = System.Drawing.Image.FromStream(ms)
|
||||
Thumbnail = System.Drawing.Image.FromStream(ms)
|
||||
Catch ex As Exception
|
||||
'MsgBox(ex.ToString)
|
||||
'MsgBox(ThumbnialURL)
|
||||
End Try
|
||||
g.DrawImage(newImage, ZeroPoint)
|
||||
Dim Thumnail As New Bitmap(168, 95, System.Drawing.Imaging.PixelFormat.Format24bppRgb)
|
||||
Dim gr_dest As Graphics = Graphics.FromImage(Thumnail)
|
||||
gr_dest.DrawImage(img, 0, 0,
|
||||
Thumnail.Width + 1,
|
||||
Thumnail.Height + 1)
|
||||
g.DrawImage(Thumnail, ThumbnialPoint)
|
||||
g.DrawString(NameP1, FontLabel.Font, Brushes.Black, TextPoint)
|
||||
g.DrawString(NameP2, FontLabel.Font, Brushes.Black, TextPointL2)
|
||||
g.DrawRectangle(Pens.Black, ProgressbarPoint.X, ProgressbarPoint.Y, 601, 20)
|
||||
Dim brGradient As Brush = New SolidBrush(Color.FromArgb(247, 140, 37))
|
||||
g.FillRectangle(brGradient, ProgressbarPoint.X + 1, ProgressbarPoint.Y + 1, 0, 19)
|
||||
g.DrawString("0%", FontLabel2.Font, Brushes.Black, TextPointL3)
|
||||
g.DrawString(Reso, FontLabel.Font, Brushes.Black, TextPointL4)
|
||||
g.DrawString(HardSub, FontLabel.Font, Brushes.Black, TextPointL4A2)
|
||||
g.Dispose()
|
||||
gIndexH = gIndexH + 1
|
||||
|
||||
With ListView1.Items.Add(0)
|
||||
LVPictureBox(ListView1, gIndexH, b, "Softsubs: " + SoftSubs, NameKomplett) ' removed softsubs LVPictureBox(ListView1, gIndexH, b, "Softsubs: " + SoftSubs, NameKomplett)
|
||||
|
||||
Bt_del(ListView1, gIndexH, NameKomplett)
|
||||
ItemConstructor(NameP1, NameP2, Reso, HardSub, SoftSubs, Thumbnail, URL_DL, Pfad_DL)
|
||||
End With
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Function Bt_del(ByVal pListView As ListView, ByVal ItemIndex As Integer, ByVal NameKomplett As String) As PictureBox
|
||||
'btn erstellen funktion
|
||||
End Sub
|
||||
Public Sub ItemConstructor(ByVal NameP1 As String, ByVal NameP2 As String, ByVal Reso As String, ByVal HardSub As String, ByVal SoftSubs As String, ByVal Thumbnail As Image, ByVal URL_DL As String, ByVal Pfad_DL As String)
|
||||
Dim Item As New CRD_List_Item
|
||||
|
||||
Item.Visible = False
|
||||
Item.Parent = ListView1
|
||||
Item.Width = 838
|
||||
Item.Height = 142
|
||||
#Region "Set Variables"
|
||||
Item.SetUsedMap(UsedMap)
|
||||
Item.Setffmpeg_command(ffmpeg_command)
|
||||
Item.SetMergeSubstoMP4(MergeSubstoMP4)
|
||||
Item.SetDebug2(Debug2)
|
||||
Item.SetSaveLog(SaveLog)
|
||||
#End Region
|
||||
|
||||
Dim r As Rectangle
|
||||
Dim bt_r As New PictureBox
|
||||
Dim c As Integer = ListView1.Items.Count - 1
|
||||
r = pListView.Items(c).Bounds()
|
||||
bt_r.Parent = pListView
|
||||
bt_r.SetBounds(755, r.Y + 20, 50, 40)
|
||||
bt_dl.Add(bt_r)
|
||||
bt_r.Name = NameKomplett
|
||||
'bt_r.FlatStyle = FlatStyle.System
|
||||
bt_r.Visible = True
|
||||
bt_r.BringToFront()
|
||||
bt_r.Enabled = True
|
||||
bt_r.Image = My.Resources.main_close
|
||||
bt_r.Image = My.Resources.main_del
|
||||
bt_r.BackgroundImageLayout = ImageLayout.Center
|
||||
ToolTip1.SetToolTip(bt_r, NameKomplett)
|
||||
'bt_r.FlatAppearance.BorderSize = 1
|
||||
'bt_r.FlatAppearance.BorderColor = Color.Black
|
||||
AddHandler bt_r.Click, AddressOf Me.Bt_r_click
|
||||
AddHandler bt_r.MouseEnter, AddressOf Me.Bt_r_ME
|
||||
AddHandler bt_r.MouseLeave, AddressOf Me.Bt_r_ML
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
Private Sub Bt_r_click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Dim b As PictureBox = sender
|
||||
b.Image = My.Resources.main_close
|
||||
If MessageBox.Show("Cancel this Download?", "Cancel?", MessageBoxButtons.YesNo) = DialogResult.Yes Then
|
||||
AbourtList.Add(b.Name)
|
||||
b.Enabled = False
|
||||
Else
|
||||
b.Image = My.Resources.main_del
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub Bt_r_ME(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Dim b As PictureBox = sender
|
||||
b.Image = My.Resources.main_del_hover
|
||||
End Sub
|
||||
Private Sub Bt_r_ML(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Dim b As PictureBox = sender
|
||||
b.Image = My.Resources.main_del
|
||||
End Sub
|
||||
Public Function LVPictureBox(ByVal pListView As ListView, ByVal ItemIndex As Integer, ByVal img As Bitmap, ByVal SoftSubs As String, ByVal NameKomplett As String) As PictureBox
|
||||
'btn erstellen funktion
|
||||
Dim r As Rectangle
|
||||
Dim bt_d As New PictureBox
|
||||
Dim TT As New ToolTip
|
||||
Dim c As Integer = ListView1.Items.Count - 1
|
||||
r = pListView.Items(c).Bounds()
|
||||
r = ListView1.Items(c).Bounds()
|
||||
r.Width = 838
|
||||
r.Height = 142
|
||||
bt_d.Parent = pListView
|
||||
bt_d.SetBounds(r.X, r.Y, r.Width, r.Height)
|
||||
bt_d.Name = NameKomplett
|
||||
bt_d.BackgroundImage = img
|
||||
PB_list.Add(bt_d)
|
||||
ToolTip1.SetToolTip(bt_d, SoftSubs)
|
||||
bt_d.BackgroundImageLayout = ImageLayout.Center
|
||||
'bt_d.FlatAppearance.BorderColor = Color.Orange
|
||||
bt_d.Visible = True
|
||||
bt_d.Enabled = True
|
||||
Item.SetLabelWebsite(NameP1)
|
||||
Item.SetLabelAnimeTitel(NameP2)
|
||||
Item.SetLabelResolution(Reso)
|
||||
Item.SetLabelHardsub(HardSub)
|
||||
Item.SetThumbnailImage(Thumbnail)
|
||||
Item.SetLabelPercent("0%")
|
||||
Item.SetToolTip("Softsubs: " + SoftSubs)
|
||||
'MsgBox(Item.GetTextBound.ToString)
|
||||
ItemList.Add(Item)
|
||||
Item.SetBounds(r.X, r.Y, r.Width, r.Height)
|
||||
'Item.SetLocations(r.Y)
|
||||
'MsgBox("test " + r.Y.ToString)
|
||||
Item.Visible = True
|
||||
Item.DownloadFFMPEG(URL_DL, Pfad_DL, Pfad_DL)
|
||||
End Sub
|
||||
#Region "Manga DL"
|
||||
Public Sub MangaListItemAdd(ByVal NameP2 As String, ByVal ThumbnialURL As String, ByVal BaseURL As String, ByVal SiteList As List(Of String))
|
||||
|
||||
' AddHandler LVPictureBox., AddressOf Me.LVPictureBox_MouseHover
|
||||
Return Nothing
|
||||
End Function
|
||||
Dim Thumbnail As Image = My.Resources.main_del
|
||||
Try
|
||||
Dim wc As New WebClient()
|
||||
wc.Headers.Add("User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:70.0) Gecko/20100101 Firefox/70.0")
|
||||
Dim bytes As Byte() = wc.DownloadData(ThumbnialURL)
|
||||
Dim ms As New MemoryStream(bytes)
|
||||
Thumbnail = System.Drawing.Image.FromStream(ms)
|
||||
Catch ex As Exception
|
||||
'MsgBox(ex.ToString)
|
||||
'MsgBox(ThumbnialURL)
|
||||
End Try
|
||||
|
||||
With ListView1.Items.Add(0)
|
||||
MangaItemConstructor("proxer.me", NameP2, Thumbnail, BaseURL, SiteList)
|
||||
End With
|
||||
|
||||
|
||||
End Sub
|
||||
Public Sub MangaItemConstructor(ByVal NameP1 As String, ByVal NameP2 As String, ByVal Thumbnail As Image, ByVal BaseURL As String, ByVal SiteList As List(Of String))
|
||||
Dim Item As New CRD_List_Item
|
||||
|
||||
Item.Visible = False
|
||||
Item.Parent = ListView1
|
||||
Item.Width = 838
|
||||
Item.Height = 142
|
||||
#Region "Set Variables"
|
||||
Item.SetDebug2(Debug2)
|
||||
#End Region
|
||||
|
||||
Dim r As Rectangle
|
||||
Dim c As Integer = ListView1.Items.Count - 1
|
||||
|
||||
r = ListView1.Items(c).Bounds()
|
||||
r.Width = 838
|
||||
r.Height = 142
|
||||
Item.SetLabelWebsite(NameP1)
|
||||
Item.SetLabelAnimeTitel(NameP2)
|
||||
Item.SetLabelResolution("Manga")
|
||||
Item.SetLabelHardsub("Manga")
|
||||
Item.SetThumbnailImage(Thumbnail)
|
||||
Item.SetLabelPercent("0%")
|
||||
'MsgBox(Item.GetTextBound.ToString)
|
||||
ItemList.Add(Item)
|
||||
Item.SetBounds(r.X, r.Y, r.Width, r.Height)
|
||||
'Item.SetLocations(r.Y)
|
||||
'MsgBox("test " + r.Y.ToString)
|
||||
Item.Visible = True
|
||||
Item.DownloadMangaPages(Pfad, BaseURL, SiteList, NameP2)
|
||||
End Sub
|
||||
#End Region
|
||||
Public Sub Pause(ByVal pau As Single)
|
||||
|
||||
'Programmausführung verzögern *******************************************************
|
||||
@ -525,11 +484,9 @@ Public Class Main
|
||||
|
||||
For e As Integer = 0 To Integer.MaxValue
|
||||
'FontLabel.Visible = True
|
||||
'FontLabel.Text = PR_List.Count.ToString
|
||||
'FontLabel.Text = RunningDownloads
|
||||
If Grapp_RDY = True Then
|
||||
RemoveFinishedTask()
|
||||
Pause(1)
|
||||
If PR_List.Count < MaxDL Then
|
||||
If RunningDownloads < MaxDL Then
|
||||
Exit For
|
||||
Else
|
||||
'MsgBox(e)
|
||||
@ -1473,12 +1430,11 @@ Public Class Main
|
||||
Dim L1Name_Split As String() = WebbrowserURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim L1Name As String = L1Name_Split(1).Replace("www.", "")
|
||||
Me.Invoke(New Action(Function()
|
||||
ListAdd(Pfad_DL, L1Name, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail3)
|
||||
ListItemAdd(Pfad_DL, L1Name, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail3, URL_DL, Pfad_DL)
|
||||
Return Nothing
|
||||
End Function))
|
||||
#End Region
|
||||
|
||||
AsyncWorkerX.RunAsync(AddressOf DownloadFFMPEG, URL_DL, Pfad_DL, Pfad_DL)
|
||||
Grapp_RDY = True
|
||||
Me.Invoke(New Action(Function()
|
||||
|
||||
@ -1539,210 +1495,6 @@ Public Class Main
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub RemoveFinishedTask()
|
||||
Try
|
||||
Dim FinishedTask As Integer = 0
|
||||
For i As Integer = 0 To PR_List.Count - 1
|
||||
If PR_List.Item(i).HasExited = True Then
|
||||
FinishedTask = FinishedTask + 1
|
||||
End If
|
||||
Next
|
||||
For ii As Integer = 0 To FinishedTask
|
||||
For i As Integer = 0 To PR_List.Count - 1
|
||||
If PR_List.Item(i).HasExited = True Then
|
||||
PR_List.Remove(PR_List.Item(i))
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Function DownloadFFMPEG(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal Filename As String) As String
|
||||
Dim proc As New Process
|
||||
Dim exepath As String = Application.StartupPath + "\ffmpeg.exe"
|
||||
Dim startinfo As New System.Diagnostics.ProcessStartInfo
|
||||
'Dim cmd As String = "-i " + Chr(34) + URL_DL + Chr(34) + " -c copy -bsf:a aac_adtstoasc " + Pfad_DL 'start ffmpeg with command strFFCMD string
|
||||
Dim cmd As String = "-i " + Chr(34) + URL_DL + Chr(34) + " " + ffmpeg_command + " " + DL_Pfad 'start ffmpeg with command strFFCMD string
|
||||
If MergeSubstoMP4 = True Then
|
||||
If CBool(InStr(DL_URL, "-i " + Chr(34))) = True Then
|
||||
cmd = DL_URL + " " + DL_Pfad
|
||||
End If
|
||||
End If
|
||||
If UsedMap = Nothing Then
|
||||
Else
|
||||
cmd = "-i " + Chr(34) + URL_DL + Chr(34) + " -map 0:a " + "-map " + UsedMap + " " + ffmpeg_command + " " + DL_Pfad
|
||||
UsedMap = Nothing
|
||||
End If
|
||||
If Debug2 = True Then
|
||||
MsgBox(cmd)
|
||||
End If
|
||||
|
||||
|
||||
'all parameters required to run the process
|
||||
startinfo.FileName = exepath
|
||||
startinfo.Arguments = cmd
|
||||
startinfo.UseShellExecute = False
|
||||
startinfo.WindowStyle = ProcessWindowStyle.Normal
|
||||
startinfo.RedirectStandardError = True
|
||||
startinfo.RedirectStandardInput = True
|
||||
startinfo.RedirectStandardOutput = True
|
||||
startinfo.CreateNoWindow = True
|
||||
AddHandler proc.ErrorDataReceived, AddressOf TestOutput
|
||||
AddHandler proc.OutputDataReceived, AddressOf TestOutput
|
||||
proc.StartInfo = startinfo
|
||||
PR_List.Add(proc)
|
||||
proc.Start() ' start the process
|
||||
proc.BeginOutputReadLine()
|
||||
proc.BeginErrorReadLine()
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
Private Sub Main_DoubleClick(sender As Object, e As EventArgs) Handles Me.DoubleClick
|
||||
'For i As Integer = 0 To ListOfStreams.Count - 1
|
||||
'MsgBox(ListOfStreams(i))
|
||||
'Next
|
||||
End Sub
|
||||
|
||||
Sub TestOutput(ByVal sender As Object, ByVal e As DataReceivedEventArgs)
|
||||
Try
|
||||
Dim pr As Process = sender
|
||||
Dim FileNameSplit As String() = pr.StartInfo.Arguments.ToString().Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim FileName As String = Chr(34) + FileNameSplit(FileNameSplit.Count - 1) + Chr(34)
|
||||
Dim logfile As String = FileName.Replace(".mp4", ".log").Replace(Chr(34), "")
|
||||
If SaveLog = True Then
|
||||
If File.Exists(logfile) Then
|
||||
Using sw As StreamWriter = File.AppendText(logfile)
|
||||
sw.Write(vbNewLine)
|
||||
sw.Write(Date.Now + e.Data)
|
||||
End Using
|
||||
Else
|
||||
File.WriteAllText(logfile, Date.Now + e.Data)
|
||||
End If
|
||||
End If
|
||||
'MsgBox(FileName)
|
||||
'If CBool(InStr(e.Data, "[Parsed_cropdetect_0")) And CBool(InStr(e.Data, "crop=")) = True Then
|
||||
' If Debug2 = True Then
|
||||
' MsgBox(True.ToString)
|
||||
' End If
|
||||
|
||||
' Dim CropSearch() As String = e.Data.Split(New String() {"crop="}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
' Dim CropSearch2 As String = "crop=" + CropSearch(1)
|
||||
' Dim newProcess As String = pr.StartInfo.Arguments.ToString().Replace("cropdetect=24:16:0", CropSearch2)
|
||||
' pr.Kill()
|
||||
|
||||
' If Debug2 = True Then
|
||||
' MsgBox(newProcess)
|
||||
' End If
|
||||
|
||||
'End If
|
||||
|
||||
|
||||
If MergeSubstoMP4 = False Then
|
||||
If CBool(InStr(e.Data, "Stream #")) And CBool(InStr(e.Data, "Video")) = True Then
|
||||
'MsgBox(True.ToString + vbNewLine + e.Data)
|
||||
'MsgBox(InStr(e.Data, "Stream #").ToString + vbNewLine + InStr(e.Data, "Video").ToString)
|
||||
|
||||
'MsgBox("with CBool" + vbNewLine + CBool(InStr(e.Data, "Stream #")).ToString + vbNewLine + CBool(InStr(e.Data, "Video")).ToString)
|
||||
|
||||
ListOfStreams.Add(e.Data)
|
||||
End If
|
||||
If InStr(e.Data, "Stream #") And InStr(e.Data, " -> ") Then
|
||||
'UsesStreams.Add(e.Data)
|
||||
'MsgBox(e.Data)
|
||||
Dim StreamSearch() As String = e.Data.Split(New String() {" -> "}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim StreamSearch2 As String = StreamSearch(0) + ":"
|
||||
For i As Integer = 0 To ListOfStreams.Count - 1
|
||||
If CBool(InStr(ListOfStreams(i), StreamSearch2)) Then 'And CBool(InStr(ListOfStreams(i), " Video:")) Then
|
||||
'MsgBox(ListOfStreams(i))
|
||||
Dim ResoSearch() As String = ListOfStreams(i).Split(New String() {"x"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
'MsgBox(ResoSearch(1))
|
||||
If CBool(InStr(ResoSearch(2), " [")) = True Then
|
||||
Dim ResoSearch2() As String = ResoSearch(2).Split(New String() {" ["}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
For ii As Integer = 0 To PB_list.Count - 1
|
||||
If PB_list(ii).Name = FileName Then
|
||||
Dim p As PictureBox = PB_list(ii)
|
||||
p.Image = p.BackgroundImage
|
||||
Dim g As Graphics = Graphics.FromImage(p.Image)
|
||||
Dim TextPointL4 As Point = New Point(195, 101)
|
||||
Dim Weiß As Brush = New SolidBrush(Color.FromArgb(242, 242, 242))
|
||||
g.FillRectangle(Weiß, TextPointL4.X - 3, TextPointL4.Y - 3, 70, 30)
|
||||
g.DrawString(ResoSearch2(0) + "p", FontLabel.Font, Brushes.Black, TextPointL4)
|
||||
Dim brGradient As Brush = New SolidBrush(Color.FromArgb(125, 0, 0))
|
||||
g.Dispose()
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Me.Visible = False Or AbourtList.Contains(FileName) Then
|
||||
' Try
|
||||
pr.Kill()
|
||||
pr.WaitForExit(500)
|
||||
'Catch ex As Exception
|
||||
'End Try
|
||||
RaiseEvent UpdateUI(FileName, 200, 0, 0)
|
||||
End If
|
||||
Me.Invoke(New Action(Function()
|
||||
For i As Integer = 0 To PB_list.Count - 1
|
||||
|
||||
If PB_list(i).Name = FileName Then
|
||||
If InStr(e.Data, "Duration: N/A, bitrate: N/A") Then
|
||||
|
||||
ElseIf InStr(e.Data, "Duration: ") Then
|
||||
Dim ZeitGesamt As String() = e.Data.Split(New String() {"Duration: "}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim ZeitGesamt2 As String() = ZeitGesamt(1).Split(New [Char]() {System.Convert.ToChar(".")})
|
||||
Dim ZeitGesamtSplit() As String = ZeitGesamt2(0).Split(New [Char]() {System.Convert.ToChar(":")})
|
||||
'MsgBox(ZeitGesamt2(0))
|
||||
Dim ZeitGesamtInteger As Integer = CInt(ZeitGesamtSplit(0)) * 3600 + CInt(ZeitGesamtSplit(1)) * 60 + CInt(ZeitGesamtSplit(2))
|
||||
|
||||
ListView1.Items.Item(i).Text = ZeitGesamtInteger
|
||||
|
||||
|
||||
ElseIf InStr(e.Data, " time=") Then
|
||||
'MsgBox(e.Data)
|
||||
Dim ZeitFertig As String() = e.Data.Split(New String() {" time="}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim ZeitFertig2 As String() = ZeitFertig(1).Split(New [Char]() {System.Convert.ToChar(".")})
|
||||
Dim ZeitFertigSplit() As String = ZeitFertig2(0).Split(New [Char]() {System.Convert.ToChar(":")})
|
||||
Dim ZeitFertigInteger As Integer = CInt(ZeitFertigSplit(0)) * 3600 + CInt(ZeitFertigSplit(1)) * 60 + CInt(ZeitFertigSplit(2))
|
||||
Dim bitrate3 As String = 0
|
||||
If InStr(e.Data, "bitrate=") Then
|
||||
Dim bitrate As String() = e.Data.Split(New String() {"bitrate="}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim bitrate2 As String() = bitrate(1).Split(New String() {"kbits/s"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
|
||||
If InStr(bitrate2(0), ".") Then
|
||||
Dim bitrateTemo As String() = bitrate2(0).Split(New String() {"."}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
bitrate3 = bitrateTemo(0)
|
||||
ElseIf InStr(bitrate2(0), ",") Then
|
||||
Dim bitrateTemo As String() = bitrate2(0).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
bitrate3 = bitrateTemo(0)
|
||||
End If
|
||||
End If
|
||||
Dim bitrateInt As Double = CInt(bitrate3) / 1024
|
||||
Dim FileSize As Double = CInt(ListView1.Items.Item(i).Text) * bitrateInt / 8
|
||||
Dim DownloadFinished As Double = ZeitFertigInteger * bitrateInt / 8
|
||||
Dim percent As Integer = ZeitFertigInteger / CInt(ListView1.Items.Item(i).Text) * 100
|
||||
RaiseEvent UpdateUI(FileName, percent, Math.Round(DownloadFinished, 2, MidpointRounding.AwayFromZero), Math.Round(FileSize, 2, MidpointRounding.AwayFromZero))
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
Return Nothing
|
||||
End Function))
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Main_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
||||
Try
|
||||
@ -1753,56 +1505,13 @@ Public Class Main
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Main_UpdateUI(sender As String, ByVal int As Integer, ByVal Size As Double, ByVal Finished As Double) Handles Me.UpdateUI
|
||||
For i As Integer = 0 To PB_list.Count - 1
|
||||
|
||||
If PB_list(i).Name = sender Then
|
||||
If int = 200 Then
|
||||
Dim p As PictureBox = PB_list(i)
|
||||
p.Image = p.BackgroundImage
|
||||
Dim g As Graphics = Graphics.FromImage(p.Image)
|
||||
Dim ProgressbarPoint As Point = New Point(195, 70)
|
||||
Dim WeißeBox As Point = New Point(450, 93)
|
||||
Dim ProzentText As Point = New Point(773, 100)
|
||||
Dim Weiß As Brush = New SolidBrush(Color.FromArgb(242, 242, 242))
|
||||
g.FillRectangle(Weiß, WeißeBox.X + 1, WeißeBox.Y + 1, 350, 30)
|
||||
g.DrawString("-%", FontLabel2.Font, Brushes.Black, ProzentText)
|
||||
Dim brGradient As Brush = New SolidBrush(Color.FromArgb(125, 0, 0))
|
||||
g.FillRectangle(brGradient, ProgressbarPoint.X + 1, ProgressbarPoint.Y + 1, 600, 19)
|
||||
g.Dispose()
|
||||
AbourtList.Remove(sender)
|
||||
Else
|
||||
Dim stringFormat As New StringFormat()
|
||||
stringFormat.Alignment = StringAlignment.Far
|
||||
stringFormat.LineAlignment = StringAlignment.Center
|
||||
Dim p As PictureBox = PB_list(i)
|
||||
p.Image = p.BackgroundImage
|
||||
Dim g As Graphics = Graphics.FromImage(p.Image)
|
||||
Dim ProgressbarPoint As Point = New Point(195, 70)
|
||||
Dim WeißeBox As Point = New Point(525, 93)
|
||||
Dim ProzentText As Point = New Point(795, 113)
|
||||
Dim Weiß As Brush = New SolidBrush(Color.FromArgb(242, 242, 242))
|
||||
g.FillRectangle(Weiß, WeißeBox.X + 1, WeißeBox.Y + 1, 275, 30)
|
||||
g.DrawString(Size.ToString + "MB/" + Finished.ToString + "MB " + int.ToString + "%", FontLabel2.Font, Brushes.Black, ProzentText, stringFormat)
|
||||
Dim brGradient As Brush = New SolidBrush(Color.FromArgb(247, 140, 37))
|
||||
g.FillRectangle(brGradient, ProgressbarPoint.X + 1, ProgressbarPoint.Y + 1, int * 6, 19)
|
||||
g.Dispose()
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles pictureBox3.Click
|
||||
RemoveFinishedTask()
|
||||
Pause(1)
|
||||
If PR_List.Count > 0 Then
|
||||
If RunningDownloads > 0 Then
|
||||
If MessageBox.Show("Are you sure you want close the program and end all active downloads?", "confirm?", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
|
||||
For i As Integer = 0 To PR_List.Count - 1
|
||||
Dim pr As Process = PR_List.Item(i)
|
||||
pr.Kill()
|
||||
pr.WaitForExit(100)
|
||||
For i As Integer = 0 To ListView1.Items.Count - 1
|
||||
ItemList(i).KillRunningTask()
|
||||
Next
|
||||
|
||||
Me.Close()
|
||||
End If
|
||||
Else
|
||||
@ -1879,11 +1588,13 @@ Public Class Main
|
||||
End Function
|
||||
|
||||
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
||||
|
||||
Try
|
||||
Dim ItemDownloadingTrue As Integer = 0
|
||||
For s As Integer = 0 To ListView1.Items.Count - 1
|
||||
|
||||
Dim r As Rectangle = ListView1.Items.Item(s).Bounds
|
||||
PB_list(s).SetBounds(r.X, r.Y, r.Width, r.Height)
|
||||
bt_dl(s).SetBounds(755, r.Y + 20, 50, 40)
|
||||
ItemList(s).SetBounds(r.X, r.Y, r.Width, r.Height)
|
||||
Next
|
||||
Catch ex As Exception
|
||||
|
||||
@ -2059,11 +1770,11 @@ Public Class Main
|
||||
Dim L1Name As String = L1Name_Split(1)
|
||||
Pfad_DL = Chr(34) + Pfad + "\" + Video_FilenName + Chr(34)
|
||||
Me.Invoke(New Action(Function()
|
||||
ListAdd(Pfad_DL, L1Name, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail4)
|
||||
ListItemAdd(Pfad_DL, L1Name, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail4, URL_DL, Pfad_DL)
|
||||
Return Nothing
|
||||
End Function))
|
||||
#End Region
|
||||
AsyncWorkerX.RunAsync(AddressOf DownloadFFMPEG, URL_DL, Pfad_DL, Pfad_DL)
|
||||
'AsyncWorkerX.RunAsync(AddressOf DownloadFFMPEG, URL_DL, Pfad_DL, Pfad_DL)
|
||||
Grapp_non_cr_RDY = True
|
||||
Me.Invoke(New Action(Function()
|
||||
|
||||
@ -2094,77 +1805,24 @@ Public Class Main
|
||||
'MsgBox("Debug activated")
|
||||
End If
|
||||
End Sub
|
||||
Public Sub DownloadMangaPages(ByVal BaseURL As String, ByVal SiteList As List(Of String), ByVal FolderName As String)
|
||||
Dim L1Name_Split As String() = WebbrowserURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim L1Name As String = L1Name_Split(1).Replace("www.", "")
|
||||
Pfad_DL = Pfad + "\" + FolderName
|
||||
If Debug2 = True Then
|
||||
MsgBox(BaseURL + SiteList(0))
|
||||
End If
|
||||
Me.Invoke(New Action(Function()
|
||||
|
||||
ListAdd(Pfad_DL, L1Name, FolderName, "Manga", "Manga", "", BaseURL + SiteList(0))
|
||||
|
||||
Return Nothing
|
||||
End Function))
|
||||
|
||||
Dim CurrentIndex As Integer = 0
|
||||
For i As Integer = 0 To PB_list.Count - 1
|
||||
If PB_list.Item(i).Name = Pfad_DL Then
|
||||
CurrentIndex = i
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
Try
|
||||
Directory.CreateDirectory(Pfad_DL)
|
||||
'MsgBox(True.ToString)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
'If Not Directory.Exists(Path.GetDirectoryName(Pfad_DL)) Then
|
||||
' ' Nein! Jetzt erstellen...
|
||||
' Try
|
||||
' Directory.CreateDirectory(Path.GetDirectoryName(Pfad_DL))
|
||||
' MsgBox(True.ToString)
|
||||
' Catch ex As Exception
|
||||
' MsgBox(False.ToString)
|
||||
' ' Ordner wurde nich erstellt
|
||||
' Exit Sub
|
||||
' 'Pfad_DL = Pfad + "\" + CR_FilenName_Backup + ".mp4"
|
||||
' End Try
|
||||
'End If
|
||||
|
||||
For i As Integer = 0 To SiteList.Count - 1
|
||||
Dim iWert As Integer = i
|
||||
Using client As New WebClient()
|
||||
client.DownloadFile(BaseURL + SiteList(i), Pfad_DL + "\" + SiteList(i))
|
||||
Pause(1)
|
||||
End Using
|
||||
Me.Invoke(New Action(Function()
|
||||
Dim stringFormat As New StringFormat()
|
||||
stringFormat.Alignment = StringAlignment.Far
|
||||
stringFormat.LineAlignment = StringAlignment.Center
|
||||
Dim p As PictureBox = PB_list(CurrentIndex)
|
||||
p.Image = p.BackgroundImage
|
||||
Dim g As Graphics = Graphics.FromImage(p.Image)
|
||||
Dim ProgressbarPoint As Point = New Point(195, 70)
|
||||
Dim WeißeBox As Point = New Point(525, 93)
|
||||
Dim ProzentText As Point = New Point(795, 113)
|
||||
Dim Weiß As Brush = New SolidBrush(Color.FromArgb(242, 242, 242))
|
||||
g.FillRectangle(Weiß, WeißeBox.X + 1, WeißeBox.Y + 1, 275, 30)
|
||||
g.DrawString((iWert + 1).ToString + "/" + SiteList.Count.ToString + " " + Math.Round(iWert / (SiteList.Count - 1) * 100, 2, MidpointRounding.AwayFromZero).ToString + "%", FontLabel2.Font, Brushes.Black, ProzentText, stringFormat)
|
||||
Dim brGradient As Brush = New SolidBrush(Color.FromArgb(247, 140, 37))
|
||||
g.FillRectangle(brGradient, ProgressbarPoint.X + 1, ProgressbarPoint.Y + 1, CInt((iWert / (SiteList.Count - 1)) * 600), 19)
|
||||
g.Dispose()
|
||||
Return Nothing
|
||||
End Function))
|
||||
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Main_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles Me.MouseDoubleClick
|
||||
Login.Show()
|
||||
'Login.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
||||
Try
|
||||
Dim ItemDownloadingCount As Integer = 0
|
||||
For i As Integer = 0 To ListView1.Items.Count - 1
|
||||
If ItemList(i).GetIsStatusFinished() = False Then
|
||||
ItemDownloadingCount = ItemDownloadingCount + 1
|
||||
End If
|
||||
Next
|
||||
RunningDownloads = ItemDownloadingCount
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
FontLabel2.Text = RunningDownloads.ToString
|
||||
End Sub
|
||||
End Class
|
@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("3.2.8")>
|
||||
<Assembly: AssemblyFileVersion("3.2.8")>
|
||||
<Assembly: AssemblyVersion("3.3")>
|
||||
<Assembly: AssemblyFileVersion("3.3")>
|
||||
<Assembly: NeutralResourcesLanguage("en")>
|
||||
|
104
Crunchyroll Downloader/My Project/Resources.Designer.vb
generated
@ -187,26 +187,6 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property crdsettings_setowncookie_button() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("crdsettings_setowncookie_button", 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 crdsettings_setowncookie_button_hover() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("crdsettings_setowncookie_button_hover", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
@ -287,16 +267,6 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Help_Background() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Help_Background", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Zeichenfolge, die ","resolution":"adaptive" ähnelt.
|
||||
'''</summary>
|
||||
@ -495,6 +465,16 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property main_browser_hover() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("main_browser_hover", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
@ -575,6 +555,46 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property main_pause() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("main_pause", 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_pause_hover() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("main_pause_hover", 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_pause_play() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("main_pause_play", 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_pause_play_hover() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("main_pause_play_hover", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
@ -588,29 +608,9 @@ Namespace My.Resources
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property settings_add_softsubs() As System.Drawing.Bitmap
|
||||
Friend ReadOnly Property main_settings_hover() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("settings_add_softsubs", 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 settings_add_softsubs_hover() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("settings_add_softsubs_hover", 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 SoftSubs_Baclground() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("SoftSubs_Baclground", resourceCulture)
|
||||
Dim obj As Object = ResourceManager.GetObject("main_settings_hover", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
@ -167,9 +167,6 @@
|
||||
<data name="crdsettings_setUScookie_button_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\crdsettings_setUScookie_button_hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</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="htmlEnd" xml:space="preserve">
|
||||
<value></body>
|
||||
</html></value>
|
||||
@ -183,9 +180,6 @@
|
||||
<data name="icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\icon.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="crdsettings_setowncookie_button_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\crdsettings_setowncookie_button_hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="main_background" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\main-background.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@ -245,15 +239,9 @@
|
||||
<data name="main_button_download_deactivate" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\main_button_download-deactivate.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="settings_add_softsubs" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\settings_add_softsubs.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<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="settings_add_softsubs_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\settings_add_softsubs_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>"> <img alt="image error" src="cc1.png" class="class-cc"></value>
|
||||
</data>
|
||||
@ -268,9 +256,6 @@
|
||||
|
||||
<img alt="image error" src="balken1.png" class="class-balken"></value>
|
||||
</data>
|
||||
<data name="SoftSubs_Baclground" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\SoftSubs_Baclground.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</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>
|
||||
@ -297,9 +282,6 @@
|
||||
<data name="add_mass_running_cancel_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\add_mass_running_cancel_hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="crdsettings_setowncookie_button" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\crdsettings_setowncookie_button.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>
|
||||
@ -354,9 +336,6 @@
|
||||
<data name="softsubs_download_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\softsubs_download_hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Help_Background" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Help_Background.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="LoginSkip" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\LoginSkip.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@ -370,4 +349,25 @@
|
||||
<value>US cookies can't be used as long you are logged in.
|
||||
I delete the curremt session with the unlock, if you want to be logged in with the US cookie you need to enter you data on the left.</value>
|
||||
</data>
|
||||
<data name="main_pause" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\main-pause.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="main_pause_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\main-pause-hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="main_pause_play" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\main-pause-play.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="main_pause_play_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\main-pause-play-hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</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="main_browser_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\main-browser_hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="main_settings_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\main-settings_hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
</root>
|
34
Crunchyroll Downloader/ProcessSleep.vb
Normal file
@ -0,0 +1,34 @@
|
||||
Module ProcessSleep
|
||||
Public Enum ThreadAccess As Integer
|
||||
TERMINATE = (&H1)
|
||||
SUSPEND_RESUME = (&H2)
|
||||
GET_CONTEXT = (&H8)
|
||||
SET_CONTEXT = (&H10)
|
||||
SET_INFORMATION = (&H20)
|
||||
QUERY_INFORMATION = (&H40)
|
||||
SET_THREAD_TOKEN = (&H80)
|
||||
IMPERSONATE = (&H100)
|
||||
DIRECT_IMPERSONATION = (&H200)
|
||||
End Enum
|
||||
|
||||
Public Declare Function OpenThread Lib "kernel32.dll" (ByVal dwDesiredAccess As ThreadAccess, ByVal bInheritHandle As Boolean, ByVal dwThreadId As UInteger) As IntPtr
|
||||
Public Declare Function SuspendThread Lib "kernel32.dll" (ByVal hThread As IntPtr) As UInteger
|
||||
Public Declare Function ResumeThread Lib "kernel32.dll" (ByVal hThread As IntPtr) As UInteger
|
||||
Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hHandle As IntPtr) As Boolean
|
||||
|
||||
Public Sub Pause(ByVal pau As Single)
|
||||
|
||||
'Programmausführung verzögern *******************************************************
|
||||
|
||||
Dim start, finish As Single
|
||||
start = Microsoft.VisualBasic.DateAndTime.Timer
|
||||
|
||||
finish = start + pau
|
||||
Do While Microsoft.VisualBasic.DateAndTime.Timer < finish
|
||||
Application.DoEvents()
|
||||
Loop
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Module
|
2
Crunchyroll Downloader/Reso.Designer.vb
generated
@ -72,7 +72,7 @@ Partial Class Reso
|
||||
'
|
||||
'PictureBox9
|
||||
'
|
||||
Me.PictureBox9.BackColor = System.Drawing.Color.Gray
|
||||
Me.PictureBox9.BackColor = System.Drawing.Color.Transparent
|
||||
Me.PictureBox9.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.PictureBox9.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Submit
|
||||
Me.PictureBox9.Location = New System.Drawing.Point(100, 146)
|
||||
|
Before Width: | Height: | Size: 1.8 KiB After Width: | Height: | Size: 3.6 KiB |
Before Width: | Height: | Size: 7.0 KiB After Width: | Height: | Size: 3.5 KiB |
Before Width: | Height: | Size: 27 KiB |
Before Width: | Height: | Size: 1.7 KiB After Width: | Height: | Size: 3.1 KiB |
Before Width: | Height: | Size: 6.9 KiB After Width: | Height: | Size: 3.0 KiB |
Before Width: | Height: | Size: 4.7 KiB |
Before Width: | Height: | Size: 3.6 KiB After Width: | Height: | Size: 4.9 KiB |
Before Width: | Height: | Size: 8.9 KiB After Width: | Height: | Size: 4.1 KiB |
Before Width: | Height: | Size: 9.3 KiB After Width: | Height: | Size: 4.1 KiB |
Before Width: | Height: | Size: 7.7 KiB After Width: | Height: | Size: 3.0 KiB |
Before Width: | Height: | Size: 8.1 KiB After Width: | Height: | Size: 3.1 KiB |
Before Width: | Height: | Size: 2.1 KiB After Width: | Height: | Size: 3.6 KiB |
Before Width: | Height: | Size: 2.1 KiB After Width: | Height: | Size: 3.5 KiB |
Before Width: | Height: | Size: 8.8 KiB After Width: | Height: | Size: 3.7 KiB |
Before Width: | Height: | Size: 8.5 KiB After Width: | Height: | Size: 3.5 KiB |
Before Width: | Height: | Size: 1.9 KiB |
Before Width: | Height: | Size: 8.5 KiB |
BIN
Crunchyroll Downloader/Resources/credits-background-icon.png
Normal file
After Width: | Height: | Size: 9.4 KiB |
Before Width: | Height: | Size: 3.7 KiB After Width: | Height: | Size: 6.8 KiB |
BIN
Crunchyroll Downloader/Resources/credits-background2.png
Normal file
After Width: | Height: | Size: 3.0 KiB |
Before Width: | Height: | Size: 1.3 KiB After Width: | Height: | Size: 3.1 KiB |
Before Width: | Height: | Size: 1.3 KiB After Width: | Height: | Size: 3.0 KiB |
Before Width: | Height: | Size: 2.5 KiB After Width: | Height: | Size: 5.6 KiB |
Before Width: | Height: | Size: 8.8 KiB After Width: | Height: | Size: 5.3 KiB |
Before Width: | Height: | Size: 785 B After Width: | Height: | Size: 577 B |
BIN
Crunchyroll Downloader/Resources/main-add_hover.png
Normal file
After Width: | Height: | Size: 591 B |
Before Width: | Height: | Size: 1.6 KiB After Width: | Height: | Size: 946 B |
BIN
Crunchyroll Downloader/Resources/main-browser_hover.png
Normal file
After Width: | Height: | Size: 946 B |
BIN
Crunchyroll Downloader/Resources/main-pause-hover.png
Normal file
After Width: | Height: | Size: 8.3 KiB |
BIN
Crunchyroll Downloader/Resources/main-pause-play-hover.png
Normal file
After Width: | Height: | Size: 10 KiB |
BIN
Crunchyroll Downloader/Resources/main-pause-play.png
Normal file
After Width: | Height: | Size: 8.1 KiB |
BIN
Crunchyroll Downloader/Resources/main-pause.png
Normal file
After Width: | Height: | Size: 8.5 KiB |
Before Width: | Height: | Size: 359 B After Width: | Height: | Size: 820 B |
BIN
Crunchyroll Downloader/Resources/main-settings_hover.png
Normal file
After Width: | Height: | Size: 775 B |
Before Width: | Height: | Size: 8.4 KiB After Width: | Height: | Size: 3.8 KiB |
Before Width: | Height: | Size: 3.0 KiB After Width: | Height: | Size: 3.6 KiB |
Before Width: | Height: | Size: 3.0 KiB After Width: | Height: | Size: 3.5 KiB |
Before Width: | Height: | Size: 876 B After Width: | Height: | Size: 5.4 KiB |
Before Width: | Height: | Size: 886 B After Width: | Height: | Size: 5.0 KiB |
Before Width: | Height: | Size: 8.2 KiB |
Before Width: | Height: | Size: 1.2 KiB |
Before Width: | Height: | Size: 4.4 KiB |
Before Width: | Height: | Size: 8.7 KiB After Width: | Height: | Size: 3.6 KiB |
Before Width: | Height: | Size: 8.8 KiB After Width: | Height: | Size: 3.5 KiB |
Before Width: | Height: | Size: 9.0 KiB After Width: | Height: | Size: 3.5 KiB |
66
Crunchyroll Downloader/Startup.Designer.vb
generated
@ -23,16 +23,15 @@ Partial Class Startup
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Startup))
|
||||
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.label1 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
@ -47,35 +46,22 @@ Partial Class Startup
|
||||
'label1
|
||||
'
|
||||
Me.label1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.label1.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.label1.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.label1.ForeColor = System.Drawing.Color.Black
|
||||
Me.label1.Location = New System.Drawing.Point(18, 249)
|
||||
Me.label1.Location = New System.Drawing.Point(38, 228)
|
||||
Me.label1.Name = "label1"
|
||||
Me.label1.Size = New System.Drawing.Size(140, 22)
|
||||
Me.label1.TabIndex = 26
|
||||
Me.label1.Text = "libraries: "
|
||||
Me.label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label2.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.Label2.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label2.ForeColor = System.Drawing.Color.Green
|
||||
Me.Label2.Location = New System.Drawing.Point(302, 249)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(140, 22)
|
||||
Me.Label2.TabIndex = 27
|
||||
Me.Label2.Text = "AsyncWorker"
|
||||
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label3.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.Label3.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label3.ForeColor = System.Drawing.Color.Green
|
||||
Me.Label3.Location = New System.Drawing.Point(438, 249)
|
||||
Me.Label3.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(48, Byte), Integer), CType(CType(130, Byte), Integer), CType(CType(175, Byte), Integer))
|
||||
Me.Label3.Location = New System.Drawing.Point(379, 228)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(140, 22)
|
||||
Me.Label3.TabIndex = 28
|
||||
@ -95,11 +81,11 @@ Partial Class Startup
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label5.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label5.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label5.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label5.Location = New System.Drawing.Point(18, 149)
|
||||
Me.Label5.Location = New System.Drawing.Point(187, 154)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(566, 45)
|
||||
Me.Label5.Size = New System.Drawing.Size(368, 45)
|
||||
Me.Label5.TabIndex = 31
|
||||
Me.Label5.Text = "Created by hama3254"
|
||||
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
@ -108,9 +94,9 @@ Partial Class Startup
|
||||
'
|
||||
Me.Label7.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label7.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.Label7.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label7.ForeColor = System.Drawing.Color.Green
|
||||
Me.Label7.Location = New System.Drawing.Point(145, 249)
|
||||
Me.Label7.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(48, Byte), Integer), CType(CType(130, Byte), Integer), CType(CType(175, Byte), Integer))
|
||||
Me.Label7.Location = New System.Drawing.Point(184, 228)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(140, 22)
|
||||
Me.Label7.TabIndex = 33
|
||||
@ -120,32 +106,46 @@ Partial Class Startup
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label6.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label6.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label6.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label6.Location = New System.Drawing.Point(18, 76)
|
||||
Me.Label6.Location = New System.Drawing.Point(183, 109)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(566, 45)
|
||||
Me.Label6.Size = New System.Drawing.Size(372, 45)
|
||||
Me.Label6.TabIndex = 31
|
||||
Me.Label6.Text = "Created by hama3254"
|
||||
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label4.Font = New System.Drawing.Font("Arial", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label4.Location = New System.Drawing.Point(182, 64)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(373, 45)
|
||||
Me.Label4.TabIndex = 34
|
||||
Me.Label4.Text = "Crunchyroll Downloader"
|
||||
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Startup
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
|
||||
Me.ClientSize = New System.Drawing.Size(600, 300)
|
||||
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(205, Byte), Integer), CType(CType(205, Byte), Integer), CType(CType(205, Byte), Integer))
|
||||
Me.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.credits_background
|
||||
Me.ClientSize = New System.Drawing.Size(600, 259)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.Label7)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Controls.Add(Me.Label5)
|
||||
Me.Controls.Add(Me.PictureBox1)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.label1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Name = "Startup"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Startup"
|
||||
Me.TransparencyKey = System.Drawing.Color.FromArgb(CType(CType(205, Byte), Integer), CType(CType(205, Byte), Integer), CType(CType(205, Byte), Integer))
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
@ -154,10 +154,10 @@ Partial Class Startup
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents Timer2 As Timer
|
||||
Public WithEvents label1 As Label
|
||||
Public WithEvents Label2 As Label
|
||||
Public WithEvents Label3 As Label
|
||||
Friend WithEvents PictureBox1 As PictureBox
|
||||
Public WithEvents Label5 As Label
|
||||
Public WithEvents Label7 As Label
|
||||
Public WithEvents Label6 As Label
|
||||
Public WithEvents Label4 As Label
|
||||
End Class
|
||||
|
@ -123,63 +123,4 @@
|
||||
<metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>106, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="$this.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAlgAAAEsCAYAAAAfPc2WAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
|
||||
xAAADsQBlSsOGwAADClJREFUeF7t2jFyFGkWhdHeGeuZiLbGYxO9AxaADS4uJh4eHhYWBvgaPUKPfvz8
|
||||
WapsLo0YnS/iBKhUSmWVqiNvl/jj5rb//vkfAAACqj/6L5IkSfrxalsZWJIkScEMLEmSpHAGliRJUjgD
|
||||
S5IkKZyBJUmSFM7AkiRJCmdgSZIkhTOwJEmSwhlYkiRJ4QwsSZKkcAaWJElSOANLkiQpnIElSZIUzsCS
|
||||
JEkKZ2BJkiSFM7AkSZLCGViSJEnhDCxJkqRwBpb0f9Lnz59vPnz4cPPx48e7Wx5Ou3N7yOf7s3oIj/mx
|
||||
PefSr8rAkja9f//+5s2bN1/UBel36Pnz5zdPnjy5efr06d0tD6fduZ053/oZrGqs/G796p9RvZ7r+xdJ
|
||||
PzcDSxrVBagufn0RanXbQ/+//r54l4fW7tyuPd85ClZ//fXXl8//Lv3qn5GBJf17GVjSXa9evfp68SnP
|
||||
nj375oL40C/kj2Fg9c9kHcF1++/Qr/4ZGVjSv5eBJd1Wv3LqC8/u3aq6ML19+/buo4fZYxhY9XPq6mdU
|
||||
w6o/VwP5oWdgSY8nA0u67cWLF18vPO/evbu7dV+/01X3mxes+jdB/bn1Yl/3rdvrV1rdPE79m6/6XB9r
|
||||
NxZqUMzzrCFY37+bF+/1eK9fv76719/fd/euTx+/7z/PcX2sVf05z6nsfm33MwZWN9/Nml1zbjWa+/ZZ
|
||||
PX913Lp9/luv+hnU7XOEn/k5Hj3ma5/Hul8dcz7m+vv6farda2A+l7P1tVXq4/nYq/teD5L+zsCSbusL
|
||||
RV2s7qsvkvPdk1IX//5c/TnbXdiOjtPmKOoL++5+faGfF++dvljPc6mLcFcXyb6936279FgvnVOZ5z/P
|
||||
rdvdtmue725g1ffpz/fjufbcemCVeew5NmpMdD/6c9w95n/6PK7qnLt6Hnb3md+nm9+//qzv0R+vw/Po
|
||||
se5+LtJjz8DSo68uMH2hqAvIfc2LXF2I+v/m5+fW41y6MJe6YNVFscyLXdf3rdv6YlZ/1tf1uwf3Ha8v
|
||||
lnNIzXc+5tjYHfPosZY+p/q6efHdHafb3bbrvoE1x8TZcyv98Rwy/ZyVOVz6uHWcbn6v3fNef3b3PQ/3
|
||||
PY/1+PoxdnMMdvNr62dWX9/vPq337e8/x9T8b2L+anye6/p6kPRtBpYefXVR64tGXUDua15k6kI068+t
|
||||
x5kjoZvHmc0LYdcf734V1J05Xt93Xvz7onw0HtbH2rev5zQHz/pOWOmOzndtPne7gTV/fn2x74+vObf1
|
||||
cc9xUeZz1LcdjY7Zped93tYfX3Ouu3avrf54PeZujPXH61Dqc90NzLK+HiR9m4GlR9+8oNYF5L6OLqhV
|
||||
f249zpmBtd53NyB2XXu8qt556NvqQl71x9eMh0vnNN8V6s/tjnN07LV5/ruBVefbn6+/nz23+SvGqo83
|
||||
x0i9RubgmePizPO+3vfsuVb1s6tzq2OV+e+sqkvHXM9p3vdIfY/u6LFK+j4DS7ptXlDu69JFpj83L0rV
|
||||
NRfb7tJFcL1gzq49Xte/wqp3Oebg6l9HVUfHPDsMdsc5OvbaPP/6vmvznaL6/Nlzm/evEdXDqv7e727V
|
||||
6OohdvTvkspsnne33vfsuc7HWudRx0sNrD7e6prBLen7DCzptr6QlnlB2XXpItOfWy/C88LYHR1nvQjO
|
||||
d9jmvxNau/Z43Tyn/tr568Hq6JiXzmm+01PDrdod5+jYa/P8axDM5nn0c3723Ko5NvvvVX/vOtd+jazH
|
||||
PHocu+d9ve+Zc533na/RM6+X9XV49C7ZUdf+zCQZWNKX5sWsLzb9Tk59ri4sfQG6dJGZv1aqr6vmBXB+
|
||||
zZkLc1/068+6gFZ1fnWM/vjM8ar57kVbx+Wlx9rvnNQ59XNVzbHat++Oc+nYs3n+dX513qVu7+elzMF0
|
||||
5tyq/rn18Xpo7p6j/rl2Z5733X2vPdd5LvMc5muu68dRf/bro567vt+8b3//Hqiz/tru2p+ZJANL+tr8
|
||||
v/udumBWly4y81dtU1/wSnfmwjxvW9WFtzpzvK4vrm1e4KtLj3W9YNd95+Ps56vaHefSsWeXHntb36k5
|
||||
c27V+nObx5tfV9aOHsfued/d98y59u31Z53jHGGlO3rO5nG7+f3r8/X9S782+vVVHT1WSd9nYEmjutis
|
||||
o6PU+Ormux276sI3v7bu3++Qza85Os7uwlzV7fMCWa45r6PjVfNz/a7N7L7HWs/Xek71cR13tjvOfcfu
|
||||
1gHS6nzr8a/vsnTXnls37ztHRZ9nqb+vHT2O3fN+dN9rz7WG4Lxf/X2Ow9ml1+F63933L/UcH73TJ+ly
|
||||
Bpa0qX8lMy+0Z+qvX98RSvQj57U2L7h1kf2n1cipczoaO7+yh3xua9ee67WvgbOvw/7+1xxb0uUMLOkR
|
||||
1+9IFElSLgNLeqTVuxo9rmpoSZJyGVjSI61+HdT/oNmvhCQpm4ElSZIUzsCSJEkKZ2BJkiSFM7AkSZLC
|
||||
GViSJEnhDCxJkqRwBpYkSVI4A0uSJCmcgSVJkhTOwJIkSQpnYEmSJIX7OrA+ffoEAECAgQUAEGZgAQCE
|
||||
GVgAAGEGFgBAmIEFABBmYAEAhBlYAABhBhYAQJiBBQAQZmABAIQZWAAAYQYWAECYgQUAEGZgAQCEGVgA
|
||||
AGEGFgBAmIEFABBmYAEAhBlYAABhBhYAQJiBBQAQZmABAIQZWAAAYQYWAECYgQUAEGZgAQCEGVgAAGEG
|
||||
FgBAmIEFABBmYAEAhBlYAABhBhYAQJiBBQAQZmABAIQZWAAAYQYWAECYgQUAEGZgAQCEGVgAAGEGFgBA
|
||||
mIEFABBmYAEAhBlYAABhBhYAQJiBBQAQZmABAIQZWAAAYQYWAECYgQUAEGZgAQCEGVgAAGEGFgBAmIEF
|
||||
ABBmYAEAhBlYAABhBhYAQJiBBQAQZmABAIQZWAAAYQYWAECYgQUAEGZgAQCEGVgAAGEGFgBAmIEFABBm
|
||||
YAEAhBlYAABhBhYAQJiBBQAQZmABAIQZWAAAYQYWAECYgQUAEGZgAQCEGVgAAGEGFgBAmIEFABBmYAEA
|
||||
hBlYAABhBhYAQJiBBQAQZmABAIQZWAAAYQYWAECYgQUAEGZgAQCEGVgAAGEGFgBAmIEFABBmYAEAhBlY
|
||||
AABhBhYAQJiBBQAQZmABAIQZWAAAYQYWAECYgQUAEGZgAQCEGVgAAGEGFgBAmIEFABBmYAEAhBlYAABh
|
||||
BhYAQJiBBQAQZmABAIQZWAAAYQYWAECYgQUAEGZgAQCEGVgAAGEGFgBAmIEFABBmYAEAhBlYAABhBhYA
|
||||
QJiBBQAQZmABAIQZWAAAYQYWAECYgQUAEGZgAQCEGVgAAGEGFgBAmIEFABBmYAEAhBlYAABhBhYAQJiB
|
||||
BQAQZmABAIQZWAAAYQYWAECYgQUAEGZgAQCEGVgAAGEGFgBAmIEFABBmYAEAhBlYAABhBhYAQJiBBQAQ
|
||||
ZmABAIQZWAAAYQYWAECYgQUAEGZgAQCEGVgAAGEGFgBAmIEFABBmYAEAhBlYAABhBhYAQJiBBQAQZmAB
|
||||
AIQZWAAAYQYWAECYgQUAEGZgAQCEGVgAAGEGFgBAmIEFABBmYAEAhBlYAABhBhYAQJiBBQAQZmABAIQZ
|
||||
WAAAYQYWAECYgQUAEGZgAQCEGVgAAGEGFgBAmIEFABBmYAEAhBlYAABhBhYAQJiBBQAQZmABAIQZWAAA
|
||||
YQYWAECYgQUAEGZgAQCEGVgAAGEGFgBA2NeB9fLlSwAAAgwsAIAwAwsAIMzAAgAIM7AAAMIMLACAMAML
|
||||
ACDMwAIACDOwAADCDCwAgDADCwAgzMACAAgzsAAAwgwsAIAwAwsAIMzAAgAIM7AAAMIMLACAMAMLACDM
|
||||
wAIACDOwAADCDCwAgDADCwAgzMACAAgzsAAAwgwsAIAwAwsAIMzAAgAIM7AAAMIMLACAMAMLACDMwAIA
|
||||
CDOwAADCDCwAgDADCwAgzMACAAgzsAAAwgwsAIAwAwsAIMzAAgAIM7AAAMIMLACAMAMLACDMwAIACDOw
|
||||
AADCDCwAgDADCwAgzMACAAj7OrAkSZKUycCSJEkKZ2BJkiSFM7AkSZLCGViSJEnhDCxJkqRwBpYkSVI4
|
||||
A0uSJCmcgSVJkhTOwJIkSQpnYEmSJIUzsCRJksIZWJIkSeEMLEmSpHAGliRJUjgDS5IkKdyXgdV/AQDg
|
||||
x93c3Nz8D1dCBwn2yA3dAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
@ -1,6 +1,9 @@
|
||||
Public Class Startup
|
||||
|
||||
Private Sub Startup_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
|
||||
|
||||
Me.Icon = My.Resources.icon
|
||||
Me.Location = New Point(Main.Location.X + Main.Width / 2 - Me.Width / 2, Main.Location.Y + Main.Height / 2 - Me.Height / 2)
|
||||
|
||||
@ -43,7 +46,7 @@
|
||||
fadeout()
|
||||
End Sub
|
||||
|
||||
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
|
||||
Private Sub Label2_Click(sender As Object, e As EventArgs)
|
||||
Process.Start("https://www.codeproject.com/Articles/60382/AsyncWorker-A-Typesafe-BackgroundWorker-and-about")
|
||||
End Sub
|
||||
|
||||
|
@ -87,16 +87,6 @@ Crunchyroll Downloader
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setowncookie_button">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setowncookie_button_hover">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setUScookie_button">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
@ -137,11 +127,6 @@ Crunchyroll Downloader
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.Help_Background">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.hls_endString">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Zeichenfolge, die ","resolution":"adaptive" ähnelt.
|
||||
@ -266,6 +251,11 @@ Crunchyroll Downloader
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_browser_hover">
|
||||
<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.
|
||||
@ -306,22 +296,32 @@ Crunchyroll Downloader
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_pause">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_pause_hover">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_pause_play">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_pause_play_hover">
|
||||
<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.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.settings_add_softsubs">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.settings_add_softsubs_hover">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.SoftSubs_Baclground">
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_settings_hover">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
|
@ -1,58 +0,0 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
Helpers
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="T:My.Resources.Resources">
|
||||
<summary>
|
||||
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:My.Resources.Resources.ResourceManager">
|
||||
<summary>
|
||||
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:My.Resources.Resources.Culture">
|
||||
<summary>
|
||||
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="T:System.Windows.Forms.AsyncWorker">
|
||||
<summary>
|
||||
you can pass Delegates together with suitable arguments to the methods RunAsync(),
|
||||
NotifyGui() or ReportProgress(), and the Delegate will be executed either in a
|
||||
side-thread or in the Gui-thread
|
||||
</summary>
|
||||
</member>
|
||||
<member name="M:System.Windows.Forms.AsyncWorker.ReportProgress(System.Action)">
|
||||
<summary>
|
||||
executes the Delegate in the Gui-thread, if the last progress-report is more
|
||||
than <see cref="F:System.Windows.Forms.AsyncWorker.ReportInterval" />ago, and the process isn't canceled
|
||||
</summary>
|
||||
</member>
|
||||
<member name="M:System.Windows.Forms.AsyncWorker.NotifyGui(System.Action)">
|
||||
<summary>
|
||||
executes the Delegate in the Gui-thread, if the process isn't canceled
|
||||
</summary>
|
||||
</member>
|
||||
<member name="M:System.Windows.Forms.AsyncWorker.RunAsync(System.Action)">
|
||||
<summary>executes the Delegate in a thread of the threadpool</summary>
|
||||
</member>
|
||||
<member name="M:System.Windows.Forms.AsyncWorkerX.RunAsync``3(System.Action{``0,``1,``2},``0,``1,``2)">
|
||||
<summary>executes the Delegate in a thread of the threadpool</summary>
|
||||
</member>
|
||||
<member name="M:System.Windows.Forms.AsyncWorkerX.NotifyGui``3(System.Action{``0,``1,``2},``0,``1,``2)">
|
||||
<summary>executes the Delegate in the Gui-thread</summary>
|
||||
</member>
|
||||
<member name="T:System.BugException">
|
||||
<summary>
|
||||
this Exception is not meant to be handled. Only for logging and debugging-purposes
|
||||
</summary>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
@ -1 +1 @@
|
||||
d0237d6410a171c85a528193cca0f8ae20a56c5f
|
||||
0db4032339f4d8d75cab06e12a54a2b08d757c23
|
||||
|
@ -39,8 +39,29 @@ D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crun
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll Downloader.exe
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll Downloader.xml
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll Downloader.pdb
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\bin\x86\Debug\Helpers.dll
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\bin\x86\Debug\Helpers.pdb
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\bin\x86\Debug\Helpers.xml
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Debug_Mode.resources
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Login.resources
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.CRD_List_Item.resources
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll Downloader.vbprojAssemblyReference.cache
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Anime_Add.resources
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.einstellungen.resources
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Debug_Mode.resources
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.GeckoFX.resources
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.CRD_List_Item.resources
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Login.resources
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Startup.resources
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Main.resources
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Reso.resources
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll Downloader.vbproj.GenerateResource.cache
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll Downloader.exe
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll Downloader.xml
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll Downloader.pdb
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Resources.resources
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll Downloader.vbproj.CoreCompileInputs.cache
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\bin\x86\Debug\Crunchyroll Downloader.exe.config
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\bin\x86\Debug\Crunchyroll Downloader.exe
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\bin\x86\Debug\Crunchyroll Downloader.pdb
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\bin\x86\Debug\Crunchyroll Downloader.xml
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\bin\x86\Debug\Geckofx-Core.dll
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\bin\x86\Debug\Geckofx-Winforms.dll
|
||||
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - Kopie\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll Downloader.vbproj.CopyComplete
|
||||
|
@ -87,16 +87,6 @@ Crunchyroll Downloader
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setowncookie_button">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setowncookie_button_hover">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setUScookie_button">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
@ -137,11 +127,6 @@ Crunchyroll Downloader
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.Help_Background">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.hls_endString">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Zeichenfolge, die ","resolution":"adaptive" ähnelt.
|
||||
@ -266,6 +251,11 @@ Crunchyroll Downloader
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_browser_hover">
|
||||
<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.
|
||||
@ -306,22 +296,32 @@ Crunchyroll Downloader
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_pause">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_pause_hover">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_pause_play">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_pause_play_hover">
|
||||
<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.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.settings_add_softsubs">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.settings_add_softsubs_hover">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.SoftSubs_Baclground">
|
||||
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_settings_hover">
|
||||
<summary>
|
||||
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
</summary>
|
||||
|