mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-15 08:12:17 +00:00
ff0c4587eb
PluginProvider
IUserMedia, PluginUserMedia: add properties 'PostText', 'PostTextFile', 'PostTextFileSpecialFolder'
YT
YouTubeFunctions: update 'Info_GetUrlType' and 'StandardizeURL' functions: add youtu.be domain
YouTubeSettings: add 'FILTER' property
Add classes 'FilterForm', 'YTDataFilter'
VideoListForm: add filters; update 'LoadData' and 'RemoveControls' functions; add hotkey 'Ctrl+F5' for refresh
YouTubeMediaContainerBase: add support for new interface properties
Minor bugs
SCrawler
DeclaredNames: add new names
EditorExchangeOptionsBase, IUserData, SiteSettingsBase, UserMedia, UserDataBase: add support for text downloading
Sites Bluesky, Instagram, OnlyFans, Reddit, ThreadsNet, Twitter: add support for text downloading
Sites Facebook, JustForFans, LPSG, Mastodon, Pinterest, PornHub, Redgifs, ThisVid, TikTok, Xhamster, XVIDEOS, YouTube (STD): disable text downloading
UserDataBase: add 'ToStringExt' functions
API.Instagram: add 'SleepTimerRequestsNextProfile' property
API.OnlyFans: update 'DynamicRules'; fix incorrect posts opening (update 'GetUserPostUrl' function); fix limited download ('DownloadTopCount')
API.Reddit: fix post date provider; add 'Best' and 'Rising' view modes; fix request (data is not downloading); set 'BearerTokenUseCurl' to 'False' by default
API.ThreadsNet: change domain from 'net' to 'com'; fix data downloading
API.TikTok: add downloading of avatar, site name and description
API.Twitter: fix JSON error; add debug options; fix downloading
API.Xhamster: add folder 'Photo' for albums
Feed: add filters; update move/copy algo; add the ability to show test posts; update table rendering; add new 'MediaItem' handlers
FeedMedia: add text options; update 'DeleteFile' function
FeedMoveCopyTo: add text option
VideoDownloaderForm: disable filter button
GlobalSettingsForm: add 'FeedShowTextPosts' and 'FeedShowTextPostsAlwaysMove' options
SettingsCLS: add feed text properties
UserImage: add 'CreateImageFromText' function
UserInfo: update 'Equals' function
Add classes: 'FeedFilter', 'FeedFilterCollection', 'FeedFilterForm'
Minor bugs and improvements
43 lines
2.0 KiB
VB.net
43 lines
2.0 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.OnlyFans
|
|
Friend Class UserExchangeOptions : Inherits Base.EditorExchangeOptionsBase
|
|
<PSetting(NameOf(SiteSettings.DownloadTimeline), NameOf(MySettings))>
|
|
Friend Property DownloadTimeline As Boolean
|
|
<PSetting(NameOf(SiteSettings.DownloadStories), NameOf(MySettings))>
|
|
Friend Property DownloadStories As Boolean
|
|
<PSetting(NameOf(SiteSettings.DownloadHighlights), NameOf(MySettings))>
|
|
Friend Property DownloadHighlights As Boolean
|
|
<PSetting(NameOf(SiteSettings.DownloadChatMedia), NameOf(MySettings))>
|
|
Friend Property DownloadChatMedia As Boolean
|
|
Private ReadOnly MySettings As SiteSettings
|
|
<PSetting(Address:=SettingAddress.None)> Friend Overrides Property UserName As String
|
|
Private Sub New()
|
|
End Sub
|
|
Friend Sub New(ByVal u As UserData)
|
|
MyBase.New(u)
|
|
_ApplyBase_Name = False
|
|
DownloadTimeline = u.MediaDownloadTimeline
|
|
DownloadStories = u.MediaDownloadStories
|
|
DownloadHighlights = u.MediaDownloadHighlights
|
|
DownloadChatMedia = u.MediaDownloadChatMedia
|
|
MySettings = u.HOST.Source
|
|
End Sub
|
|
Friend Sub New(ByVal s As SiteSettings)
|
|
MyBase.New(s)
|
|
_ApplyBase_Name = False
|
|
DownloadTimeline = s.DownloadTimeline.Value
|
|
DownloadStories = s.DownloadStories.Value
|
|
DownloadHighlights = s.DownloadHighlights.Value
|
|
DownloadChatMedia = s.DownloadChatMedia.Value
|
|
MySettings = s
|
|
End Sub
|
|
End Class
|
|
End Namespace |