mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-15 00:02:17 +00:00
bdc7321331
Add sites: PornHub, XHamster Add saved xvideos posts downloading PluginProvider: added TaskGroup attribute; added IUserMedia inteface; changed PluginUserMedia to IUserMedia in interface declarations; changed 'User' String to IPluginContentProvider in ISiteSettings sinterface Added update the 'LOG' button at the end of the ProfileSaved download function API.Base: added 'IUserMedia' compatibility for 'UserMedia'; moved 'GetImage' from 'UserPost' to 'ChannelsViewForm'; update constants in UserDataBase; updated UserDataBase to new UserInfo environment. API.Instagram.UserData: fixed date issue API.Reddit.SiteSettings: update user patterns API.Twitter.Declarations: moved provider here from MainFrame UserDataBind: updated to new UserInfo environment ActiveDownloadingProgress: updated form rendering AutoDownloader: added SpecialDelay TDownloader: added 'Suspended' option; updated for TaskGroups CollectionEditorForm: fixed order bug LabelsForm: remove old stuff UserEditorForm: added collection editing MainFrame: improve label selection Add import users Added the ability to create a virtual collection and add a virtual user to a real collection SettingsCLS: improve users loading
59 lines
3.1 KiB
VB.net
59 lines
3.1 KiB
VB.net
' Copyright (C) 2023 Andy https://github.com/AAndyProgram
|
|
' 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.Threading
|
|
Imports SCrawler.Plugin.Hosts
|
|
Imports PersonalUtilities.Forms.Toolbars
|
|
Imports PDownload = SCrawler.Plugin.ISiteSettings.Download
|
|
Namespace API.Base
|
|
Friend NotInheritable Class ProfileSaved
|
|
Private ReadOnly Property HOST As SettingsHost
|
|
Private ReadOnly Property Progress As MyProgress
|
|
Friend Sub New(ByRef h As SettingsHost, ByRef Bar As MyProgress)
|
|
HOST = h
|
|
Progress = Bar
|
|
End Sub
|
|
Friend Sub Download(ByVal Token As CancellationToken)
|
|
Try
|
|
If HOST.Source.ReadyToDownload(PDownload.SavedPosts) Then
|
|
If HOST.Available(PDownload.SavedPosts, False) Then
|
|
HOST.DownloadStarted(PDownload.SavedPosts)
|
|
Dim u As New UserInfo With {.Plugin = HOST.Key, .Site = HOST.Name, .SpecialPath = HOST.SavedPostsPath}
|
|
Using user As IUserData = HOST.GetInstance(PDownload.SavedPosts, Nothing, False, False)
|
|
If Not user Is Nothing AndAlso Not user.Name.IsEmptyString Then
|
|
u.Name = user.Name
|
|
With DirectCast(user, UserDataBase)
|
|
With .User : u.IsChannel = .IsChannel : u.UpdateUserFile() : End With
|
|
.User = u
|
|
.LoadUserInformation()
|
|
.IsSavedPosts = True
|
|
.Progress = Progress
|
|
If Not .FileExists Then .UpdateUserInformation()
|
|
End With
|
|
HOST.BeforeStartDownload(user, PDownload.SavedPosts)
|
|
user.DownloadData(Token)
|
|
Progress.InformationTemporary = $"{HOST.Name} Images: {user.DownloadedPictures(False)}; Videos: {user.DownloadedVideos(False)}"
|
|
HOST.AfterDownload(user, PDownload.SavedPosts)
|
|
End If
|
|
End Using
|
|
Else
|
|
Progress.InformationTemporary = $"Host [{HOST.Name}] is unavailable"
|
|
End If
|
|
Else
|
|
Progress.InformationTemporary = $"Host [{HOST.Name}] is not ready"
|
|
End If
|
|
Catch ex As Exception
|
|
Progress.InformationTemporary = $"{HOST.Name} downloading error"
|
|
ErrorsDescriber.Execute(EDP.SendInLog, ex, $"[API.Base.ProfileSaved.Download({HOST.Key})]")
|
|
Finally
|
|
HOST.DownloadDone(PDownload.SavedPosts)
|
|
MainFrameObj.UpdateLogButton()
|
|
End Try
|
|
End Sub
|
|
End Class
|
|
End Namespace |