mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-14 15:52:18 +00:00
2f838929cc
PluginProvider IPluginContentProvider: add 'NameTrue' property YT YouTubeSettings: remove the 'CreateDescriptionFiles_AddUploadDate' property PlayListParserForm: add 'RDAMP' as default value when initializing form YouTubeMediaContainerBase: fix line breaks SCrawler API.Base: add 'EditorExchangeOptionsBase' class API.Base.GDL: move functions to Pinterest.UserData API.Base.IUserData: add 'NameTrue' property API.Base.SiteSettingsBase: update the 'GetUserUrl' function to use the 'NameTrue' property; update 'UserOptions' function API.Base.UserDataBase: add 'NameTrue' property; add 'SimpleDownloadAvatar' function to get rid of the same functions of other classes; Update 'UserDescriptionUpdate' function API.Base.InternalSettingsForm: calculate max offset ADD API.Bluesky API.Facebook: add 'Reels' downloads; fix video downloading API.Instagram: add inheritance 'EditorExchangeOptionsBase'; remove 'GetUserUrl' function from 'SiteSettings'; update 'UserData' class to new environment; add saving 'heic' file along with 'jpg' API.LPSG.UserData: simplify 403 error API.Mastodon: update classes to new environment API.OnlyFans: add 'AppTokenDefault'; disable cookies update; update 'UserData' class to new environment API.Pinterest: add sub-boards downloading; update download functions API.PornHub: fix photo & video downloading; remove 'ModelHub' support API.Reddit: fix token update; update 'UserData' class to new environment API.ThisVid: update 'UserData' class to new environment API.ThreadsNet: fix data download; update classes to new environment; fix 'UserID' extraction; add the ability to manually change the UserName API.TikTok: update classes to new environment API.Twitter: update classes to new environment; add sleep timers to fully download large profiles; add 'CookiesUpdate' hidden property API.Xhamster: update classes to new environment API.XVIDEOS: update classes to new environment Feed: add the ability to invert selection; open post URL when double-clicking on subscription image FeedSpecialCollection: update 'FeedsComparer' GlobalSettingsForm: remove 'UserAgent' from the 'Basis' tab UserDataHost: update class to new environment SettingsCLS: set the 'UserSiteNameAsFriendly' property to 'True' by default; disable 'DownDetector'; add 'UsersListProtected' property
46 lines
2.2 KiB
VB.net
46 lines
2.2 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 SCrawler.Plugin.Attributes
|
|
Namespace API.PornHub
|
|
Friend Class UserExchangeOptions : Inherits Xhamster.UserExchangeOptions
|
|
<PSetting(NameOf(SiteSettings.DownloadUHD), NameOf(MySettings))>
|
|
Friend Property DownloadUHD As Boolean
|
|
<PSetting(NameOf(SiteSettings.DownloadUploaded), NameOf(MySettings))>
|
|
Friend Property DownloadUploaded As Boolean
|
|
<PSetting(NameOf(SiteSettings.DownloadTagged), NameOf(MySettings))>
|
|
Friend Property DownloadTagged As Boolean
|
|
<PSetting(NameOf(SiteSettings.DownloadPrivate), NameOf(MySettings))>
|
|
Friend Property DownloadPrivate As Boolean
|
|
<PSetting(NameOf(SiteSettings.DownloadFavorite), NameOf(MySettings))>
|
|
Friend Property DownloadFavorite As Boolean
|
|
<PSetting(Caption:="Download gifs")>
|
|
Friend Property DownloadGifs As Boolean
|
|
Private ReadOnly Property MySettings As SiteSettings
|
|
Friend Sub New(ByVal u As UserData)
|
|
DownloadUHD = u.DownloadUHD
|
|
DownloadUploaded = u.DownloadUploaded
|
|
DownloadTagged = u.DownloadTagged
|
|
DownloadPrivate = u.DownloadPrivate
|
|
DownloadFavorite = u.DownloadFavorite
|
|
DownloadGifs = u.DownloadGifs
|
|
QueryString = u.QueryString
|
|
MySettings = u.HOST.Source
|
|
End Sub
|
|
Friend Sub New(ByVal s As SiteSettings)
|
|
Dim v As CheckState = CInt(s.DownloadGifs.Value)
|
|
DownloadUHD = s.DownloadUHD.Value
|
|
DownloadUploaded = s.DownloadUploaded.Value
|
|
DownloadTagged = s.DownloadTagged.Value
|
|
DownloadPrivate = s.DownloadPrivate.Value
|
|
DownloadFavorite = s.DownloadFavorite.Value
|
|
DownloadGifs = Not v = CheckState.Unchecked
|
|
MySettings = s
|
|
End Sub
|
|
End Class
|
|
End Namespace |