Desing and Background changes

-small desing changes
-UI backend rewritten with custom controll
This commit is contained in:
hama3254 2020-06-26 19:07:55 +02:00
parent c2d0753b1e
commit ae03595485
94 changed files with 1067 additions and 793 deletions

Binary file not shown.

View File

@ -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

View File

@ -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

View File

@ -61,6 +61,7 @@ Namespace My
Return True
Catch ex As Exception
MsgBox(ex.ToString)
Return False
End Try
End Function

View 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

View 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>

View 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

View File

@ -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" />

View File

@ -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"

View File

@ -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)

View File

@ -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)

View File

@ -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

View File

@ -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>

View File

@ -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
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)
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
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)
Thumbnail = System.Drawing.Image.FromStream(ms)
Catch ex As Exception
'MsgBox(ex.ToString)
'MsgBox(ThumbnialURL)
End Try
With ListView1.Items.Add(0)
LVPictureBox(ListView1, gIndexH, b, "Softsubs: " + SoftSubs, NameKomplett) ' removed softsubs LVPictureBox(ListView1, gIndexH, b, "Softsubs: " + SoftSubs, NameKomplett)
With ListView1.Items.Add(0)
ItemConstructor(NameP1, NameP2, Reso, HardSub, SoftSubs, Thumbnail, URL_DL, Pfad_DL)
End With
Bt_del(ListView1, gIndexH, NameKomplett)
End With
End If
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
Public Function Bt_del(ByVal pListView As ListView, ByVal ItemIndex As Integer, ByVal NameKomplett As String) As PictureBox
'btn erstellen funktion
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

View File

@ -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")>

View File

@ -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 &quot;,&quot;resolution&quot;:&quot;adaptive&quot; ä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

View File

@ -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>&lt;/body&gt;
&lt;/html&gt;</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>"&gt; &lt;img alt="image error" src="cc1.png" class="class-cc"&gt;</value>
</data>
@ -268,9 +256,6 @@
&lt;img alt="image error" src="balken1.png" class="class-balken"&gt;</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>

View 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

View File

@ -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)

Binary file not shown.

Before

Width:  |  Height:  |  Size: 1.8 KiB

After

Width:  |  Height:  |  Size: 3.6 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 7.0 KiB

After

Width:  |  Height:  |  Size: 3.5 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 27 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 1.7 KiB

After

Width:  |  Height:  |  Size: 3.1 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 6.9 KiB

After

Width:  |  Height:  |  Size: 3.0 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 4.7 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 3.6 KiB

After

Width:  |  Height:  |  Size: 4.9 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 8.9 KiB

After

Width:  |  Height:  |  Size: 4.1 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 9.3 KiB

After

Width:  |  Height:  |  Size: 4.1 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 7.7 KiB

After

Width:  |  Height:  |  Size: 3.0 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 8.1 KiB

After

Width:  |  Height:  |  Size: 3.1 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 2.1 KiB

After

Width:  |  Height:  |  Size: 3.6 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 2.1 KiB

After

Width:  |  Height:  |  Size: 3.5 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 8.8 KiB

After

Width:  |  Height:  |  Size: 3.7 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 8.5 KiB

After

Width:  |  Height:  |  Size: 3.5 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 1.9 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 8.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.4 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 3.7 KiB

After

Width:  |  Height:  |  Size: 6.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.0 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 1.3 KiB

After

Width:  |  Height:  |  Size: 3.1 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 1.3 KiB

After

Width:  |  Height:  |  Size: 3.0 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 2.5 KiB

After

Width:  |  Height:  |  Size: 5.6 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 8.8 KiB

After

Width:  |  Height:  |  Size: 5.3 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 785 B

After

Width:  |  Height:  |  Size: 577 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 591 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 1.6 KiB

After

Width:  |  Height:  |  Size: 946 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 946 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 8.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 10 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 8.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 8.5 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 359 B

After

Width:  |  Height:  |  Size: 820 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 775 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 8.4 KiB

After

Width:  |  Height:  |  Size: 3.8 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 3.0 KiB

After

Width:  |  Height:  |  Size: 3.6 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 3.0 KiB

After

Width:  |  Height:  |  Size: 3.5 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 876 B

After

Width:  |  Height:  |  Size: 5.4 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 886 B

After

Width:  |  Height:  |  Size: 5.0 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 8.2 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 1.2 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 4.4 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 8.7 KiB

After

Width:  |  Height:  |  Size: 3.6 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 8.8 KiB

After

Width:  |  Height:  |  Size: 3.5 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 9.0 KiB

After

Width:  |  Height:  |  Size: 3.5 KiB

View File

@ -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

View File

@ -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>

View File

@ -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

View File

@ -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 &quot;,&quot;resolution&quot;:&quot;adaptive&quot; ä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>

View File

@ -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>

View File

@ -1 +1 @@
d0237d6410a171c85a528193cca0f8ae20a56c5f
0db4032339f4d8d75cab06e12a54a2b08d757c23

View File

@ -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

View File

@ -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 &quot;,&quot;resolution&quot;:&quot;adaptive&quot; ä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>