mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-11-10 05:35:25 +00:00
ffab035cee
API: updated EditorExchangeOptionsBase and its inheritances API.Base.SiteSettingsBase: updated 'Responser' creation algorithm API.Base.UserDataBase: updated 'DownloadContentDefault_ConvertWebp_Impl' function API.Instagram: added 'USE_GQL_Highlights' property; updated 'DocId' to get highlights and user info; remove 'ValidateExtension'; add 'DownloadContentDefault_ConvertWebp' to convert 'heic' files; fix highlights downloading; update getting username by ID API.Reddit: fix missing posts downloading API.ThisVid: fix a bug with updating/adding cookies API.Twitter: fix post text is not downloaded completely API.Xhamster: fix some posts are not downloaded DownloadFeedForm: improve filters; add loading buttons 'Current', 'Favorite' and 'Load' FeedMedia: fix an issue where post text would not load in older feeds FeedFilter: add search by labels; fix saving filters when selecting users; fix an issue with the 'TEMP' filter SiteEditorForm: get a cookies instance from the source
58 lines
3.0 KiB
VB.net
58 lines
3.0 KiB
VB.net
' Copyright (C) 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
|
|
Imports DN = SCrawler.API.Base.DeclaredNames
|
|
Namespace API.Base
|
|
Friend Class EditorExchangeOptionsBase
|
|
Friend Overridable Property SiteKey As String
|
|
<PSetting(Address:=SettingAddress.User, Caption:="Profile exists")>
|
|
Friend Overridable Property UserExists As Boolean = True
|
|
<PSetting(Address:=SettingAddress.User, Caption:="Profile suspended")>
|
|
Friend Overridable Property UserSuspended As Boolean = False
|
|
<PSetting(Address:=SettingAddress.User, Caption:=DN.UserNameChangeCaption, ToolTip:=DN.UserNameChangeToolTip)>
|
|
Friend Overridable Property UserName As String = String.Empty
|
|
<PSetting(Address:=SettingAddress.User, Caption:=DN.DownloadTextCaption, ToolTip:=DN.DownloadTextTip)>
|
|
Friend Overridable Property DownloadText As Boolean = False
|
|
<PSetting(Address:=SettingAddress.User, Caption:=DN.DownloadTextPostsCaption, ToolTip:=DN.DownloadTextPostsTip)>
|
|
Friend Overridable Property DownloadTextPosts As Boolean = False
|
|
<PSetting(Address:=SettingAddress.User, Caption:=DN.DownloadTextSpecialFolderCaption, ToolTip:=DN.DownloadTextSpecialFolderTip)>
|
|
Friend Overridable Property DownloadTextSpecialFolder As Boolean = False
|
|
Friend Sub New(ByVal u As UserDataBase)
|
|
UserExists = u.UserExists
|
|
UserSuspended = u.UserSuspended
|
|
UserName = u.NameTrue(True)
|
|
DownloadText = u.DownloadText
|
|
DownloadTextPosts = u.DownloadTextPosts
|
|
DownloadTextSpecialFolder = u.DownloadTextSpecialFolder
|
|
End Sub
|
|
Friend Sub New(ByVal s As SiteSettingsBase)
|
|
DownloadText = s.DownloadText.Value
|
|
DownloadTextPosts = s.DownloadTextPosts.Value
|
|
DownloadTextSpecialFolder = s.DownloadTextSpecialFolder.Value
|
|
End Sub
|
|
Friend Sub New()
|
|
End Sub
|
|
Protected _ApplyBase_Name As Boolean = True
|
|
Protected _ApplyBase_Text As Boolean = True
|
|
Friend Sub ApplyBase(ByRef u As UserDataBase)
|
|
u.UserExists = UserExists
|
|
u.UserSuspended = UserSuspended
|
|
If _ApplyBase_Name Then u.NameTrue = UserName
|
|
If _ApplyBase_Text Then
|
|
u.DownloadText = DownloadText
|
|
u.DownloadTextPosts = DownloadTextPosts
|
|
u.DownloadTextSpecialFolder = DownloadTextSpecialFolder
|
|
End If
|
|
End Sub
|
|
Friend Overridable Sub Apply(ByRef u As UserDataBase)
|
|
ApplyBase(u)
|
|
If TypeOf u Is IPSite And TypeOf Me Is IPSite Then DirectCast(u, IPSite).QueryString = DirectCast(Me, IPSite).QueryString
|
|
End Sub
|
|
End Class
|
|
End Namespace |