mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-11-10 05:35:25 +00:00
be97752b7c
API.EditorExchangeOptionsBase: move the 'Apply' function API.EditorExchangeOptionsBase_P: remove the 'Apply' function API.UserDataBase: update the 'UserSiteNameUpdate' function; remove the '_ForceSaveUserInfoOnException' property; update the 'DownloadContentDefault_ConvertWebp' function; add the 'DownloadContentDefault_ConvertWebp_TestImg' and 'DownloadContentDefault_ConvertWebp_Impl' functions API.Bluesky: add the 'EditorExchangeOptions' class; add 'did:' handle for recognizing API.PornHub: update M3U8 download functions API.TikTok: fix where gallery-dl would hang when downloading stories API.Twitter: fix downloading a single media file (standalone downloader) fails API.Xhamster: add 'webm' to 'jpg' correct conversion FeedMedia: move the 'ImageRenderer2' class into the 'UserImage' class UserImage: add the 'ImageRenderer2' class
44 lines
2.0 KiB
VB.net
44 lines
2.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.API.Base
|
|
Imports SCrawler.Plugin.Attributes
|
|
Namespace API.Bluesky
|
|
Friend Class EditorExchangeOptions : Inherits Base.EditorExchangeOptionsBase
|
|
Friend Overrides Property SiteKey As String = BlueskySiteKey
|
|
<PSetting(NameOf(SiteSettings.DownloadModelMedia), NameOf(MySettings), Address:=SettingAddress.User)>
|
|
Friend Overridable Property DownloadModelMedia As Boolean = False
|
|
<PSetting(NameOf(SiteSettings.DownloadModelProfile), NameOf(MySettings), Address:=SettingAddress.User)>
|
|
Friend Overridable Property DownloadModelProfile As Boolean = False
|
|
Private ReadOnly Property MySettings As Object
|
|
Friend Sub New(ByVal s As SiteSettings)
|
|
DownloadModelMedia = s.DownloadModelMedia.Value
|
|
DownloadModelProfile = s.DownloadModelProfile.Value
|
|
MySettings = s
|
|
End Sub
|
|
Friend Sub New(ByVal u As UserData)
|
|
DownloadModelMedia = u.DownloadModelMedia
|
|
DownloadModelProfile = u.DownloadModelProfile
|
|
MySettings = u.HOST.Source
|
|
End Sub
|
|
Friend Overrides Sub Apply(ByRef u As UserDataBase)
|
|
MyBase.Apply(u)
|
|
If Not DownloadModelMedia And Not DownloadModelProfile Then
|
|
DownloadModelMedia = True
|
|
ElseIf DownloadModelMedia Then
|
|
DownloadModelProfile = False
|
|
Else
|
|
DownloadModelMedia = False
|
|
End If
|
|
With DirectCast(u, UserData)
|
|
.DownloadModelMedia = DownloadModelMedia
|
|
.DownloadModelProfile = DownloadModelProfile
|
|
End With
|
|
End Sub
|
|
End Class
|
|
End Namespace |