mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-14 15:52:18 +00:00
54ffe10f71
Cleaned up the code Replace some old functions with new ones Adapted to the new library environment Enable/Disable display user/downloaded image Autodownloader option 'Show notification' not saved Separate thread for standalone video downloader Expanded the description of some errors with additional information Fixed date/time renaming issue Fixed internal library bugs Fixed minor bugs
68 lines
3.3 KiB
VB.net
68 lines
3.3 KiB
VB.net
' Copyright (C) 2022 Andy
|
|
' This program is free software: you can redistribute it and/or modify
|
|
' it under the terms of the GNU General Public License as published by
|
|
' the Free Software Foundation, either version 3 of the License, or
|
|
' (at your option) any later version.
|
|
'
|
|
' This program is distributed in the hope that it will be useful,
|
|
' but WITHOUT ANY WARRANTY
|
|
Imports System.Net
|
|
Imports PersonalUtilities.Tools.WEB
|
|
Friend NotInheritable Class M3U8
|
|
Private Sub New()
|
|
End Sub
|
|
Private Shared Function Save(ByVal URLs As List(Of String), ByVal ffmpegFile As SFile, ByVal f As SFile, ByRef Logger As ILogProvider) As SFile
|
|
Dim CachePath As SFile = Nothing
|
|
Try
|
|
If URLs.ListExists Then
|
|
Dim ConcatFile As SFile = f
|
|
If ConcatFile.Name.IsEmptyString Then ConcatFile.Name = "PlayListFile"
|
|
ConcatFile.Extension = "mp4"
|
|
CachePath = $"{f.PathWithSeparator}_Cache\{SFile.GetDirectories($"{f.PathWithSeparator}_Cache\",,, EDP.ReturnValue).ListIfNothing.Count + 1}\"
|
|
If CachePath.Exists(SFO.Path) Then
|
|
Dim p As New SFileNumbers(ConcatFile.Name,,, New ANumbers With {.Format = ANumbers.Formats.General})
|
|
ConcatFile = SFile.Indexed_IndexFile(ConcatFile,, p, EDP.ReturnValue)
|
|
Dim i%
|
|
Dim eFiles As New List(Of SFile)
|
|
Dim dFile As SFile = CachePath
|
|
dFile.Extension = "ts"
|
|
Using w As New WebClient
|
|
For i = 0 To URLs.Count - 1
|
|
dFile.Name = $"ConPart_{i}"
|
|
w.DownloadFile(URLs(i), dFile)
|
|
eFiles.Add(dFile)
|
|
Next
|
|
End Using
|
|
f = FFMPEG.ConcatenateFiles(eFiles, ffmpegFile, ConcatFile, p, EDP.ThrowException)
|
|
eFiles.Clear()
|
|
Return f
|
|
End If
|
|
End If
|
|
Return Nothing
|
|
Catch ex As Exception
|
|
Logger.Add(ex, "[M3U8.Save]")
|
|
ex.HelpLink = 1
|
|
Throw ex
|
|
Finally
|
|
CachePath.Delete(SFO.Path, SFODelete.None, EDP.None)
|
|
End Try
|
|
End Function
|
|
Friend Shared Function Download(ByVal URL As String, ByVal Appender As String, ByVal ffmpegFile As SFile, ByVal f As SFile, ByRef Logger As ILogProvider) As SFile
|
|
Try
|
|
If Not URL.IsEmptyString Then
|
|
Using w As New WebClient
|
|
Dim r$ = w.DownloadString(URL)
|
|
If Not r.IsEmptyString Then
|
|
Dim l As List(Of String) = ListAddList(Nothing, r.StringFormatLines.StringToList(Of String)(vbNewLine).ListWithRemove(Function(v) v.Trim.StartsWith("#")),
|
|
New ListAddParams With {.Converter = Function(Input) $"{Appender}/{Input.ToString.Trim}"})
|
|
If l.ListExists Then Return Save(l, ffmpegFile, f, Logger)
|
|
End If
|
|
End Using
|
|
End If
|
|
Return Nothing
|
|
Catch ex As Exception
|
|
If Not ex.HelpLink = 1 Then Logger.Add(ex, $"[M3U8.Download({URL}, {Appender}, {ffmpegFile}, {f})]")
|
|
Throw ex
|
|
End Try
|
|
End Function
|
|
End Class |