2022.10.23.0

PluginProvider: added 'DoNotUse' attribute.
Channels: copying a channel to the 'ChannelsDeleted' folder before deleting.
Twitter: updated status codes.
AutoDownloader: removed base parameters initialization; updated 'ToEContainer' function; 'StartupDelay' default value = 1; added IIndexable; fixed NextExecutionDate; added task delay based on index and tasks count; updated user selections algorithms.
MainFrame: coloring the button 'Download All' depending on the pause; updated user selections algorithms.
DownloadGroups: added LabelsExcluded, Sites and SitesExcluded; updated initialization; updated ToEContainer function; updated user selections algorithms
IGroup, GroupParameters: added LabelsExcluded, Sites and SitesExcluded; added Import and Export functions
Removed TrayIcon notifications. All notifications are now ToastNotifications.
SettingsHost: 'DoNotUse' attribute
Settings: added 'GetUsers' predicate function

Author: AAndyProgram

Changelog.md

@@ -1,3 +1,22 @@
+# 2022.10.23.0
+
+*2022-10-23*
+
+- Added
+  - RedGifs token Auto-Renewal
+  - Download groups: ability to select sites
+  - Download groups: ability to exclude labels and sites
+  - AutoDownloader: ability to exclude labels and sites in ```All```, ```Default``` and ```Specified``` modes
+  - The ```Download All``` button turns blue when pause is enabled
+  - Updated Twitter status codes
+  - Minor improvements
+- Fixed
+  - Updated Twitter status codes
+  - AutoDownloader: incorrect next run date in scheduler task information
+  - AutoDownloader: minor bugs
+  - (Issue #69) **RedGifs data is not downloading**. Requires token.
+  - Minor bugs
+
 # 2022.10.18.0
 
 *2022-10-18*

ProgramScreenshots/GroupCreating.png

@@ -53,6 +53,9 @@ Namespace Plugin.Attributes
             ElementName = XMLElementName
         End Sub
     End Class
+    ''' <summary>Attribute to disable some properties for host use</summary>
+    <AttributeUsage(AttributeTargets.Property, AllowMultiple:=False, Inherited:=False)> Public NotInheritable Class DoNotUse : Inherits Attribute
+    End Class
     ''' <summary>Special property updater</summary>
     <AttributeUsage(AttributeTargets.Method, AllowMultiple:=True, Inherited:=False)> Public NotInheritable Class PropertyUpdater : Inherits Attribute
         Public ReadOnly Name As String

ProgramScreenshots/SettingsAutoDownloader.png

@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2022.10.18.0")>
-<Assembly: AssemblyFileVersion("2022.10.18.0")>
+<Assembly: AssemblyVersion("2022.10.23.0")>
+<Assembly: AssemblyFileVersion("2022.10.23.0")>
 <Assembly: NeutralResourcesLanguage("en")>

ProgramScreenshots/SettingsSiteRedGifs.png

@@ -817,6 +817,9 @@ BlockNullPicture:
                 If Not Responser Is Nothing Then Responser.Dispose()
                 Responser = New Response
                 If Not HOST.Responser Is Nothing Then Responser.Copy(HOST.Responser)
+                'TODO: remove
+                Responser.DecodersError = New ErrorsDescriber(EDP.SendInLog + EDP.ReturnValue) With {
+                    .DeclaredMessage = New MMessage($"SymbolsConverter error: [{ToStringForLog()}]", ToStringForLog())}
 
                 Dim UpPic As Boolean = Settings.ViewModeIsPicture AndAlso GetPicture(Of Image)(False) Is Nothing
                 Dim sEnvir() As Boolean = {UserExists, UserSuspended}
@@ -976,7 +979,7 @@ BlockNullPicture:
                         Dim v As UserMedia
 
                         Using w As New OptionalWebClient(Me)
-                            If vsf Then SFileShares.SFileExists($"{MyDir}\Video\", SFO.Path)
+                            If vsf Then CSFileP($"{MyDir}\Video\").Exists(SFO.Path)
                             Progress.Maximum += _ContentNew.Count
                             For i = 0 To _ContentNew.Count - 1
                                 ThrowAny(Token)

SCrawler.PluginProvider/Attributes/Attributes.vb

@@ -702,7 +702,7 @@ Namespace API.Instagram
                 UserExists = False
             ElseIf Responser.StatusCode = HttpStatusCode.BadRequest Then
                 HasError = True
-                MyMainLOG = $"Instagram credentials have expired [{CInt(Responser.StatusCode)}]: {ToString()} [{s}]"
+                MyMainLOG = $"Instagram credentials have expired [{CInt(Responser.StatusCode)}]: {ToStringForLog()} [{s}]"
                 DisableSection(s)
             ElseIf Responser.StatusCode = HttpStatusCode.Forbidden And s = Sections.Tagged Then
                 Return 3

SCrawler.PluginProvider/My Project/AssemblyInfo.vb

@@ -236,8 +236,19 @@ Namespace API.Reddit
             Return If(Name.IsEmptyString, ID, Name)
         End Function
         Friend Sub Delete()
-            File.Delete(, SFODelete.DeleteToRecycleBin)
-            FilePosts.Delete(, SFODelete.DeleteToRecycleBin)
+            Dim f As SFile = ChannelsCollection.ChannelsDeletedPath
+            With File
+                f.Name = .Name
+                f.Extension = .Extension
+                .Copy(f,, True, SFODelete.DeleteToRecycleBin)
+                .Delete(, SFODelete.DeleteToRecycleBin)
+            End With
+            With FilePosts
+                f.Name = .Name
+                f.Extension = .Extension
+                .Copy(f,, True, SFODelete.DeleteToRecycleBin)
+                .Delete(, SFODelete.DeleteToRecycleBin)
+            End With
         End Sub
         Friend Sub DownloadData(ByVal Token As CancellationToken, Optional ByVal SkipExists As Boolean = True,
                                 Optional ByVal p As MyProgress = Nothing)

SCrawler/API/Base/UserDataBase.vb

@@ -17,6 +17,11 @@ Namespace API.Reddit
                 Return $"{SettingsFolderName}\Channels\"
             End Get
         End Property
+        Friend Shared ReadOnly Property ChannelsDeletedPath As SFile
+            Get
+                Return $"{SettingsFolderName}\ChannelsDeleted\"
+            End Get
+        End Property
         Friend Shared ReadOnly Property ChannelsPathCache As SFile
             Get
                 Return $"{Settings.GlobalPath.Value.PathWithSeparator}_CachedData\"