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

Resolution "Auto" added, improvements for the basic m3u8 grabber, basic thumbnail grabber

Browse Source 
1. Resolution "Auto" uses the "master.m3u8" from crunchyroll and ffmpeg use (most likely)the best resolution
2.  improvements for the basic m3u8 grabber, a small change for better url decoding
3. added search aroud the m3u8 file for a Thumbnail (in jpg format)
This commit is contained in:
hama3254 2019-12-29 16:44:16 +01:00
parent 50b29eaf5b
commit e91dec892c
18 changed files with 410 additions and 371 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

6
Crunchyroll Downloader/Anime_Add.vb
View File

@ -169,6 +169,7 @@ Public Class Anime_Add
Private Sub pictureBox4_Click(sender As Object, e As EventArgs) Handles pictureBox4.Click Private Sub pictureBox4_Click(sender As Object, e As EventArgs) Handles pictureBox4.Click
'pictureBox4.Enabled = False 'pictureBox4.Enabled = False
Main.RemoveFinishedTask()
If groupBox1.Visible = True Then If groupBox1.Visible = True Then
Try Try
If CBool(InStr(textBox1.Text, "crunchyroll.com")) Then If CBool(InStr(textBox1.Text, "crunchyroll.com")) Then
@ -183,7 +184,7 @@ Public Class Anime_Add
' Exit Sub ' Exit Sub
' pictureBox4.Enabled = True ' pictureBox4.Enabled = True
Else Else
If Main.TaskCount >= Main.MaxDL Then If Main.PR_List.Count >= Main.MaxDL Then
ListBox1.Items.Add(textBox1.Text) ListBox1.Items.Add(textBox1.Text)
textBox1.ForeColor = Color.FromArgb(9248044) textBox1.ForeColor = Color.FromArgb(9248044)
Main.Pause(1) Main.Pause(1)
@ -357,7 +358,8 @@ Public Class Anime_Add
pictureBox4.Image = My.Resources.main_button_download_default pictureBox4.Image = My.Resources.main_button_download_default
End If End If
End If End If
If Main.TaskCount >= Main.MaxDL Then If Main.PR_List.Count >= Main.MaxDL Then
Main.RemoveFinishedTask()
Else Else
If ListBox1.Items.Count > 0 Then If ListBox1.Items.Count > 0 Then
If GroupBox3.Visible = True Then If GroupBox3.Visible = True Then

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

@ -120,7 +120,7 @@ Partial Class Main
Me.ListView1.ForeColor = System.Drawing.Color.Black Me.ListView1.ForeColor = System.Drawing.Color.Black
Me.ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None Me.ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None
Me.ListView1.HideSelection = False Me.ListView1.HideSelection = False
Me.ListView1.Location = New System.Drawing.Point(1, 64) Me.ListView1.Location = New System.Drawing.Point(1, 56)
Me.ListView1.MinimumSize = New System.Drawing.Size(800, 400) Me.ListView1.MinimumSize = New System.Drawing.Size(800, 400)
Me.ListView1.Name = "ListView1" Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(838, 487) Me.ListView1.Size = New System.Drawing.Size(838, 487)

700
Crunchyroll Downloader/Main.vb
View File

@ -38,12 +38,13 @@ Public Class Main
Public Grapp_non_cr_RDY As Boolean = True Public Grapp_non_cr_RDY As Boolean = True
Public Grapp_Abord As Boolean = False Public Grapp_Abord As Boolean = False
Public MaxDL As Integer Public MaxDL As Integer
Public TaskCount As Integer = 0 '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 Event UpdateUI(ByVal sender As String, ByVal Int As Integer, ByVal Size As Double, ByVal Finished As Double)
Public ResoNotFoundString As String Public ResoNotFoundString As String
Public ResoBackString As String Public ResoBackString As String
Dim PB_list As New List(Of PictureBox) Dim PB_list As New List(Of PictureBox)
Public bt_dl 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 WebbrowserURL As String = Nothing
Public WebbrowserText As String = Nothing Public WebbrowserText As String = Nothing
Public WebbrowserTitle As String = Nothing Public WebbrowserTitle As String = Nothing
@ -221,6 +222,7 @@ Public Class Main
End Sub 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, ByVal VideoURL As String) 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, ByVal VideoURL As String)
'MsgBox(NameKomplett)
Dim ReDl As Boolean = False Dim ReDl As Boolean = False
Dim index As Integer = 0 Dim index As Integer = 0
For i As Integer = 0 To PB_list.Count - 1 For i As Integer = 0 To PB_list.Count - 1
@ -311,7 +313,6 @@ Public Class Main
If MessageBox.Show("Cancel this Download?", "Cancel?", MessageBoxButtons.YesNo) = DialogResult.Yes Then If MessageBox.Show("Cancel this Download?", "Cancel?", MessageBoxButtons.YesNo) = DialogResult.Yes Then
AbourtList.Add(b.Name) AbourtList.Add(b.Name)
b.Enabled = False b.Enabled = False
TaskCount = TaskCount - 1
Else Else
b.Image = My.Resources.main_del b.Image = My.Resources.main_del
End If End If
@ -453,7 +454,9 @@ Public Class Main
For e As Integer = 0 To Integer.MaxValue For e As Integer = 0 To Integer.MaxValue
If Grapp_RDY = True Then If Grapp_RDY = True Then
If TaskCount < MaxDL Then RemoveFinishedTask()
Pause(1)
If PR_List.Count < MaxDL Then
Exit For Exit For
Else Else
'MsgBox(e) 'MsgBox(e)
@ -666,7 +669,6 @@ Public Class Main
Public Sub GrappURL() Public Sub GrappURL()
Try Try
Grapp_RDY = False Grapp_RDY = False
TaskCount = TaskCount + 1
Dim CR_Anime_Titel As String = Nothing Dim CR_Anime_Titel As String = Nothing
Dim CR_Anime_Staffel As String = Nothing Dim CR_Anime_Staffel As String = Nothing
Dim CR_Anime_Folge As String = Nothing Dim CR_Anime_Folge As String = Nothing
@ -822,7 +824,6 @@ Public Class Main
If Grapp_Abord = True Then If Grapp_Abord = True Then
Grapp_RDY = True Grapp_RDY = True
Grapp_Abord = False Grapp_Abord = False
TaskCount = TaskCount - 1
'MsgBox("grapp_abourd") 'MsgBox("grapp_abourd")
Exit Sub Exit Sub
@ -911,56 +912,50 @@ Public Class Main
Else Else
Grapp_RDY = True Grapp_RDY = True
Exit Sub Exit Sub
TaskCount = TaskCount - 1
End If End If
End If End If
#End Region #End Region
If Resu = 42 Then
Dim client As New System.Net.WebClient URL_DL = CR_URI_Master
client.Encoding = Encoding.UTF8
'MsgBox(CR_URI_Master)
Dim str As String = client.DownloadString(CR_URI_Master)
'MsgBox(str)
If CBool(InStr(str, "x" + Resu.ToString + ",")) Then
Resu2 = "x" + Resu.ToString
Else Else
Dim client As New System.Net.WebClient
client.Encoding = Encoding.UTF8
'MsgBox(CR_URI_Master)
Dim str As String = client.DownloadString(CR_URI_Master)
'MsgBox(str) 'MsgBox(str)
If CBool(InStr(str, ResuSave + ",")) Then
Resu2 = Resu2 If CBool(InStr(str, "x" + Resu.ToString + ",")) Then
Resu2 = "x" + Resu.ToString
Else Else
Me.Invoke(New Action(Function() 'MsgBox(str)
DialogTaskString = "Resolution" If CBool(InStr(str, ResuSave + ",")) Then
ResoNotFoundString = str Resu2 = Resu2
Reso.ShowDialog()
Return Nothing
End Function))
'MsgBox(ResoBackString)
If UserCloseDialog = True Then
Throw New System.Exception(Chr(34) + "UserAbort" + Chr(34))
Else Else
Resu2 = ResoBackString Me.Invoke(New Action(Function()
DialogTaskString = "Resolution"
ResoNotFoundString = str
Reso.ShowDialog()
Return Nothing
End Function))
'MsgBox(ResoBackString)
If UserCloseDialog = True Then
Throw New System.Exception(Chr(34) + "UserAbort" + Chr(34))
Else
Resu2 = ResoBackString
End If
End If End If
End If End If
'MsgBox(Resu2)
Dim VLC_URI_1 As String() = str.Split(New String() {Resu2 + ","}, System.StringSplitOptions.RemoveEmptyEntries)
Dim VLC_URI_2 As String() = VLC_URI_1(1).Split(New [Char]() {Chr(34)})
Dim VLC_URI_3 As String() = VLC_URI_2(2).Split(New [Char]() {System.Convert.ToChar("#")})
URL_DL = VLC_URI_3(0).Trim()
End If End If
'MsgBox(Resu2)
Dim VLC_URI_1 As String() = str.Split(New String() {Resu2 + ","}, System.StringSplitOptions.RemoveEmptyEntries)
Dim VLC_URI_2 As String() = VLC_URI_1(1).Split(New [Char]() {Chr(34)})
Dim VLC_URI_3 As String() = VLC_URI_2(2).Split(New [Char]() {System.Convert.ToChar("#")})
' For i As Integer = 0 To 3
' Try
' CR_URI_Master = GetPage(CR_URI_Master)
' Exit For
' Catch ex As Exception
' End Try
' Next
' 'MsgBox(CR_URI_Master)
' Dim FFMPEG_ResoBack As String = FFMPEG_Reso(CR_URI_Master)
' 'MsgBox(FFMPEG_ResoBack)
' Dim FFMPEG_Back() As String = FFMPEG_ResoBack.Split(New String() {"#1"}, System.StringSplitOptions.RemoveEmptyEntries)
#Region "thumbnail" #Region "thumbnail"
Dim thumbnail As String() = WebbrowserText.Split(New String() {My.Resources.thumbnailString}, System.StringSplitOptions.RemoveEmptyEntries) Dim thumbnail As String() = WebbrowserText.Split(New String() {My.Resources.thumbnailString}, System.StringSplitOptions.RemoveEmptyEntries)
Dim thumbnail2 As String() = thumbnail(1).Split(New String() {Chr(34) + "}"}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"}) Dim thumbnail2 As String() = thumbnail(1).Split(New String() {Chr(34) + "}"}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"})
@ -971,7 +966,6 @@ Public Class Main
Dim ResoHTMLDisplay As String = Nothing Dim ResoHTMLDisplay As String = Nothing
If ResoBackString = Nothing Then If ResoBackString = Nothing Then
ResoHTMLDisplay = Resu.ToString + "p" ResoHTMLDisplay = Resu.ToString + "p"
ResoBackString = Nothing
Else Else
Dim ResoHTML As String() = ResoBackString.Split(New String() {"x"}, System.StringSplitOptions.RemoveEmptyEntries) Dim ResoHTML As String() = ResoBackString.Split(New String() {"x"}, System.StringSplitOptions.RemoveEmptyEntries)
If ResoHTML.Count > 1 Then If ResoHTML.Count > 1 Then
@ -982,22 +976,25 @@ Public Class Main
End If End If
End If End If
Dim L2Name As String = CR_Anime_Staffel + " " + CR_Anime_Folge Dim L2Name As String = CR_Anime_Staffel + " " + CR_Anime_Folge
If Resu = 42 Then
ResoHTMLDisplay = "[Auto]"
End If
If CR_Anime_Staffel = Nothing Then If CR_Anime_Staffel = Nothing Then
L2Name = CR_Anime_Folge L2Name = CR_Anime_Folge
End If End If
Pfad_DL = Pfad2
Me.Invoke(New Action(Function() Me.Invoke(New Action(Function()
ListAdd(CR_FilenName, CR_Anime_Titel, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail3, URL_DL) ListAdd(Pfad_DL, CR_Anime_Titel, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail3, URL_DL)
Return Nothing Return Nothing
End Function)) End Function))
' liList.Add(My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + CR_Anime_Titel + " <br> " + CR_Anime_Staffel + " " + CR_Anime_Folge + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + Subsprache3 + My.Resources.htmlnachHardSubs + "<!-- " + CR_FilenName + "-->") ' liList.Add(My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + CR_Anime_Titel + " <br> " + CR_Anime_Staffel + " " + CR_Anime_Folge + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + Subsprache3 + My.Resources.htmlnachHardSubs + "<!-- " + CR_FilenName + "-->")
#End Region #End Region
'MsgBox(liList(0)) 'MsgBox(liList(0))
URL_DL = VLC_URI_3(0).Trim()
' URL_DL = Chr(34) + GetPage(CR_URI_Master) + Chr(34) + " -map 0:a " + "-map " + FFMPEG_Back(1) ' URL_DL = Chr(34) + GetPage(CR_URI_Master) + Chr(34) + " -map 0:a " + "-map " + FFMPEG_Back(1)
'MsgBox(URL_DL) 'MsgBox(URL_DL)
Pfad_DL = Pfad2
AsyncWorkerX.RunAsync(AddressOf DownloadFFMPEG, URL_DL, Pfad_DL, CR_FilenName) AsyncWorkerX.RunAsync(AddressOf DownloadFFMPEG, URL_DL, Pfad_DL, Pfad_DL)
'GeckoWebBrowser1.LoadHtml(My.Resources.htmlTop + vbNewLine + liList.Last + vbNewLine + My.Resources.ulEnd + My.Resources.htmlEnd) 'GeckoWebBrowser1.LoadHtml(My.Resources.htmlTop + vbNewLine + liList.Last + vbNewLine + My.Resources.ulEnd + My.Resources.htmlEnd)
Grapp_RDY = True Grapp_RDY = True
Me.Invoke(New Action(Function() Me.Invoke(New Action(Function()
@ -1007,13 +1004,12 @@ Public Class Main
End Function)) End Function))
' ManageWorker(URL_DL, Pfad_DL, CR_FilenName)() ' ManageWorker(URL_DL, Pfad_DL, CR_FilenName)()
Catch ex As Exception Catch ex As Exception
TaskCount = TaskCount - 1
Me.Invoke(New Action(Function() Me.Invoke(New Action(Function()
Anime_Add.StatusLabel.Text = "Status: idle" Anime_Add.StatusLabel.Text = "Status: idle"
Return Nothing Return Nothing
End Function)) End Function))
'StatusLabel.Text = "Status: idle"
Grapp_RDY = True Grapp_RDY = True
'MsgBox(ex.ToString) 'MsgBox(ex.ToString)
If CBool(InStr(ex.ToString, "Could not find the sub language")) Then If CBool(InStr(ex.ToString, "Could not find the sub language")) Then
@ -1065,29 +1061,31 @@ Public Class Main
End Try End Try
End Sub End Sub
Public Sub RemoveFinishedTask()
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
End Sub
Private Function DownloadFFMPEG(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal Filename As String) As String 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 proc As New Process
Control.CheckForIllegalCrossThreadCalls = False
'Dim input As String = Me.dlgOpen.FileName
'Dim output As String = Me.dlgSave.FileName
Dim exepath As String = Application.StartupPath + "\ffmpeg.exe" Dim exepath As String = Application.StartupPath + "\ffmpeg.exe"
Dim startinfo As New System.Diagnostics.ProcessStartInfo Dim startinfo As New System.Diagnostics.ProcessStartInfo
Dim sr As StreamReader '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) + " -c copy -bsf:a aac_adtstoasc " + Pfad_DL 'start ffmpeg with command strFFCMD string
'-bsf:a aac_adtstoasc
Dim cmd As String = "-i " + Chr(34) + URL_DL + Chr(34) + " " + ffmpeg_command + " " + DL_Pfad '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
'MsgBox(cmd) 'MsgBox(cmd)
'22050
'
Dim ffmpegOutput As String = Nothing
Dim ffmpegOutput2 As String = Nothing
'all parameters required to run the process 'all parameters required to run the process
startinfo.FileName = exepath startinfo.FileName = exepath
startinfo.Arguments = cmd startinfo.Arguments = cmd
@ -1096,82 +1094,73 @@ Public Class Main
startinfo.RedirectStandardError = True startinfo.RedirectStandardError = True
startinfo.RedirectStandardOutput = True startinfo.RedirectStandardOutput = True
startinfo.CreateNoWindow = True startinfo.CreateNoWindow = True
AddHandler proc.ErrorDataReceived, AddressOf TestOutput
AddHandler proc.OutputDataReceived, AddressOf TestOutput
proc.StartInfo = startinfo proc.StartInfo = startinfo
PR_List.Add(proc)
proc.Start() ' start the process proc.Start() ' start the process
sr = proc.StandardError 'standard error is used by ffmpeg proc.BeginOutputReadLine()
Dim x As Boolean = False proc.BeginErrorReadLine()
Dim Grundwert As Integer
Dim EndFileSize As Double = Nothing
Dim Debug As String = Nothing
Do
'If BG.CancellationPending Then 'check if a cancellation request was made
' proc.Kill()
' Return Nothing
' Exit Function
'End If
ffmpegOutput = ffmpegOutput + vbNewLine + sr.ReadLine
ffmpegOutput2 = sr.ReadLine
Try
If x = False Then
If InStr(ffmpegOutput, "Duration: ") Then
Dim ZeitGesamt As String() = ffmpegOutput.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(":")})
Dim ZeitGesamtInteger As Integer = CInt(ZeitGesamtSplit(0)) * 3600 + CInt(ZeitGesamtSplit(1)) * 60 + CInt(ZeitGesamtSplit(2))
Grundwert = ZeitGesamtInteger
x = True
End If
End If
If Me.Visible = False Or AbourtList.Contains(Filename) Then
proc.Kill()
RaiseEvent UpdateUI(Filename, 200, 0, 0)
Return Nothing
Exit Function
End If
If InStr(ffmpegOutput2, "time=") Then
Dim ZeitFertig As String() = ffmpegOutput2.Split(New String() {"time="}, System.StringSplitOptions.RemoveEmptyEntries)
Debug = ZeitFertig(0)
Debug = ZeitFertig(0) + ZeitFertig(1)
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(ffmpegOutput2, "bitrate=") Then
Dim bitrate As String() = ffmpegOutput2.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 = Grundwert * bitrateInt / 8
Dim DownloadFinished As Double = ZeitFertigInteger * bitrateInt / 8
Dim percent As Integer = (CInt(ZeitFertigInteger / Grundwert * 100))
EndFileSize = FileSize
RaiseEvent UpdateUI(Filename, percent, Math.Round(DownloadFinished, 2, MidpointRounding.AwayFromZero), Math.Round(FileSize, 2, MidpointRounding.AwayFromZero))
End If
'AsyncWorkerX.RunAsync(AddressOf Main_Update_Gecko, Filename, percent)
Catch ex As Exception
'MsgBox(ex.ToString + vbNewLine + Debug)
End Try
Loop Until proc.HasExited And ffmpegOutput2 = Nothing Or ffmpegOutput2 = ""
'AsyncWorkerX.RunAsync(AddressOf Main_Update_Gecko, Filename, 100)
'MsgBox(ffmpegOutput)
RaiseEvent UpdateUI(Filename, 100, Math.Round(EndFileSize, 2, MidpointRounding.AwayFromZero), Math.Round(EndFileSize, 2, MidpointRounding.AwayFromZero))
TaskCount = TaskCount - 1
'MsgBox(ffmpegOutput)
Return Nothing Return Nothing
End Function End Function
Sub TestOutput(ByVal sender As Object, ByVal e As DataReceivedEventArgs)
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)
If Me.Visible = False Or AbourtList.Contains(FileName) Then
pr.Kill()
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: ") 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(":")})
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
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))
End Sub
Private Sub Main_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing Private Sub Main_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
Try Try
Me.Visible = False Me.Visible = False
@ -1187,8 +1176,6 @@ Public Class Main
If PB_list(i).Name = sender Then If PB_list(i).Name = sender Then
If int = 200 Then If int = 200 Then
Dim p As PictureBox = PB_list(i) Dim p As PictureBox = PB_list(i)
Dim c As Integer = CInt(ListView1.Items.Item(i).Text)
ListView1.Items.Item(i).Text = int
p.Image = p.BackgroundImage p.Image = p.BackgroundImage
Dim g As Graphics = Graphics.FromImage(p.Image) Dim g As Graphics = Graphics.FromImage(p.Image)
Dim ProgressbarPoint As Point = New Point(195, 70) Dim ProgressbarPoint As Point = New Point(195, 70)
@ -1206,20 +1193,12 @@ Public Class Main
stringFormat.Alignment = StringAlignment.Far stringFormat.Alignment = StringAlignment.Far
stringFormat.LineAlignment = StringAlignment.Center stringFormat.LineAlignment = StringAlignment.Center
Dim p As PictureBox = PB_list(i) Dim p As PictureBox = PB_list(i)
Dim c As Integer = CInt(ListView1.Items.Item(i).Text)
ListView1.Items.Item(i).Text = int
p.Image = p.BackgroundImage p.Image = p.BackgroundImage
Dim g As Graphics = Graphics.FromImage(p.Image) Dim g As Graphics = Graphics.FromImage(p.Image)
Dim ProgressbarPoint As Point = New Point(195, 70) Dim ProgressbarPoint As Point = New Point(195, 70)
Dim WeißeBox As Point = New Point(450, 93) Dim WeißeBox As Point = New Point(450, 93)
Dim ProzentText As Point = New Point(795, 113) Dim ProzentText As Point = New Point(795, 113)
Dim Weiß As Brush = New SolidBrush(Color.FromArgb(242, 242, 242)) Dim Weiß As Brush = New SolidBrush(Color.FromArgb(242, 242, 242))
'If int < 10 Then
' ProzentText = New Point(773, 95)
'ElseIf int < 100 Then
' ProzentText = New Point(768, 95)
'End If
g.FillRectangle(Weiß, WeißeBox.X + 1, WeißeBox.Y + 1, 350, 30) g.FillRectangle(Weiß, WeißeBox.X + 1, WeißeBox.Y + 1, 350, 30)
g.DrawString(Size.ToString + "MB/" + Finished.ToString + "MB " + int.ToString + "%", FontLabel2.Font, Brushes.Black, ProzentText, stringFormat) 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)) Dim brGradient As Brush = New SolidBrush(Color.FromArgb(247, 140, 37))
@ -1231,7 +1210,9 @@ Public Class Main
End Sub End Sub
Private Sub pictureBox3_Click(sender As Object, e As EventArgs) Handles pictureBox3.Click Private Sub pictureBox3_Click(sender As Object, e As EventArgs) Handles pictureBox3.Click
If TaskCount > 0 Then RemoveFinishedTask()
Pause(1)
If PR_List.Count > 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 If MessageBox.Show("Are you sure you want close the program and end all active downloads?", "confirm?", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
Me.Close() Me.Close()
End If End If
@ -1319,271 +1300,301 @@ Public Class Main
End Try End Try
End Sub End Sub
Public Shared Function GetPage(url As String) As String
Try #Region "unused"
Dim ourUri As New Uri(url)
Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create(ourUri), HttpWebRequest)
myHttpWebRequest.Timeout = 10000
Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)
Return myHttpWebResponse.ResponseUri.ToString
myHttpWebResponse.Close()
Catch e As Exception
'MsgBox(e.Message.ToString)
Return url
End Try
End Function
Public Function FFMPEG_Reso(ByVal DL_URL 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 sr As StreamReader
' 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
'-bsf:a aac_adtstoasc
Dim cmd As String = "-i " + Chr(34) + DL_URL + Chr(34) 'start ffmpeg with command strFFCMD string
'MsgBox(cmd)
'22050
'
Dim ffmpegOutput As String = Nothing
Dim ffmpegOutput2 As String = Nothing
'all parameters required to run the process
startinfo.FileName = exepath
startinfo.Arguments = cmd
startinfo.UseShellExecute = False
startinfo.WindowStyle = ProcessWindowStyle.Hidden
startinfo.RedirectStandardError = True
startinfo.RedirectStandardOutput = True
startinfo.CreateNoWindow = True
proc.StartInfo = startinfo
proc.Start() ' start the process
sr = proc.StandardError 'standard error is used by ffmpeg
Dim ZeitAnzeige As String = Nothing
Dim StreamNR As String = Nothing
Dim x As Boolean = False
Do
ffmpegOutput = ffmpegOutput + vbNewLine + sr.ReadLine
ffmpegOutput2 = sr.ReadLine
Try
If x = False Then
If InStr(ffmpegOutput, "Duration: ") Then
x = True
Dim ZeitGesamt As String() = ffmpegOutput.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(":")})
For i As Integer = 0 To ZeitGesamtSplit.Count - 1 'Public Shared Function GetPage(url As String) As String
If ZeitGesamtSplit(i) = "00" Then ' Try
' Dim ourUri As New Uri(url)
' Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create(ourUri), HttpWebRequest)
' myHttpWebRequest.Timeout = 10000
' Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)
' Return myHttpWebResponse.ResponseUri.ToString
' myHttpWebResponse.Close()
' Catch e As Exception
' 'MsgBox(e.Message.ToString)
' Return url
' End Try
'End Function
Else
If ZeitAnzeige = Nothing Then
ZeitAnzeige = ZeitGesamtSplit(i)
Else
ZeitAnzeige = ZeitAnzeige + ":" + ZeitGesamtSplit(i)
End If
End If
Next
End If
End If
Catch ex As Exception 'Public Function FFMPEG_Reso(ByVal DL_URL 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 sr As StreamReader
' ' 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
' '-bsf:a aac_adtstoasc
' Dim cmd As String = "-i " + Chr(34) + DL_URL + Chr(34) 'start ffmpeg with command strFFCMD string
' 'MsgBox(cmd)
' '22050
' '
' Dim ffmpegOutput As String = Nothing
' Dim ffmpegOutput2 As String = Nothing
' 'all parameters required to run the process
' startinfo.FileName = exepath
' startinfo.Arguments = cmd
' startinfo.UseShellExecute = False
' startinfo.WindowStyle = ProcessWindowStyle.Hidden
' startinfo.RedirectStandardError = True
' startinfo.RedirectStandardOutput = True
' startinfo.CreateNoWindow = True
' proc.StartInfo = startinfo
' proc.Start() ' start the process
' sr = proc.StandardError 'standard error is used by ffmpeg
' Dim ZeitAnzeige As String = Nothing
' Dim StreamNR As String = Nothing
' Dim x As Boolean = False
' Do
End Try ' ffmpegOutput = ffmpegOutput + vbNewLine + sr.ReadLine
Pause(1) ' ffmpegOutput2 = sr.ReadLine
Loop Until proc.HasExited And ffmpegOutput2 = Nothing Or InStr(ffmpegOutput, "At least one output file must be specified") 'And ffmpegOutput2 = Nothing Or ffmpegOutput2 = "" ' Try
If InStr(ffmpegOutput, "Server returned 401 Unauthorized") Then ' If x = False Then
' If InStr(ffmpegOutput, "Duration: ") Then
' x = True
' Dim ZeitGesamt As String() = ffmpegOutput.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(":")})
End If ' For i As Integer = 0 To ZeitGesamtSplit.Count - 1
Dim Zeilen() As String = ffmpegOutput.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries) ' If ZeitGesamtSplit(i) = "00" Then
For i As Integer = 0 To Zeilen.Count - 1
If InStr(Zeilen(i), "x" + Resu.ToString + " [") Then
Dim ZeileReso() As String = Zeilen(i).Split(New String() {": Video:"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim ZeileReso2() As String = ZeileReso(0).Split(New String() {"Stream #"}, System.StringSplitOptions.RemoveEmptyEntries)
StreamNR = ZeileReso2(1)
End If
Next
If StreamNR = Nothing Then
'MsgBox(cmd + vbNewLine + ffmpegOutput)
ResoNotFoundString = ffmpegOutput
DialogTaskString = "Resolution"
Reso.ShowDialog()
'MsgBox(ResoBackString)
If UserCloseDialog = True Then
Throw New System.Exception(Chr(34) + "UserAbort" + Chr(34))
Else
For i As Integer = 0 To Zeilen.Count - 1
If InStr(Zeilen(i), ResoBackString) Then
Dim ZeileReso() As String = Zeilen(i).Split(New String() {": Video:"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim ZeileReso2() As String = ZeileReso(0).Split(New String() {"Stream #"}, System.StringSplitOptions.RemoveEmptyEntries)
StreamNR = ZeileReso2(1)
End If
Next
End If
End If
Return ZeitAnzeige + "#1" + StreamNR
End Function
'If CBool(InStr(str, "x" + Resu.ToString + ",")) Then
' Resu2 = "x" + Resu.ToString
'Else
' If CBool(InStr(str, ResuSave + ",")) Then
' Resu2 = Resu2
' Else
' ResoNotFoundString = str ' Else
' If ZeitAnzeige = Nothing Then
' ZeitAnzeige = ZeitGesamtSplit(i)
' Else
' ZeitAnzeige = ZeitAnzeige + ":" + ZeitGesamtSplit(i)
' End If
' End If
' Next
' End If
' End If
' Catch ex As Exception
' End Try
' Pause(1)
' Loop Until proc.HasExited And ffmpegOutput2 = Nothing Or InStr(ffmpegOutput, "At least one output file must be specified") 'And ffmpegOutput2 = Nothing Or ffmpegOutput2 = ""
' If InStr(ffmpegOutput, "Server returned 401 Unauthorized") Then
' End If
' Dim Zeilen() As String = ffmpegOutput.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
' For i As Integer = 0 To Zeilen.Count - 1
' If InStr(Zeilen(i), "x" + Resu.ToString + " [") Then
' Dim ZeileReso() As String = Zeilen(i).Split(New String() {": Video:"}, System.StringSplitOptions.RemoveEmptyEntries)
' Dim ZeileReso2() As String = ZeileReso(0).Split(New String() {"Stream #"}, System.StringSplitOptions.RemoveEmptyEntries)
' StreamNR = ZeileReso2(1)
' End If
' Next
' If StreamNR = Nothing Then
' 'MsgBox(cmd + vbNewLine + ffmpegOutput)
' ResoNotFoundString = ffmpegOutput
' DialogTaskString = "Resolution" ' DialogTaskString = "Resolution"
' Reso.ShowDialog() ' Reso.ShowDialog()
' 'MsgBox(ResoBackString) ' 'MsgBox(ResoBackString)
' If UserCloseDialog = True Then ' If UserCloseDialog = True Then
' Throw New System.Exception(Chr(34) + "UserAbort" + Chr(34)) ' Throw New System.Exception(Chr(34) + "UserAbort" + Chr(34))
' Else ' Else
' Resu2 = ResoBackString ' For i As Integer = 0 To Zeilen.Count - 1
' If InStr(Zeilen(i), ResoBackString) Then
' Dim ZeileReso() As String = Zeilen(i).Split(New String() {": Video:"}, System.StringSplitOptions.RemoveEmptyEntries)
' Dim ZeileReso2() As String = ZeileReso(0).Split(New String() {"Stream #"}, System.StringSplitOptions.RemoveEmptyEntries)
' StreamNR = ZeileReso2(1)
' End If
' Next
' End If ' End If
' End If ' End If
'End If ' Return ZeitAnzeige + "#1" + StreamNR
''MsgBox(Resu2) 'End Function
'Dim VLC_URI_1 As String() = str.Split(New String() {Resu2 + ","}, System.StringSplitOptions.RemoveEmptyEntries) #End Region
'Dim VLC_URI_2 As String() = VLC_URI_1(1).Split(New [Char]() {Chr(34)})
'Dim VLC_URI_3 As String() = VLC_URI_2(2).Split(New [Char]() {System.Convert.ToChar("#")})
Public Sub Grapp_non_CR() Public Sub Grapp_non_CR()
'Try 'Try
'MsgBox(WebbrowserTitle) 'MsgBox(WebbrowserTitle)
Grapp_non_cr_RDY = False Grapp_non_cr_RDY = False
TaskCount = TaskCount + 1 Dim Video_Title As String = WebbrowserTitle.Replace(" - Watch on VRV", "").Replace("Free Streaming", "").Replace("Tubi", "")
Dim Video_Title As String = WebbrowserTitle.Replace(" - Watch on VRV", "") Video_Title = RemoveExtraSpaces(Video_Title)
#Region "Name + Pfad" #Region "Name + Pfad"
Dim Video_FilenName As String = Video_Title Dim Video_FilenName As String = Video_Title
Video_FilenName = System.Text.RegularExpressions.Regex.Replace(Video_FilenName, "[^\w\\-]", " ") Video_FilenName = System.Text.RegularExpressions.Regex.Replace(Video_FilenName, "[^\w\\-]", " ")
Video_FilenName = RemoveExtraSpaces(Video_FilenName + ".mp4") Video_FilenName = RemoveExtraSpaces(Video_FilenName + ".mp4")
'MsgBox(Video_FilenName) 'MsgBox(Video_FilenName)
#End Region #End Region
#Region "m3u8 suche" #Region "m3u8 suche"
Dim ii As Integer = 0 Dim ii As Integer = 0
Dim Video_URI_Master As String = Nothing Dim Video_URI_Master As String = Nothing
Dim Video_URI_Master_Split1 As String() = WebbrowserText.Split(New String() {".m3u8?"}, System.StringSplitOptions.RemoveEmptyEntries) Dim Video_URI_Master_Split1 As String() = WebbrowserText.Split(New String() {".m3u8?"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim hls_List As New List(Of String) #Region "thumbnail"
For i As Integer = 0 To Video_URI_Master_Split1.Count - 2 Dim thumbnail As String() = Nothing
Dim Video_URI_Master_Split_Top As String() = Video_URI_Master_Split1(i).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) Dim thumbnail2 As String() = Nothing
Dim Video_URI_Master_Split_Bottom As String() = Video_URI_Master_Split1(i + 1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) Dim thumbnail4 As String = "None, will usese fail image"
hls_List.Add(Video_URI_Master_Split_Top(Video_URI_Master_Split_Top.Count - 1) + ".m3u8?" + Video_URI_Master_Split_Bottom(0)) Try
If InStr(Video_URI_Master_Split1(0), "thumbnail") Then
thumbnail = Video_URI_Master_Split1(0).Split(New String() {"thumbnail"}, System.StringSplitOptions.RemoveEmptyEntries)
ElseIf InStr(Video_URI_Master_Split1(1), "thumbnail") Then
thumbnail = Video_URI_Master_Split1(1).Split(New String() {"thumbnail"}, System.StringSplitOptions.RemoveEmptyEntries)
End If
Catch ex As Exception
'MsgBox(ex.ToString)
End Try
Try
For i As Integer = 0 To thumbnail.Count - 1
'MsgBox((thumbnail.Count - 1).ToString + vbNewLine + i.ToString + vbNewLine + thumbnail(i))
If InStr(thumbnail(i), ".jpg") Then
If InStr(thumbnail(i), "https:") Then
thumbnail2 = thumbnail(i).Split(New String() {".jpg"}, System.StringSplitOptions.RemoveEmptyEntries)
'MsgBox(thumbnail2(thumbnail2.Count - 1))
Dim thumbnail3 As String() = thumbnail2(0).Split(New String() {"https:"}, System.StringSplitOptions.RemoveEmptyEntries)
thumbnail4 = "https:" + thumbnail3(thumbnail3.Count - 1).Replace("&amp;", "&").Replace("/u0026", "&").Replace("\u002F", "/").Replace("\/", "/") + ".jpg"
Exit For
End If
End If
Next Next
Me.Invoke(New Action(Function() Catch ex As Exception
Anime_Add.StatusLabel.Text = "Status: m3u8 found, looking for resolution" 'MsgBox(ex.ToString)
Return Nothing End Try
End Function)) 'MsgBox(thumbnail4)
'Dim thumbnail2 As String() = thumbnail(1).Split(New String() {Chr(34) + "}"}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"})
'Dim thumbnail3 As String = "None, will usese fail image" 'thumbnail2(0).Replace("\/", "/")
#End Region
Dim hls_List As New List(Of String)
For i As Integer = 0 To Video_URI_Master_Split1.Count - 2
Dim Video_URI_Master_Split_Top As String() = Video_URI_Master_Split1(i).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim Video_URI_Master_Split_Bottom As String() = Video_URI_Master_Split1(i + 1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
hls_List.Add(Video_URI_Master_Split_Top(Video_URI_Master_Split_Top.Count - 1) + ".m3u8?" + Video_URI_Master_Split_Bottom(0))
Next
Me.Invoke(New Action(Function()
Anime_Add.StatusLabel.Text = "Status: m3u8 found, looking for resolution"
Return Nothing
End Function))
#End Region #End Region
#Region "lösche doppel download" #Region "lösche doppel download"
Dim Pfad5 As String = Path.Combine(Pfad + Video_FilenName) Dim Pfad5 As String = Path.Combine(Pfad + Video_FilenName)
If My.Computer.FileSystem.FileExists(Pfad5) Then 'Pfad = Kompeltter Pfad mit Dateinamen + ENdung If My.Computer.FileSystem.FileExists(Pfad5) Then 'Pfad = Kompeltter Pfad mit Dateinamen + ENdung
If MessageBox.Show("The file " + Pfad5 + " already exists." + vbNewLine + "You want to override it?", "File exists!", MessageBoxButtons.OKCancel) = DialogResult.OK Then If MessageBox.Show("The file " + Pfad5 + " already exists." + vbNewLine + "You want to override it?", "File exists!", MessageBoxButtons.OKCancel) = DialogResult.OK Then
Try Try
My.Computer.FileSystem.DeleteFile(Pfad5) My.Computer.FileSystem.DeleteFile(Pfad5)
Catch ex As Exception Catch ex As Exception
End Try End Try
Else Else
Grapp_non_cr_RDY = True Grapp_non_cr_RDY = True
TaskCount = TaskCount - 1 Exit Sub
Exit Sub
End If
End If End If
End If
#End Region #End Region
Dim str As String = Nothing Dim str As String = Nothing
Dim StreamSuccess = False Dim StreamSuccess = False
For i2 As Integer = 0 To hls_List.Count - 1
For i2 As Integer = 0 To hls_List.Count - 1
Dim client As New System.Net.WebClient Dim client As New System.Net.WebClient
client.Encoding = Encoding.UTF8 client.Encoding = Encoding.UTF8
'MsgBox(CR_URI_Master) 'MsgBox(CR_URI_Master)
Dim urlnow As String = hls_List.Item(i2).Replace("&amp;", "&") Dim urlnow As String = hls_List.Item(i2).Replace("&amp;", "&").Replace("/u0026", "&").Replace("\u002F", "/")
urlnow = urlnow.Replace("/u0026", "&")
'MsgBox(urlnow) 'MsgBox(urlnow)
str = client.DownloadString(urlnow) str = client.DownloadString(urlnow)
'MsgBox(str) 'MsgBox(str)
If CBool(InStr(str, "x" + Resu.ToString + ",")) Then If CBool(InStr(str, "x" + Resu.ToString + ",")) Then
Resu2 = "x" + Resu.ToString Resu2 = "x" + Resu.ToString
Else Else
'MsgBox(str) 'MsgBox(str)
If CBool(InStr(str, ResuSave + ",")) Then If CBool(InStr(str, ResuSave + ",")) Then
Resu2 = Resu2 Resu2 = ResuSave + ","
Else Else
Me.Invoke(New Action(Function() Me.Invoke(New Action(Function()
DialogTaskString = "Resolution" DialogTaskString = "Resolution"
ResoNotFoundString = str ResoNotFoundString = str
Reso.ShowDialog() Reso.ShowDialog()
Return Nothing Return Nothing
End Function)) End Function))
'MsgBox(ResoBackString) 'MsgBox(ResoBackString)
If UserCloseDialog = True Then If UserCloseDialog = True Then
Throw New System.Exception(Chr(34) + "UserAbort" + Chr(34)) Throw New System.Exception(Chr(34) + "UserAbort" + Chr(34))
Else Else
ResuSave = ResoBackString ResuSave = ResoBackString
End If
End If End If
End If End If
End If
Dim URL_Temp As String = Nothing
Try
Dim Video_URI_1 As String() = str.Split(New String() {Resu2 + ","}, System.StringSplitOptions.RemoveEmptyEntries) Dim Video_URI_1 As String() = str.Split(New String() {Resu2 + ","}, System.StringSplitOptions.RemoveEmptyEntries)
Dim Video_URI_2 As String() = Video_URI_1(1).Split(New [Char]() {Chr(34)}) Dim Video_URI_2 As String() = Video_URI_1(1).Split(New [Char]() {Chr(34)})
Dim Video_URI_3 As String() = Video_URI_2(2).Split(New [Char]() {System.Convert.ToChar("#")}) Dim Video_URI_3 As String() = Video_URI_2(2).Split(New [Char]() {System.Convert.ToChar("#")})
Dim clientIndex As New System.Net.WebClient URL_Temp = Video_URI_3(0).Trim()
clientIndex.Encoding = Encoding.UTF8 Catch ex As Exception
'MsgBox(CR_URI_Master) ResoBackString = "[Auto]"
Dim DRM_Check As String = clientIndex.DownloadString(Video_URI_3(0).Trim()) URL_Temp = urlnow
If InStr(DRM_Check, "drm") Then End Try
Else Dim clientIndex As New System.Net.WebClient
URL_DL = Video_URI_3(0).Trim() clientIndex.Encoding = Encoding.UTF8
'MsgBox(CR_URI_Master)
Dim DRM_Check As String = clientIndex.DownloadString(URL_Temp)
If InStr(DRM_Check, "drm") Then
Else
URL_DL = URL_Temp
'MsgBox(URL_DL) 'MsgBox(URL_DL)
StreamSuccess = True StreamSuccess = True
Exit For Exit For
End If
Next
If StreamSuccess = False Then
Grapp_non_cr_RDY = True
TaskCount = TaskCount - 1
Exit Sub
End If End If
#Region "thumbnail"
'Dim thumbnail As String() = WebbrowserText.Split(New String() {My.Resources.thumbnailString}, System.StringSplitOptions.RemoveEmptyEntries) Next
'Dim thumbnail2 As String() = thumbnail(1).Split(New String() {Chr(34) + "}"}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"})
Dim thumbnail3 As String = "None, will usese fail image" 'thumbnail2(0).Replace("\/", "/") If StreamSuccess = False Then
#End Region Grapp_non_cr_RDY = True
Exit Sub
End If
#Region "<li> constructor" #Region "<li> constructor"
Dim Subsprache3 As String = "undefined" 'HardSubValuesToDisplay(SubSprache2) Dim Subsprache3 As String = "undefined" 'HardSubValuesToDisplay(SubSprache2)
Dim ResoHTMLDisplay As String = Nothing Dim ResoHTMLDisplay As String = Nothing
If ResoBackString = Nothing Then If ResoBackString = Nothing Then
ResoHTMLDisplay = Resu.ToString + "p" ResoHTMLDisplay = Resu.ToString + "p"
ResoBackString = Nothing ElseIf ResoBackString = "[Auto]" Then
ResoHTMLDisplay = "[Auto]"
Else
'MsgBox(ResoBackString)
Dim ResoHTML As String() = ResoBackString.Split(New String() {"x"}, System.StringSplitOptions.RemoveEmptyEntries)
If ResoHTML.Count > 1 Then
ResoHTMLDisplay = ResoHTML(1) + "p"
Else Else
Dim ResoHTML As String() = ResoBackString.Split(New String() {"x"}, System.StringSplitOptions.RemoveEmptyEntries) ResoHTMLDisplay = ResoHTML(0) + "p"
If ResoHTML.Count > 1 Then
ResoHTMLDisplay = ResoHTML(1) + "p"
Else
ResoHTMLDisplay = ResoHTML(0) + "p"
End If
End If End If
Dim L2Name As String = WebbrowserTitle.Replace(" - Watch on VRV", "") End If
Dim L2Name As String = Video_Title
Dim L1Name_Split As String() = WebbrowserURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries) Dim L1Name_Split As String() = WebbrowserURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim L1Name As String = L1Name_Split(1) Dim L1Name As String = L1Name_Split(1)
Me.Invoke(New Action(Function()
ListAdd(Video_FilenName, L1Name, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail3, URL_DL)
Return Nothing
End Function))
#End Region
Pfad_DL = Chr(34) + Pfad + "\" + Video_FilenName + Chr(34) Pfad_DL = Chr(34) + Pfad + "\" + Video_FilenName + Chr(34)
AsyncWorkerX.RunAsync(AddressOf DownloadFFMPEG, URL_DL, Pfad_DL, Video_FilenName) Me.Invoke(New Action(Function()
ListAdd(Pfad_DL, L1Name, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail4, URL_DL)
Return Nothing
End Function))
#End Region
AsyncWorkerX.RunAsync(AddressOf DownloadFFMPEG, URL_DL, Pfad_DL, Pfad_DL)
Grapp_non_cr_RDY = True Grapp_non_cr_RDY = True
Me.Invoke(New Action(Function() Me.Invoke(New Action(Function()
Anime_Add.StatusLabel.Text = "Status: idle" Anime_Add.StatusLabel.Text = "Status: idle"
Return Nothing Return Nothing
End Function)) End Function))
' ManageWorker(URL_DL, Pfad_DL, CR_FilenName)() ' ManageWorker(URL_DL, Pfad_DL, CR_FilenName)()
'Catch ex As Exception 'Catch ex As Exception
' TaskCount = TaskCount - 1 ' TaskCount = TaskCount - 1
@ -1643,5 +1654,4 @@ Public Class Main
'End Try 'End Try
End Sub End Sub
End Class End Class

BIN
Crunchyroll Downloader/Resources/backgroud.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 1.4 KiB

After

Width:  |  Height:  |  Size: 1.4 KiB

2
Crunchyroll Downloader/SoftSub.vb
View File

@ -184,7 +184,7 @@ Public Class SoftSub
LocalSoftSubs.Add("esES") LocalSoftSubs.Add("esES")
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.ToString) 'MsgBox(ex.ToString)
End Try End Try
If LocalSoftSubs.Count > 0 Then If LocalSoftSubs.Count > 0 Then
If CBool(InStr(textBox1.Text, "crunchyroll.com")) Then If CBool(InStr(textBox1.Text, "crunchyroll.com")) Then

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

Binary file not shown.

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

Binary file not shown.

BIN
Crunchyroll Downloader/bin/x86/Debug/Dev-build-51-19-Crunchyroll-Downloader-v3.x.zip
View File

Binary file not shown.

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

@ -24,6 +24,7 @@ Partial Class einstellungen
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Me.GB_Resolution = New System.Windows.Forms.GroupBox() Me.GB_Resolution = New System.Windows.Forms.GroupBox()
Me.AAuto = New System.Windows.Forms.RadioButton()
Me.A480p = New System.Windows.Forms.RadioButton() Me.A480p = New System.Windows.Forms.RadioButton()
Me.A360p = New System.Windows.Forms.RadioButton() Me.A360p = New System.Windows.Forms.RadioButton()
Me.A720p = New System.Windows.Forms.RadioButton() Me.A720p = New System.Windows.Forms.RadioButton()
@ -71,27 +72,41 @@ Partial Class einstellungen
'GB_Resolution 'GB_Resolution
' '
Me.GB_Resolution.BackColor = System.Drawing.Color.Transparent Me.GB_Resolution.BackColor = System.Drawing.Color.Transparent
Me.GB_Resolution.Controls.Add(Me.AAuto)
Me.GB_Resolution.Controls.Add(Me.A480p) Me.GB_Resolution.Controls.Add(Me.A480p)
Me.GB_Resolution.Controls.Add(Me.A360p) Me.GB_Resolution.Controls.Add(Me.A360p)
Me.GB_Resolution.Controls.Add(Me.A720p) Me.GB_Resolution.Controls.Add(Me.A720p)
Me.GB_Resolution.Controls.Add(Me.A1080p) Me.GB_Resolution.Controls.Add(Me.A1080p)
Me.GB_Resolution.Font = New System.Drawing.Font("Arial", 9.75!) Me.GB_Resolution.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GB_Resolution.ForeColor = System.Drawing.Color.Black Me.GB_Resolution.ForeColor = System.Drawing.Color.Black
Me.GB_Resolution.Location = New System.Drawing.Point(6, 172) Me.GB_Resolution.Location = New System.Drawing.Point(6, 158)
Me.GB_Resolution.Name = "GB_Resolution" Me.GB_Resolution.Name = "GB_Resolution"
Me.GB_Resolution.Size = New System.Drawing.Size(339, 54) Me.GB_Resolution.Size = New System.Drawing.Size(339, 68)
Me.GB_Resolution.TabIndex = 0 Me.GB_Resolution.TabIndex = 0
Me.GB_Resolution.TabStop = False Me.GB_Resolution.TabStop = False
Me.GB_Resolution.Text = "Auflösung" Me.GB_Resolution.Text = "Auflösung"
' '
'AAuto
'
Me.AAuto.AutoSize = True
Me.AAuto.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.AAuto.ForeColor = System.Drawing.Color.Black
Me.AAuto.Location = New System.Drawing.Point(267, 22)
Me.AAuto.Name = "AAuto"
Me.AAuto.Size = New System.Drawing.Size(66, 22)
Me.AAuto.TabIndex = 3
Me.AAuto.TabStop = True
Me.AAuto.Text = "[Auto]"
Me.AAuto.UseVisualStyleBackColor = True
'
'A480p 'A480p
' '
Me.A480p.AutoSize = True Me.A480p.AutoSize = True
Me.A480p.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold) Me.A480p.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.A480p.ForeColor = System.Drawing.Color.Black Me.A480p.ForeColor = System.Drawing.Color.Black
Me.A480p.Location = New System.Drawing.Point(162, 21) Me.A480p.Location = New System.Drawing.Point(141, 21)
Me.A480p.Name = "A480p" Me.A480p.Name = "A480p"
Me.A480p.Size = New System.Drawing.Size(64, 23) Me.A480p.Size = New System.Drawing.Size(62, 22)
Me.A480p.TabIndex = 2 Me.A480p.TabIndex = 2
Me.A480p.TabStop = True Me.A480p.TabStop = True
Me.A480p.Text = "480p" Me.A480p.Text = "480p"
@ -100,11 +115,11 @@ Partial Class einstellungen
'A360p 'A360p
' '
Me.A360p.AutoSize = True Me.A360p.AutoSize = True
Me.A360p.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold) Me.A360p.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.A360p.ForeColor = System.Drawing.Color.Black Me.A360p.ForeColor = System.Drawing.Color.Black
Me.A360p.Location = New System.Drawing.Point(242, 21) Me.A360p.Location = New System.Drawing.Point(205, 22)
Me.A360p.Name = "A360p" Me.A360p.Name = "A360p"
Me.A360p.Size = New System.Drawing.Size(64, 23) Me.A360p.Size = New System.Drawing.Size(62, 22)
Me.A360p.TabIndex = 2 Me.A360p.TabIndex = 2
Me.A360p.TabStop = True Me.A360p.TabStop = True
Me.A360p.Text = "360p" Me.A360p.Text = "360p"
@ -113,11 +128,11 @@ Partial Class einstellungen
'A720p 'A720p
' '
Me.A720p.AutoSize = True Me.A720p.AutoSize = True
Me.A720p.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold) Me.A720p.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.A720p.ForeColor = System.Drawing.Color.Black Me.A720p.ForeColor = System.Drawing.Color.Black
Me.A720p.Location = New System.Drawing.Point(88, 21) Me.A720p.Location = New System.Drawing.Point(82, 21)
Me.A720p.Name = "A720p" Me.A720p.Name = "A720p"
Me.A720p.Size = New System.Drawing.Size(64, 23) Me.A720p.Size = New System.Drawing.Size(62, 22)
Me.A720p.TabIndex = 1 Me.A720p.TabIndex = 1
Me.A720p.TabStop = True Me.A720p.TabStop = True
Me.A720p.Text = "720p" Me.A720p.Text = "720p"
@ -126,11 +141,11 @@ Partial Class einstellungen
'A1080p 'A1080p
' '
Me.A1080p.AutoSize = True Me.A1080p.AutoSize = True
Me.A1080p.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold) Me.A1080p.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.A1080p.ForeColor = System.Drawing.Color.Black Me.A1080p.ForeColor = System.Drawing.Color.Black
Me.A1080p.Location = New System.Drawing.Point(9, 21) Me.A1080p.Location = New System.Drawing.Point(9, 21)
Me.A1080p.Name = "A1080p" Me.A1080p.Name = "A1080p"
Me.A1080p.Size = New System.Drawing.Size(73, 23) Me.A1080p.Size = New System.Drawing.Size(71, 22)
Me.A1080p.TabIndex = 0 Me.A1080p.TabIndex = 0
Me.A1080p.TabStop = True Me.A1080p.TabStop = True
Me.A1080p.Text = "1080p" Me.A1080p.Text = "1080p"
@ -183,9 +198,9 @@ Partial Class einstellungen
Me.GB_Sub_Path.Controls.Add(Me.RBAnime) Me.GB_Sub_Path.Controls.Add(Me.RBAnime)
Me.GB_Sub_Path.Font = New System.Drawing.Font("Arial", 9.75!) Me.GB_Sub_Path.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GB_Sub_Path.ForeColor = System.Drawing.Color.Black Me.GB_Sub_Path.ForeColor = System.Drawing.Color.Black
Me.GB_Sub_Path.Location = New System.Drawing.Point(5, 96) Me.GB_Sub_Path.Location = New System.Drawing.Point(6, 85)
Me.GB_Sub_Path.Name = "GB_Sub_Path" Me.GB_Sub_Path.Name = "GB_Sub_Path"
Me.GB_Sub_Path.Size = New System.Drawing.Size(342, 70) Me.GB_Sub_Path.Size = New System.Drawing.Size(342, 67)
Me.GB_Sub_Path.TabIndex = 3 Me.GB_Sub_Path.TabIndex = 3
Me.GB_Sub_Path.TabStop = False Me.GB_Sub_Path.TabStop = False
Me.GB_Sub_Path.Text = "Unterordner " Me.GB_Sub_Path.Text = "Unterordner "
@ -193,11 +208,11 @@ Partial Class einstellungen
'RBStaffel 'RBStaffel
' '
Me.RBStaffel.AutoSize = True Me.RBStaffel.AutoSize = True
Me.RBStaffel.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold) Me.RBStaffel.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.RBStaffel.ForeColor = System.Drawing.Color.Black Me.RBStaffel.ForeColor = System.Drawing.Color.Black
Me.RBStaffel.Location = New System.Drawing.Point(153, 24) Me.RBStaffel.Location = New System.Drawing.Point(159, 24)
Me.RBStaffel.Name = "RBStaffel" Me.RBStaffel.Name = "RBStaffel"
Me.RBStaffel.Size = New System.Drawing.Size(183, 23) Me.RBStaffel.Size = New System.Drawing.Size(174, 22)
Me.RBStaffel.TabIndex = 1 Me.RBStaffel.TabIndex = 1
Me.RBStaffel.TabStop = True Me.RBStaffel.TabStop = True
Me.RBStaffel.Text = "Anime Serie + Staffel" Me.RBStaffel.Text = "Anime Serie + Staffel"
@ -207,11 +222,11 @@ Partial Class einstellungen
'RBAnime 'RBAnime
' '
Me.RBAnime.AutoSize = True Me.RBAnime.AutoSize = True
Me.RBAnime.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold) Me.RBAnime.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.RBAnime.ForeColor = System.Drawing.Color.Black Me.RBAnime.ForeColor = System.Drawing.Color.Black
Me.RBAnime.Location = New System.Drawing.Point(9, 24) Me.RBAnime.Location = New System.Drawing.Point(9, 24)
Me.RBAnime.Name = "RBAnime" Me.RBAnime.Name = "RBAnime"
Me.RBAnime.Size = New System.Drawing.Size(118, 23) Me.RBAnime.Size = New System.Drawing.Size(113, 22)
Me.RBAnime.TabIndex = 1 Me.RBAnime.TabIndex = 1
Me.RBAnime.TabStop = True Me.RBAnime.TabStop = True
Me.RBAnime.Text = "Anime Serie" Me.RBAnime.Text = "Anime Serie"
@ -260,14 +275,14 @@ Partial Class einstellungen
Me.DL_Count_simultaneous.ForeColor = System.Drawing.Color.Black Me.DL_Count_simultaneous.ForeColor = System.Drawing.Color.Black
Me.DL_Count_simultaneous.Location = New System.Drawing.Point(12, 11) Me.DL_Count_simultaneous.Location = New System.Drawing.Point(12, 11)
Me.DL_Count_simultaneous.Name = "DL_Count_simultaneous" Me.DL_Count_simultaneous.Name = "DL_Count_simultaneous"
Me.DL_Count_simultaneous.Size = New System.Drawing.Size(333, 79) Me.DL_Count_simultaneous.Size = New System.Drawing.Size(333, 68)
Me.DL_Count_simultaneous.TabIndex = 5 Me.DL_Count_simultaneous.TabIndex = 5
Me.DL_Count_simultaneous.TabStop = False Me.DL_Count_simultaneous.TabStop = False
Me.DL_Count_simultaneous.Text = "simultaneous downloads" Me.DL_Count_simultaneous.Text = "simultaneous downloads"
' '
'NumericUpDown1 'NumericUpDown1
' '
Me.NumericUpDown1.Location = New System.Drawing.Point(35, 35) Me.NumericUpDown1.Location = New System.Drawing.Point(35, 31)
Me.NumericUpDown1.Maximum = New Decimal(New Integer() {12, 0, 0, 0}) Me.NumericUpDown1.Maximum = New Decimal(New Integer() {12, 0, 0, 0})
Me.NumericUpDown1.Name = "NumericUpDown1" Me.NumericUpDown1.Name = "NumericUpDown1"
Me.NumericUpDown1.Size = New System.Drawing.Size(265, 22) Me.NumericUpDown1.Size = New System.Drawing.Size(265, 22)
@ -456,4 +471,5 @@ Partial Class einstellungen
Friend WithEvents TabPage2 As TabPage Friend WithEvents TabPage2 As TabPage
Friend WithEvents Label1 As Label Friend WithEvents Label1 As Label
Friend WithEvents TextBox1 As TextBox Friend WithEvents TextBox1 As TextBox
Friend WithEvents AAuto As RadioButton
End Class End Class

11
Crunchyroll Downloader/einstellungen.vb
View File

@ -27,6 +27,8 @@ Public Class einstellungen
A480p.Checked = True A480p.Checked = True
ElseIf Main.Resu = 360 Then ElseIf Main.Resu = 360 Then
A360p.Checked = True A360p.Checked = True
ElseIf Main.Resu = 42 Then
AAuto.Checked = True
End If End If
'ComboBox1.Items.Add("English") 'ComboBox1.Items.Add("English")
'ComboBox1.Items.Add("Deutsch") 'ComboBox1.Items.Add("Deutsch")
@ -108,6 +110,9 @@ Public Class einstellungen
ElseIf A480p.Checked Then ElseIf A480p.Checked Then
Main.Resu = 480 Main.Resu = 480
rk.SetValue("Resu", 480, RegistryValueKind.String) rk.SetValue("Resu", 480, RegistryValueKind.String)
ElseIf AAuto.Checked Then
Main.Resu = 42
rk.SetValue("Resu", 42, RegistryValueKind.String)
End If End If
If ComboBox1.SelectedItem.ToString = "English" Then If ComboBox1.SelectedItem.ToString = "English" Then
Main.SubSprache = "enUS" Main.SubSprache = "enUS"
@ -362,6 +367,12 @@ Public Class einstellungen
GeckoFX.WebBrowser1.Navigate("about:config") GeckoFX.WebBrowser1.Navigate("about:config")
End Sub End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles AAuto.CheckedChanged
End Sub
#End Region #End Region
End Class End Class

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.