mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-15 16:22:17 +00:00
24ad338c60
YT MainModShared: fix environment output YouTubeMediaContainerBase: fix 'm3u8' audio formats SCrawler UserDataBase: text downloading with saved posts; update 'ID' property (handle '_ForceSaveUserInfo') API.Bluesky: data is not downloaded API.Reddit: update 'RedditViewExchange'; set base inheritance; inherit default settings for new users API.ALL: update functions with property 'ID'
70 lines
3.0 KiB
VB.net
70 lines
3.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
|
|
Namespace API.Reddit
|
|
Friend Interface IRedditView
|
|
Enum View As Integer
|
|
[New] = 0
|
|
Hot = 1
|
|
Top = 2
|
|
Best = 3
|
|
Rising = 4
|
|
End Enum
|
|
Enum Period As Integer
|
|
All = 0
|
|
Hour = 1
|
|
Day = 2
|
|
Week = 3
|
|
Month = 4
|
|
Year = 5
|
|
End Enum
|
|
Property ViewMode As View
|
|
Property ViewPeriod As Period
|
|
Property DownloadText As Boolean
|
|
Property DownloadTextPosts As Boolean
|
|
Property DownloadTextSpecialFolder As Boolean
|
|
Property RedGifsAccount As String
|
|
Property RedditAccount As String
|
|
Sub SetView(ByVal Options As IRedditView)
|
|
End Interface
|
|
Friend Class RedditViewExchange : Inherits Base.EditorExchangeOptionsBase : Implements IRedditView
|
|
Friend Const Name_ViewMode As String = "ViewMode"
|
|
Friend Const Name_ViewPeriod As String = "ViewPeriod"
|
|
Friend Const Name_RedGifsAccount As String = "RedGifsAccount"
|
|
Friend Const Name_RedditAccount As String = "RedditAccount"
|
|
Friend Property ViewMode As IRedditView.View Implements IRedditView.ViewMode
|
|
Friend Property ViewPeriod As IRedditView.Period Implements IRedditView.ViewPeriod
|
|
Friend Overrides Property DownloadText As Boolean Implements IRedditView.DownloadText
|
|
Friend Overrides Property DownloadTextPosts As Boolean Implements IRedditView.DownloadTextPosts
|
|
Friend Overrides Property DownloadTextSpecialFolder As Boolean Implements IRedditView.DownloadTextSpecialFolder
|
|
Friend Property RedGifsAccount As String Implements IRedditView.RedGifsAccount
|
|
Friend Property RedditAccount As String Implements IRedditView.RedditAccount
|
|
Friend Sub New(ByVal Options As IRedditView)
|
|
MyBase.New(DirectCast(Options, UserData))
|
|
SetView(Options)
|
|
_ApplyBase_Name = False
|
|
End Sub
|
|
Friend Sub New(ByVal s As SiteSettings)
|
|
MyBase.New(s)
|
|
_ApplyBase_Name = False
|
|
End Sub
|
|
Friend Sub SetView(ByVal Options As IRedditView) Implements IRedditView.SetView
|
|
If Not Options Is Nothing Then
|
|
With Options
|
|
ViewMode = .ViewMode
|
|
ViewPeriod = .ViewPeriod
|
|
DownloadText = .DownloadText
|
|
DownloadTextPosts = .DownloadTextPosts
|
|
DownloadTextSpecialFolder = .DownloadTextSpecialFolder
|
|
RedGifsAccount = .RedGifsAccount
|
|
RedditAccount = .RedditAccount
|
|
End With
|
|
End If
|
|
End Sub
|
|
End Class
|
|
End Namespace |