1751 lines
69 KiB
VB.net
1751 lines
69 KiB
VB.net
Option Strict On
|
|
|
|
Imports System.Net
|
|
Imports System.Text
|
|
Imports System.IO
|
|
Imports System.Threading
|
|
Imports Microsoft.Win32
|
|
Imports System.ComponentModel
|
|
Imports MetroFramework
|
|
Imports MetroFramework.Components
|
|
Imports MetroFramework.Forms
|
|
|
|
|
|
Public Class CRD_List_Item
|
|
Inherits Controls.MetroUserControl
|
|
|
|
Dim LastUrl As String = Nothing
|
|
Dim ZeitGesamtInteger As Integer = 0
|
|
Dim ListOfStreams As New List(Of String)
|
|
Dim proc As Process
|
|
Dim ThreadList As New List(Of Thread)
|
|
Dim Item_ErrorTolerance As Integer
|
|
Dim Canceld As Boolean = False
|
|
Dim Finished As Boolean = False
|
|
Dim Label_website_Text As String = Nothing
|
|
Dim StatusRunning As Boolean = True
|
|
'Dim ffmpeg_command As String = Nothing
|
|
Dim Debug2 As Boolean = False
|
|
Dim MergeSubstoMP4 As Boolean = False
|
|
|
|
Dim TempFolder As String = Nothing
|
|
Dim DownloadPfad As String = Nothing
|
|
Dim ThumbnailSource As String = Nothing
|
|
|
|
Dim Failed As Boolean = False
|
|
Dim FailedCount As Integer = 0
|
|
|
|
Dim FailedKey As Boolean = False
|
|
|
|
Dim HistoryDL_URL As String
|
|
Dim HistoryDL_Pfad As String
|
|
|
|
Dim HistoryFilename As String
|
|
Dim Retry As Boolean = False
|
|
Dim HybridMode As Boolean = False
|
|
Dim HybridModePath As String = Nothing
|
|
Dim HybridRunning As Boolean = False
|
|
Dim TargetReso As Integer = 1080
|
|
Dim HybrideLog As String = Nothing
|
|
Dim Service As String = "CR"
|
|
Dim ServiceSleep As Integer = 0
|
|
Dim KeepCacheFiles As Boolean = False
|
|
Dim NameP2 As String = Nothing
|
|
|
|
Dim LastDate As Date = Date.Now
|
|
Dim LastSize As Double = 0
|
|
Dim LastDataRate1 As Double = 0
|
|
Dim LastDataRate2 As Double = 0
|
|
Dim LastDataRate3 As Double = 0
|
|
|
|
Dim FailedSegments As New List(Of FailedSegemtsWithURL)
|
|
Dim LogText As New List(Of String)
|
|
'Dim GlobalLogfile As String
|
|
|
|
Private Event UpdateUI(ByVal Percent As Integer, ByVal di As DirectoryInfo, ByVal Idle As Integer)
|
|
|
|
Dim PauseTime As Integer = 0
|
|
Dim Threads As Integer = Main.HybridThread 'CInt(Environment.ProcessorCount / 2 - 1)
|
|
|
|
|
|
|
|
|
|
|
|
#Region "UI"
|
|
|
|
Private Sub CRD_List_Item_Resize(sender As Object, e As EventArgs) Handles Me.Resize
|
|
bt_del.SetBounds(775, 10, 35, 29)
|
|
bt_pause.SetBounds(740, 15, 25, 20)
|
|
PB_Thumbnail.SetBounds(11, 20, 168, 95)
|
|
PB_Thumbnail.BringToFront()
|
|
Label_website.Location = New Point(195, 12)
|
|
Label_Anime.Location = New Point(195, 40)
|
|
Label_Reso.Location = New Point(195, 97)
|
|
Label_Hardsub.Location = New Point(255, 97)
|
|
Label_percent.SetBounds(Me.Width - 400, 97, 378, 27)
|
|
Label_percent.AutoSize = False
|
|
ProgressBar1.SetBounds(195, 70, 601, 20)
|
|
PictureBox5.Location = New Point(0, 136)
|
|
PictureBox5.Height = 6
|
|
|
|
If Service = "FM" Then
|
|
MetroStyleManager1.Style = MetroColorStyle.DarkPurple
|
|
ElseIf Service = "other" Then
|
|
MetroStyleManager1.Style = MetroColorStyle.Black
|
|
Else
|
|
MetroStyleManager1.Style = MetroColorStyle.Orange
|
|
End If
|
|
MetroStyleManager1.Theme = Main.Manager.Theme
|
|
MetroStyleManager1.Owner = Me
|
|
Me.StyleManager = MetroStyleManager1
|
|
|
|
|
|
PictureBox5.Width = Me.Width - 40
|
|
|
|
bt_del.Location = New Point(Me.Width - 63, 10)
|
|
bt_pause.Location = New Point(Me.Width - 98, 15)
|
|
|
|
ProgressBar1.Width = Me.Width - 223
|
|
|
|
End Sub
|
|
|
|
|
|
Public Sub SetLabelWebsite(ByVal Text As String)
|
|
Label_website.Text = Text
|
|
Label_website_Text = Text
|
|
End Sub
|
|
|
|
Public Sub SetTheme(ByVal Theme As MetroThemeStyle)
|
|
MetroStyleManager1.Theme = Theme
|
|
End Sub
|
|
Public Sub SetCache(ByVal value As Boolean)
|
|
KeepCacheFiles = value
|
|
End Sub
|
|
|
|
|
|
Public Sub SetTolerance(ByVal value As Integer)
|
|
Item_ErrorTolerance = value
|
|
End Sub
|
|
Public Sub SetLabelAnimeTitel(ByVal Text As String)
|
|
Label_Anime.Text = Text
|
|
NameP2 = 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 ThumbnialURL As String)
|
|
ThumbnailSource = ThumbnialURL
|
|
Dim Thumbnail As Image = My.Resources.main_del
|
|
Debug.WriteLine("ThumbnialURL: " + ThumbnialURL)
|
|
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)
|
|
End Try
|
|
|
|
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 Canceld = True Or Finished = True Then
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
|
|
'If Canceld = True Then
|
|
' Return True
|
|
'ElseIf HybridRunning = True Then
|
|
' Return False
|
|
'Else
|
|
' Try
|
|
' If proc.HasExited = True Then
|
|
' Return True
|
|
' Else
|
|
' Return False
|
|
' End If
|
|
' Catch ex As Exception
|
|
' Return False
|
|
' End Try
|
|
|
|
'End If
|
|
|
|
End Function
|
|
Public Function GetThumbnailSource() As String
|
|
Try
|
|
Return ThumbnailSource
|
|
Catch ex As Exception
|
|
Return "0"
|
|
End Try
|
|
|
|
End Function
|
|
Public Function GetLabelPercent() As String
|
|
Try
|
|
Return Label_percent.Text
|
|
Catch ex As Exception
|
|
Return "0"
|
|
End Try
|
|
|
|
End Function
|
|
Public Function GetPercentValue() As Integer
|
|
Try
|
|
Return ProgressBar1.Value
|
|
Catch ex As Exception
|
|
|
|
Return 0
|
|
End Try
|
|
|
|
End Function
|
|
Public Function GetNameAnime() As String
|
|
Try
|
|
Return Label_Anime.Text
|
|
Catch ex As Exception
|
|
Return "error"
|
|
End Try
|
|
|
|
End Function
|
|
#End Region
|
|
#Region "Set Variables"
|
|
|
|
Public Sub SetMergeSubstoMP4(ByVal Value As Boolean)
|
|
MergeSubstoMP4 = Value
|
|
End Sub
|
|
Public Sub SetDebug2(ByVal Value As Boolean)
|
|
Debug2 = Value
|
|
End Sub
|
|
|
|
Public Sub SetTargetReso(ByVal Value As Integer)
|
|
TargetReso = Value
|
|
End Sub
|
|
Public Sub SetService(ByVal Value As String)
|
|
Service = Value
|
|
End Sub
|
|
#End Region
|
|
Public Sub KillRunningTask()
|
|
If HybridRunning = True Then
|
|
Canceld = True
|
|
Else
|
|
Try
|
|
If proc.HasExited Then
|
|
Else
|
|
proc.Kill()
|
|
proc.WaitForExit(500)
|
|
Label_percent.Text = "canceled -%"
|
|
End If
|
|
Catch ex As Exception
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub BT_del_MouseEnter(sender As Object, e As EventArgs) Handles bt_del.MouseEnter
|
|
|
|
bt_del.BackgroundImage = My.Resources.main_del
|
|
End Sub
|
|
|
|
Private Sub BT_del_MouseLeave(sender As Object, e As EventArgs) Handles bt_del.MouseLeave
|
|
|
|
bt_del.BackgroundImage = My.Resources.main_del
|
|
End Sub
|
|
Private Sub BT_pause_MouseEnter(sender As Object, e As EventArgs) Handles bt_pause.MouseEnter
|
|
|
|
If StatusRunning = True Then
|
|
bt_pause.BackgroundImage = My.Resources.main_pause_hover
|
|
Else
|
|
bt_pause.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
|
|
|
|
If StatusRunning = True Then
|
|
bt_pause.BackgroundImage = My.Resources.main_pause
|
|
Else
|
|
bt_pause.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 Canceld = True And HybridRunning = True Then
|
|
|
|
If Main.RunningDownloads < Main.MaxDL Then
|
|
|
|
Else
|
|
If MessageBox.Show("You have currtenly on your set Download limit." + vbNewLine + " You can Press OK to ignore it.", "Download maximum reached", MessageBoxButtons.OKCancel) = DialogResult.Cancel Then
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
Canceld = False
|
|
'If My.Computer.FileSystem.FileExists(HistoryDL_Pfad.Replace(Chr(34), "")) Then 'Pfad = Kompeltter Pfad mit Dateinamen + ENdung
|
|
' Try
|
|
' My.Computer.FileSystem.DeleteFile(HistoryDL_Pfad.Replace(Chr(34), ""))
|
|
' Catch ex As Exception
|
|
' End Try
|
|
'End If
|
|
StartDownload(HistoryDL_URL, HistoryDL_Pfad, HistoryFilename, HybridMode, TempFolder)
|
|
StatusRunning = True
|
|
Label_website.Text = Label_website_Text
|
|
Exit Sub
|
|
ElseIf HybridRunning = True Then
|
|
If StatusRunning = True Then
|
|
StatusRunning = False
|
|
bt_pause.BackgroundImage = My.Resources.main_pause_play
|
|
|
|
ElseIf Failed = True And FailedKey = True Then
|
|
If Not Directory.Exists(Path.GetDirectoryName(HybridModePath)) Then
|
|
' Nein! Jetzt erstellen...
|
|
Try
|
|
Directory.Delete(Path.GetDirectoryName(HybridModePath))
|
|
Catch ex As Exception
|
|
Debug.WriteLine("folder issue - delete")
|
|
Exit Sub
|
|
End Try
|
|
End If
|
|
Dim Evaluator = New Thread(Sub() DownloadHybrid(HistoryDL_URL, HistoryDL_Pfad, HistoryFilename))
|
|
Evaluator.Start()
|
|
HybridMode = True
|
|
HybridRunning = True
|
|
StatusRunning = True
|
|
Failed = False
|
|
|
|
LastDate = Date.Now
|
|
LastSize = 0
|
|
LastDataRate1 = 0
|
|
LastDataRate2 = 0
|
|
LastDataRate3 = 0
|
|
FailedSegments.Clear()
|
|
LogText.Clear()
|
|
ZeitGesamtInteger = 0
|
|
|
|
ElseIf Failed = True Then
|
|
Dim Result As DialogResult = MessageBox.Show("The hybride mode has failed to download a fragment." + vbNewLine + "Press 'Retry' to retry the fragment or 'Ignore' to continue.", "Download Error", MessageBoxButtons.AbortRetryIgnore) '= DialogResult.Ignore Then
|
|
|
|
If Result = DialogResult.Ignore Then
|
|
Failed = False
|
|
StatusRunning = True
|
|
bt_pause.BackgroundImage = My.Resources.main_pause
|
|
FailedSegments.Clear()
|
|
ElseIf Result = DialogResult.Retry Then
|
|
If FailedSegments.Count > 0 Then
|
|
For i As Integer = 0 To FailedSegments.Count - 1
|
|
Dim ii As Integer = i
|
|
Dim Evaluator = New Thread(Sub() Me.TS_DownloadAsync(FailedSegments.Item(ii).Url, FailedSegments.Item(ii).Path))
|
|
FailedSegments.RemoveAt(i)
|
|
Evaluator.Start()
|
|
ThreadList.Add(Evaluator)
|
|
Next
|
|
Failed = False
|
|
StatusRunning = True
|
|
bt_pause.BackgroundImage = My.Resources.main_pause
|
|
End If
|
|
ElseIf Result = DialogResult.Abort Then
|
|
If MessageBox.Show("Are you sure you want to cancel the Download?", "Cancel Download!", MessageBoxButtons.YesNo) = DialogResult.No Then
|
|
Exit Sub
|
|
End If
|
|
Canceld = True
|
|
End If
|
|
|
|
Else
|
|
StatusRunning = True
|
|
bt_pause.BackgroundImage = My.Resources.main_pause
|
|
End If
|
|
|
|
Else
|
|
If proc.HasExited = True Then
|
|
If ProgressBar1.Value < 100 Then
|
|
If Retry = True Then
|
|
If Main.RunningDownloads < Main.MaxDL Then
|
|
|
|
Else
|
|
If MessageBox.Show("You have currtenly on your set Download limit." + vbNewLine + " You can Press OK to ignore it.", "Download maximum reached", MessageBoxButtons.OKCancel) = DialogResult.Cancel Then
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
If My.Computer.FileSystem.FileExists(HistoryDL_Pfad.Replace(Chr(34), "")) Then 'Pfad = Kompeltter Pfad mit Dateinamen + ENdung
|
|
Try
|
|
My.Computer.FileSystem.DeleteFile(HistoryDL_Pfad.Replace(Chr(34), ""))
|
|
Catch ex As Exception
|
|
End Try
|
|
End If
|
|
StartDownload(HistoryDL_URL, HistoryDL_Pfad, HistoryFilename, HybridMode, TempFolder)
|
|
StatusRunning = True
|
|
Label_website.Text = Label_website_Text
|
|
Else
|
|
MsgBox("The download process seems to have crashed", MsgBoxStyle.Exclamation)
|
|
Label_percent.Text = "Press the play button again to retry."
|
|
ProgressBar1.Value = 0
|
|
Retry = True
|
|
StatusRunning = False
|
|
End If
|
|
|
|
Else
|
|
End If
|
|
Exit Sub
|
|
End If
|
|
If StatusRunning = True Then
|
|
StatusRunning = False
|
|
bt_pause.BackgroundImage = My.Resources.main_pause_play
|
|
SuspendProcess(proc)
|
|
Else
|
|
If Failed = True Then
|
|
'If HybridMode = True Then
|
|
|
|
'Else
|
|
Dim Result As DialogResult = MessageBox.Show("The download has " + FailedCount.ToString + " failded segments" + vbNewLine + "Press 'Ignore' to continue", "Download Error", MessageBoxButtons.AbortRetryIgnore) '= DialogResult.Ignore Then
|
|
|
|
If Result = DialogResult.Ignore Then
|
|
Failed = False
|
|
StatusRunning = True
|
|
bt_pause.BackgroundImage = My.Resources.main_pause
|
|
ResumeProcess(proc)
|
|
ElseIf Result = DialogResult.Retry Then
|
|
Try
|
|
proc.Kill()
|
|
proc.WaitForExit(500)
|
|
Label_percent.Text = "retrying -%"
|
|
Label_website.Text = Label_website_Text
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
If proc.HasExited Then
|
|
StartDownload(HistoryDL_URL, HistoryDL_Pfad, HistoryFilename, HybridMode, TempFolder)
|
|
StatusRunning = True
|
|
Label_website.Text = Label_website_Text
|
|
bt_pause.BackgroundImage = My.Resources.main_pause
|
|
End If
|
|
ElseIf Result = DialogResult.Abort Then
|
|
Try
|
|
proc.Kill()
|
|
proc.WaitForExit(500)
|
|
Label_percent.Text = "canceled -%"
|
|
Label_website.Text = Label_website_Text
|
|
Catch ex As Exception
|
|
End Try
|
|
End If
|
|
' End If
|
|
Else
|
|
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 If
|
|
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
Private Sub Item_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Me.ContextMenuStrip = ContextMenuStrip1 '.ContextMenu
|
|
If Threads < 2 Then
|
|
Threads = 2
|
|
End If
|
|
|
|
If My.Settings.SaveThumbnail = True Then
|
|
TN_DL.Enabled = True
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Public Function GetTextBound() As Rectangle
|
|
'Return Label_website.Location.Y
|
|
'Return bt_del.Size.Height
|
|
Return Me.Bounds()
|
|
End Function
|
|
|
|
|
|
#Region "Download + Update UI"
|
|
|
|
Public Sub StartDownload(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal Filename As String, ByVal DownloadHybridMode As Boolean, ByVal TempFolder As String)
|
|
|
|
|
|
Me.StyleManager = MetroStyleManager1
|
|
Me.TempFolder = TempFolder
|
|
DownloadPfad = DL_Pfad
|
|
HistoryDL_URL = DL_URL
|
|
HistoryDL_Pfad = DL_Pfad
|
|
HistoryFilename = Filename
|
|
|
|
|
|
If CBool(InStr(DL_URL, "-i [Subtitles only]")) Then
|
|
Me.Invoke(New Action(Function() As Object
|
|
|
|
ProgressBar1.Value = 100
|
|
Label_percent.Text = "selected subtiles have been dowloaded"
|
|
Canceld = True
|
|
PlaybackVideoFileToolStripMenuItem.Enabled = False
|
|
LogTocClipboard.Enabled = False
|
|
SaveToFile.Enabled = False
|
|
Return Nothing
|
|
End Function))
|
|
ElseIf DownloadHybridMode = True Then
|
|
|
|
DL_URL = DL_URL.Replace("-protocol_whitelist file,http,https,tcp,tls,crypto,data", "") 'remove whitelist for hybrid mode
|
|
HistoryDL_URL = DL_URL
|
|
|
|
Dim Evaluator = New Thread(Sub() DownloadHybrid(DL_URL, DL_Pfad, Filename))
|
|
Evaluator.Start()
|
|
HybridMode = True
|
|
HybridRunning = True
|
|
Else
|
|
DownloadFFMPEG(DL_URL, DL_Pfad, Filename) 'DownloadFFMPEG("-protocol_whitelist file,http,https,tcp,tls,crypto,data " + DL_URL, DL_Pfad, Filename)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
#Region "Download Cache"
|
|
|
|
|
|
|
|
|
|
Private Sub TS_StatusAsync(ByVal prozent As Integer, ByVal di As IO.DirectoryInfo, ByVal pausetime As Integer) Handles Me.UpdateUI ' As Object
|
|
|
|
Dim FinishedSize As Double = 0
|
|
Dim AproxFinalSize As Double = 0
|
|
|
|
Try
|
|
|
|
Dim aryFi As IO.FileInfo() = di.GetFiles("*.*")
|
|
Dim fi As IO.FileInfo
|
|
For Each fi In aryFi
|
|
FinishedSize = FinishedSize + fi.Length
|
|
Next
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
If prozent > 0 Then
|
|
AproxFinalSize = Math.Round(FinishedSize / 1048576 * 100 / prozent, 2, MidpointRounding.AwayFromZero) ' Math.Round( / 1048576, 2, MidpointRounding.AwayFromZero).ToString()
|
|
End If
|
|
Dim duration As TimeSpan = Date.Now - LastDate
|
|
Dim TimeinMilliSeconds As Integer = duration.Seconds * 1000 + duration.Milliseconds
|
|
|
|
If FinishedSize = LastSize Then
|
|
ElseIf TimeinMilliSeconds < 250 Then
|
|
Else
|
|
|
|
|
|
LastDate = Date.Now
|
|
'TimeinSeconds = TimeinSeconds - pausetime
|
|
Dim SinceLast = FinishedSize - LastSize
|
|
LastSize = FinishedSize
|
|
|
|
Dim DataRate As Double = (SinceLast / 1048576) / (TimeinMilliSeconds / 1000)
|
|
Dim DataRateFinal As Double = (DataRate + LastDataRate1 + LastDataRate2 + LastDataRate3) / 4
|
|
LastDataRate3 = LastDataRate2
|
|
LastDataRate2 = LastDataRate1
|
|
LastDataRate1 = DataRate
|
|
Dim DataRateString As String = Math.Round(DataRateFinal, 2, MidpointRounding.AwayFromZero).ToString()
|
|
|
|
If prozent > 100 Then
|
|
prozent = 100
|
|
ElseIf prozent < 0 Then
|
|
prozent = 0
|
|
End If
|
|
|
|
|
|
Try
|
|
Me.Invoke(New Action(Function() As Object
|
|
|
|
ProgressBar1.Value = prozent 'ThreadList.Count.ToString + " " +
|
|
Label_percent.Text = DataRateString + "MB\s " + Math.Round(FinishedSize / 1048576, 2, MidpointRounding.AwayFromZero).ToString + "MB/" + Math.Round(AproxFinalSize, 2, MidpointRounding.AwayFromZero).ToString + "MB " + prozent.ToString + "%"
|
|
|
|
Return Nothing
|
|
End Function))
|
|
Catch ex As Exception
|
|
End Try
|
|
End If
|
|
|
|
'Return Nothing
|
|
|
|
End Sub
|
|
|
|
#Region "ThreadChecker"
|
|
|
|
Private Sub CheckThreadCount()
|
|
'Try
|
|
' Me.Invoke(New Action(Function() As Object
|
|
|
|
' Label_Reso.Text = ThreadList.Count.ToString
|
|
' Return Nothing
|
|
' End Function))
|
|
'Catch ex As Exception
|
|
'End Try
|
|
|
|
For w As Integer = 0 To Integer.MaxValue
|
|
|
|
If StatusRunning = False Then
|
|
'MsgBox(True.ToString)
|
|
Thread.Sleep(5000)
|
|
PauseTime = PauseTime + 5
|
|
ElseIf ThreadList.Count > Threads Then
|
|
Thread.Sleep(50)
|
|
|
|
Else
|
|
Thread.Sleep(ServiceSleep)
|
|
Exit For
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Private Function GetFullUri(ByVal MainUri As String, ByVal CurrentPath As String) As String
|
|
|
|
Dim path As String = Nothing
|
|
If CBool(InStr(CurrentPath, "https://")) Then
|
|
path = CurrentPath
|
|
ElseIf CBool(InStr(CurrentPath, "../")) Then
|
|
Dim countDot() As String = CurrentPath.Split(New String() {"./"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
|
|
Dim c() As String = New Uri(MainUri).Segments
|
|
path = "https://" + New Uri(MainUri).Host
|
|
For i3 As Integer = 0 To c.Count - (2 + countDot.Count - 1)
|
|
path = path + c(i3)
|
|
Next
|
|
path = path + countDot(countDot.Count - 1)
|
|
Else
|
|
Dim c() As String = New Uri(MainUri).Segments
|
|
path = "https://" + New Uri(MainUri).Host
|
|
For i3 As Integer = 0 To c.Count - 2
|
|
path = path + c(i3)
|
|
Next
|
|
path = path + CurrentPath
|
|
End If
|
|
|
|
Return path
|
|
End Function
|
|
#Region "v4"
|
|
|
|
|
|
Private Function ProcessV4(ByVal url As String, ByVal InputData As String, ByVal Folder As String) As String
|
|
|
|
If Not Directory.Exists(Path.GetDirectoryName(Folder)) Then
|
|
' Nein! Jetzt erstellen...
|
|
Try
|
|
Directory.CreateDirectory(Path.GetDirectoryName(Folder))
|
|
Catch ex As Exception
|
|
Debug.WriteLine("folder issue")
|
|
Return "Error"
|
|
Exit Function
|
|
End Try
|
|
End If
|
|
|
|
Dim KeyFile As String = GeräteID() + ".key"
|
|
Dim KeyFilePath As String = Folder + "\" + KeyFile 'needs to be in the ffmpeg/downloader directory
|
|
KeyFilePath = KeyFilePath.Replace("\\", "\")
|
|
Dim Fragments() As String = InputData.Split(New String() {"#EXT-X-BYTERANGE:"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim FragmentsInt As Integer = Fragments.Count - 2
|
|
|
|
Dim di As New IO.DirectoryInfo(Folder)
|
|
Dim m3u8FileContent As String = Nothing
|
|
|
|
Dim m3u8Text As String = InputData
|
|
Dim m3u8Key() As String = m3u8Text.Split(New String() {"URI=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim m3u8Key2() As String = m3u8Key(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
|
|
Dim KeyFileDL = New Thread(Sub() Me.TS_DownloadAsync(GetFullUri(url, m3u8Key2(0)), KeyFilePath))
|
|
KeyFileDL.Start()
|
|
Dim DownloadFile As String = Nothing
|
|
|
|
Dim FileUrl() As String = InputData.Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
|
|
For line As Integer = 0 To FileUrl.Count - 1
|
|
If CBool(InStr(FileUrl(line), "#EXT-X-BYTERANGE:")) = True Then
|
|
DownloadFile = GetFullUri(url, FileUrl(line + 1))
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
|
|
'Dim StreamFile() As String = m3u8Text.Split(New String() {"https://"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
'Dim StreamFile2() As String = StreamFile(2).Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
'Dim DownloadFile As String = "https:\\" + StreamFile2(0)
|
|
|
|
Dim text() As String = m3u8Text.Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim zeile As String
|
|
Dim Count As Integer = 0
|
|
|
|
|
|
For i As Integer = 0 To text.Count - 1
|
|
zeile = text(i)
|
|
CheckThreadCount()
|
|
|
|
If Canceld = True Then
|
|
For www As Integer = 0 To Integer.MaxValue
|
|
If ThreadList.Count > 0 Then
|
|
Thread.Sleep(250)
|
|
Else
|
|
Try
|
|
If KeepCacheFiles = False Then
|
|
System.IO.Directory.Delete(HybridModePath, True)
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
End Try
|
|
Me.Invoke(New Action(Function() As Object
|
|
ProgressBar1.Value = 0
|
|
Label_percent.Text = "canceled -%"
|
|
bt_pause.BackgroundImage = My.Resources.main_pause_play
|
|
Return Nothing
|
|
End Function))
|
|
Exit For
|
|
End If
|
|
Next
|
|
Return "Canceld"
|
|
Exit Function
|
|
End If
|
|
If zeile.Contains("#EXT-X-BYTERANGE:") Then
|
|
Dim Zeile2 As String = zeile.Replace("#EXT-X-BYTERANGE:", "")
|
|
Dim Zeile3() As String = Zeile2.Split(New String() {"@"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
|
|
Dim CurrentSize As Long = Long.Parse(Zeile3(1))
|
|
Dim NewBytes As Integer = Integer.Parse(Zeile3(0))
|
|
Dim File As String = Folder + String.Format("{0:0000}", Count)
|
|
Dim Evaluator = New Thread(Sub() Me.DownloadTSv4(DownloadFile, File, CurrentSize, NewBytes))
|
|
Evaluator.Start()
|
|
ThreadList.Add(Evaluator)
|
|
m3u8FileContent = m3u8FileContent + File + vbNewLine
|
|
|
|
Count = Count + 1
|
|
Dim FragmentsFinised = Count * 100 / FragmentsInt
|
|
|
|
'Dim Update = New Thread(Sub() Me.TS_StatusAsync(CInt(FragmentsFinised), di, PauseTime))
|
|
'Update.Start()
|
|
RaiseEvent UpdateUI(CInt(FragmentsFinised), di, PauseTime)
|
|
|
|
ElseIf zeile.Contains("URI=" + Chr(34)) Then
|
|
Dim Zeile2() As String = zeile.Split(New String() {"URI=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
m3u8FileContent = m3u8FileContent + Zeile2(0) + "URI=" + Chr(34) + KeyFile + Chr(34) + vbNewLine ' a full path does not work here, that's why KeyFilePath is in the ffmpeg/downloader folder
|
|
|
|
ElseIf zeile.Contains("https://") Then
|
|
'If zeile = DownloadFile Then
|
|
'Else
|
|
' DownloadFile = zeile
|
|
'End If
|
|
Else
|
|
m3u8FileContent = m3u8FileContent + zeile + vbNewLine
|
|
|
|
End If
|
|
|
|
Next
|
|
|
|
|
|
Dim utf8WithoutBom As New System.Text.UTF8Encoding(False)
|
|
Using sink As New StreamWriter(Folder + "\index.m3u8", False, utf8WithoutBom)
|
|
sink.WriteLine(m3u8FileContent)
|
|
End Using
|
|
|
|
Return Folder + "\index.m3u8"
|
|
|
|
End Function
|
|
|
|
Private Sub DownloadTSv4(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal CurrentSize As Long, ByVal NewBytes As Integer)
|
|
Dim retryCount As Integer = 3
|
|
HybrideLog = HybrideLog + vbNewLine + Date.Now.ToString + ": " + DL_Pfad + " - " + DL_URL + " - " + CurrentSize.ToString
|
|
While CBool(retryCount > 0)
|
|
Try
|
|
|
|
|
|
Dim Request As HttpWebRequest = CType(WebRequest.Create(DL_URL), HttpWebRequest)
|
|
Dim Bytes(NewBytes) As Byte
|
|
Request.UserAgent = My.Settings.User_Agend.Replace(Chr(34), "").Replace("User-Agent: ", "")
|
|
Request.Timeout = 30000
|
|
Request.Method = "GET"
|
|
Request.AddRange(CurrentSize, CurrentSize + NewBytes)
|
|
|
|
|
|
Dim Response As Net.HttpWebResponse = CType(Request.GetResponse(), HttpWebResponse)
|
|
If CBool(CType(Response.StatusCode = Net.HttpStatusCode.PartialContent, HttpStatusCode) Or HttpStatusCode.OK) Then
|
|
|
|
Using binaryReader As New BinaryReader(Response.GetResponseStream())
|
|
Bytes = binaryReader.ReadBytes(NewBytes)
|
|
binaryReader.Close()
|
|
End Using
|
|
|
|
End If
|
|
|
|
File.WriteAllBytes(DL_Pfad, Bytes)
|
|
|
|
|
|
|
|
|
|
retryCount = 0
|
|
Catch ex As Exception
|
|
If retryCount > 0 Then
|
|
retryCount = retryCount - 1
|
|
Me.Invoke(New Action(Function() As Object
|
|
'Label_percent.Text = "Access Error - retrying"
|
|
Debug.WriteLine(ex.ToString)
|
|
Debug.WriteLine("retrying...")
|
|
Return Nothing
|
|
End Function))
|
|
|
|
Else
|
|
Me.Invoke(New Action(Function() As Object
|
|
'Label_percent.Text = "Access Error - download canceled"
|
|
Debug.WriteLine(ex.ToString)
|
|
Debug.WriteLine("retrying failed...")
|
|
Return Nothing
|
|
End Function))
|
|
|
|
|
|
End If
|
|
End Try
|
|
|
|
End While
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "v3/v5"
|
|
Public WithEvents WC_TS As WebClient
|
|
|
|
Private Function ProcessV3(ByVal url As String, ByVal InputData As String, ByVal Folder As String, ByVal DateiPfad As String, ByVal DL_URL As String) As String
|
|
|
|
|
|
|
|
Debug.WriteLine(Folder)
|
|
|
|
If Not Directory.Exists(Path.GetDirectoryName(Folder)) Then
|
|
' Nein! Jetzt erstellen...
|
|
Try
|
|
Directory.CreateDirectory(Path.GetDirectoryName(Folder))
|
|
Catch ex As Exception
|
|
Debug.WriteLine("folder issue")
|
|
Return "Error"
|
|
Exit Function
|
|
End Try
|
|
End If
|
|
|
|
|
|
If Not Directory.Exists(Path.GetDirectoryName(Folder) + "\Retry") Then
|
|
' Nein! Jetzt erstellen...
|
|
Try
|
|
Directory.CreateDirectory(Path.GetDirectoryName(Folder) + "\Retry")
|
|
Catch ex As Exception
|
|
Debug.WriteLine("folder issue")
|
|
Return "Error"
|
|
Exit Function
|
|
End Try
|
|
End If
|
|
|
|
Dim utf8WithoutBom2 As New System.Text.UTF8Encoding(False)
|
|
Using sink As New StreamWriter(Folder + "Retry\retry.m3u8", False, utf8WithoutBom2)
|
|
sink.WriteLine(InputData)
|
|
End Using
|
|
|
|
|
|
Dim Label_websiteText As String = Nothing
|
|
Dim Label_AnimeText As String = Nothing
|
|
Dim Label_ResoText As String = Nothing
|
|
Dim Label_HardsubText As String = Nothing
|
|
|
|
|
|
|
|
|
|
Me.Invoke(New Action(Function() As Object
|
|
Label_websiteText = Label_website.Text
|
|
Label_AnimeText = Label_Anime.Text
|
|
Label_ResoText = Label_Reso.Text
|
|
Label_HardsubText = Label_Hardsub.Text
|
|
Try
|
|
PB_Thumbnail.BackgroundImage.Save(Folder + "Retry\retry.jpg")
|
|
Catch ex As Exception
|
|
End Try
|
|
Return Nothing
|
|
End Function))
|
|
|
|
|
|
|
|
Using sink As New StreamWriter(Folder + "Retry\retry.txt", False, utf8WithoutBom2)
|
|
sink.WriteLine(DL_URL)
|
|
sink.WriteLine(Label_websiteText)
|
|
sink.WriteLine(Label_AnimeText)
|
|
sink.WriteLine(Label_ResoText)
|
|
sink.WriteLine(Label_HardsubText)
|
|
sink.WriteLine(DateiPfad)
|
|
End Using
|
|
|
|
Dim LoadedKeys As New List(Of String)
|
|
LoadedKeys.Add("Nothing")
|
|
Dim KeyFileCache As String = Nothing
|
|
Dim textLenght() As String = InputData.Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim Fragments() As String = InputData.Split(New String() {".ts"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim FragmentsInt As Integer = Fragments.Count - 2
|
|
Dim Count As Integer = 0
|
|
Dim m3u8FileContent As String = Nothing
|
|
|
|
|
|
Dim di As New IO.DirectoryInfo(Folder)
|
|
For i As Integer = 0 To textLenght.Length - 1
|
|
Dim i2 As Integer = i
|
|
CheckThreadCount()
|
|
If Canceld = True Then
|
|
For www As Integer = 0 To Integer.MaxValue
|
|
If ThreadList.Count > 0 Then
|
|
Thread.Sleep(250)
|
|
Else
|
|
Try
|
|
If KeepCacheFiles = False Then
|
|
System.IO.Directory.Delete(HybridModePath, True)
|
|
End If
|
|
Catch ex As Exception
|
|
End Try
|
|
Me.Invoke(New Action(Function() As Object
|
|
ProgressBar1.Value = 0
|
|
Label_percent.Text = "canceled -%"
|
|
bt_pause.BackgroundImage = My.Resources.main_pause_play
|
|
Return Nothing
|
|
End Function))
|
|
Exit For
|
|
End If
|
|
Next
|
|
Return "Canceld"
|
|
Exit Function
|
|
End If
|
|
|
|
|
|
|
|
If CBool(InStr(textLenght(i2), ".ts")) Then
|
|
|
|
Me.Invoke(New Action(Function() As Object
|
|
LastUrl = textLenght(i2)
|
|
Return Nothing
|
|
End Function))
|
|
|
|
Dim File As String = Folder + String.Format("{0:00000}", Count) + ".ts"
|
|
Dim curi As String = GetFullUri(url, textLenght(i))
|
|
|
|
If Not System.IO.File.Exists(Folder + "Retry\" + String.Format("{0:00000}", Count)) Then
|
|
Dim Evaluator = New Thread(Sub() Me.TS_DownloadAsync(curi, File))
|
|
Evaluator.Start()
|
|
ThreadList.Add(Evaluator)
|
|
End If
|
|
|
|
m3u8FileContent = m3u8FileContent + File + vbLf
|
|
Dim FragmentsFinised = Count * 100 / FragmentsInt
|
|
'Dim Update = New Thread(Sub() Me.TS_StatusAsync(CInt(FragmentsFinised), di, PauseTime))
|
|
'Update.Start()
|
|
RaiseEvent UpdateUI(CInt(FragmentsFinised), di, PauseTime)
|
|
Count = Count + 1
|
|
|
|
ElseIf textLenght(i2) = "#EXT-X-PLAYLIST-TYPE:VOD" Then
|
|
|
|
ElseIf CBool(InStr(textLenght(i2), "URI=" + Chr(34))) Then
|
|
Dim KeyLine As String = textLenght(i2)
|
|
|
|
Dim KeyFileUri() As String = KeyLine.Split(New String() {"URI=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim KeyFileUri2() As String = KeyFileUri(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim KeyFileUri3 As String = GetFullUri(url, KeyFileUri2(0))
|
|
If LoadedKeys.Item(LoadedKeys.Count - 1) = KeyFileUri3 Then
|
|
KeyLine = KeyFileUri(0) + "URI=" + Chr(34) + KeyFileCache + Chr(34)
|
|
Else
|
|
|
|
Dim KeyFile As String = GeräteID() + ".key"
|
|
KeyFileCache = KeyFile
|
|
|
|
|
|
Dim KeyFilePath As String = Folder + "\" + KeyFile
|
|
KeyFilePath = KeyFilePath.Replace("\\", "\")
|
|
Dim Evaluator = New Thread(Sub() Me.TS_DownloadAsync(KeyFileUri3, KeyFilePath))
|
|
Evaluator.Start()
|
|
|
|
LoadedKeys.Add(KeyFileUri3)
|
|
If KeyFileUri2.Count > 1 Then
|
|
KeyLine = KeyFileUri(0) + "URI=" + Chr(34) + KeyFileCache + Chr(34) + KeyFileUri2(1)
|
|
Else
|
|
KeyLine = KeyFileUri(0) + "URI=" + Chr(34) + KeyFileCache + Chr(34)
|
|
End If
|
|
|
|
'If KeepCacheFiles = True Then
|
|
' 'Dim Bytes() As Byte = File.ReadAllBytes(Application.StartupPath + "\" + KeyFile)
|
|
' 'File.WriteAllBytes(Folder + "\" + KeyFile, Bytes)
|
|
' Dim Evaluator2 = New Thread(Sub() Me.TS_DownloadAsync(KeyFileUri3, Folder + "\" + KeyFile))
|
|
' Evaluator2.Start()
|
|
'End If
|
|
End If
|
|
m3u8FileContent = m3u8FileContent + KeyLine + vbLf
|
|
|
|
Else
|
|
m3u8FileContent = m3u8FileContent + textLenght(i) + vbLf
|
|
End If
|
|
|
|
|
|
Next
|
|
|
|
|
|
Dim utf8WithoutBom As New System.Text.UTF8Encoding(False)
|
|
Using sink As New StreamWriter(Folder + "\index.m3u8", False, utf8WithoutBom)
|
|
sink.WriteLine(m3u8FileContent)
|
|
End Using
|
|
|
|
'If File.Exists(Folder + "retry.m3u8") Then
|
|
' My.Computer.FileSystem.DeleteFile(Folder + "retry.m3u8")
|
|
'End If
|
|
|
|
If KeepCacheFiles = True Then
|
|
Using sink As New StreamWriter(Folder + "\index-VLC.m3u8", False, utf8WithoutBom)
|
|
m3u8FileContent = m3u8FileContent.Replace(Folder, "file:///" + Folder.Replace("\", "/"))
|
|
m3u8FileContent = m3u8FileContent.Replace("URI=" + Chr(34), "URI=" + Chr(34) + "file:///" + Folder.Replace("\", "/"))
|
|
sink.WriteLine(m3u8FileContent)
|
|
End Using
|
|
End If
|
|
|
|
|
|
Return Folder + "\index.m3u8"
|
|
|
|
|
|
End Function
|
|
|
|
Private Sub TS_DownloadAsync(ByVal DL_URL As String, ByVal DL_Pfad As String)
|
|
HybrideLog = HybrideLog + vbNewLine + Date.Now.ToString + ": " + DL_Pfad + " - " + DL_URL
|
|
Try
|
|
'Dim wc_ts As New WebClient
|
|
WC_TS = New WebClient
|
|
|
|
WC_TS.DownloadFile(New Uri(DL_URL), DL_Pfad)
|
|
If Not CBool(InStr(DL_Pfad, "Stream-")) Then
|
|
Dim utf8WithoutBom2 As New System.Text.UTF8Encoding(False)
|
|
Using sink As New StreamWriter(Path.GetDirectoryName(DL_Pfad) + "\Retry\" + Path.GetFileName(DL_Pfad), False, utf8WithoutBom2)
|
|
sink.WriteLine(DL_Pfad)
|
|
End Using
|
|
End If
|
|
|
|
|
|
Catch ex As Exception
|
|
|
|
Debug.WriteLine("Download error #1: " + DL_Pfad)
|
|
Try
|
|
Dim wc_ts As New WebClient
|
|
wc_ts.DownloadFile(New Uri(DL_URL), DL_Pfad)
|
|
|
|
If Not CBool(InStr(DL_Pfad, Application.StartupPath)) Then
|
|
Dim utf8WithoutBom2 As New System.Text.UTF8Encoding(False)
|
|
Using sink As New StreamWriter(Path.GetDirectoryName(DL_Pfad) + "\Retry\" + Path.GetFileName(DL_Pfad), False, utf8WithoutBom2)
|
|
sink.WriteLine(DL_Pfad)
|
|
End Using
|
|
End If
|
|
|
|
|
|
Catch ex2 As Exception
|
|
FailedCount = FailedCount + 1
|
|
If CBool(InStr(DL_Pfad, ".key")) Then
|
|
Failed = True
|
|
FailedKey = True
|
|
StatusRunning = False
|
|
bt_pause.BackgroundImage = My.Resources.main_pause_play
|
|
Me.Invoke(New Action(Function() As Object
|
|
Label_percent.Text = "fatal! Failed to download 'encryption.key'"
|
|
Return Nothing
|
|
End Function))
|
|
ElseIf Item_ErrorTolerance = 0 Then
|
|
|
|
ElseIf FailedCount >= Item_ErrorTolerance Then
|
|
FailedSegments.Add(New FailedSegemtsWithURL(DL_Pfad, DL_URL))
|
|
Failed = True
|
|
StatusRunning = False
|
|
bt_pause.BackgroundImage = My.Resources.main_pause_play
|
|
Me.Invoke(New Action(Function() As Object
|
|
|
|
Label_percent.Text = "Missing segment detected, retry or resume with the play button"
|
|
Return Nothing
|
|
End Function))
|
|
|
|
End If
|
|
|
|
|
|
Debug.WriteLine("Download error #2: " + DL_URL + vbNewLine + DL_Pfad + vbNewLine + ex2.ToString + vbNewLine + DL_URL)
|
|
End Try
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
Public Function DownloadHybrid(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal Filename As String) As String
|
|
'MsgBox(DL_URL)
|
|
LogText.Add(Date.Now.ToString + " " + DL_URL)
|
|
|
|
Dim Folder As String = GeräteID()
|
|
Dim DL_URL_old As String = DL_URL
|
|
Dim PauseTime As Integer = 0
|
|
Dim Pfad2 As String = TempFolder + "\" + Folder + "\" 'Path.GetDirectoryName(DL_Pfad.Replace(Chr(34), "")) + "\" + Folder + "\"
|
|
|
|
If Not Directory.Exists(Path.GetDirectoryName(Pfad2)) Then
|
|
' Nein! Jetzt erstellen...
|
|
Try
|
|
Directory.CreateDirectory(Path.GetDirectoryName(Pfad2))
|
|
Catch ex As Exception
|
|
Debug.WriteLine("folder issue")
|
|
Return "Error"
|
|
Exit Function
|
|
End Try
|
|
End If
|
|
|
|
|
|
If CBool(InStr(DL_Pfad, "CRD-Temp-File-")) Then
|
|
Pfad2 = DL_Pfad.Replace(Chr(34), "") + "\"
|
|
Dim DL_PfadSplit() As String = DL_Pfad.Split(New String() {"CRD-Temp-File-"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
DL_Pfad = Chr(34) + DL_PfadSplit(0) + Filename + Chr(34)
|
|
End If
|
|
|
|
If CBool(InStr(DL_URL, "-mdata.txt" + Chr(34))) Then
|
|
Dim DL_URLSplit() As String = DL_URL.Split(New String() {"-mdata.txt" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim DL_URLSplit1() As String = DL_URLSplit(0).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim mdataFile As String = DL_URLSplit1(DL_URLSplit1.Count - 1) + "-mdata.txt"
|
|
Debug.WriteLine(mdataFile)
|
|
Dim mdata As String = ReadText(mdataFile)
|
|
Dim newMdata As String = Path.Combine(Pfad2, "mdata.txt")
|
|
Debug.WriteLine(newMdata)
|
|
WriteText(newMdata, mdata)
|
|
DL_URL = DL_URL.Replace(mdataFile, newMdata)
|
|
End If
|
|
|
|
Dim di As New IO.DirectoryInfo(Pfad2)
|
|
Dim m3u8_url As String() = DL_URL.Split(New [Char]() {Chr(34)})
|
|
Dim m3u8FFmpeg As String = Nothing
|
|
HybridModePath = Pfad2
|
|
Dim InuputStreams As String() = DL_URL.Split(New String() {"-i " + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
|
|
Me.Invoke(New Action(Function() As Object
|
|
Label_percent.Text = "Checking input..."
|
|
Return Nothing
|
|
End Function))
|
|
|
|
For i As Integer = 1 To InuputStreams.Count - 1
|
|
|
|
Dim int As Integer = i
|
|
|
|
Dim SubsFile As String = Pfad2 + GeräteID() + ".txt"
|
|
|
|
If File.Exists(SubsFile) Then
|
|
SubsFile = Pfad2 + GeräteID2() + ".txt"
|
|
End If
|
|
|
|
Try
|
|
|
|
Dim InputData As String = Nothing
|
|
Dim InputPath As String = Nothing
|
|
If CBool(InStr(InuputStreams(int), ":\")) = True Then
|
|
Dim InputFile As String() = InuputStreams(int).Split(New [Char]() {Chr(34)})
|
|
InputPath = InputFile(0)
|
|
InputData = My.Computer.FileSystem.ReadAllText(InputPath)
|
|
|
|
Else
|
|
Dim InputURL As String() = InuputStreams(int).Split(New [Char]() {Chr(34)})
|
|
InputPath = InputURL(0)
|
|
Dim InputClient As New WebClient
|
|
InputClient.Encoding = Encoding.UTF8
|
|
|
|
If Main.WebbrowserCookie = Nothing Then
|
|
Else
|
|
InputClient.Headers.Add(HttpRequestHeader.Cookie, Main.WebbrowserCookie)
|
|
|
|
End If
|
|
|
|
Try
|
|
InputData = InputClient.DownloadString(InputURL(0))
|
|
Catch ex As Exception
|
|
InputClient.Headers.Add(HttpRequestHeader.AcceptEncoding, "*")
|
|
InputData = DecompressString(InputClient.DownloadData(InputURL(0)))
|
|
End Try
|
|
|
|
End If
|
|
If InputData = Nothing Then
|
|
Throw New System.Exception("No Input Data...")
|
|
End If
|
|
|
|
'If CBool(InStr(InputData, "RESOLUTION=")) = True And CBool(InStr(InputData, "#EXT-X-BYTERANGE:")) = False Then 'master m3u8 no fragments
|
|
|
|
' Dim index_m3u8() As String = InputData.Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
' If TargetReso = 42 Then
|
|
' TargetReso = 1080
|
|
' End If
|
|
' For line As Integer = 0 To index_m3u8.Count - 1
|
|
' If CBool(InStr(index_m3u8(line), "x" + TargetReso.ToString)) = True Then
|
|
|
|
' InputData = InputClient.DownloadString(GetFullUri(InputURL(0), index_m3u8(line + 1)))
|
|
' InputURL(0) = index_m3u8(line + 1)
|
|
' Exit For
|
|
' End If
|
|
' Next
|
|
'End If
|
|
|
|
If CBool(InStr(InputData, "#EXT-X-VERSION:3")) Or CBool(InStr(InputData, "#EXT-X-VERSION:5")) Then
|
|
|
|
If KeepCacheFiles = True Then
|
|
Pfad2 = Path.GetDirectoryName(DL_Pfad.Replace(Chr(34), "")) + "\" + NameP2.Replace(" ", "-") + "\"
|
|
End If
|
|
|
|
ProcessV3(InputPath, InputData, Pfad2, DL_Pfad, DL_URL)
|
|
|
|
If CBool(InStr(DL_URL, "-allowed_extensions ALL ")) = True Then
|
|
DL_URL = DL_URL.Replace("-allowed_extensions ALL ", "")
|
|
End If
|
|
|
|
DL_URL = DL_URL.Replace("-i " + Chr(34) + InputPath, "-allowed_extensions ALL " + "-i " + Chr(34) + Pfad2 + "index.m3u8")
|
|
|
|
ElseIf CBool(InStr(InputData, "#EXT-X-VERSION:4")) Then
|
|
ProcessV4(InputPath, InputData, Pfad2 + "Stream-" + int.ToString + "\")
|
|
|
|
|
|
If CBool(InStr(DL_URL, "-allowed_extensions ALL ")) = True Then
|
|
DL_URL = DL_URL.Replace("-allowed_extensions ALL ", "")
|
|
End If
|
|
|
|
DL_URL = DL_URL.Replace("-i " + Chr(34) + InputPath, "-allowed_extensions ALL " + "-i " + Chr(34) + Pfad2 + "Stream-" + int.ToString + "\index.m3u8")
|
|
Else
|
|
'write string to file
|
|
If Not Directory.Exists(Path.GetDirectoryName(Pfad2)) Then
|
|
' Nein! Jetzt erstellen...
|
|
Try
|
|
Directory.CreateDirectory(Path.GetDirectoryName(Pfad2))
|
|
Catch ex As Exception
|
|
Debug.WriteLine("folder issue")
|
|
Return "Error"
|
|
Exit Function
|
|
End Try
|
|
End If
|
|
Dim utf8WithoutBom2 As New System.Text.UTF8Encoding(False)
|
|
|
|
If My.Settings.SubtitleMod1 = True Then
|
|
InputData = AddScaledBorderAndShadow(InputData)
|
|
End If
|
|
|
|
|
|
If My.Settings.vttStyleRemove = True Then
|
|
If CBool(InStr(InputData, "WEBVTT")) And CBool(InStr(InputData, "STYLE")) Then
|
|
Dim VTT As String() = InputData.Split(New String() {"STYLE"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim VTT0 As String() = VTT(1).Split(New String() {"}"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
InputData = VTT(0) + VTT(1).Replace("}", "").Replace(VTT0(0), "")
|
|
End If
|
|
If CBool(InStr(InputData, "WEBVTT")) Then
|
|
InputData = InputData.Replace("<Default>", "").Replace("</Default>", "")
|
|
End If
|
|
End If
|
|
|
|
|
|
Using sink As New StreamWriter(SubsFile, False, utf8WithoutBom2)
|
|
sink.WriteLine(InputData)
|
|
End Using
|
|
'replace url with local file
|
|
DL_URL = DL_URL.Replace(InputPath, SubsFile)
|
|
End If
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.ToString)
|
|
DL_URL = DL_URL_old
|
|
End Try
|
|
|
|
If Canceld = True Then
|
|
Return Nothing
|
|
Exit Function
|
|
End If
|
|
|
|
Next
|
|
|
|
|
|
For w As Integer = 0 To Integer.MaxValue
|
|
If ThreadList.Count > 0 Then
|
|
Thread.Sleep(250)
|
|
Else
|
|
Thread.Sleep(250)
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
|
|
'TS_StatusAsync(100, di, PauseTime)
|
|
|
|
RaiseEvent UpdateUI(100, di, PauseTime)
|
|
|
|
If CBool(InStr(DL_URL, " -headers " + My.Settings.User_Agend)) = True And CBool(InStr(DL_URL, "https:\\")) = False Then
|
|
DL_URL = DL_URL.Replace(" -headers " + My.Settings.User_Agend, "")
|
|
End If
|
|
|
|
'MsgBox(DL_URL)
|
|
Dim exepath As String = Application.StartupPath + "\ffmpeg.exe"
|
|
Dim startinfo As New System.Diagnostics.ProcessStartInfo
|
|
|
|
Dim cmd As String = DL_URL + " " + DL_Pfad
|
|
LogText.Add(Date.Now.ToString + " " + cmd)
|
|
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
|
|
proc = New Process
|
|
proc.EnableRaisingEvents = True
|
|
AddHandler proc.ErrorDataReceived, AddressOf FFMPEGOutput
|
|
AddHandler proc.OutputDataReceived, AddressOf FFMPEGOutput
|
|
AddHandler proc.Exited, AddressOf ProcessClosed
|
|
proc.StartInfo = startinfo
|
|
proc.Start() ' start the process
|
|
proc.BeginOutputReadLine()
|
|
proc.BeginErrorReadLine()
|
|
HybridRunning = False
|
|
Return Nothing
|
|
End Function
|
|
|
|
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
|
|
Public Function DownloadFFMPEG(ByVal DLCommand As String, ByVal DL_Pfad As String, ByVal Filename As String) As String
|
|
|
|
'MsgBox(DLCommand)
|
|
|
|
Dim exepath As String = Application.StartupPath + "\ffmpeg.exe"
|
|
Dim startinfo As New System.Diagnostics.ProcessStartInfo
|
|
'Dim cmd As String = "-user_agent " + My.Settings.User_Agend.Replace("User-Agent: ", "") + " -headers " + Chr(34) + "ACCEPT-ENCODING: *" + Chr(34) + " " + DLCommand + " " + DL_Pfad 'start ffmpeg with command strFFCMD string
|
|
|
|
Dim cmd As String = DLCommand + " " + DL_Pfad 'start ffmpeg with command strFFCMD string
|
|
|
|
'If CBool(InStr(DLCommand, ":\")) And CBool(InStr(DLCommand, "-i " + Chr(34) + "https://")) Then
|
|
' Dim Replacement As String = "-user_agent " + My.Settings.User_Agend.Replace("User-Agent: ", "") + " -headers " + Chr(34) + "ACCEPT-ENCODING: *" + Chr(34) + " -i " + Chr(34) + "https://"
|
|
' cmd = DLCommand.Replace("-i " + Chr(34) + "https://", Replacement) + " " + DL_Pfad
|
|
'End If
|
|
|
|
LogText.Add(Date.Now.ToString + " " + cmd)
|
|
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.Hidden
|
|
startinfo.RedirectStandardError = True
|
|
'startinfo.RedirectStandardInput = True
|
|
startinfo.RedirectStandardOutput = True
|
|
startinfo.StandardErrorEncoding = Encoding.UTF8
|
|
startinfo.StandardOutputEncoding = Encoding.UTF8
|
|
startinfo.CreateNoWindow = True
|
|
proc = New Process
|
|
proc.EnableRaisingEvents = True
|
|
AddHandler proc.ErrorDataReceived, AddressOf FFMPEGOutput
|
|
AddHandler proc.OutputDataReceived, AddressOf FFMPEGOutput
|
|
AddHandler proc.Exited, AddressOf ProcessClosed
|
|
proc.StartInfo = startinfo
|
|
proc.Start() ' start the process
|
|
proc.BeginOutputReadLine()
|
|
proc.BeginErrorReadLine()
|
|
Return Nothing
|
|
End Function
|
|
|
|
Sub ProcessClosed(ByVal sender As Object, ByVal e As System.EventArgs)
|
|
Try
|
|
Pause(5)
|
|
If Finished = False Then
|
|
If Canceld = False Then
|
|
Label_website.Text = "The download process seems to have crashed"
|
|
Label_percent.Text = "Press the play button again to retry."
|
|
ProgressBar1.Value = 0
|
|
Retry = True
|
|
StatusRunning = False
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Sub FFMPEGOutput(ByVal sender As Object, ByVal e As DataReceivedEventArgs)
|
|
Try
|
|
LogText.Add(Date.Now.ToString + " " + e.Data)
|
|
'My.Computer.FileSystem.WriteAllText(GlobalLogfile, Date.Now.ToString + " " + e.Data, True)
|
|
'Dim Log As String = ""
|
|
'Dim logfile As String = DownloadPfad.Replace(Main.VideoFormat, ".log").Replace(Chr(34), "")
|
|
|
|
'For i As Integer = 1 To LogText.Count - 1
|
|
' Log = Log + vbNewLine
|
|
' Log = Log + LogText.Item(i)
|
|
'Next
|
|
'WriteText(logfile, Log)
|
|
Catch ex As Exception
|
|
Debug.WriteLine("FFMPEGOutput: " + ex.ToString)
|
|
End Try
|
|
|
|
'Dim TH As String = "FFMPEGOutput_ID: " + Thread.CurrentThread.Name
|
|
'Debug.WriteLine(TH)
|
|
|
|
'My.Computer.FileSystem.WriteAllText(GlobalLogfile, TH, True)
|
|
'My.Computer.FileSystem.WriteAllText(GlobalLogfile, vbNewLine, True)
|
|
'Thread.CurrentThread.Name = "FFMPEGOutput"
|
|
|
|
#Region "Detect Auto resolution"
|
|
Try
|
|
|
|
|
|
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 + CBool(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 CBool(InStr(e.Data, "Stream #")) And CBool(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() As Object
|
|
If Label_Reso.Text = "1080p+" Then
|
|
Else
|
|
Label_Reso.Text = ResoSearch2(0) + "p"
|
|
End If
|
|
|
|
Return Nothing
|
|
End Function))
|
|
End If
|
|
End If
|
|
Next
|
|
End If
|
|
End If
|
|
#End Region
|
|
|
|
If CBool(InStr(e.Data, "Duration: N/A, bitrate: N/A")) Then
|
|
|
|
ElseIf Finished = True Then
|
|
|
|
ElseIf CBool(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 CBool(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 CBool(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 CBool(InStr(bitrate2(0), ".")) Then
|
|
Dim bitrateTemo As String() = bitrate2(0).Split(New String() {"."}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
bitrate3 = bitrateTemo(0)
|
|
ElseIf CBool(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 = CInt(ZeitFertigInteger / ZeitGesamtInteger * 100)
|
|
Me.Invoke(New Action(Function() As Object
|
|
If percent > 100 Then
|
|
percent = 100
|
|
End If
|
|
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))
|
|
ElseIf CBool(InStr(e.Data, "Failed to open segment")) Then
|
|
FailedCount = FailedCount + 1
|
|
If Item_ErrorTolerance = 0 Then
|
|
|
|
ElseIf FailedCount >= Item_ErrorTolerance Then
|
|
Failed = True
|
|
StatusRunning = False
|
|
bt_pause.BackgroundImage = My.Resources.main_pause_play
|
|
SuspendProcess(proc)
|
|
Me.Invoke(New Action(Function() As Object
|
|
|
|
Label_percent.Text = "Missing segment detected, retry or resume with the play button"
|
|
Return Nothing
|
|
End Function))
|
|
End If
|
|
|
|
ElseIf CBool(InStr(e.Data, "muxing overhead:")) Then
|
|
Finished = True
|
|
Me.Invoke(New Action(Function() As Object
|
|
|
|
ProgressBar1.Value = ProgressBar1.Maximum
|
|
Dim Done As String() = Label_percent.Text.Split(New String() {"MB"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Label_percent.Text = "Finished - " + Done(0) + "MB"
|
|
Return Nothing
|
|
End Function))
|
|
If HybridMode = True Then
|
|
Thread.Sleep(5000)
|
|
Try
|
|
If KeepCacheFiles = False Then
|
|
System.IO.Directory.Delete(HybridModePath, True)
|
|
End If
|
|
Catch ex As Exception
|
|
End Try
|
|
End If
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.ToString)
|
|
End Try
|
|
|
|
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(My.Settings.User_Agend.Replace(Chr(34), ""))
|
|
client.Headers.Add(HttpRequestHeader.AcceptEncoding, "*")
|
|
client.DownloadFile(BaseURL + SiteList(i), Pfad_DL + "\" + SiteList(i))
|
|
Pause(1)
|
|
End Using
|
|
Me.Invoke(New Action(Function() As Object
|
|
iWert = iWert + 1
|
|
Dim Prozent As Integer = CInt(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 Canceld = True Then
|
|
If MessageBox.Show("The Download is not running anymore, press ok to remove it from the list.", "Remove from list!", MessageBoxButtons.OKCancel) = DialogResult.Cancel Then
|
|
Exit Sub
|
|
End If
|
|
Me.Dispose()
|
|
ElseIf HybridRunning = True Then
|
|
If MessageBox.Show("Are you sure you want to cancel the Download?", "Cancel Download!", MessageBoxButtons.YesNo) = DialogResult.No Then
|
|
Exit Sub
|
|
End If
|
|
Canceld = True
|
|
'KillRunningTask()
|
|
|
|
Else
|
|
If proc.HasExited Then
|
|
If MessageBox.Show("The Download is not running anymore, press ok to remove it from the list.", "Remove from list!", MessageBoxButtons.OKCancel) = DialogResult.Cancel Then
|
|
Exit Sub
|
|
End If
|
|
|
|
Me.Dispose()
|
|
Else
|
|
If MessageBox.Show("Are you sure you want to cancel the Download?", "Cancel Download!", MessageBoxButtons.YesNo) = DialogResult.No Then
|
|
Exit Sub
|
|
End If
|
|
Canceld = True
|
|
KillRunningTask()
|
|
End If
|
|
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, CUInt(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, CUInt(t.Id))
|
|
If th <> IntPtr.Zero Then
|
|
ResumeThread(th)
|
|
CloseHandle(th)
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
|
Try
|
|
For tlc As Integer = 0 To ThreadList.Count - 1
|
|
If ThreadList.Item(tlc).IsAlive Then
|
|
Else
|
|
ThreadList.Remove(ThreadList.Item(tlc))
|
|
End If
|
|
Next
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
'Private Sub Label_Anime_Click(sender As Object, ByVal e As MouseEventArgs) Handles Label_Anime.MouseUp, PB_Thumbnail.MouseUp, Label_Reso.MouseUp, Label_percent.MouseUp, ProgressBar1.MouseUp, Label_website.MouseUp, Me.MouseUp
|
|
' If e.Button = MouseButtons.Right Then
|
|
' 'MsgBox("Right Button Clicked")
|
|
|
|
' ContextMenuStrip1.ContextMenu.Show(Me, MousePosition)
|
|
' End If
|
|
'End Sub
|
|
|
|
Private Sub ViewInExplorerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ViewInExplorerToolStripMenuItem.Click
|
|
Process.Start(Path.GetDirectoryName(DownloadPfad.Replace(Chr(34), "")))
|
|
End Sub
|
|
|
|
Private Sub PlaybackVideoFileToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PlaybackVideoFileToolStripMenuItem.Click
|
|
If GetIsStatusFinished() = True Then
|
|
PlaybackVideoFileToolStripMenuItem.Enabled = True
|
|
Else
|
|
PlaybackVideoFileToolStripMenuItem.Enabled = False
|
|
End If
|
|
Process.Start(DownloadPfad.Replace(Chr(34), ""))
|
|
End Sub
|
|
|
|
Private Sub SaveToFile_Click(sender As Object, e As EventArgs) Handles SaveToFile.Click
|
|
Try
|
|
If HybridMode = True Then
|
|
Try
|
|
|
|
Dim logfile As String = DownloadPfad.Replace(Main.VideoFormat, ".log").Replace(Chr(34), "")
|
|
|
|
'File.WriteAllText(logfile, HybrideLog)
|
|
WriteText(logfile, HybrideLog)
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString)
|
|
End Try
|
|
End If
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
Try
|
|
|
|
Dim logfile As String = DownloadPfad.Replace(Main.VideoFormat, ".log").Replace(Chr(34), "")
|
|
|
|
Using sw As StreamWriter = File.AppendText(logfile)
|
|
sw.Write(LogText.Item(0))
|
|
sw.Write(vbNewLine)
|
|
For i As Integer = 1 To LogText.Count - 1
|
|
sw.Write(vbNewLine)
|
|
sw.Write(LogText.Item(i))
|
|
Next
|
|
|
|
End Using
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub LogTocClipboard_Click(sender As Object, e As EventArgs) Handles LogTocClipboard.Click
|
|
Try
|
|
Dim Text As String = HybrideLog + vbNewLine + LogText.Item(0) + vbNewLine
|
|
For i As Integer = 1 To LogText.Count - 1
|
|
Text = Text + vbNewLine + LogText.Item(i)
|
|
Next
|
|
My.Computer.Clipboard.SetText(Text)
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TN_DL_Tick(sender As Object, e As EventArgs) Handles TN_DL.Tick
|
|
If My.Settings.SaveThumbnail = True Then
|
|
Dim FilePath As String = DownloadPfad.Replace(Chr(34), "")
|
|
Dim FilePath2 As String = Path.GetFullPath(FilePath).Replace(Path.GetExtension(FilePath), "") + ".png"
|
|
|
|
If Not Directory.Exists(Path.GetDirectoryName(FilePath2)) Then
|
|
' Nein! Jetzt erstellen...
|
|
Directory.CreateDirectory(Path.GetDirectoryName(FilePath2))
|
|
End If
|
|
|
|
Debug.WriteLine(FilePath2)
|
|
|
|
Dim BackgroundImage As Bitmap = CType(PB_Thumbnail.BackgroundImage, Bitmap)
|
|
BackgroundImage.Save(FilePath2, System.Drawing.Imaging.ImageFormat.Png)
|
|
|
|
End If
|
|
TN_DL.Enabled = False
|
|
End Sub
|
|
End Class
|
|
|
|
|
|
Public Class FailedSegemtsWithURL
|
|
Public Path As String
|
|
Public Url As String
|
|
|
|
Public Sub New(ByVal Path As String, ByVal Url As String)
|
|
Me.Path = Path
|
|
Me.Url = Url
|
|
End Sub
|
|
|
|
Public Overrides Function ToString() As String
|
|
Return String.Format("{0}, {1}", Me.Path, Me.Url)
|
|
End Function
|
|
|
|
|
|
End Class |