3.0.0.7

Added script usage
Fixed  downloading of LPSG images
Fixed Instagram Stories
Fixed date/time file pattern

.github/ISSUE_TEMPLATE/bug_report.md

@@ -26,8 +26,10 @@ A clear and concise description of what you expected to happen.
 If applicable, add screenshots to help explain your problem.
 
 **Release information (please complete the following information):**
+ - OS [e.g. Windows 10, Windows 11]
  - Architecture [e.g. x86, x64]
  - Version [e.g. 2.0.0.0]
+ - NET.Framework version
 
 **Additional context**
 Add any other context about the problem here.

Changelog.md

@@ -1,3 +1,29 @@
+# 3.0.0.7
+
+- Added
+  - Ability to run a script after the user download if complete
+  - Hotkey ```F2``` for additional options in the user creation form
+- Fixed
+  - (Issue #32) In some cases, Date and Time are still not added for Stories and Tagged Photos
+  - (Issue #33) Instagram Stories downloading error
+  - LPSG downloader does not download all content
+
+# 3.0.0.6
+
+- Added
+  - ```GoTo Start``` channels button
+  - ```GoTo End``` channels button
+- Fixed
+  - In some cases, saved Reddit posts didn't fully download
+  - Incorrect Reddit accessibility check algorithm
+  - Incorrect behavior of the main progress bar when downloading saved posts
+  - (Issue #25) Date and Time not added for Stories and Tagged Photos
+
+# 3.0.0.5
+
+- Added
+  - ```New```, ```Hot```, ```Top``` Reddit channel and user download modes
+
 # 3.0.0.4
 
 - Fixed

FAQ.md

@@ -2,6 +2,8 @@
 
 **Please read the [GUIDE](https://github.com/AAndyProgram/SCrawler/wiki/) Before asking a question!**
 
+**Also read [here](README.md) for basic information.**
+
 Most of your questions are already answered. All settings, functions, buttons and everything else described in the guide.
 
 Any other questions I will keep in this file.
@@ -44,6 +46,30 @@ A: Check your credentials. Both of these sites require cookies. Check your [Twit
 
 ----
 
+#### Q: **I have set credentials but still nothing is downloading**
+
+A: Click the ```Start downloading``` button
+
+----
+
+#### Q: **Where can I find the release?**
+
+A: https://github.com/AAndyProgram/SCrawler/releases/latest
+
+----
+
+#### Q: **How to run the program?**
+
+A: Double-click ```SCrawler.exe```
+
+----
+
+#### Q: **Where to find binaries?**
+
+A: https://github.com/AAndyProgram/SCrawler/releases/latest
+
+----
+
 #### Q: **Does the program remember the last download and check for new posts, downloading only new posts? Or does the program download the entire profile every time?**
 
 A: The program stored posts IDs in users' folders. For the first time, the program downloads the entire profile. All subsequent times the program will check for new posts and download **only new posts**!
@@ -64,4 +90,10 @@ A: There is no functionality to remove an individual label. You can open the ```
 
 #### Q: **How to remove a user from the blacklist**
 
-A: Just add that user back to the program. In the dialog box that opens, click on the ```Add and remove from blacklist```` button.
+A: Just add that user back to the program. In the dialog box that opens, click on the ```Add and remove from blacklist``` button.
+
+----
+
+#### Q: **Can you add a step-by-step guide or video on how to use the program?**
+
+A: **NO**! I will not do it. If you want, you can create a video tutorial and send it to me. Then I add it. All options and what each option does described on the wiki. The wiki also contains a description of all settings and how-to configure them. For complex settings, there is a steep-by-steep guide. Read the [main](README.md) information and [GUIDE](https://github.com/AAndyProgram/SCrawler/wiki/) and you won't have any problems. I have developed a program with an intuitive interface. There is a Settings button, download buttons, a context menu that drops down when a user is clicked, and other controls. Anyone can use it.

Plugins.md

@@ -1,3 +1,6 @@
 List of available plugins:
 - LPSG
 - XVIDEOS
+
+Tools:
+- [image2post](https://github.com/unknown81311/SCrawler-image2post) by @unknown81311: **get reddit post URL from file.**

README.md

@@ -75,7 +75,7 @@ Read [here](CONTRIBUTING.md#how-to-request-a-new-site) about
 
 # Requirements
 
-- Windows 7, 8, 9, 10, 11 with NET Framework 4.6.1 or higher
+- Windows 7, 8, 9, 10, 11 with NET Framework 4.6.1 or higher (v4.6.1 must be installed). You can check version compatibility with this [tool](Tools/NET.FrameworkVersion.ps1).
 - Authorization [cookies](https://github.com/AAndyProgram/SCrawler/wiki/Settings#how-to-set-up-cookies) and [tokens](https://github.com/AAndyProgram/SCrawler/wiki/Settings#how-to-find-twitter-tokens) for Twitter (if you want to download data from Twitter)
 - Authorization [cookies](https://github.com/AAndyProgram/SCrawler/wiki/Settings#how-to-set-up-cookies) and [Hash](https://github.com/AAndyProgram/SCrawler/wiki/Settings#instagram) for Instagram (if you want to download data from Instagram), [Hash 2](https://github.com/AAndyProgram/SCrawler/wiki/Settings#how-to-find-instagram-hash-2) for saved Instagram posts, Instagram [stories authorization headers](https://github.com/AAndyProgram/SCrawler/wiki/Settings#how-to-find-instagram-stories-authorization-headers) for Stories and Tagged data
 - ffmpeg library for downloading videos hosted on Reddit (you can download it from the [official repo](https://github.com/GyanD/codexffmpeg/releases/tag/2021-01-12-git-ca21cb1e36) or [from my first release](https://github.com/AAndyProgram/SCrawler/releases/download/1.0.0.0/ffmpeg.zip)). **ffmpeg only works with the x64 version of the program.**
@@ -116,7 +116,7 @@ You need to set up authorization for Twitter and Instagram:
 - Authorization [cookies](https://github.com/AAndyProgram/SCrawler/wiki/Settings#how-to-set-up-cookies) and [tokens](https://github.com/AAndyProgram/SCrawler/wiki/Settings#how-to-find-twitter-tokens) for **Twitter** (if you want to download data from Twitter)
 - Authorization [cookies](https://github.com/AAndyProgram/SCrawler/wiki/Settings#how-to-set-up-cookies) and [Hash](https://github.com/AAndyProgram/SCrawler/wiki/Settings#instagram) for **Instagram** (if you want to download data from Instagram), [Hash 2](https://github.com/AAndyProgram/SCrawler/wiki/Settings#how-to-find-instagram-hash-2) for **saved Instagram posts**, Instagram [stories authorization headers](https://github.com/AAndyProgram/SCrawler/wiki/Settings#how-to-find-instagram-stories-authorization-headers) for **Stories** and **Tagged data**
 
-Just add a user profile and click the ```Start downloading``` button.
+Just add a user profile and **click the ```Start downloading``` button**.
 
 You can add users by patterns:
 - https://www.instagram.com/SomeUserName

SCrawler.Plugin.LPSG/Declarations.vb

@@ -9,10 +9,15 @@
 Imports PersonalUtilities.Functions.RegularExpressions
 Friend Module Declarations
     Friend ReadOnly Property PhotoRegEx As RParams = RParams.DM("(https://www.lpsg.com/attachments)(.+?)(?="")", 0, RegexReturn.List)
+    Friend ReadOnly Property PhotoRegExExt As New RParams("img.data.src=""(/proxy[^""]+?)""", Nothing, 1, RegexReturn.List) With {
+        .Converter = Function(Input) $"https://www.lpsg.com/{SymbolsConverter.HTML.Decode(Input)}"}
     Friend ReadOnly Property NextPageRegex As RParams = RParams.DMS("<link rel=""next"" href=""(.+?/page-(\d+))""", 2)
-    Private Const FileUrlRegexDefault As String = "(.+[^/]+?)(jpg|jpeg|gif|png)"
+    Private Const FileUrlRegexDefault As String = "([^/]+?)(jpg|jpeg|gif|png|webm)"
+    Private ReadOnly InputFReplacer As New ErrorsDescriber(EDP.ReturnValue)
+    Private ReadOnly InputForbidRemover As Func(Of String, String) = Function(Input) If(Input.IsEmptyString, Input, Input.StringRemoveWinForbiddenSymbols(, InputFReplacer))
     Friend ReadOnly Property FileRegEx As New RParams(FileUrlRegexDefault, Nothing, 0) With {
         .Converter = Function(ByVal Input As String) As String
+                         Input = InputForbidRemover.Invoke(Input)
                          If Not Input.IsEmptyString Then
                              Dim lv$ = Input.Split("-").LastOrDefault
                              If Not lv.IsEmptyString Then
@@ -22,5 +27,22 @@ Friend Module Declarations
                          End If
                          Return Input
                      End Function}
+    Friend ReadOnly Property FileRegExExt As New RParams(FileUrlRegexDefault, 0, Nothing, InputForbidRemover)
+    Friend ReadOnly Property FileRegExExt2 As New RParams("([^/]+?)(?=(\Z|&))", 0, Nothing, InputForbidRemover)
     Friend ReadOnly Property FileExistsRegEx As RParams = RParams.DMS(FileUrlRegexDefault, 2)
+    Private Class PUMComparer : Implements IEqualityComparer, IEqualityComparer(Of PluginUserMedia)
+        Private Overloads Function Equals(ByVal x As PluginUserMedia, ByVal y As PluginUserMedia) As Boolean Implements IEqualityComparer(Of PluginUserMedia).Equals
+            Return x.URL = y.URL
+        End Function
+        Private Function IEqualityComparer_Equals(ByVal x As Object, ByVal y As Object) As Boolean Implements IEqualityComparer.Equals
+            Return DirectCast(x, PluginUserMedia).URL = DirectCast(y, PluginUserMedia).URL
+        End Function
+        Private Overloads Function GetHashCode(ByVal Obj As Object) As Integer Implements IEqualityComparer.GetHashCode
+            Throw New NotImplementedException()
+        End Function
+        Private Overloads Function GetHashCode(ByVal Obj As PluginUserMedia) As Integer Implements IEqualityComparer(Of PluginUserMedia).GetHashCode
+            Throw New NotImplementedException()
+        End Function
+    End Class
+    Friend ReadOnly TempListAddParams As New ListAddParams(LAP.NotContainsOnly) With {.Comparer = New PUMComparer}
 End Module

SCrawler.Plugin.LPSG/My Project/AssemblyInfo.vb

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

SCrawler.Plugin.LPSG/UserData.vb

@@ -9,6 +9,7 @@
 Imports PersonalUtilities.Functions.RegularExpressions
 Imports UStates = SCrawler.Plugin.PluginUserMedia.States
 Imports UTypes = SCrawler.Plugin.PluginUserMedia.Types
+Imports Converters = PersonalUtilities.Functions.SymbolsConverter.Converters
 Public Class UserData : Implements IPluginContentProvider
 #Region "XML names"
     Private Const Name_LatestPage As String = "LatestPage"
@@ -60,13 +61,13 @@ Public Class UserData : Implements IPluginContentProvider
 #End Region
     Private Property LatestPage As String = String.Empty
     Private Property Responser As Response = Nothing
+    Private Enum Mode : Internal : External : End Enum
     Public Sub GetMedia() Implements IPluginContentProvider.GetMedia
         Try
             If Not Responser Is Nothing Then Responser.Dispose()
             Responser = New Response
             With Responser : .Copy(Settings.Responser) : .Error = EDP.ThrowException : End With
 
-            Dim l As List(Of String) = Nothing
             Dim NextPage$
             Dim r$
             Dim _LPage As Func(Of String) = Function() If(LatestPage.IsEmptyString, String.Empty, $"page-{LatestPage}")
@@ -78,35 +79,60 @@ Public Class UserData : Implements IPluginContentProvider
                 Thrower.ThrowAny()
                 If Not r.IsEmptyString Then
                     NextPage = RegexReplace(r, NextPageRegex)
-                    l.ListAddList(RegexReplace(r, PhotoRegEx), LAP.NotContainsOnly)
+                    UpdateMediaList(RegexReplace(r, PhotoRegEx), Mode.Internal)
+                    UpdateMediaList(RegexReplace(r, PhotoRegExExt), Mode.External)
                     If NextPage = LatestPage Or NextPage.IsEmptyString Then Exit Do Else LatestPage = NextPage
                 Else
                     Exit Do
                 End If
             Loop
 
-            If l.ListExists Then
-                Dim f As SFile
-                For Each u$ In l
-                    If Not IsEmptyString(RegexReplace(u, FileExistsRegEx)) Then
-                        f = CStr(RegexReplace(u, FileRegEx))
-                        f.Path = DataPath.CSFilePSN
-                        f.Separator = "\"
-                        TempMediaList.Add(New PluginUserMedia With {.ContentType = UTypes.Picture, .URL = u, .File = f})
-                    End If
-                Next
             If TempMediaList.ListExists And ExistingContentList.ListExists Then _
                TempMediaList.RemoveAll(Function(m) ExistingContentList.Exists(Function(mm) mm.URL = m.URL))
-            End If
         Catch oex As OperationCanceledException
         Catch dex As ObjectDisposedException
         Catch ex As Exception
+            If Responser.StatusCode = Net.HttpStatusCode.ServiceUnavailable Then
+                LogProvider.Add("LPSG not available")
+            Else
                 LogProvider.Add(ex, "[LPSG.UserData.GetMedia]")
+            End If
         End Try
     End Sub
+    Private Sub UpdateMediaList(ByVal l As List(Of String), ByVal m As Mode)
+        If l.ListExists Then
+            Dim f As SFile
+            Dim u$
+            Dim exists As Boolean
+            Dim r As RParams
+            Dim ude As New ErrorsDescriber(EDP.ReturnValue)
+            For Each url$ In l
+                If Not url.IsEmptyString Then u = SymbolsConverter.Decode(url, {Converters.HTML, Converters.ASCII}, ude) Else u = String.Empty
+                If Not u.IsEmptyString Then
+                    exists = Not IsEmptyString(RegexReplace(u, FileExistsRegEx))
+                    If m = Mode.Internal Then
+                        r = FileRegEx
+                    Else
+                        r = FileRegExExt
+                        If Not exists Then
+                            r = FileRegExExt2
+                            exists = Not IsEmptyString(RegexReplace(u, FileRegExExt2))
+                        End If
+                    End If
+                    If exists Then
+                        f = CStr(RegexReplace(u, r))
+                        f.Path = DataPath.CSFilePSN
+                        f.Separator = "\"
+                        If f.Extension.IsEmptyString Then f.Extension = "jpg"
+                        TempMediaList.ListAddValue(New PluginUserMedia With {.ContentType = UTypes.Picture, .URL = url, .File = f}, TempListAddParams)
+                    End If
+                End If
+            Next
+        End If
+    End Sub
     Public Sub Download() Implements IPluginContentProvider.Download
         Try
-            With Responser : .UseWebClient = True : .UseWebClientCookies = True : End With
+            With Responser : .UseWebClient = True : .UseWebClientCookies = True : .ResetError() : End With
             If TempMediaList.ListExists Then
                 Dim m As PluginUserMedia
                 Dim eweb As ErrorsDescriber = EDP.ThrowException
@@ -122,8 +148,12 @@ Public Class UserData : Implements IPluginContentProvider
                         Else
                             m.DownloadState = UStates.Skipped
                         End If
-                    Catch ex As Exception
+                    Catch wex As Exception
+                        If Responser.Client.StatusCode = Net.HttpStatusCode.ServiceUnavailable Then
+                            LogProvider.Add("LPSG not available")
+                        Else
                             m.DownloadState = UStates.Skipped
+                        End If
                     End Try
                     RaiseEvent ProgressChanged(1)
                     TempMediaList(i) = m

SCrawler/API/Base/DownDetector.vb

@@ -33,25 +33,32 @@ Namespace API.Base
         Friend Shared Function GetData(ByVal Site As String) As List(Of Data)
             Try
                 Dim l As List(Of Data) = Nothing
+                Dim l2 As List(Of Data) = Nothing
                 Using w As New WebClient
                     Dim r$ = w.DownloadString($"https://downdetector.co.uk/status/{Site}/")
                     If Not r.IsEmptyString Then
                         l = FNF.RegexFields(Of Data)(r, {Params}, {1, 2})
                         If l.ListExists(2) Then
-                            Dim lDate As Date = l(0).Date
-                            Dim i%
-                            Dim indx% = -1
-                            For i = 1 To l.Count - 1
-                                If l(i).Date < lDate Then indx = i : Exit For Else lDate = l(i).Date
-                            Next
-                            If indx >= 0 Then
-                                For i = indx To 0 Step -1 : l.RemoveAt(i) : Next
-                            End If
                             l.Sort()
+                            l2 = New List(Of Data)
+                            Dim d As Data
+                            Dim eDates As New List(Of Date)
+                            Dim MaxValue As Func(Of Date, Integer) = Function(dd) (From ddd In l Where ddd.Date = dd Select ddd.Value).DefaultIfEmpty(0).Max
+                            For i% = 0 To l.Count - 1
+                                If Not eDates.Contains(l(i).Date) Then
+                                    d = l(i)
+                                    d.Value = MaxValue(d.Date)
+                                    l2.Add(d)
+                                    eDates.Add(d.Date)
+                                End If
+                            Next
+                            eDates.Clear()
+                            l.Clear()
+                            l2.Sort()
                         End If
                     End If
                 End Using
-                Return l
+                Return l2
             Catch ex As Exception
                 Return ErrorsDescriber.Execute(EDP.SendInLog + EDP.ReturnValue, ex, $"[DownDetector.GetData({Site})]")
             End Try

SCrawler/API/Base/UserDataBase.vb

@@ -10,6 +10,7 @@ Imports PersonalUtilities.Functions.XML
 Imports PersonalUtilities.Functions.RegularExpressions
 Imports PersonalUtilities.Forms.Toolbars
 Imports PersonalUtilities.Tools.WEB
+Imports PersonalUtilities.Tools
 Imports System.IO
 Imports System.Net
 Imports System.Threading
@@ -115,6 +116,9 @@ Namespace API.Base
         Private Const Name_PicturesCount As String = "PicturesCount"
         Private Const Name_LastUpdated As String = "LastUpdated"
 
+        Private Const Name_ScriptUse As String = "ScriptUse"
+        Private Const Name_ScriptFile As String = "ScriptFile"
+
         Private Const Name_DataMerging As String = "DataMerging"
 #Region "Downloaded data"
         Private Const Name_MediaType As String = "Type"
@@ -248,7 +252,7 @@ BlockPictureFolder:
             End If
 BlockPictureScan:
             On Error GoTo BlockDeletePictureFolder
-            Dim NewPicFile As SFile = SFile.GetFiles(MyFile.CutPath, "*.jpg|*.png",,
+            Dim NewPicFile As SFile = SFile.GetFiles(MyFile.CutPath, "*.jpg|*.jpeg|*.png",,
                                                      New ErrorsDescriber(EDP.ReturnValue) With {
                                                          .ReturnValue = New List(Of SFile),
                                                          .ReturnValueExists = True}).FirstOrDefault
@@ -405,6 +409,10 @@ BlockNullPicture:
             End Get
         End Property
 #End Region
+#Region "Script"
+        Friend Overridable Property ScriptUse As Boolean = False Implements IUserData.ScriptUse
+        Friend Overridable Property ScriptFile As SFile Implements IUserData.ScriptFile
+#End Region
 #End Region
 #Region "Plugins Support"
         Protected Event ProgressChanged As IPluginContentProvider.ProgressChangedEventHandler Implements IPluginContentProvider.ProgressChanged
@@ -576,6 +584,17 @@ BlockNullPicture:
                         DownloadedVideos(True) = x.Value(Name_VideoCount).FromXML(Of Integer)(0)
                         DownloadedPictures(True) = x.Value(Name_PicturesCount).FromXML(Of Integer)(0)
                         LastUpdated = AConvert(Of Date)(x.Value(Name_LastUpdated), ADateTime.Formats.BaseDateTime, Nothing)
+                        ScriptUse = x.Value(Name_ScriptUse).FromXML(Of Boolean)(False)
+                        Dim s$ = x.Value(Name_ScriptFile)
+                        If Not s.IsEmptyString Then
+                            If SFile.IsDirectory(s) Then
+                                ScriptFile = s
+                            Else
+                                ScriptFile = New SFile(s) With {.Path = MyFile.Path}
+                            End If
+                        Else
+                            ScriptFile = Nothing
+                        End If
                         DataMerging = x.Value(Name_DataMerging).FromXML(Of Boolean)(False)
                         ChangeCollectionName(x.Value(Name_CollectionName), False)
                         Labels.ListAddList(x.Value(Name_LabelsName).StringToList(Of String, List(Of String))("|", EDP.ReturnValue), LAP.NotContainsOnly, LAP.ClearBeforeAdd)
@@ -615,6 +634,16 @@ BlockNullPicture:
                     x.Add(Name_VideoCount, DownloadedVideos(True))
                     x.Add(Name_PicturesCount, DownloadedPictures(True))
                     x.Add(Name_LastUpdated, AConvert(Of String)(LastUpdated, ADateTime.Formats.BaseDateTime, String.Empty))
+                    x.Add(Name_ScriptUse, ScriptUse.BoolToInteger)
+                    If Not ScriptFile.IsEmptyString Then
+                        If ScriptFile.Path = MyFile.Path Then
+                            x.Add(Name_ScriptFile, ScriptFile.File)
+                        Else
+                            x.Add(Name_ScriptFile, ScriptFile)
+                        End If
+                    Else
+                        x.Add(Name_ScriptFile, String.Empty)
+                    End If
                     x.Add(Name_CollectionName, CollectionName)
                     x.Add(Name_LabelsName, Labels.ListToString(, "|", EDP.ReturnValue))
                     x.Add(Name_DataMerging, DataMerging.BoolToInteger)
@@ -760,6 +789,7 @@ BlockNullPicture:
                 If DownloadedTotal(False) > 0 Or EnvirChanged.Invoke Then
                     If __SaveData Then
                         LastUpdated = Now
+                        RunScript()
                         DownloadedPictures(True) = SFile.GetFiles(User.File.CutPath, "*.jpg|*.jpeg|*.png|*.gif|*.webm",, EDP.ReturnValue).Count
                         DownloadedVideos(True) = SFile.GetFiles(User.File.CutPath, "*.mp4|*.mkv|*.mov", SearchOption.AllDirectories, EDP.ReturnValue).Count
                         If Labels.Contains(LabelsKeeper.NoParsedUser) Then Labels.Remove(LabelsKeeper.NoParsedUser)
@@ -919,16 +949,10 @@ BlockNullPicture:
             Dim ff As SFile = Nothing
             Try
                 If Not f.IsEmptyString AndAlso f.Exists Then
-                    Dim d As Date? = m.Post.Date
                     If Settings.FileReplaceNameByDate Then
-                        Dim dd$ = AConvert(Of String)(If(d, Now), FileDateAppenderProvider, String.Empty)
                         ff = f
-                        ff.Name = dd
+                        ff.Name = String.Format(FileDateAppenderPattern, f.Name, CStr(AConvert(Of String)(If(m.Post.Date, Now), FileDateAppenderProvider, String.Empty)))
                         ff = SFile.Indexed_IndexFile(ff,, New NumberedFile(ff))
-                    ElseIf d.HasValue AndAlso (Settings.FileAddDateToFileName Or Settings.FileAddTimeToFileName) AndAlso
-                                              (Not FileDateAppenderProvider Is Nothing And Not FileDateAppenderPattern.IsEmptyString) Then
-                        ff = f
-                        ff.Name = String.Format(FileDateAppenderPattern, f.Name, CStr(AConvert(Of String)(d.Value, FileDateAppenderProvider, String.Empty)))
                     End If
                     If Not ff.Name.IsEmptyString Then My.Computer.FileSystem.RenameFile(f, ff.File) : Return ff
                 End If
@@ -938,6 +962,27 @@ BlockNullPicture:
                 Return f
             End Try
         End Function
+        Private Sub RunScript()
+            Try
+                If ScriptUse Then
+                    Dim ScriptPattern$
+                    If Not ScriptFile.IsEmptyString Then
+                        ScriptPattern = ScriptFile
+                    Else
+                        ScriptPattern = Settings.ScriptFile.Value
+                    End If
+                    If Not ScriptPattern.IsEmptyString Then
+                        ScriptPattern &= " {0}"
+                        Using b As New BatchExecutor With {.RedirectStandardError = True}
+                            b.Execute({String.Format(ScriptPattern, MyFile.CutPath(1).ToString)}, EDP.SendInLog + EDP.ThrowException)
+                            If b.HasError Or Not b.ErrorOutput.IsEmptyString Then Throw New Exception(b.ErrorOutput, b.ErrorException)
+                        End Using
+                    End If
+                End If
+            Catch ex As Exception
+                LogError(ex, "script execution error")
+            End Try
+        End Sub
 #End Region
 #Region "Delete, Move, Merge"
         Friend Overridable Function Delete() As Integer Implements IUserData.Delete
@@ -990,6 +1035,11 @@ BlockNullPicture:
                 End If
                 f.CutPath.Exists(SFO.Path)
                 Directory.Move(UserBefore.File.CutPath(, EDP.ThrowException).Path, f.Path)
+                If Not ScriptFile.IsEmptyString AndAlso ScriptFile.Path = UserBefore.File.Path Then
+                    Dim ff As SFile = ScriptFile
+                    f.Path = MyFile.Path
+                    ScriptFile = ff
+                End If
                 Settings.UsersList.Remove(UserBefore)
                 Settings.UpdateUsersList(User)
                 UpdateUserInformation()
@@ -1043,6 +1093,11 @@ BlockNullPicture:
                                       New ErrorsDescriber(False, False, False, New List(Of SFile))).Count = 0 Then
                         UserBefore.File.CutPath.Delete(SFO.Path, Settings.DeleteMode, EDP.SendInLog)
                     End If
+                    If Not ScriptFile.IsEmptyString AndAlso ScriptFile.Path = UserBefore.File.Path Then
+                        Dim f As SFile = ScriptFile
+                        f.Path = MyFile.Path
+                        ScriptFile = f
+                    End If
                     UpdateUserInformation()
                 End If
             Catch ioex As InvalidOperationException When ioex.HelpLink = 1
@@ -1088,25 +1143,6 @@ BlockNullPicture:
             Else
                 Return IIf(FriendlyName.IsEmptyString, Name, FriendlyName)
             End If
-            'If Settings.ViewModeIsPicture Then
-            '    If IsCollection Then
-            '        Return CollectionName
-            '    Else
-            '        Return IIf(FriendlyName.IsEmptyString, Name, FriendlyName)
-            '    End If
-            'Else
-            '    Dim t$ = String.Empty
-            '    If Temporary Then
-            '        t = " (T)"
-            '    ElseIf Favorite Then
-            '        t = " (F)"
-            '    End If
-            '    If IsCollection Then
-            '        Return $"Collection [{CollectionName}]{t}"
-            '    Else
-            '        Return $"[{Site}]{t} {IIf(FriendlyName.IsEmptyString, Name, FriendlyName)}"
-            '    End If
-            'End If
         End Function
 #Region "Buttons actions"
         Private Sub BTT_CONTEXT_DOWN_Click(sender As Object, e As EventArgs) Handles BTT_CONTEXT_DOWN.Click
@@ -1226,6 +1262,8 @@ BlockNullPicture:
         ReadOnly Property Key As String
         Property DownloadImages As Boolean
         Property DownloadVideos As Boolean
+        Property ScriptUse As Boolean
+        Property ScriptFile As SFile
         Function GetLVI(ByVal Destination As ListView) As ListViewItem
         Function GetLVIGroup(ByVal Destination As ListView) As ListViewGroup
         Sub LoadUserInformation()

SCrawler/API/Instagram/UserData.vb

@@ -138,7 +138,7 @@ Namespace API.Instagram
         End Function
         Private Sub ReconfigureAwaiter()
             If WaitNotificationMode = WNM.SkipTemp Then WaitNotificationMode = WNM.Notify
-            If Caught429 Then Caught429 = False ': RequestsCount = 0
+            If Caught429 Then Caught429 = False
             ProgressTempSet = False
         End Sub
         Private Sub NextRequest(ByVal StartWait As Boolean)
@@ -193,6 +193,7 @@ Namespace API.Instagram
                             Case Sections.Stories
                                 If Not StoriesRequested Then
                                     StoriesList = GetStoriesList()
+                                    StoriesRequested = True
                                     MySiteSettings.TooManyRequests(False)
                                     RequestsCount += 1
                                     ThrowAny(Token)
@@ -390,11 +391,30 @@ Namespace API.Instagram
                 CreateMedia(node)
             End If
         End Sub
-        Private Sub ObtainMedia2(ByVal n As EContainer, ByVal PostID As String, Optional ByVal SpecialFolder As String = Nothing)
+        Private Sub ObtainMedia2(ByVal n As EContainer, ByVal PostID As String, Optional ByVal SpecialFolder As String = Nothing,
+                                 Optional ByVal DateObj As String = Nothing)
             Try
                 Dim img As Predicate(Of EContainer) = Function(_img) Not _img.Name.IsEmptyString AndAlso _img.Name.StartsWith("image_versions") AndAlso _img.Count > 0
                 Dim vid As Predicate(Of EContainer) = Function(_vid) Not _vid.Name.IsEmptyString AndAlso _vid.Name.StartsWith("video_versions") AndAlso _vid.Count > 0
                 Dim ss As Func(Of EContainer, Sizes) = Function(_ss) New Sizes(_ss.Value("width"), _ss.Value("url"))
+                Dim mDate As Func(Of EContainer, String) = Function(ByVal elem As EContainer) As String
+                                                               If elem.Contains("taken_at") Then
+                                                                   Return elem.Value("taken_at")
+                                                               ElseIf elem.Contains("imported_taken_at") Then
+                                                                   Return elem.Value("imported_taken_at")
+                                                               Else
+                                                                   Dim ev$ = elem.Value("device_timestamp")
+                                                                   If Not ev.IsEmptyString Then
+                                                                       If ev.Length > 10 Then
+                                                                           Return elem.Value("device_timestamp").Substring(0, 10)
+                                                                       Else
+                                                                           Return ev
+                                                                       End If
+                                                                   Else
+                                                                       Return String.Empty
+                                                                   End If
+                                                               End If
+                                                           End Function
                 If n.Count > 0 Then
                     Dim l As New List(Of Sizes)
                     Dim d As EContainer
@@ -408,6 +428,7 @@ Namespace API.Instagram
                             Case 1
                                 If n.Contains(img) Then
                                     t = n.Value("media_type").FromXML(Of Integer)(-1)
+                                    DateObj = mDate(n)
                                     If t >= 0 Then
                                         With n.ItemF({img, "candidates"}).XmlIfNothing
                                             If .Count > 0 Then
@@ -415,7 +436,7 @@ Namespace API.Instagram
                                                 l.ListAddList(.Select(ss), LNC)
                                                 If l.Count > 0 Then
                                                     l.Sort()
-                                                    _TempMediaList.ListAddValue(MediaFromData(UTypes.Picture, l.First.Data, PostID, Nothing, SpecialFolder), LNC)
+                                                    _TempMediaList.ListAddValue(MediaFromData(UTypes.Picture, l.First.Data, PostID, DateObj, SpecialFolder), LNC)
                                                     l.Clear()
                                                 End If
                                             End If
@@ -424,22 +445,24 @@ Namespace API.Instagram
                                 End If
                             Case 2
                                 If n.Contains(vid) Then
+                                    DateObj = mDate(n)
                                     With n.ItemF({vid}).XmlIfNothing
                                         If .Count > 0 Then
                                             l.Clear()
                                             l.ListAddList(.Select(ss), LNC)
                                             If l.Count > 0 Then
                                                 l.Sort()
-                                                _TempMediaList.ListAddValue(MediaFromData(UTypes.Video, l.First.Data, PostID, Nothing, SpecialFolder), LNC)
+                                                _TempMediaList.ListAddValue(MediaFromData(UTypes.Video, l.First.Data, PostID, DateObj, SpecialFolder), LNC)
                                                 l.Clear()
                                             End If
                                         End If
                                     End With
                                 End If
                             Case 8
+                                DateObj = mDate(n)
                                 With n("carousel_media").XmlIfNothing
                                     If .Count > 0 Then
-                                        For Each d In .Self : ObtainMedia2(d, PostID, SpecialFolder) : Next
+                                        For Each d In .Self : ObtainMedia2(d, PostID, SpecialFolder, DateObj) : Next
                                     End If
                                 End With
                         End Select

SCrawler/API/Reddit/Channel.vb

@@ -12,9 +12,12 @@ Imports PersonalUtilities.Functions.XML
 Imports SCrawler.API.Base
 Imports SCrawler.Plugin.Hosts
 Imports System.Threading
+Imports SCrawler.API.Reddit.RedditViewExchange
+Imports View = SCrawler.API.Reddit.IRedditView.View
+Imports Period = SCrawler.API.Reddit.IRedditView.Period
 Namespace API.Reddit
     Friend Class Channel : Implements ICollection(Of UserPost), IEquatable(Of Channel), IComparable(Of Channel),
-            IRangeSwitcherContainer(Of UserPost), ILoaderSaver, IMyEnumerator(Of UserPost), IChannelLimits, IDisposable
+            IRangeSwitcherContainer(Of UserPost), ILoaderSaver, IMyEnumerator(Of UserPost), IChannelLimits, IRedditView, IDisposable
 #Region "XML Nodes' Names"
         Private Const Name_Name As String = "Name"
         Private Const Name_ID As String = "ID"
@@ -35,6 +38,7 @@ Namespace API.Reddit
         End Property
         Friend ReadOnly Property PostsLatest As List(Of UserPost)
         Friend ReadOnly Property Posts As List(Of UserPost)
+        Friend ReadOnly Property PostsNames As List(Of String)
         Friend ReadOnly Property PostsAll As List(Of UserPost)
             Get
                 Return ListAddList(Nothing, Posts).ListAddList(PostsLatest).ListSort
@@ -57,6 +61,14 @@ Namespace API.Reddit
                 Return $"{ChannelsCollection.ChannelsPath.PathWithSeparator}{ID}.xml"
             End Get
         End Property
+        Private ReadOnly Property FilePosts As SFile
+            Get
+                Dim f As SFile = File
+                f.Name &= "_Posts"
+                f.Extension = "txt"
+                Return f
+            End Get
+        End Property
         Friend ReadOnly Property CachePath As SFile
             Get
                 Return $"{ChannelsCollection.ChannelsPathCache.PathWithSeparator}{ID}\"
@@ -72,7 +84,14 @@ Namespace API.Reddit
                 Return Posts(Index)
             End Get
         End Property
-        Private ReadOnly Property Range As RangeSwitcher(Of UserPost)
+        Friend Property ViewMode As View = View.New Implements IRedditView.ViewMode
+        Friend Property ViewPeriod As Period = Period.All Implements IRedditView.ViewPeriod
+        Friend Sub SetView(ByVal Options As IRedditView) Implements IRedditView.SetView
+            If Not Options Is Nothing Then
+                ViewMode = Options.ViewMode
+                ViewPeriod = Options.ViewPeriod
+            End If
+        End Sub
 #Region "Statistics support"
         Private ReadOnly CountOfAddedUsers As List(Of Integer)
         Private ReadOnly CountOfLoadedPostsPerSession As List(Of Integer)
@@ -118,6 +137,9 @@ Namespace API.Reddit
         Private _DownloadLimitCount As Integer? = Nothing
         Friend Property DownloadLimitCount As Integer? Implements IChannelLimits.DownloadLimitCount
             Get
+                If Not ViewMode = View.New And AutoGetLimits Then
+                    Return _DownloadLimitCount
+                Else
                     If AutoGetLimits Then
                         If LatestParsedDate.HasValue OrElse Not DownloadLimitPost.IsEmptyString Then
                             Return Nothing
@@ -129,6 +151,7 @@ Namespace API.Reddit
                     Else
                         Return _DownloadLimitCount
                     End If
+                End If
             End Get
             Set(ByVal NewLimit As Integer?)
                 _DownloadLimitCount = NewLimit
@@ -137,12 +160,16 @@ Namespace API.Reddit
         Private _DownloadLimitPost As String = String.Empty
         Friend Property DownloadLimitPost As String Implements IChannelLimits.DownloadLimitPost
             Get
+                If Not ViewMode = View.New And AutoGetLimits Then
+                    Return _DownloadLimitPost
+                Else
                     Dim PID$ = ListAddList(Nothing, Posts, LAP.NotContainsOnly).ListAddList(PostsLatest, LAP.NotContainsOnly).ListSort.FirstOrDefault.ID
                     If AutoGetLimits And Not PID.IsEmptyString Then
                         Return PID
                     Else
                         Return _DownloadLimitPost
                     End If
+                End If
             End Get
             Set(ByVal NewLimit As String)
                 _DownloadLimitPost = NewLimit
@@ -151,11 +178,15 @@ Namespace API.Reddit
         Private _DownloadLimitDate As Date? = Nothing
         Friend Property DownloadLimitDate As Date? Implements IChannelLimits.DownloadLimitDate
             Get
+                If Not ViewMode = View.New And AutoGetLimits Then
+                    Return _DownloadLimitDate
+                Else
                     If AutoGetLimits And LatestParsedDate.HasValue Then
                         Return LatestParsedDate
                     Else
                         Return _DownloadLimitDate
                     End If
+                End If
             End Get
             Set(ByVal NewLimit As Date?)
                 _DownloadLimitDate = NewLimit
@@ -174,6 +205,11 @@ Namespace API.Reddit
                 DownloadLimitDate = .DownloadLimitDate
                 AutoGetLimits = .AutoGetLimits
             End With
+            If Not ViewMode = View.New And AutoGetLimits Then
+                DownloadLimitDate = Nothing
+                DownloadLimitCount = Nothing
+                DownloadLimitPost = String.Empty
+            End If
         End Sub
         Friend Property AutoGetLimits As Boolean = True Implements IChannelLimits.AutoGetLimits
 #End Region
@@ -181,7 +217,7 @@ Namespace API.Reddit
         Friend Sub New()
             Posts = New List(Of UserPost)
             PostsLatest = New List(Of UserPost)
-            Range = New RangeSwitcher(Of UserPost)(Me)
+            PostsNames = New List(Of String)
             CountOfAddedUsers = New List(Of Integer)
             CountOfLoadedPostsPerSession = New List(Of Integer)
             ChannelExistentUserNames = New List(Of String)
@@ -203,6 +239,7 @@ Namespace API.Reddit
         End Function
         Friend Sub Delete()
             File.Delete(, SFODelete.DeleteToRecycleBin)
+            FilePosts.Delete(, SFODelete.DeleteToRecycleBin)
         End Sub
         Friend Sub DownloadData(ByVal Token As CancellationToken, Optional ByVal SkipExists As Boolean = True,
                                 Optional ByVal p As MyProgress = Nothing)
@@ -214,10 +251,13 @@ Namespace API.Reddit
                     .SkipExistsUsers = SkipExists,
                     .ChannelInfo = Me
                 }
-                    d.SetEnvironment(HOST, CUser, False)
-                    d.RemoveUpdateHandlers()
-                    d.SetLimit(Me)
-                    d.DownloadData(Token)
+                    With d
+                        .SetEnvironment(HOST, CUser, False)
+                        .RemoveUpdateHandlers()
+                        .SetLimit(Me)
+                        .SetView(Me)
+                        .DownloadData(Token)
+                    End With
                     Dim b% = Posts.Count
                     Posts.ListAddList(d.GetNewChannelPosts(), LAP.NotContainsOnly)
                     If Posts.Count - b > 0 Then CountOfLoadedPostsPerSession.Add(Posts.Count - b)
@@ -298,6 +338,9 @@ Namespace API.Reddit
                         Dim lc As New ListAddParams(LAP.ClearBeforeAdd)
                         Name = x.Value(Name_Name)
                         ID = x.Value(Name_ID)
+                        ViewMode = x.Value(Name_ViewMode).FromXML(Of Integer)(CInt(View.[New]))
+                        ViewPeriod = x.Value(Name_ViewPeriod).FromXML(Of Integer)(CInt(Period.All))
+                        If FilePosts.Exists Then PostsNames.ListAddList(FilePosts.GetText.StringToList(Of String)("|"), LNC)
                         LatestParsedDate = AConvert(Of Date)(x.Value(Name_Date), XMLDateProvider, Nothing)
                         CountOfAddedUsers.ListAddList(x.Value(Name_UsersAdded).StringToList(Of Integer)("|"), lc)
                         CountOfLoadedPostsPerSession.ListAddList(x.Value(Name_PostsDownloaded).StringToList(Of Integer)("|"), lc)
@@ -317,9 +360,20 @@ Namespace API.Reddit
         Friend Overloads Function Save(Optional ByVal f As SFile = Nothing, Optional ByVal e As ErrorsDescriber = Nothing) As Boolean Implements ILoaderSaver.Save
             Dim XMLDateProvider As New ADateTime(ADateTime.Formats.BaseDateTime)
             UpdateUsersStats()
+            If Not ViewMode = View.New Then
+                Dim l As New List(Of String)
+                If Posts.Count > 0 Or PostsLatest.Count > 0 Then l.ListAddList((From p In PostsAll Where Not p.ID.IsEmptyString Select p.ID), LAP.NotContainsOnly)
+                l.ListAddList(PostsNames, LAP.NotContainsOnly)
+                If l.Count > 0 Then TextSaver.SaveTextToFile(l.ListToString(, "|"), FilePosts, True,, EDP.SendInLog)
+            End If
             Using x As New XmlFile With {.AllowSameNames = True, .Name = "Channel"}
                 x.Add(Name_Name, Name)
                 x.Add(Name_ID, ID)
+                x.Add(Name_ViewMode, CInt(ViewMode))
+                x.Add(Name_ViewPeriod, CInt(ViewPeriod))
+                x.Add(Name_UsersAdded, CountOfAddedUsers.ListToString(, "|"))
+                x.Add(Name_PostsDownloaded, CountOfLoadedPostsPerSession.ListToString(, "|"))
+                x.Add(Name_UsersExistent, ChannelExistentUserNames.ListToString(, "|"))
                 If Posts.Count > 0 Or PostsLatest.Count > 0 Then
                     Dim tmpPostList As List(Of UserPost) = Nothing
                     tmpPostList.ListAddList(Posts).ListAddList(PostsLatest)
@@ -327,9 +381,6 @@ Namespace API.Reddit
                     LatestParsedDate = tmpPostList.FirstOrDefault(Function(pd) pd.Date.HasValue).Date
                     x.Add(Name_Date, AConvert(Of String)(LatestParsedDate, XMLDateProvider, String.Empty))
                     x.Add(Name_PostsNode, String.Empty)
-                    x.Add(Name_UsersAdded, CountOfAddedUsers.ListToString(, "|"))
-                    x.Add(Name_PostsDownloaded, CountOfLoadedPostsPerSession.ListToString(, "|"))
-                    x.Add(Name_UsersExistent, ChannelExistentUserNames.ListToString(, "|"))
                     With x(Name_PostsNode)
                         tmpPostList.Take(200).ToList.ForEach(Sub(p) .Add(New EContainer("Post",
                                                                                   String.Empty,
@@ -354,9 +405,9 @@ Namespace API.Reddit
                 If disposing Then
                     Posts.Clear()
                     PostsLatest.Clear()
+                    PostsNames.Clear()
                     CountOfAddedUsers.Clear()
                     CountOfLoadedPostsPerSession.Clear()
-                    Range.Dispose()
                     ChannelExistentUserNames.Clear()
                     CachePath.Delete(SFO.Path, SFODelete.None, EDP.SendInLog)
                 End If

SCrawler/API/Reddit/IRedditView.vb

@@ -0,0 +1,40 @@
+' Copyright (C) 2022  Andy
+' 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
+        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
+        Sub SetView(ByVal Options As IRedditView)
+    End Interface
+    Friend Class RedditViewExchange : Implements IRedditView
+        Friend Const Name_ViewMode As String = "ViewMode"
+        Friend Const Name_ViewPeriod As String = "ViewPeriod"
+        Friend Property ViewMode As IRedditView.View Implements IRedditView.ViewMode
+        Friend Property ViewPeriod As IRedditView.Period Implements IRedditView.ViewPeriod
+        Friend Sub SetView(ByVal Options As IRedditView) Implements IRedditView.SetView
+            If Not Options Is Nothing Then
+                ViewMode = Options.ViewMode
+                ViewPeriod = Options.ViewPeriod
+            End If
+        End Sub
+    End Class
+End Namespace

SCrawler/API/Reddit/RedditViewSettingsForm.Designer.vb

@@ -0,0 +1,301 @@
+' Copyright (C) 2022  Andy
+' 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
+    <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+    Partial Friend Class RedditViewSettingsForm : Inherits System.Windows.Forms.Form
+        <System.Diagnostics.DebuggerNonUserCode()>
+        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+            Try
+                If disposing AndAlso components IsNot Nothing Then
+                    components.Dispose()
+                End If
+            Finally
+                MyBase.Dispose(disposing)
+            End Try
+        End Sub
+        Private components As System.ComponentModel.IContainer
+        <System.Diagnostics.DebuggerStepThrough()>
+        Private Sub InitializeComponent()
+            Dim CONTAINER_MAIN As System.Windows.Forms.ToolStripContainer
+            Dim TP_MAIN As System.Windows.Forms.TableLayoutPanel
+            Dim TP_VIEW_MODE As System.Windows.Forms.TableLayoutPanel
+            Dim LBL_VIEW_MODE As System.Windows.Forms.Label
+            Dim LBL_PERIOD As System.Windows.Forms.Label
+            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(RedditViewSettingsForm))
+            Me.OPT_VIEW_MODE_NEW = New System.Windows.Forms.RadioButton()
+            Me.OPT_VIEW_MODE_HOT = New System.Windows.Forms.RadioButton()
+            Me.OPT_VIEW_MODE_TOP = New System.Windows.Forms.RadioButton()
+            Me.TP_PERIOD = New System.Windows.Forms.TableLayoutPanel()
+            Me.OPT_PERIOD_ALL = New System.Windows.Forms.RadioButton()
+            Me.OPT_PERIOD_HOUR = New System.Windows.Forms.RadioButton()
+            Me.OPT_PERIOD_DAY = New System.Windows.Forms.RadioButton()
+            Me.OPT_PERIOD_WEEK = New System.Windows.Forms.RadioButton()
+            Me.OPT_PERIOD_MONTH = New System.Windows.Forms.RadioButton()
+            Me.OPT_PERIOD_YEAR = New System.Windows.Forms.RadioButton()
+            CONTAINER_MAIN = New System.Windows.Forms.ToolStripContainer()
+            TP_MAIN = New System.Windows.Forms.TableLayoutPanel()
+            TP_VIEW_MODE = New System.Windows.Forms.TableLayoutPanel()
+            LBL_VIEW_MODE = New System.Windows.Forms.Label()
+            LBL_PERIOD = New System.Windows.Forms.Label()
+            CONTAINER_MAIN.ContentPanel.SuspendLayout()
+            CONTAINER_MAIN.SuspendLayout()
+            TP_MAIN.SuspendLayout()
+            TP_VIEW_MODE.SuspendLayout()
+            Me.TP_PERIOD.SuspendLayout()
+            Me.SuspendLayout()
+            '
+            'CONTAINER_MAIN
+            '
+            '
+            'CONTAINER_MAIN.ContentPanel
+            '
+            CONTAINER_MAIN.ContentPanel.Controls.Add(TP_MAIN)
+            CONTAINER_MAIN.ContentPanel.Size = New System.Drawing.Size(477, 87)
+            CONTAINER_MAIN.Dock = System.Windows.Forms.DockStyle.Fill
+            CONTAINER_MAIN.LeftToolStripPanelVisible = False
+            CONTAINER_MAIN.Location = New System.Drawing.Point(0, 0)
+            CONTAINER_MAIN.Name = "CONTAINER_MAIN"
+            CONTAINER_MAIN.RightToolStripPanelVisible = False
+            CONTAINER_MAIN.Size = New System.Drawing.Size(477, 112)
+            CONTAINER_MAIN.TabIndex = 0
+            CONTAINER_MAIN.TopToolStripPanelVisible = False
+            '
+            'TP_MAIN
+            '
+            TP_MAIN.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single]
+            TP_MAIN.ColumnCount = 1
+            TP_MAIN.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+            TP_MAIN.Controls.Add(TP_VIEW_MODE, 0, 0)
+            TP_MAIN.Controls.Add(Me.TP_PERIOD, 0, 1)
+            TP_MAIN.Dock = System.Windows.Forms.DockStyle.Fill
+            TP_MAIN.Location = New System.Drawing.Point(0, 0)
+            TP_MAIN.Name = "TP_MAIN"
+            TP_MAIN.RowCount = 3
+            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
+            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 56.0!))
+            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+            TP_MAIN.Size = New System.Drawing.Size(477, 87)
+            TP_MAIN.TabIndex = 0
+            '
+            'TP_VIEW_MODE
+            '
+            TP_VIEW_MODE.ColumnCount = 4
+            TP_VIEW_MODE.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
+            TP_VIEW_MODE.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
+            TP_VIEW_MODE.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
+            TP_VIEW_MODE.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
+            TP_VIEW_MODE.Controls.Add(LBL_VIEW_MODE, 0, 0)
+            TP_VIEW_MODE.Controls.Add(Me.OPT_VIEW_MODE_NEW, 1, 0)
+            TP_VIEW_MODE.Controls.Add(Me.OPT_VIEW_MODE_HOT, 2, 0)
+            TP_VIEW_MODE.Controls.Add(Me.OPT_VIEW_MODE_TOP, 3, 0)
+            TP_VIEW_MODE.Dock = System.Windows.Forms.DockStyle.Fill
+            TP_VIEW_MODE.Location = New System.Drawing.Point(1, 1)
+            TP_VIEW_MODE.Margin = New System.Windows.Forms.Padding(0)
+            TP_VIEW_MODE.Name = "TP_VIEW_MODE"
+            TP_VIEW_MODE.RowCount = 1
+            TP_VIEW_MODE.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+            TP_VIEW_MODE.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
+            TP_VIEW_MODE.Size = New System.Drawing.Size(475, 28)
+            TP_VIEW_MODE.TabIndex = 0
+            '
+            'LBL_VIEW_MODE
+            '
+            LBL_VIEW_MODE.AutoSize = True
+            LBL_VIEW_MODE.Dock = System.Windows.Forms.DockStyle.Fill
+            LBL_VIEW_MODE.Location = New System.Drawing.Point(3, 0)
+            LBL_VIEW_MODE.Name = "LBL_VIEW_MODE"
+            LBL_VIEW_MODE.Size = New System.Drawing.Size(112, 28)
+            LBL_VIEW_MODE.TabIndex = 0
+            LBL_VIEW_MODE.Text = "View"
+            LBL_VIEW_MODE.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+            '
+            'OPT_VIEW_MODE_NEW
+            '
+            Me.OPT_VIEW_MODE_NEW.AutoSize = True
+            Me.OPT_VIEW_MODE_NEW.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.OPT_VIEW_MODE_NEW.Location = New System.Drawing.Point(121, 3)
+            Me.OPT_VIEW_MODE_NEW.Name = "OPT_VIEW_MODE_NEW"
+            Me.OPT_VIEW_MODE_NEW.Size = New System.Drawing.Size(112, 22)
+            Me.OPT_VIEW_MODE_NEW.TabIndex = 1
+            Me.OPT_VIEW_MODE_NEW.TabStop = True
+            Me.OPT_VIEW_MODE_NEW.Text = "New"
+            Me.OPT_VIEW_MODE_NEW.UseVisualStyleBackColor = True
+            '
+            'OPT_VIEW_MODE_HOT
+            '
+            Me.OPT_VIEW_MODE_HOT.AutoSize = True
+            Me.OPT_VIEW_MODE_HOT.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.OPT_VIEW_MODE_HOT.Location = New System.Drawing.Point(239, 3)
+            Me.OPT_VIEW_MODE_HOT.Name = "OPT_VIEW_MODE_HOT"
+            Me.OPT_VIEW_MODE_HOT.Size = New System.Drawing.Size(112, 22)
+            Me.OPT_VIEW_MODE_HOT.TabIndex = 2
+            Me.OPT_VIEW_MODE_HOT.TabStop = True
+            Me.OPT_VIEW_MODE_HOT.Text = "Hot"
+            Me.OPT_VIEW_MODE_HOT.UseVisualStyleBackColor = True
+            '
+            'OPT_VIEW_MODE_TOP
+            '
+            Me.OPT_VIEW_MODE_TOP.AutoSize = True
+            Me.OPT_VIEW_MODE_TOP.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.OPT_VIEW_MODE_TOP.Location = New System.Drawing.Point(357, 3)
+            Me.OPT_VIEW_MODE_TOP.Name = "OPT_VIEW_MODE_TOP"
+            Me.OPT_VIEW_MODE_TOP.Size = New System.Drawing.Size(115, 22)
+            Me.OPT_VIEW_MODE_TOP.TabIndex = 3
+            Me.OPT_VIEW_MODE_TOP.TabStop = True
+            Me.OPT_VIEW_MODE_TOP.Text = "Top"
+            Me.OPT_VIEW_MODE_TOP.UseVisualStyleBackColor = True
+            '
+            'TP_PERIOD
+            '
+            Me.TP_PERIOD.ColumnCount = 4
+            Me.TP_PERIOD.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
+            Me.TP_PERIOD.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
+            Me.TP_PERIOD.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
+            Me.TP_PERIOD.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
+            Me.TP_PERIOD.Controls.Add(LBL_PERIOD, 0, 0)
+            Me.TP_PERIOD.Controls.Add(Me.OPT_PERIOD_ALL, 1, 0)
+            Me.TP_PERIOD.Controls.Add(Me.OPT_PERIOD_HOUR, 2, 0)
+            Me.TP_PERIOD.Controls.Add(Me.OPT_PERIOD_DAY, 3, 0)
+            Me.TP_PERIOD.Controls.Add(Me.OPT_PERIOD_WEEK, 1, 1)
+            Me.TP_PERIOD.Controls.Add(Me.OPT_PERIOD_MONTH, 2, 1)
+            Me.TP_PERIOD.Controls.Add(Me.OPT_PERIOD_YEAR, 3, 1)
+            Me.TP_PERIOD.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.TP_PERIOD.Location = New System.Drawing.Point(1, 30)
+            Me.TP_PERIOD.Margin = New System.Windows.Forms.Padding(0)
+            Me.TP_PERIOD.Name = "TP_PERIOD"
+            Me.TP_PERIOD.RowCount = 2
+            Me.TP_PERIOD.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+            Me.TP_PERIOD.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+            Me.TP_PERIOD.Size = New System.Drawing.Size(475, 56)
+            Me.TP_PERIOD.TabIndex = 2
+            '
+            'LBL_PERIOD
+            '
+            LBL_PERIOD.AutoSize = True
+            LBL_PERIOD.Dock = System.Windows.Forms.DockStyle.Fill
+            LBL_PERIOD.Location = New System.Drawing.Point(3, 0)
+            LBL_PERIOD.Name = "LBL_PERIOD"
+            LBL_PERIOD.Size = New System.Drawing.Size(112, 28)
+            LBL_PERIOD.TabIndex = 0
+            LBL_PERIOD.Text = "Period"
+            LBL_PERIOD.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+            '
+            'OPT_PERIOD_ALL
+            '
+            Me.OPT_PERIOD_ALL.AutoSize = True
+            Me.OPT_PERIOD_ALL.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.OPT_PERIOD_ALL.Location = New System.Drawing.Point(121, 3)
+            Me.OPT_PERIOD_ALL.Name = "OPT_PERIOD_ALL"
+            Me.OPT_PERIOD_ALL.Size = New System.Drawing.Size(112, 22)
+            Me.OPT_PERIOD_ALL.TabIndex = 1
+            Me.OPT_PERIOD_ALL.TabStop = True
+            Me.OPT_PERIOD_ALL.Text = "All"
+            Me.OPT_PERIOD_ALL.UseVisualStyleBackColor = True
+            '
+            'OPT_PERIOD_HOUR
+            '
+            Me.OPT_PERIOD_HOUR.AutoSize = True
+            Me.OPT_PERIOD_HOUR.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.OPT_PERIOD_HOUR.Location = New System.Drawing.Point(239, 3)
+            Me.OPT_PERIOD_HOUR.Name = "OPT_PERIOD_HOUR"
+            Me.OPT_PERIOD_HOUR.Size = New System.Drawing.Size(112, 22)
+            Me.OPT_PERIOD_HOUR.TabIndex = 2
+            Me.OPT_PERIOD_HOUR.TabStop = True
+            Me.OPT_PERIOD_HOUR.Text = "Hour"
+            Me.OPT_PERIOD_HOUR.UseVisualStyleBackColor = True
+            '
+            'OPT_PERIOD_DAY
+            '
+            Me.OPT_PERIOD_DAY.AutoSize = True
+            Me.OPT_PERIOD_DAY.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.OPT_PERIOD_DAY.Location = New System.Drawing.Point(357, 3)
+            Me.OPT_PERIOD_DAY.Name = "OPT_PERIOD_DAY"
+            Me.OPT_PERIOD_DAY.Size = New System.Drawing.Size(115, 22)
+            Me.OPT_PERIOD_DAY.TabIndex = 3
+            Me.OPT_PERIOD_DAY.TabStop = True
+            Me.OPT_PERIOD_DAY.Text = "Day"
+            Me.OPT_PERIOD_DAY.UseVisualStyleBackColor = True
+            '
+            'OPT_PERIOD_WEEK
+            '
+            Me.OPT_PERIOD_WEEK.AutoSize = True
+            Me.OPT_PERIOD_WEEK.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.OPT_PERIOD_WEEK.Location = New System.Drawing.Point(121, 31)
+            Me.OPT_PERIOD_WEEK.Name = "OPT_PERIOD_WEEK"
+            Me.OPT_PERIOD_WEEK.Size = New System.Drawing.Size(112, 22)
+            Me.OPT_PERIOD_WEEK.TabIndex = 4
+            Me.OPT_PERIOD_WEEK.TabStop = True
+            Me.OPT_PERIOD_WEEK.Text = "Week"
+            Me.OPT_PERIOD_WEEK.UseVisualStyleBackColor = True
+            '
+            'OPT_PERIOD_MONTH
+            '
+            Me.OPT_PERIOD_MONTH.AutoSize = True
+            Me.OPT_PERIOD_MONTH.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.OPT_PERIOD_MONTH.Location = New System.Drawing.Point(239, 31)
+            Me.OPT_PERIOD_MONTH.Name = "OPT_PERIOD_MONTH"
+            Me.OPT_PERIOD_MONTH.Size = New System.Drawing.Size(112, 22)
+            Me.OPT_PERIOD_MONTH.TabIndex = 5
+            Me.OPT_PERIOD_MONTH.TabStop = True
+            Me.OPT_PERIOD_MONTH.Text = "Month"
+            Me.OPT_PERIOD_MONTH.UseVisualStyleBackColor = True
+            '
+            'OPT_PERIOD_YEAR
+            '
+            Me.OPT_PERIOD_YEAR.AutoSize = True
+            Me.OPT_PERIOD_YEAR.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.OPT_PERIOD_YEAR.Location = New System.Drawing.Point(357, 31)
+            Me.OPT_PERIOD_YEAR.Name = "OPT_PERIOD_YEAR"
+            Me.OPT_PERIOD_YEAR.Size = New System.Drawing.Size(115, 22)
+            Me.OPT_PERIOD_YEAR.TabIndex = 6
+            Me.OPT_PERIOD_YEAR.TabStop = True
+            Me.OPT_PERIOD_YEAR.Text = "Year"
+            Me.OPT_PERIOD_YEAR.UseVisualStyleBackColor = True
+            '
+            'RedditViewSettingsForm
+            '
+            Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+            Me.ClientSize = New System.Drawing.Size(477, 112)
+            Me.Controls.Add(CONTAINER_MAIN)
+            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
+            Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+            Me.KeyPreview = True
+            Me.MaximizeBox = False
+            Me.MaximumSize = New System.Drawing.Size(493, 151)
+            Me.MinimizeBox = False
+            Me.MinimumSize = New System.Drawing.Size(493, 151)
+            Me.Name = "RedditViewSettingsForm"
+            Me.ShowInTaskbar = False
+            Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
+            Me.Text = "Options"
+            CONTAINER_MAIN.ContentPanel.ResumeLayout(False)
+            CONTAINER_MAIN.ResumeLayout(False)
+            CONTAINER_MAIN.PerformLayout()
+            TP_MAIN.ResumeLayout(False)
+            TP_VIEW_MODE.ResumeLayout(False)
+            TP_VIEW_MODE.PerformLayout()
+            Me.TP_PERIOD.ResumeLayout(False)
+            Me.TP_PERIOD.PerformLayout()
+            Me.ResumeLayout(False)
+
+        End Sub
+        Private WithEvents OPT_VIEW_MODE_NEW As RadioButton
+        Private WithEvents OPT_VIEW_MODE_HOT As RadioButton
+        Private WithEvents OPT_VIEW_MODE_TOP As RadioButton
+        Private WithEvents OPT_PERIOD_ALL As RadioButton
+        Private WithEvents OPT_PERIOD_HOUR As RadioButton
+        Private WithEvents OPT_PERIOD_DAY As RadioButton
+        Private WithEvents OPT_PERIOD_WEEK As RadioButton
+        Private WithEvents OPT_PERIOD_MONTH As RadioButton
+        Private WithEvents OPT_PERIOD_YEAR As RadioButton
+        Private WithEvents TP_PERIOD As TableLayoutPanel
+    End Class
+End Namespace

SCrawler/API/Reddit/RedditViewSettingsForm.vb

@@ -0,0 +1,90 @@
+' Copyright (C) 2022  Andy
+' 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 PersonalUtilities.Forms
+Imports PersonalUtilities.Forms.Toolbars
+Imports CView = SCrawler.API.Reddit.IRedditView.View
+Imports CPeriod = SCrawler.API.Reddit.IRedditView.Period
+Namespace API.Reddit
+    Friend Class RedditViewSettingsForm : Implements IOkCancelToolbar
+        Private ReadOnly MyDefs As DefaultFormProps
+        Private ReadOnly Property MyOptions As IRedditView
+        Friend Sub New(ByRef opt As IRedditView)
+            InitializeComponent()
+            MyOptions = opt
+            MyDefs = New DefaultFormProps
+        End Sub
+        Private Sub ChannelSettingsForm_Load(sender As Object, e As EventArgs) Handles Me.Load
+            Try
+                Dim n$ = String.Empty
+                If TypeOf MyOptions Is Channel Then
+                    n = $"Channel [{DirectCast(MyOptions, Channel).Name}]"
+                ElseIf TypeOf MyOptions Is Base.IUserData Then
+                    n = $"User [{DirectCast(MyOptions, Base.IUserData).Name}]"
+                End If
+                If Not n.IsEmptyString Then Text = n
+                With MyDefs
+                    .MyViewInitialize(Me, Settings.Design, True)
+                    .AddOkCancelToolbar()
+                    .AppendDetectors()
+                    .DelegateClosingChecker()
+                    Select Case MyOptions.ViewMode
+                        Case CView.Hot : OPT_VIEW_MODE_HOT.Checked = True
+                        Case CView.Top : OPT_VIEW_MODE_TOP.Checked = True
+                        Case Else : OPT_VIEW_MODE_NEW.Checked = True
+                    End Select
+                    Select Case MyOptions.ViewPeriod
+                        Case CPeriod.Hour : OPT_PERIOD_HOUR.Checked = True
+                        Case CPeriod.Day : OPT_PERIOD_DAY.Checked = True
+                        Case CPeriod.Week : OPT_PERIOD_WEEK.Checked = True
+                        Case CPeriod.Month : OPT_PERIOD_MONTH.Checked = True
+                        Case CPeriod.Year : OPT_PERIOD_YEAR.Checked = True
+                        Case Else : OPT_PERIOD_ALL.Checked = True
+                    End Select
+                    ChangePeriodEnabled()
+                    .EndLoaderOperations()
+                End With
+            Catch ex As Exception
+                MyDefs.InvokeLoaderError(ex)
+            End Try
+        End Sub
+        Private Sub ToolbarBttOK() Implements IOkCancelToolbar.ToolbarBttOK
+            With MyOptions
+                Select Case True
+                    Case OPT_VIEW_MODE_HOT.Checked : .ViewMode = CView.Hot
+                    Case OPT_VIEW_MODE_TOP.Checked : .ViewMode = CView.Top
+                    Case Else : .ViewMode = CView.New
+                End Select
+                Select Case True
+                    Case OPT_PERIOD_HOUR.Checked : .ViewPeriod = CPeriod.Hour
+                    Case OPT_PERIOD_DAY.Checked : .ViewPeriod = CPeriod.Day
+                    Case OPT_PERIOD_WEEK.Checked : .ViewPeriod = CPeriod.Week
+                    Case OPT_PERIOD_MONTH.Checked : .ViewPeriod = CPeriod.Month
+                    Case OPT_PERIOD_YEAR.Checked : .ViewPeriod = CPeriod.Year
+                    Case Else : .ViewPeriod = CPeriod.All
+                End Select
+            End With
+            MyDefs.CloseForm()
+        End Sub
+        Private Sub ToolbarBttCancel() Implements IOkCancelToolbar.ToolbarBttCancel
+            MyDefs.CloseForm(DialogResult.Cancel)
+        End Sub
+        Private Sub OPT_VIEW_MODE_NEW_CheckedChanged(sender As Object, e As EventArgs) Handles OPT_VIEW_MODE_NEW.CheckedChanged
+            ChangePeriodEnabled()
+        End Sub
+        Private Sub OPT_VIEW_MODE_HOT_CheckedChanged(sender As Object, e As EventArgs) Handles OPT_VIEW_MODE_HOT.CheckedChanged
+            ChangePeriodEnabled()
+        End Sub
+        Private Sub OPT_VIEW_MODE_TOP_CheckedChanged(sender As Object, e As EventArgs) Handles OPT_VIEW_MODE_TOP.CheckedChanged
+            ChangePeriodEnabled()
+        End Sub
+        Private Sub ChangePeriodEnabled()
+            TP_PERIOD.Enabled = OPT_VIEW_MODE_TOP.Checked
+        End Sub
+    End Class
+End Namespace

SCrawler/API/Reddit/SiteSettings.vb

@@ -14,7 +14,7 @@ Imports PersonalUtilities.Functions.RegularExpressions
 Imports DownDetector = SCrawler.API.Base.DownDetector
 Imports Download = SCrawler.Plugin.ISiteSettings.Download
 Namespace API.Reddit
-    <Manifest(RedditSiteKey), UseClassAsIs, SavedPosts>
+    <Manifest(RedditSiteKey), UseClassAsIs, SavedPosts, SpecialForm(False)>
     Friend Class SiteSettings : Inherits SiteSettingsBase
         Friend Overrides ReadOnly Property Icon As Icon
             Get
@@ -53,7 +53,10 @@ Namespace API.Reddit
                 Case Download.Channel : Return New UserData With {.SaveToCache = False, .SkipExistsUsers = False, .AutoGetLimits = True}
                 Case Download.SavedPosts
                     Dim u As New UserData With {.IsSavedPosts = True}
-                    DirectCast(u, UserDataBase).User = New UserInfo With {.Name = CStr(AConvert(Of String)(SavedPostsUserName.Value, String.Empty))}
+                    DirectCast(u, UserDataBase).User = New UserInfo With {
+                        .Name = CStr(AConvert(Of String)(SavedPostsUserName.Value, String.Empty)),
+                        .IsChannel = True
+                    }
                     Return u
             End Select
             Return Nothing
@@ -93,5 +96,11 @@ Namespace API.Reddit
         Friend Overrides Function GetSpecialDataF(ByVal URL As String) As IEnumerable(Of UserMedia)
             Return UserData.GetVideoInfo(URL, Responser)
         End Function
+        Friend Overrides Sub UserOptions(ByRef Options As Object, ByVal OpenForm As Boolean)
+            If Options Is Nothing OrElse Not TypeOf Options Is RedditViewExchange Then Options = New RedditViewExchange
+            If OpenForm Then
+                Using f As New RedditViewSettingsForm(Options) : f.ShowDialog() : End Using
+            End If
+        End Sub
     End Class
 End Namespace

SCrawler/API/Reddit/UserData.vb

@@ -14,10 +14,13 @@ Imports PersonalUtilities.Tools.WebDocuments.JSON
 Imports System.Net
 Imports System.Threading
 Imports SCrawler.API.Base
+Imports SCrawler.API.Reddit.RedditViewExchange
 Imports UStates = SCrawler.API.Base.UserMedia.States
 Imports UTypes = SCrawler.API.Base.UserMedia.Types
+Imports CView = SCrawler.API.Reddit.IRedditView.View
+Imports CPeriod = SCrawler.API.Reddit.IRedditView.Period
 Namespace API.Reddit
-    Friend Class UserData : Inherits UserDataBase : Implements IChannelData
+    Friend Class UserData : Inherits UserDataBase : Implements IChannelData, IRedditView
         Private ReadOnly Property MySiteSettings As SiteSettings
             Get
                 Return DirectCast(HOST.Source, SiteSettings)
@@ -60,6 +63,41 @@ Namespace API.Reddit
                                                   Select c.Post) Else Return Nothing
         End Function
 #End Region
+#Region "IRedditView Support"
+        Friend Property ViewMode As CView Implements IRedditView.ViewMode
+        Friend Property ViewPeriod As CPeriod Implements IRedditView.ViewPeriod
+        Friend Sub SetView(ByVal Options As IRedditView) Implements IRedditView.SetView
+            If Not Options Is Nothing Then
+                ViewMode = Options.ViewMode
+                ViewPeriod = Options.ViewPeriod
+            End If
+        End Sub
+        Private ReadOnly Property View As String
+            Get
+                Select Case ViewMode
+                    Case CView.Hot : Return "hot"
+                    Case CView.Top : Return "top"
+                    Case Else : Return "new"
+                End Select
+            End Get
+        End Property
+        Private ReadOnly Property Period As String
+            Get
+                If ViewMode = CView.Top Then
+                    Select Case ViewPeriod
+                        Case CPeriod.Hour : Return "hour"
+                        Case CPeriod.Day : Return "day"
+                        Case CPeriod.Week : Return "week"
+                        Case CPeriod.Month : Return "month"
+                        Case CPeriod.Year : Return "year"
+                        Case Else : Return "all"
+                    End Select
+                Else
+                    Return "all"
+                End If
+            End Get
+        End Property
+#End Region
 #Region "Initializer"
         Friend Sub New()
             ChannelPostsNames = New List(Of String)
@@ -69,6 +107,21 @@ Namespace API.Reddit
 #End Region
 #Region "Load and Update user info"
         Protected Overrides Sub LoadUserInformation_OptionalFields(ByRef Container As XmlFile, ByVal Loading As Boolean)
+            With Container
+                If Loading Then
+                    ViewMode = .Value(Name_ViewMode).FromXML(Of Integer)(CInt(CView.New))
+                    ViewPeriod = .Value(Name_ViewPeriod).FromXML(Of Integer)(CInt(CPeriod.All))
+                Else
+                    .Add(Name_ViewMode, CInt(ViewMode))
+                    .Add(Name_ViewPeriod, CInt(ViewPeriod))
+                End If
+            End With
+        End Sub
+        Friend Overrides Function ExchangeOptionsGet() As Object
+            Return New RedditViewExchange With {.ViewMode = ViewMode, .ViewPeriod = ViewPeriod}
+        End Function
+        Friend Overrides Sub ExchangeOptionsSet(ByVal Obj As Object)
+            If Not Obj Is Nothing AndAlso TypeOf Obj Is IRedditView Then SetView(DirectCast(Obj, IRedditView))
         End Sub
 #End Region
 #Region "Download Overrides"
@@ -80,6 +133,7 @@ Namespace API.Reddit
                 Responser = New Response
                 Responser.Copy(MySiteSettings.Responser)
                 ChannelPostsNames.ListAddList(ChannelInfo.PostsAll.Select(Function(p) p.ID), LNC)
+                If Not ViewMode = CView.New Then ChannelPostsNames.ListAddList(ChannelInfo.PostsNames, LNC)
                 If SkipExistsUsers Then _ExistsUsersNames.ListAddList(Settings.UsersList.Select(Function(p) p.Name), LNC)
                 DownloadDataF(Token)
                 ReparseVideo(Token)
@@ -133,7 +187,7 @@ Namespace API.Reddit
                 Dim UPicType As Func(Of String, UTypes) = Function(input) IIf(input = "image", UTypes.Picture, UTypes.GIF)
                 Dim _PostID As Func(Of String) = Function() IIf(PostTmp.IsEmptyString, PostID, PostTmp)
 
-                URL = $"https://gateway.reddit.com/desktopapi/v1/user/{Name}/posts?rtj=only&allow_quarantined=true&allow_over18=1&include=identity&after={POST}&dist=25&sort=new&t=all&layout=classic"
+                URL = $"https://gateway.reddit.com/desktopapi/v1/user/{Name}/posts?rtj=only&allow_quarantined=true&allow_over18=1&include=identity&after={POST}&dist=25&sort={View}&t={Period}&layout=classic"
                 ThrowAny(Token)
                 Dim r$ = Responser.GetResponse(URL,, EDP.ThrowException)
                 If Not r.IsEmptyString Then
@@ -241,7 +295,7 @@ Namespace API.Reddit
                 If IsSavedPosts Then
                     URL = $"https://www.reddit.com/user/{Name}/saved.json?after={POST}"
                 Else
-                    URL = $"https://reddit.com/r/{Name}/new.json?allow_quarantined=true&allow_over18=1&include=identity&after={POST}&dist=25&sort=new&t=all&layout=classic"
+                    URL = $"https://reddit.com/r/{Name}/{View}.json?allow_quarantined=true&allow_over18=1&include=identity&after={POST}&dist=25&sort={View}&t={Period}&layout=classic"
                 End If
 
                 ThrowAny(Token)
@@ -258,10 +312,13 @@ Namespace API.Reddit
                                         PostID = s.Value("name")
                                         If PostID.IsEmptyString AndAlso s.Contains("id") Then PostID = s("id").Value
 
-                                        If ChannelPostsNames.Contains(PostID) Then ExistsDetected = True : Continue For 'Exit Sub
+                                        If ChannelPostsNames.Contains(PostID) Then
+                                            If ViewMode = CView.New Then ExistsDetected = True Else NewPostDetected = True 'bypass
+                                            Continue For 'Exit Sub
+                                        End If
                                         If DownloadLimitCount.HasValue AndAlso _TotalPostsDownloaded >= DownloadLimitCount.Value Then Exit Sub
                                         If Not DownloadLimitPost.IsEmptyString AndAlso DownloadLimitPost = PostID Then Exit Sub
-                                        If DownloadLimitDate.HasValue AndAlso _TempMediaList.Count > 0 Then
+                                        If ViewMode = CView.New AndAlso DownloadLimitDate.HasValue AndAlso _TempMediaList.Count > 0 Then
                                             With (From __u In _TempMediaList Where __u.Post.Date.HasValue Select __u.Post.Date.Value)
                                                 If .Count > 0 Then lDate = .Min Else lDate = Nothing
                                             End With
@@ -283,7 +340,7 @@ Namespace API.Reddit
                                         If s.Contains("created") Then PostDate = s("created").Value Else PostDate = String.Empty
                                         _UserID = s.Value("author")
 
-                                        If SkipExistsUsers AndAlso _ExistsUsersNames.Count > 0 AndAlso
+                                        If Not IsSavedPosts AndAlso SkipExistsUsers AndAlso _ExistsUsersNames.Count > 0 AndAlso
                                            Not _UserID.IsEmptyString AndAlso _ExistsUsersNames.Contains(_UserID) Then
                                             If Not IsSavedPosts AndAlso Not ChannelInfo Is Nothing Then _
                                                ChannelInfo.ChannelExistentUserNames.ListAddValue(_UserID, LNC)

SCrawler/API/UserDataBind.vb

@@ -207,6 +207,18 @@ Namespace API
                 Return Count > 0 AndAlso Collections.Exists(Function(c) c.FitToAddParams)
             End Get
         End Property
+        Friend Overrides Property ScriptUse As Boolean
+            Get
+                Return Count > 0 AndAlso Collections.Exists(Function(c) c.ScriptUse)
+            End Get
+            Set(ByVal u As Boolean)
+                If Count > 0 Then Collections.ForEach(Sub(ByVal c As IUserData)
+                                                          Dim b As Boolean = c.ScriptUse = u
+                                                          c.ScriptUse = u
+                                                          If Not b Then c.UpdateUserInformation()
+                                                      End Sub)
+            End Set
+        End Property
 #Region "Context buttons"
         Friend ReadOnly Property ContextDown As ToolStripMenuItem()
             Get
@@ -336,6 +348,7 @@ Namespace API
                             .Favorite = Favorite
                             .ReadyForDownload = ReadyForDownload
                             ConsolidateLabels()
+                            ConsolidateScripts()
                             .UpdateUserInformation()
                         End If
                         ImageHandler(_Item, False)
@@ -381,6 +394,9 @@ Namespace API
                 Collections.ForEach(Sub(c) c.Labels.ListAddList(l, lp))
             End If
         End Sub
+        Private Sub ConsolidateScripts()
+            If Count > 1 AndAlso ScriptUse Then Collections.ForEach(Sub(c) c.ScriptUse = True)
+        End Sub
         Friend Sub AddRange(ByVal _Items As IEnumerable(Of IUserData))
             If Not _Items Is Nothing AndAlso _Items.Count > 0 Then
                 For i% = 0 To _Items.Count - 1 : Add(_Items(i)) : Next

SCrawler/Channels/ChannelViewForm.vb

@@ -160,7 +160,7 @@ Friend Class ChannelViewForm : Implements IChannelLimits
         CMB_CHANNELS.Buttons.AddRange({CmbDefaultButtons.Refresh, CmbDefaultButtons.Add, CmbDefaultButtons.Delete,
                                        New ActionButton(CmbDefaultButtons.Up) With {.ToolTipText = "Previous item (F1)"},
                                        New ActionButton(CmbDefaultButtons.Down) With {.ToolTipText = "Next item (F4)"},
-                                       CmbDefaultButtons.Info})
+                                       CmbDefaultButtons.Edit, CmbDefaultButtons.Info})
         TXT_LIMIT = New TextBoxExtended With {
             .CaptionText = "Limit",
             .Margin = New Padding(2),
@@ -201,11 +201,12 @@ Friend Class ChannelViewForm : Implements IChannelLimits
         MyRange = New RangeSwitcher(Of UserPost) With {.Selector = SelectorExpression}
         With MyRange
             .Limit = ImagesInRow * ImagesRows
-            .InsertButtons(ToolbarTOP, {RButton.Previous, RButton.Next}, 5)
+            .InsertButtons(ToolbarTOP,, 5)
             .SetButtonKey(RButton.Previous, Keys.F2)
             .SetButtonKey(RButton.Next, Keys.F3)
             .BindForm(Me)
             .LabelNumbersProvider = CProvider
+            .LabelShowAbsolutIndexes = False
             .UpdateControls()
         End With
         AddHandler Settings.ChannelsImagesColumns.OnValueChanged, AddressOf ImagesCountChanged
@@ -215,6 +216,7 @@ Friend Class ChannelViewForm : Implements IChannelLimits
         MyDefs.MyViewInitialize(Me, Settings.Design)
         RefillChannels(Settings.LatestSelectedChannel.Value)
         ChangeComboIndex(0)
+        MyRange.LabelText = String.Empty
         CMB_CHANNELS_ActionOnCheckedChange(CMB_CHANNELS.Checked)
         With LIST_POSTS
             Dim s As Size = GetImageSize()
@@ -279,7 +281,6 @@ Friend Class ChannelViewForm : Implements IChannelLimits
         End With
         CMB_CHANNELS.EndUpdate()
     End Sub
-#Region "Images refill methods"
     Private Sub AppendPendingUsers()
         If LIST_POSTS.CheckedIndices.Count > 0 Then
             Dim c As Channel = GetCurrentChannel(False)
@@ -311,7 +312,6 @@ Friend Class ChannelViewForm : Implements IChannelLimits
         End With
         Return s
     End Function
-#End Region
 #Region "Toolbar controls"
 #Region "Downloader"
     Private TokenSource As CancellationTokenSource
@@ -543,10 +543,12 @@ Friend Class ChannelViewForm : Implements IChannelLimits
         LBL_LIMIT_TEXT.Text = String.Empty
         If Not c Is Nothing Then
             Settings.LatestSelectedChannel.Value = c.ID
+            Dim d As Date?
+            If c.ViewMode = IRedditView.View.New Then
                 With c.PostsAll
                     If .Count > 0 Then
                         OPT_LIMITS_DEFAULT.Checked = True
-                    Dim d As Date? = .FirstOrDefault(Function(p) p.Date.HasValue).Date
+                        d = .FirstOrDefault(Function(p) p.Date.HasValue).Date
                         If d.HasValue Then
                             LBL_LIMIT_TEXT.Text = $"to date {AConvert(Of String)(d, ADateTime.Formats.BaseDateTime, String.Empty)}"
                         Else
@@ -558,6 +560,13 @@ Friend Class ChannelViewForm : Implements IChannelLimits
                         LBL_LIMIT_TEXT.Text = $"first {TXT_LIMIT.Text} posts"
                     End If
                 End With
+            Else
+                OPT_LIMITS_DEFAULT.Checked = True
+                d = c.LatestParsedDate
+                Dim per$ = IIf(c.ViewMode = IRedditView.View.Top, c.ViewPeriod.ToString, String.Empty)
+                If Not per.IsEmptyString Then per = $" ({per})"
+                LBL_LIMIT_TEXT.Text = $"[{c.ViewMode}{per}] to date {AConvert(Of String)(d, ADateTime.Formats.BaseDateTime, String.Empty)}"
+            End If
         End If
     End Sub
     Private Sub CMB_CHANNELS_ActionSelectedItemChanged(ByVal _Item As ListViewItem) Handles CMB_CHANNELS.ActionSelectedItemChanged
@@ -582,6 +591,18 @@ Friend Class ChannelViewForm : Implements IChannelLimits
                 End Try
             Case CmbDefaultButtons.Up : ChangeComboIndex(-1)
             Case CmbDefaultButtons.Down : ChangeComboIndex(1)
+            Case CmbDefaultButtons.Edit
+                Try
+                    c = GetCurrentChannel()
+                    If Not c Is Nothing Then
+                        Using f As New RedditViewSettingsForm(c)
+                            f.ShowDialog()
+                            If f.DialogResult = DialogResult.OK Then c.Save()
+                        End Using
+                    End If
+                Catch ex As Exception
+                    ErrorsDescriber.Execute(EDP.LogMessageValue, ex, "Error on trying to edit channel")
+                End Try
             Case CmbDefaultButtons.Info
                 Try
                     c = GetCurrentChannel()

SCrawler/Download/DownloadProgress.vb

@@ -156,7 +156,7 @@ Namespace DownloadObjects
             RaiseEvent OnTotalCountChange()
         End Sub
         Private Sub JobProgress_OnProgressChange(ByVal Source As IMyProgress, ByVal Index As Integer)
-            MainProgress.Perform()
+            If Not Job.Type = Download.SavedPosts Then MainProgress.Perform()
         End Sub
 #End Region
 #Region "IDisposable Support"

SCrawler/Download/TDownloader.vb

@@ -254,9 +254,7 @@ Namespace DownloadObjects
                 Dim SiteChecked As Boolean = False
                 Do While _Job.Count > 0
                     _Job.ThrowIfCancellationRequested()
-                    If Not SiteChecked Then
-                        If Not _Job.Available Then Exit Sub Else SiteChecked = True : Continue Do
-                    End If
+                    If Not SiteChecked Then _Job.Available() : SiteChecked = True : Continue Do
                     UpdateJobsLabel()
                     DownloadData(_Job, _Job.Token)
                     _Job.ThrowIfCancellationRequested()

SCrawler/Download/VideosDownloaderForm.vb

@@ -129,7 +129,7 @@ Namespace DownloadObjects
             With Settings.LatestSavingPath
                 If Not .Value.IsEmptyString Then
                     If .Value.Exists(SFO.Path, False) Then
-                        .Value.Open(SFO.Path, EDP.ShowMainMsg)
+                        GlobalOpenPath(.Value, EDP.ShowMainMsg)
                     Else
                         MsgBoxE($"Path [{ .Value}] does not exists!", MsgBoxStyle.Exclamation)
                     End If

SCrawler/Editors/GlobalSettingsForm.Designer.vb

@@ -28,6 +28,8 @@
             Dim TP_FILE_PATTERNS As System.Windows.Forms.TableLayoutPanel
             Dim LBL_DATE_POS As System.Windows.Forms.Label
             Dim ActionButton7 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton8 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton9 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
             Dim TT_MAIN As System.Windows.Forms.ToolTip
             Dim TP_CHANNELS_IMGS As System.Windows.Forms.TableLayoutPanel
             Dim TAB_BASIS As System.Windows.Forms.TabPage
@@ -56,6 +58,7 @@
             Me.CH_FAST_LOAD = New System.Windows.Forms.CheckBox()
             Me.TXT_FOLDER_CMD = New PersonalUtilities.Forms.Controls.TextBoxExtended()
             Me.CH_RECYCLE_DEL = New System.Windows.Forms.CheckBox()
+            Me.TXT_SCRIPT = New PersonalUtilities.Forms.Controls.TextBoxExtended()
             Me.CH_COPY_CHANNEL_USER_IMAGE = New System.Windows.Forms.CheckBox()
             Me.CH_DEF_TEMP = New System.Windows.Forms.CheckBox()
             Me.CH_DOWN_IMAGES = New System.Windows.Forms.CheckBox()
@@ -93,6 +96,7 @@
             TP_FILE_NAME.SuspendLayout()
             TP_FILE_PATTERNS.SuspendLayout()
             CType(Me.TXT_FOLDER_CMD, System.ComponentModel.ISupportInitialize).BeginInit()
+            CType(Me.TXT_SCRIPT, System.ComponentModel.ISupportInitialize).BeginInit()
             TP_CHANNELS_IMGS.SuspendLayout()
             CType(Me.TXT_CHANNELS_ROWS, System.ComponentModel.ISupportInitialize).BeginInit()
             CType(Me.TXT_CHANNELS_COLUMNS, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -127,10 +131,11 @@
             TP_BASIS.Controls.Add(Me.CH_FAST_LOAD, 0, 12)
             TP_BASIS.Controls.Add(Me.TXT_FOLDER_CMD, 0, 13)
             TP_BASIS.Controls.Add(Me.CH_RECYCLE_DEL, 0, 14)
+            TP_BASIS.Controls.Add(Me.TXT_SCRIPT, 0, 15)
             TP_BASIS.Dock = System.Windows.Forms.DockStyle.Fill
             TP_BASIS.Location = New System.Drawing.Point(3, 3)
             TP_BASIS.Name = "TP_BASIS"
-            TP_BASIS.RowCount = 16
+            TP_BASIS.RowCount = 17
             TP_BASIS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
             TP_BASIS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
             TP_BASIS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
@@ -146,8 +151,9 @@
             TP_BASIS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
             TP_BASIS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
             TP_BASIS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
+            TP_BASIS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
             TP_BASIS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
-            TP_BASIS.Size = New System.Drawing.Size(570, 447)
+            TP_BASIS.Size = New System.Drawing.Size(570, 450)
             TP_BASIS.TabIndex = 0
             '
             'TXT_GLOBAL_PATH
@@ -510,6 +516,30 @@
             Me.CH_RECYCLE_DEL.Text = "Delete data to recycle bin"
             Me.CH_RECYCLE_DEL.UseVisualStyleBackColor = True
             '
+            'TXT_SCRIPT
+            '
+            ActionButton8.BackgroundImage = CType(resources.GetObject("ActionButton8.BackgroundImage"), System.Drawing.Image)
+            ActionButton8.Index = 0
+            ActionButton8.Name = "BTT_OPEN"
+            ActionButton9.BackgroundImage = CType(resources.GetObject("ActionButton9.BackgroundImage"), System.Drawing.Image)
+            ActionButton9.Index = 1
+            ActionButton9.Name = "BTT_CLEAR"
+            Me.TXT_SCRIPT.Buttons.Add(ActionButton8)
+            Me.TXT_SCRIPT.Buttons.Add(ActionButton9)
+            Me.TXT_SCRIPT.CaptionMode = PersonalUtilities.Forms.Controls.Base.ICaptionControl.Modes.CheckBox
+            Me.TXT_SCRIPT.CaptionText = "Script"
+            Me.TXT_SCRIPT.CaptionToolTipEnabled = True
+            Me.TXT_SCRIPT.CaptionToolTipText = "Default script. If the checkbox is checked, newly created users will be created u" &
+    "sing the script option."
+            Me.TXT_SCRIPT.ChangeControlsEnableOnCheckedChange = False
+            Me.TXT_SCRIPT.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.TXT_SCRIPT.Location = New System.Drawing.Point(4, 425)
+            Me.TXT_SCRIPT.Name = "TXT_SCRIPT"
+            Me.TXT_SCRIPT.PlaceholderEnabled = True
+            Me.TXT_SCRIPT.PlaceholderText = "Enter script path here..."
+            Me.TXT_SCRIPT.Size = New System.Drawing.Size(562, 22)
+            Me.TXT_SCRIPT.TabIndex = 15
+            '
             'CH_COPY_CHANNEL_USER_IMAGE
             '
             Me.CH_COPY_CHANNEL_USER_IMAGE.AutoSize = True
@@ -659,7 +689,7 @@
             TAB_BASIS.Location = New System.Drawing.Point(4, 22)
             TAB_BASIS.Name = "TAB_BASIS"
             TAB_BASIS.Padding = New System.Windows.Forms.Padding(3)
-            TAB_BASIS.Size = New System.Drawing.Size(576, 453)
+            TAB_BASIS.Size = New System.Drawing.Size(576, 456)
             TAB_BASIS.TabIndex = 0
             TAB_BASIS.Text = "Basis"
             '
@@ -669,7 +699,7 @@
             TAB_DEFAULTS.Location = New System.Drawing.Point(4, 22)
             TAB_DEFAULTS.Name = "TAB_DEFAULTS"
             TAB_DEFAULTS.Padding = New System.Windows.Forms.Padding(3)
-            TAB_DEFAULTS.Size = New System.Drawing.Size(576, 453)
+            TAB_DEFAULTS.Size = New System.Drawing.Size(576, 481)
             TAB_DEFAULTS.TabIndex = 1
             TAB_DEFAULTS.Text = "Defaults"
             '
@@ -693,7 +723,7 @@
             TP_DEFS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
             TP_DEFS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
             TP_DEFS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
-            TP_DEFS.Size = New System.Drawing.Size(570, 447)
+            TP_DEFS.Size = New System.Drawing.Size(570, 475)
             TP_DEFS.TabIndex = 0
             '
             'TAB_DEFS_CHANNELS
@@ -702,7 +732,7 @@
             TAB_DEFS_CHANNELS.Location = New System.Drawing.Point(4, 22)
             TAB_DEFS_CHANNELS.Name = "TAB_DEFS_CHANNELS"
             TAB_DEFS_CHANNELS.Padding = New System.Windows.Forms.Padding(3)
-            TAB_DEFS_CHANNELS.Size = New System.Drawing.Size(576, 453)
+            TAB_DEFS_CHANNELS.Size = New System.Drawing.Size(576, 481)
             TAB_DEFS_CHANNELS.TabIndex = 4
             TAB_DEFS_CHANNELS.Text = "Channels"
             '
@@ -726,7 +756,7 @@
             TP_CHANNELS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
             TP_CHANNELS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
             TP_CHANNELS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
-            TP_CHANNELS.Size = New System.Drawing.Size(570, 447)
+            TP_CHANNELS.Size = New System.Drawing.Size(570, 475)
             TP_CHANNELS.TabIndex = 0
             '
             'TXT_CHANNEL_USER_POST_LIMIT
@@ -758,7 +788,7 @@
             Me.TAB_MAIN.Location = New System.Drawing.Point(0, 0)
             Me.TAB_MAIN.Name = "TAB_MAIN"
             Me.TAB_MAIN.SelectedIndex = 0
-            Me.TAB_MAIN.Size = New System.Drawing.Size(584, 479)
+            Me.TAB_MAIN.Size = New System.Drawing.Size(584, 482)
             Me.TAB_MAIN.TabIndex = 1
             '
             'CONTAINER_MAIN
@@ -767,13 +797,13 @@
             'CONTAINER_MAIN.ContentPanel
             '
             Me.CONTAINER_MAIN.ContentPanel.Controls.Add(Me.TAB_MAIN)
-            Me.CONTAINER_MAIN.ContentPanel.Size = New System.Drawing.Size(584, 479)
+            Me.CONTAINER_MAIN.ContentPanel.Size = New System.Drawing.Size(584, 482)
             Me.CONTAINER_MAIN.Dock = System.Windows.Forms.DockStyle.Fill
             Me.CONTAINER_MAIN.LeftToolStripPanelVisible = False
             Me.CONTAINER_MAIN.Location = New System.Drawing.Point(0, 0)
             Me.CONTAINER_MAIN.Name = "CONTAINER_MAIN"
             Me.CONTAINER_MAIN.RightToolStripPanelVisible = False
-            Me.CONTAINER_MAIN.Size = New System.Drawing.Size(584, 479)
+            Me.CONTAINER_MAIN.Size = New System.Drawing.Size(584, 507)
             Me.CONTAINER_MAIN.TabIndex = 0
             Me.CONTAINER_MAIN.TopToolStripPanelVisible = False
             '
@@ -781,15 +811,15 @@
             '
             Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
             Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-            Me.ClientSize = New System.Drawing.Size(584, 479)
+            Me.ClientSize = New System.Drawing.Size(584, 507)
             Me.Controls.Add(Me.CONTAINER_MAIN)
             Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
             Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
             Me.KeyPreview = True
             Me.MaximizeBox = False
-            Me.MaximumSize = New System.Drawing.Size(600, 518)
+            Me.MaximumSize = New System.Drawing.Size(600, 546)
             Me.MinimizeBox = False
-            Me.MinimumSize = New System.Drawing.Size(600, 518)
+            Me.MinimumSize = New System.Drawing.Size(600, 546)
             Me.Name = "GlobalSettingsForm"
             Me.ShowInTaskbar = False
             Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
@@ -809,6 +839,7 @@
             TP_FILE_PATTERNS.ResumeLayout(False)
             TP_FILE_PATTERNS.PerformLayout()
             CType(Me.TXT_FOLDER_CMD, System.ComponentModel.ISupportInitialize).EndInit()
+            CType(Me.TXT_SCRIPT, System.ComponentModel.ISupportInitialize).EndInit()
             TP_CHANNELS_IMGS.ResumeLayout(False)
             CType(Me.TXT_CHANNELS_ROWS, System.ComponentModel.ISupportInitialize).EndInit()
             CType(Me.TXT_CHANNELS_COLUMNS, System.ComponentModel.ISupportInitialize).EndInit()
@@ -862,5 +893,6 @@
         Private WithEvents CH_FAST_LOAD As CheckBox
         Private WithEvents TXT_FOLDER_CMD As PersonalUtilities.Forms.Controls.TextBoxExtended
         Private WithEvents CH_RECYCLE_DEL As CheckBox
+        Private WithEvents TXT_SCRIPT As PersonalUtilities.Forms.Controls.TextBoxExtended
     End Class
 End Namespace

SCrawler/Editors/GlobalSettingsForm.resx

@@ -212,6 +212,25 @@
         xAAADsQBlSsOGwAAAIZJREFUOE+1j10KwCAMgz2b755xl/IsvnaL2K20UfbDAmEako+ZROSTafjE12Go
         tbbB43rK5xSAQq1VYFtmeQBoqZTSreVZvgTknM8yyyjA/qodsDF9gspD2Bj6B+DH+NqzhQQAG+POMnSX
         AFuc5QFgn6ClHh5iOQVAKNixyucB8NY0vG9JOzzyhrdq5IRgAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="ActionButton8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAAR5JREFUOE+VkjFqwzAUhn2D9iShRyi+QhYbGujg3ZATZPKYdC6FQhPwlAMkg3dP
+        WQwhyWIyJIUW5NqyPb7oCVtIlhVTwYf8nv7/t2zJagel9KmqKsIACYL9RjI8UHz5zshougZr/AEvbxEP
+        aZCDBY3VslixaJvX3wzkkDiOwbZtDRGA5vdNAg+TL27qgmt5XkBG/gTdAG7Gt+3PP9oOaEGFCVEC6rp+
+        5g9MfM/c5e4OsEZMZkQEtGL5H2DdZ5JRArDwPA+iKII0TfkC9vroC9j5vq8JTWw3WzWgLMtZGIaa0MR8
+        vlAD8PYlSaIJTTiOowY0p0Bc19XEJo6HE59FAPuMzyAINKGJ1XLFZxHALtMrnkBXOIQIIIQ8YvF/KrgB
+        cMaRN0UdBBkAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ActionButton9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        xAAADsQBlSsOGwAAAIZJREFUOE+1j10KwCAMgz2b755xl/IsvnaL2K20UfbDAmEako+ZROSTafjE12Go
+        tbbB43rK5xSAQq1VYFtmeQBoqZTSreVZvgTknM8yyyjA/qodsDF9gspD2Bj6B+DH+NqzhQQAG+POMnSX
+        AFuc5QFgn6ClHh5iOQVAKNixyucB8NY0vG9JOzzyhrdq5IRgAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="CH_SEPARATE_VIDEO_FOLDER.ToolTip" xml:space="preserve">

SCrawler/Editors/GlobalSettingsForm.vb

@@ -36,6 +36,8 @@ Namespace Editors
                         TXT_FOLDER_CMD.Text = .OpenFolderInOtherProgram
                         TXT_FOLDER_CMD.Checked = .OpenFolderInOtherProgram.Attribute
                         CH_RECYCLE_DEL.Checked = .DeleteToRecycleBin
+                        TXT_SCRIPT.Checked = .ScriptFile.Attribute
+                        TXT_SCRIPT.Text = .ScriptFile.Value
                         'Defaults
                         CH_SEPARATE_VIDEO_FOLDER.Checked = .SeparateVideoFolder.Value
                         CH_DEF_TEMP.Checked = .DefaultTemporary
@@ -123,6 +125,8 @@ Namespace Editors
                     .OpenFolderInOtherProgram.Value = TXT_FOLDER_CMD.Text
                     .OpenFolderInOtherProgram.Attribute.Value = TXT_FOLDER_CMD.Checked
                     .DeleteToRecycleBin.Value = CH_RECYCLE_DEL.Checked
+                    .ScriptFile.Value = TXT_SCRIPT.Text
+                    .ScriptFile.Attribute.Value = TXT_SCRIPT.Checked
                     'Defaults
                     .SeparateVideoFolder.Value = CH_SEPARATE_VIDEO_FOLDER.Checked
                     .DefaultTemporary.Value = CH_DEF_TEMP.Checked
@@ -195,6 +199,12 @@ Namespace Editors
             CH_FILE_TIME.Enabled = b
             ChangePositionControlsEnabling()
         End Sub
+        Private Sub TXT_SCRIPT_ActionOnButtonClick(ByVal Sender As ActionButton) Handles TXT_SCRIPT.ActionOnButtonClick
+            If Sender.DefaultButton = ActionButton.DefaultButtons.Open Then
+                Dim f As SFile = SFile.SelectFiles(TXT_SCRIPT.Text, False, "Select script file",, EDP.None).FirstOrDefault
+                If Not f.IsEmptyString Then TXT_SCRIPT.Text = f
+            End If
+        End Sub
         Private Sub CH_COPY_CHANNEL_USER_IMAGE_CheckedChanged(sender As Object, e As EventArgs) Handles CH_COPY_CHANNEL_USER_IMAGE.CheckedChanged
             CH_COPY_CHANNEL_USER_IMAGE_ALL.Enabled = CH_COPY_CHANNEL_USER_IMAGE.Checked
         End Sub

SCrawler/Editors/UserCreatorForm.Designer.vb

@@ -29,6 +29,8 @@
             Dim TP_DOWN_OPTIONS As System.Windows.Forms.TableLayoutPanel
             Dim ActionButton5 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
             Dim ActionButton6 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton7 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton8 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
             Dim TT_MAIN As System.Windows.Forms.ToolTip
             Me.TXT_USER = New PersonalUtilities.Forms.Controls.TextBoxExtended()
             Me.CH_IS_CHANNEL = New System.Windows.Forms.CheckBox()
@@ -47,6 +49,7 @@
             Me.CH_DOWN_IMAGES = New System.Windows.Forms.CheckBox()
             Me.CH_DOWN_VIDEOS = New System.Windows.Forms.CheckBox()
             Me.TXT_SPEC_FOLDER = New PersonalUtilities.Forms.Controls.TextBoxExtended()
+            Me.TXT_SCRIPT = New PersonalUtilities.Forms.Controls.TextBoxExtended()
             Me.CONTAINER_MAIN = New System.Windows.Forms.ToolStripContainer()
             TP_MAIN = New System.Windows.Forms.TableLayoutPanel()
             TP_SITE = New System.Windows.Forms.TableLayoutPanel()
@@ -66,6 +69,7 @@
             CType(Me.TXT_LABELS, System.ComponentModel.ISupportInitialize).BeginInit()
             TP_DOWN_OPTIONS.SuspendLayout()
             CType(Me.TXT_SPEC_FOLDER, System.ComponentModel.ISupportInitialize).BeginInit()
+            CType(Me.TXT_SCRIPT, System.ComponentModel.ISupportInitialize).BeginInit()
             Me.CONTAINER_MAIN.ContentPanel.SuspendLayout()
             Me.CONTAINER_MAIN.SuspendLayout()
             Me.SuspendLayout()
@@ -79,27 +83,29 @@
             TP_MAIN.Controls.Add(TP_SITE, 0, 3)
             TP_MAIN.Controls.Add(TP_PARAMS, 0, 4)
             TP_MAIN.Controls.Add(TP_OTHER, 0, 6)
-            TP_MAIN.Controls.Add(Me.TXT_DESCR, 0, 9)
+            TP_MAIN.Controls.Add(Me.TXT_DESCR, 0, 10)
             TP_MAIN.Controls.Add(Me.TXT_USER_FRIENDLY, 0, 1)
             TP_MAIN.Controls.Add(Me.TP_ADD_BY_LIST, 0, 7)
             TP_MAIN.Controls.Add(Me.TXT_LABELS, 0, 8)
             TP_MAIN.Controls.Add(TP_DOWN_OPTIONS, 0, 5)
             TP_MAIN.Controls.Add(Me.TXT_SPEC_FOLDER, 0, 2)
+            TP_MAIN.Controls.Add(Me.TXT_SCRIPT, 0, 9)
             TP_MAIN.Dock = System.Windows.Forms.DockStyle.Fill
             TP_MAIN.Location = New System.Drawing.Point(0, 0)
             TP_MAIN.Name = "TP_MAIN"
-            TP_MAIN.RowCount = 10
+            TP_MAIN.RowCount = 11
             TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
             TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
             TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
-            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 16.66708!))
-            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 16.66708!))
-            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 16.66667!))
-            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 16.66708!))
-            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 16.66542!))
-            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 16.66667!))
-            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 150.0!))
-            TP_MAIN.Size = New System.Drawing.Size(454, 431)
+            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
+            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
+            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
+            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
+            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
+            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 26.0!))
+            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 26.0!))
+            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+            TP_MAIN.Size = New System.Drawing.Size(454, 461)
             TP_MAIN.TabIndex = 0
             '
             'TXT_USER
@@ -119,7 +125,7 @@
             TP_SITE.ColumnCount = 3
             TP_SITE.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 79.0!))
             TP_SITE.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
-            TP_SITE.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 88.0!))
+            TP_SITE.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 92.0!))
             TP_SITE.Controls.Add(Me.CH_IS_CHANNEL, 0, 0)
             TP_SITE.Controls.Add(Me.CMB_SITE, 1, 0)
             TP_SITE.Controls.Add(Me.BTT_OTHER_SETTINGS, 2, 0)
@@ -129,7 +135,7 @@
             TP_SITE.Name = "TP_SITE"
             TP_SITE.RowCount = 1
             TP_SITE.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
-            TP_SITE.Size = New System.Drawing.Size(452, 31)
+            TP_SITE.Size = New System.Drawing.Size(452, 28)
             TP_SITE.TabIndex = 3
             '
             'CH_IS_CHANNEL
@@ -138,7 +144,7 @@
             Me.CH_IS_CHANNEL.Dock = System.Windows.Forms.DockStyle.Fill
             Me.CH_IS_CHANNEL.Location = New System.Drawing.Point(4, 4)
             Me.CH_IS_CHANNEL.Name = "CH_IS_CHANNEL"
-            Me.CH_IS_CHANNEL.Size = New System.Drawing.Size(73, 23)
+            Me.CH_IS_CHANNEL.Size = New System.Drawing.Size(73, 20)
             Me.CH_IS_CHANNEL.TabIndex = 0
             Me.CH_IS_CHANNEL.Text = "Channel"
             Me.CH_IS_CHANNEL.UseVisualStyleBackColor = True
@@ -160,22 +166,22 @@
             Me.CMB_SITE.Columns.Add(ListColumn1)
             Me.CMB_SITE.Columns.Add(ListColumn2)
             Me.CMB_SITE.Dock = System.Windows.Forms.DockStyle.Fill
-            Me.CMB_SITE.Location = New System.Drawing.Point(84, 2)
-            Me.CMB_SITE.Margin = New System.Windows.Forms.Padding(3, 1, 3, 3)
+            Me.CMB_SITE.Location = New System.Drawing.Point(84, 3)
+            Me.CMB_SITE.Margin = New System.Windows.Forms.Padding(3, 2, 3, 3)
             Me.CMB_SITE.Name = "CMB_SITE"
-            Me.CMB_SITE.Size = New System.Drawing.Size(275, 22)
+            Me.CMB_SITE.Size = New System.Drawing.Size(271, 22)
             Me.CMB_SITE.TabIndex = 1
             Me.CMB_SITE.TextBoxBorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
             '
             'BTT_OTHER_SETTINGS
             '
             Me.BTT_OTHER_SETTINGS.Dock = System.Windows.Forms.DockStyle.Fill
-            Me.BTT_OTHER_SETTINGS.Location = New System.Drawing.Point(364, 2)
+            Me.BTT_OTHER_SETTINGS.Location = New System.Drawing.Point(360, 2)
             Me.BTT_OTHER_SETTINGS.Margin = New System.Windows.Forms.Padding(1)
             Me.BTT_OTHER_SETTINGS.Name = "BTT_OTHER_SETTINGS"
-            Me.BTT_OTHER_SETTINGS.Size = New System.Drawing.Size(86, 27)
+            Me.BTT_OTHER_SETTINGS.Size = New System.Drawing.Size(90, 24)
             Me.BTT_OTHER_SETTINGS.TabIndex = 2
-            Me.BTT_OTHER_SETTINGS.Text = "Options"
+            Me.BTT_OTHER_SETTINGS.Text = "Options (F2)"
             TT_MAIN.SetToolTip(Me.BTT_OTHER_SETTINGS, "Other settings")
             Me.BTT_OTHER_SETTINGS.UseVisualStyleBackColor = True
             '
@@ -188,13 +194,13 @@
             TP_PARAMS.Controls.Add(Me.CH_TEMP, 0, 0)
             TP_PARAMS.Controls.Add(Me.CH_FAV, 1, 0)
             TP_PARAMS.Dock = System.Windows.Forms.DockStyle.Fill
-            TP_PARAMS.Location = New System.Drawing.Point(1, 120)
+            TP_PARAMS.Location = New System.Drawing.Point(1, 117)
             TP_PARAMS.Margin = New System.Windows.Forms.Padding(0)
             TP_PARAMS.Name = "TP_PARAMS"
             TP_PARAMS.RowCount = 1
             TP_PARAMS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
-            TP_PARAMS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
-            TP_PARAMS.Size = New System.Drawing.Size(452, 31)
+            TP_PARAMS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 27.0!))
+            TP_PARAMS.Size = New System.Drawing.Size(452, 28)
             TP_PARAMS.TabIndex = 4
             '
             'CH_TEMP
@@ -203,7 +209,7 @@
             Me.CH_TEMP.Dock = System.Windows.Forms.DockStyle.Fill
             Me.CH_TEMP.Location = New System.Drawing.Point(4, 4)
             Me.CH_TEMP.Name = "CH_TEMP"
-            Me.CH_TEMP.Size = New System.Drawing.Size(218, 23)
+            Me.CH_TEMP.Size = New System.Drawing.Size(218, 20)
             Me.CH_TEMP.TabIndex = 0
             Me.CH_TEMP.Text = "Temporary"
             Me.CH_TEMP.UseVisualStyleBackColor = True
@@ -214,7 +220,7 @@
             Me.CH_FAV.Dock = System.Windows.Forms.DockStyle.Fill
             Me.CH_FAV.Location = New System.Drawing.Point(229, 4)
             Me.CH_FAV.Name = "CH_FAV"
-            Me.CH_FAV.Size = New System.Drawing.Size(219, 23)
+            Me.CH_FAV.Size = New System.Drawing.Size(219, 20)
             Me.CH_FAV.TabIndex = 1
             Me.CH_FAV.Text = "Favorite"
             Me.CH_FAV.UseVisualStyleBackColor = True
@@ -228,13 +234,13 @@
             TP_OTHER.Controls.Add(Me.CH_PARSE_USER_MEDIA, 1, 0)
             TP_OTHER.Controls.Add(Me.CH_READY_FOR_DOWN, 0, 0)
             TP_OTHER.Dock = System.Windows.Forms.DockStyle.Fill
-            TP_OTHER.Location = New System.Drawing.Point(1, 184)
+            TP_OTHER.Location = New System.Drawing.Point(1, 175)
             TP_OTHER.Margin = New System.Windows.Forms.Padding(0)
             TP_OTHER.Name = "TP_OTHER"
             TP_OTHER.RowCount = 1
             TP_OTHER.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
-            TP_OTHER.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
-            TP_OTHER.Size = New System.Drawing.Size(452, 31)
+            TP_OTHER.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 27.0!))
+            TP_OTHER.Size = New System.Drawing.Size(452, 28)
             TP_OTHER.TabIndex = 6
             '
             'CH_PARSE_USER_MEDIA
@@ -243,7 +249,7 @@
             Me.CH_PARSE_USER_MEDIA.Dock = System.Windows.Forms.DockStyle.Fill
             Me.CH_PARSE_USER_MEDIA.Location = New System.Drawing.Point(229, 4)
             Me.CH_PARSE_USER_MEDIA.Name = "CH_PARSE_USER_MEDIA"
-            Me.CH_PARSE_USER_MEDIA.Size = New System.Drawing.Size(219, 23)
+            Me.CH_PARSE_USER_MEDIA.Size = New System.Drawing.Size(219, 20)
             Me.CH_PARSE_USER_MEDIA.TabIndex = 0
             Me.CH_PARSE_USER_MEDIA.Text = "Get user media only"
             TT_MAIN.SetToolTip(Me.CH_PARSE_USER_MEDIA, "For twitter only!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "If checked then user media only will be downloaded." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Otherwise" &
@@ -256,7 +262,7 @@
             Me.CH_READY_FOR_DOWN.Dock = System.Windows.Forms.DockStyle.Fill
             Me.CH_READY_FOR_DOWN.Location = New System.Drawing.Point(4, 4)
             Me.CH_READY_FOR_DOWN.Name = "CH_READY_FOR_DOWN"
-            Me.CH_READY_FOR_DOWN.Size = New System.Drawing.Size(218, 23)
+            Me.CH_READY_FOR_DOWN.Size = New System.Drawing.Size(218, 20)
             Me.CH_READY_FOR_DOWN.TabIndex = 1
             Me.CH_READY_FOR_DOWN.Text = "Ready for download"
             TT_MAIN.SetToolTip(Me.CH_READY_FOR_DOWN, "Can be downloaded by [Download All]")
@@ -275,11 +281,11 @@
             Me.TXT_DESCR.Dock = System.Windows.Forms.DockStyle.Fill
             Me.TXT_DESCR.GroupBoxed = True
             Me.TXT_DESCR.GroupBoxText = "Description"
-            Me.TXT_DESCR.Location = New System.Drawing.Point(4, 282)
+            Me.TXT_DESCR.Location = New System.Drawing.Point(4, 290)
             Me.TXT_DESCR.Multiline = True
             Me.TXT_DESCR.Name = "TXT_DESCR"
-            Me.TXT_DESCR.Size = New System.Drawing.Size(446, 145)
-            Me.TXT_DESCR.TabIndex = 9
+            Me.TXT_DESCR.Size = New System.Drawing.Size(446, 167)
+            Me.TXT_DESCR.TabIndex = 10
             '
             'TXT_USER_FRIENDLY
             '
@@ -300,12 +306,12 @@
             Me.TP_ADD_BY_LIST.Controls.Add(Me.CH_ADD_BY_LIST, 0, 0)
             Me.TP_ADD_BY_LIST.Controls.Add(Me.CH_AUTO_DETECT_SITE, 1, 0)
             Me.TP_ADD_BY_LIST.Dock = System.Windows.Forms.DockStyle.Fill
-            Me.TP_ADD_BY_LIST.Location = New System.Drawing.Point(1, 216)
+            Me.TP_ADD_BY_LIST.Location = New System.Drawing.Point(1, 204)
             Me.TP_ADD_BY_LIST.Margin = New System.Windows.Forms.Padding(0)
             Me.TP_ADD_BY_LIST.Name = "TP_ADD_BY_LIST"
             Me.TP_ADD_BY_LIST.RowCount = 1
             Me.TP_ADD_BY_LIST.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
-            Me.TP_ADD_BY_LIST.Size = New System.Drawing.Size(452, 30)
+            Me.TP_ADD_BY_LIST.Size = New System.Drawing.Size(452, 28)
             Me.TP_ADD_BY_LIST.TabIndex = 7
             '
             'CH_ADD_BY_LIST
@@ -314,7 +320,7 @@
             Me.CH_ADD_BY_LIST.Dock = System.Windows.Forms.DockStyle.Fill
             Me.CH_ADD_BY_LIST.Location = New System.Drawing.Point(4, 4)
             Me.CH_ADD_BY_LIST.Name = "CH_ADD_BY_LIST"
-            Me.CH_ADD_BY_LIST.Size = New System.Drawing.Size(218, 22)
+            Me.CH_ADD_BY_LIST.Size = New System.Drawing.Size(218, 20)
             Me.CH_ADD_BY_LIST.TabIndex = 0
             Me.CH_ADD_BY_LIST.Text = "Add by list"
             Me.CH_ADD_BY_LIST.UseVisualStyleBackColor = True
@@ -325,7 +331,7 @@
             Me.CH_AUTO_DETECT_SITE.Dock = System.Windows.Forms.DockStyle.Fill
             Me.CH_AUTO_DETECT_SITE.Location = New System.Drawing.Point(229, 4)
             Me.CH_AUTO_DETECT_SITE.Name = "CH_AUTO_DETECT_SITE"
-            Me.CH_AUTO_DETECT_SITE.Size = New System.Drawing.Size(219, 22)
+            Me.CH_AUTO_DETECT_SITE.Size = New System.Drawing.Size(219, 20)
             Me.CH_AUTO_DETECT_SITE.TabIndex = 1
             Me.CH_AUTO_DETECT_SITE.Text = "Auto detect site"
             Me.CH_AUTO_DETECT_SITE.UseVisualStyleBackColor = True
@@ -343,7 +349,8 @@
             Me.TXT_LABELS.CaptionText = "Labels"
             Me.TXT_LABELS.CaptionWidth = 50.0R
             Me.TXT_LABELS.Dock = System.Windows.Forms.DockStyle.Fill
-            Me.TXT_LABELS.Location = New System.Drawing.Point(4, 250)
+            Me.TXT_LABELS.Location = New System.Drawing.Point(4, 235)
+            Me.TXT_LABELS.Margin = New System.Windows.Forms.Padding(3, 2, 3, 3)
             Me.TXT_LABELS.Name = "TXT_LABELS"
             Me.TXT_LABELS.Size = New System.Drawing.Size(446, 22)
             Me.TXT_LABELS.TabIndex = 8
@@ -358,13 +365,13 @@
             TP_DOWN_OPTIONS.Controls.Add(Me.CH_DOWN_IMAGES, 0, 0)
             TP_DOWN_OPTIONS.Controls.Add(Me.CH_DOWN_VIDEOS, 1, 0)
             TP_DOWN_OPTIONS.Dock = System.Windows.Forms.DockStyle.Fill
-            TP_DOWN_OPTIONS.Location = New System.Drawing.Point(1, 152)
+            TP_DOWN_OPTIONS.Location = New System.Drawing.Point(1, 146)
             TP_DOWN_OPTIONS.Margin = New System.Windows.Forms.Padding(0)
             TP_DOWN_OPTIONS.Name = "TP_DOWN_OPTIONS"
             TP_DOWN_OPTIONS.RowCount = 1
             TP_DOWN_OPTIONS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
-            TP_DOWN_OPTIONS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
-            TP_DOWN_OPTIONS.Size = New System.Drawing.Size(452, 31)
+            TP_DOWN_OPTIONS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 27.0!))
+            TP_DOWN_OPTIONS.Size = New System.Drawing.Size(452, 28)
             TP_DOWN_OPTIONS.TabIndex = 5
             '
             'CH_DOWN_IMAGES
@@ -373,7 +380,7 @@
             Me.CH_DOWN_IMAGES.Dock = System.Windows.Forms.DockStyle.Fill
             Me.CH_DOWN_IMAGES.Location = New System.Drawing.Point(4, 4)
             Me.CH_DOWN_IMAGES.Name = "CH_DOWN_IMAGES"
-            Me.CH_DOWN_IMAGES.Size = New System.Drawing.Size(218, 23)
+            Me.CH_DOWN_IMAGES.Size = New System.Drawing.Size(218, 20)
             Me.CH_DOWN_IMAGES.TabIndex = 0
             Me.CH_DOWN_IMAGES.Text = "Download Images"
             Me.CH_DOWN_IMAGES.UseVisualStyleBackColor = True
@@ -384,7 +391,7 @@
             Me.CH_DOWN_VIDEOS.Dock = System.Windows.Forms.DockStyle.Fill
             Me.CH_DOWN_VIDEOS.Location = New System.Drawing.Point(229, 4)
             Me.CH_DOWN_VIDEOS.Name = "CH_DOWN_VIDEOS"
-            Me.CH_DOWN_VIDEOS.Size = New System.Drawing.Size(219, 23)
+            Me.CH_DOWN_VIDEOS.Size = New System.Drawing.Size(219, 20)
             Me.CH_DOWN_VIDEOS.TabIndex = 1
             Me.CH_DOWN_VIDEOS.Text = "Download videos"
             Me.CH_DOWN_VIDEOS.UseVisualStyleBackColor = True
@@ -408,19 +415,45 @@
             Me.TXT_SPEC_FOLDER.Size = New System.Drawing.Size(446, 22)
             Me.TXT_SPEC_FOLDER.TabIndex = 2
             '
+            'TXT_SCRIPT
+            '
+            ActionButton7.BackgroundImage = CType(resources.GetObject("ActionButton7.BackgroundImage"), System.Drawing.Image)
+            ActionButton7.Enabled = False
+            ActionButton7.Index = 0
+            ActionButton7.Name = "BTT_OPEN"
+            ActionButton8.BackgroundImage = CType(resources.GetObject("ActionButton8.BackgroundImage"), System.Drawing.Image)
+            ActionButton8.Enabled = False
+            ActionButton8.Index = 1
+            ActionButton8.Name = "BTT_CLEAR"
+            Me.TXT_SCRIPT.Buttons.Add(ActionButton7)
+            Me.TXT_SCRIPT.Buttons.Add(ActionButton8)
+            Me.TXT_SCRIPT.CaptionMode = PersonalUtilities.Forms.Controls.Base.ICaptionControl.Modes.CheckBox
+            Me.TXT_SCRIPT.CaptionText = "Script"
+            Me.TXT_SCRIPT.CaptionToolTipEnabled = True
+            Me.TXT_SCRIPT.CaptionToolTipText = "Execute script after downloading this user"
+            Me.TXT_SCRIPT.CaptionWidth = 65.0R
+            Me.TXT_SCRIPT.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.TXT_SCRIPT.Location = New System.Drawing.Point(4, 262)
+            Me.TXT_SCRIPT.Margin = New System.Windows.Forms.Padding(3, 2, 3, 3)
+            Me.TXT_SCRIPT.Name = "TXT_SCRIPT"
+            Me.TXT_SCRIPT.PlaceholderEnabled = True
+            Me.TXT_SCRIPT.PlaceholderText = "Leave blank to use the default script..."
+            Me.TXT_SCRIPT.Size = New System.Drawing.Size(446, 22)
+            Me.TXT_SCRIPT.TabIndex = 9
+            '
             'CONTAINER_MAIN
             '
             '
             'CONTAINER_MAIN.ContentPanel
             '
             Me.CONTAINER_MAIN.ContentPanel.Controls.Add(TP_MAIN)
-            Me.CONTAINER_MAIN.ContentPanel.Size = New System.Drawing.Size(454, 431)
+            Me.CONTAINER_MAIN.ContentPanel.Size = New System.Drawing.Size(454, 461)
             Me.CONTAINER_MAIN.Dock = System.Windows.Forms.DockStyle.Fill
             Me.CONTAINER_MAIN.LeftToolStripPanelVisible = False
             Me.CONTAINER_MAIN.Location = New System.Drawing.Point(0, 0)
             Me.CONTAINER_MAIN.Name = "CONTAINER_MAIN"
             Me.CONTAINER_MAIN.RightToolStripPanelVisible = False
-            Me.CONTAINER_MAIN.Size = New System.Drawing.Size(454, 431)
+            Me.CONTAINER_MAIN.Size = New System.Drawing.Size(454, 461)
             Me.CONTAINER_MAIN.TabIndex = 0
             Me.CONTAINER_MAIN.TopToolStripPanelVisible = False
             '
@@ -428,15 +461,15 @@
             '
             Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
             Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-            Me.ClientSize = New System.Drawing.Size(454, 431)
+            Me.ClientSize = New System.Drawing.Size(454, 461)
             Me.Controls.Add(Me.CONTAINER_MAIN)
             Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
             Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
             Me.KeyPreview = True
             Me.MaximizeBox = False
-            Me.MaximumSize = New System.Drawing.Size(470, 470)
+            Me.MaximumSize = New System.Drawing.Size(470, 500)
             Me.MinimizeBox = False
-            Me.MinimumSize = New System.Drawing.Size(470, 470)
+            Me.MinimumSize = New System.Drawing.Size(470, 500)
             Me.Name = "UserCreatorForm"
             Me.ShowInTaskbar = False
             Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
@@ -458,6 +491,7 @@
             TP_DOWN_OPTIONS.ResumeLayout(False)
             TP_DOWN_OPTIONS.PerformLayout()
             CType(Me.TXT_SPEC_FOLDER, System.ComponentModel.ISupportInitialize).EndInit()
+            CType(Me.TXT_SCRIPT, System.ComponentModel.ISupportInitialize).EndInit()
             Me.CONTAINER_MAIN.ContentPanel.ResumeLayout(False)
             Me.CONTAINER_MAIN.ResumeLayout(False)
             Me.CONTAINER_MAIN.PerformLayout()
@@ -483,5 +517,6 @@
         Private WithEvents TXT_SPEC_FOLDER As PersonalUtilities.Forms.Controls.TextBoxExtended
         Private WithEvents CMB_SITE As PersonalUtilities.Forms.Controls.ComboBoxExtended
         Private WithEvents BTT_OTHER_SETTINGS As Button
+        Private WithEvents TXT_SCRIPT As PersonalUtilities.Forms.Controls.TextBoxExtended
     End Class
 End Namespace

SCrawler/Editors/UserCreatorForm.resx

@@ -273,6 +273,25 @@
         xAAADsQBlSsOGwAAAIZJREFUOE+1j10KwCAMgz2b755xl/IsvnaL2K20UfbDAmEako+ZROSTafjE12Go
         tbbB43rK5xSAQq1VYFtmeQBoqZTSreVZvgTknM8yyyjA/qodsDF9gspD2Bj6B+DH+NqzhQQAG+POMnSX
         AFuc5QFgn6ClHh5iOQVAKNixyucB8NY0vG9JOzzyhrdq5IRgAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="ActionButton7.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAAR5JREFUOE+VkjFqwzAUhn2D9iShRyi+QhYbGujg3ZATZPKYdC6FQhPwlAMkg3dP
+        WQwhyWIyJIUW5NqyPb7oCVtIlhVTwYf8nv7/t2zJagel9KmqKsIACYL9RjI8UHz5zshougZr/AEvbxEP
+        aZCDBY3VslixaJvX3wzkkDiOwbZtDRGA5vdNAg+TL27qgmt5XkBG/gTdAG7Gt+3PP9oOaEGFCVEC6rp+
+        5g9MfM/c5e4OsEZMZkQEtGL5H2DdZ5JRArDwPA+iKII0TfkC9vroC9j5vq8JTWw3WzWgLMtZGIaa0MR8
+        vlAD8PYlSaIJTTiOowY0p0Bc19XEJo6HE59FAPuMzyAINKGJ1XLFZxHALtMrnkBXOIQIIIQ8YvF/KrgB
+        cMaRN0UdBBkAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ActionButton8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        xAAADsQBlSsOGwAAAIZJREFUOE+1j10KwCAMgz2b755xl/IsvnaL2K20UfbDAmEako+ZROSTafjE12Go
+        tbbB43rK5xSAQq1VYFtmeQBoqZTSreVZvgTknM8yyyjA/qodsDF9gspD2Bj6B+DH+NqzhQQAG+POMnSX
+        AFuc5QFgn6ClHh5iOQVAKNixyucB8NY0vG9JOzzyhrdq5IRgAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

SCrawler/Editors/UserCreatorForm.vb

@@ -15,6 +15,7 @@ Imports PersonalUtilities.Functions.RegularExpressions
 Imports SCrawler.API.Base
 Imports SCrawler.Plugin
 Imports SCrawler.Plugin.Hosts
+Imports ADB = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons
 Namespace Editors
     Friend Class UserCreatorForm : Implements IOkCancelToolbar
         Private ReadOnly MyDef As DefaultFormProps(Of FieldsChecker)
@@ -65,6 +66,16 @@ Namespace Editors
                 Return TXT_USER_FRIENDLY.Text
             End Get
         End Property
+        Friend ReadOnly Property ScriptUse As Boolean
+            Get
+                Return TXT_SCRIPT.Checked
+            End Get
+        End Property
+        Friend ReadOnly Property ScriptFile As SFile
+            Get
+                Return TXT_SCRIPT.Text
+            End Get
+        End Property
         Friend Property MyExchangeOptions As Object = Nothing
         Private ReadOnly _SpecPathPattern As RParams = RParams.DM("\w:\\.*", 0, EDP.ReturnValue)
         Private ReadOnly Property SpecialPath(ByVal s As SettingsHost) As SFile
@@ -111,6 +122,7 @@ Namespace Editors
                         CH_TEMP.Checked = Settings.DefaultTemporary
                         CH_DOWN_IMAGES.Checked = Settings.DefaultDownloadImages
                         CH_DOWN_VIDEOS.Checked = Settings.DefaultDownloadVideos
+                        TXT_SCRIPT.Checked = Settings.ScriptFile.Attribute
                         SetParamsBySite()
                     Else
                         TP_ADD_BY_LIST.Enabled = False
@@ -135,6 +147,8 @@ Namespace Editors
                                 CH_READY_FOR_DOWN.Checked = .ReadyForDownload
                                 CH_DOWN_IMAGES.Checked = .DownloadImages
                                 CH_DOWN_VIDEOS.Checked = .DownloadVideos
+                                TXT_SCRIPT.Checked = .ScriptUse
+                                TXT_SCRIPT.Text = .ScriptFile
                                 TXT_DESCR.Text = .Description
                                 UserLabels.ListAddList(.Labels)
                                 If UserLabels.ListExists Then TXT_LABELS.Text = UserLabels.ListToString
@@ -158,7 +172,13 @@ Namespace Editors
             End Try
         End Sub
         Private Sub UserCreatorForm_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
-            If e.KeyCode = Keys.F4 Then ChangeLabels() : e.Handled = True
+            Dim b As Boolean = True
+            Select Case e.KeyCode
+                Case Keys.F4 : ChangeLabels()
+                Case Keys.F2 : If BTT_OTHER_SETTINGS.Enabled Then BTT_OTHER_SETTINGS.PerformClick()
+                Case Else : b = False
+            End Select
+            If b Then e.Handled = True
         End Sub
         Private Sub UserCreatorForm_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
             If Not BeforeCloseChecker(MyDef.ChangesDetected) Then
@@ -188,6 +208,14 @@ Namespace Editors
                             .UpdateUserFile()
                         End With
                         User = tmpUser
+                        Dim ScriptText$ = TXT_SCRIPT.Text
+                        If Not ScriptText.IsEmptyString Then
+                            Dim f As SFile = ScriptText
+                            If Not SFile.IsDirectory(ScriptText) And Not UserInstance Is Nothing Then
+                                With DirectCast(UserInstance, UserDataBase) : f.Path = .MyFile.Path : End With
+                            End If
+                            TXT_SCRIPT.Text = f
+                        End If
                         If Not UserInstance Is Nothing Then
                             With DirectCast(UserInstance, UserDataBase)
                                 .User = User
@@ -208,12 +236,14 @@ Namespace Editors
                                     .Labels.ListAddList(UserLabels, LAP.NotContainsOnly, LAP.ClearBeforeAdd)
                                 End If
                                 .ParseUserMediaOnly = CH_PARSE_USER_MEDIA.Checked
+                                .ScriptUse = TXT_SCRIPT.Checked
+                                .ScriptFile = TXT_SCRIPT.Text
                                 .UpdateUserInformation()
                             End With
                         End If
                         GoTo CloseForm
                     Else
-                        MsgBoxE("User site does not selected", MsgBoxStyle.Exclamation)
+                        MsgBoxE("User site not selected", MsgBoxStyle.Exclamation)
                     End If
                 End If
             Else
@@ -397,6 +427,7 @@ CloseForm:
                                             .ReadyForDownload = CH_READY_FOR_DOWN.Checked
                                             .DownloadImages = CH_DOWN_IMAGES.Checked
                                             .DownloadVideos = CH_DOWN_VIDEOS.Checked
+                                            .ScriptUse = TXT_SCRIPT.Checked
                                             .Labels.ListAddList(UserLabels)
                                             .ParseUserMediaOnly = CH_PARSE_USER_MEDIA.Checked
                                             If Not CH_AUTO_DETECT_SITE.Checked Then _
@@ -439,8 +470,8 @@ CloseForm:
         End Function
         Private Sub TXT_LABELS_ActionOnButtonClick(ByVal Sender As ActionButton) Handles TXT_LABELS.ActionOnButtonClick
             Select Case Sender.DefaultButton
-                Case ActionButton.DefaultButtons.Open : ChangeLabels()
-                Case ActionButton.DefaultButtons.Clear : UserLabels.Clear()
+                Case ADB.Open : ChangeLabels()
+                Case ADB.Clear : UserLabels.Clear()
             End Select
         End Sub
         Private Sub ChangeLabels()
@@ -456,5 +487,11 @@ CloseForm:
                 End If
             End Using
         End Sub
+        Private Sub TXT_SCRIPT_ActionOnButtonClick(ByVal Sender As ActionButton) Handles TXT_SCRIPT.ActionOnButtonClick
+            If Sender.DefaultButton = ADB.Open Then
+                Dim f As SFile = SFile.SelectFiles(TXT_SCRIPT.Text, False, "Select script file").FirstOrDefault
+                If Not f.IsEmptyString Then TXT_SCRIPT.Text = f
+            End If
+        End Sub
     End Class
 End Namespace

SCrawler/ListImagesLoader.vb

@@ -179,9 +179,10 @@ Friend Class ListImagesLoader
             For Each u As IUserData In Settings.Users
                 If u.FitToAddParams Then t.Add(Task.Run(Sub() l.Add(New UserOption(u, MyList, True))))
             Next
-            If t.Count > 0 Then Task.WaitAll(t.ToArray) : t.Clear()
+            If t.Count > 0 Then Task.WaitAll(t.ToArray)
             If l.Count > 0 Then
                 For i% = 0 To l.Count - 1
+                    If l(i) Is Nothing Then Throw New ArgumentNullException("UserOption", $"One of the UserOptions [{i} / {l.Count - 1}] is null.")
                     If l(i).Image Is Nothing Then l(i).UpdateImage()
                 Next
             End If

SCrawler/MainFrame.Designer.vb

@@ -86,6 +86,7 @@ Partial Public Class MainFrame : Inherits System.Windows.Forms.Form
         Me.BTT_CONTEXT_TEMP = New System.Windows.Forms.ToolStripMenuItem()
         Me.BTT_CONTEXT_READY = New System.Windows.Forms.ToolStripMenuItem()
         Me.BTT_CONTEXT_GROUPS = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BTT_CONTEXT_SCRIPT = New System.Windows.Forms.ToolStripMenuItem()
         Me.BTT_CONTEXT_ADD_TO_COL = New System.Windows.Forms.ToolStripMenuItem()
         Me.BTT_CONTEXT_COL_MERGE = New System.Windows.Forms.ToolStripMenuItem()
         Me.BTT_CONTEXT_CHANGE_FOLDER = New System.Windows.Forms.ToolStripMenuItem()
@@ -562,9 +563,9 @@ Partial Public Class MainFrame : Inherits System.Windows.Forms.Form
         '
         'USER_CONTEXT
         '
-        Me.USER_CONTEXT.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BTT_CONTEXT_DOWN, Me.BTT_CONTEXT_DOWN_LIMITED, Me.BTT_CONTEXT_DOWN_DATE_LIMIT, Me.BTT_CONTEXT_EDIT, Me.BTT_CONTEXT_DELETE, CONTEXT_SEP_1, Me.BTT_CONTEXT_FAV, Me.BTT_CONTEXT_TEMP, Me.BTT_CONTEXT_READY, Me.BTT_CONTEXT_GROUPS, Me.BTT_CONTEXT_ADD_TO_COL, Me.BTT_CONTEXT_COL_MERGE, Me.BTT_CONTEXT_CHANGE_FOLDER, CONTEXT_SEP_2, Me.BTT_CHANGE_IMAGE, CONTEXT_SEP_3, Me.BTT_CONTEXT_OPEN_PATH, CONTEXT_SEP_4, Me.BTT_CONTEXT_OPEN_SITE, CONTEXT_SEP_5, Me.BTT_CONTEXT_INFO})
+        Me.USER_CONTEXT.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BTT_CONTEXT_DOWN, Me.BTT_CONTEXT_DOWN_LIMITED, Me.BTT_CONTEXT_DOWN_DATE_LIMIT, Me.BTT_CONTEXT_EDIT, Me.BTT_CONTEXT_DELETE, CONTEXT_SEP_1, Me.BTT_CONTEXT_FAV, Me.BTT_CONTEXT_TEMP, Me.BTT_CONTEXT_READY, Me.BTT_CONTEXT_GROUPS, Me.BTT_CONTEXT_SCRIPT, Me.BTT_CONTEXT_ADD_TO_COL, Me.BTT_CONTEXT_COL_MERGE, Me.BTT_CONTEXT_CHANGE_FOLDER, CONTEXT_SEP_2, Me.BTT_CHANGE_IMAGE, CONTEXT_SEP_3, Me.BTT_CONTEXT_OPEN_PATH, CONTEXT_SEP_4, Me.BTT_CONTEXT_OPEN_SITE, CONTEXT_SEP_5, Me.BTT_CONTEXT_INFO})
         Me.USER_CONTEXT.Name = "USER_CONTEXT"
-        Me.USER_CONTEXT.Size = New System.Drawing.Size(222, 386)
+        Me.USER_CONTEXT.Size = New System.Drawing.Size(222, 430)
         '
         'BTT_CONTEXT_DOWN
         '
@@ -629,6 +630,13 @@ Partial Public Class MainFrame : Inherits System.Windows.Forms.Form
         Me.BTT_CONTEXT_GROUPS.Size = New System.Drawing.Size(221, 22)
         Me.BTT_CONTEXT_GROUPS.Text = "Change labels"
         '
+        'BTT_CONTEXT_SCRIPT
+        '
+        Me.BTT_CONTEXT_SCRIPT.Image = Global.SCrawler.My.Resources.Resources.ScriptPic32
+        Me.BTT_CONTEXT_SCRIPT.Name = "BTT_CONTEXT_SCRIPT"
+        Me.BTT_CONTEXT_SCRIPT.Size = New System.Drawing.Size(221, 22)
+        Me.BTT_CONTEXT_SCRIPT.Text = "Change script usage"
+        '
         'BTT_CONTEXT_ADD_TO_COL
         '
         Me.BTT_CONTEXT_ADD_TO_COL.Image = Global.SCrawler.My.Resources.Resources.DBPic_32
@@ -796,4 +804,5 @@ Partial Public Class MainFrame : Inherits System.Windows.Forms.Form
     Private WithEvents BTT_DOWN_SITE As ToolStripMenuItem
     Private WithEvents BTT_DOWN_ALL_FULL As ToolStripMenuItem
     Private WithEvents BTT_DOWN_SITE_FULL As ToolStripMenuItem
+    Private WithEvents BTT_CONTEXT_SCRIPT As ToolStripMenuItem
 End Class

SCrawler/MainFrame.vb

@@ -249,6 +249,8 @@ CloseResume:
                                     .DownloadVideos = f.DownloadVideos
                                     .FriendlyName = f.UserFriendly
                                     .Description = f.UserDescr
+                                    .ScriptUse = f.ScriptUse
+                                    .ScriptFile = f.ScriptFile
                                     If Not f.MyExchangeOptions Is Nothing Then DirectCast(.Self, UserDataBase).ExchangeOptionsSet(f.MyExchangeOptions)
                                     .Self.Labels.ListAddList(f.UserLabels, LAP.ClearBeforeAdd, LAP.NotContainsOnly)
                                     .UpdateUserInformation()
@@ -617,6 +619,31 @@ CloseResume:
             ErrorsDescriber.Execute(EDP.ShowAllMsg, ex, "[ChangeUserGroups]")
         End Try
     End Sub
+    Private Sub BTT_CONTEXT_SCRIPT_Click(sender As Object, e As EventArgs) Handles BTT_CONTEXT_SCRIPT.Click
+        Try
+            Dim users As List(Of IUserData) = GetSelectedUserArray()
+            If users.ListExists Then
+                Dim ans% = MsgBoxE({"You want to change the script usage for selected users." & vbCr &
+                                    "Which script usage mode do you want to set?",
+                                    "Change script usage"}, vbExclamation,,, {"Use", "Do not use", "Cancel"})
+                If ans < 2 Then
+                    Dim s As Boolean = IIf(ans = 0, True, False)
+                    users.ForEach(Sub(ByVal u As IUserData)
+                                      Dim b As Boolean = u.ScriptUse = s
+                                      u.ScriptUse = s
+                                      If Not b Then u.UpdateUserInformation()
+                                  End Sub)
+                    MsgBoxE($"Script mode was set to [{IIf(s, "Use", "Do not use")}] for all selected users")
+                Else
+                    MsgBoxE("Operation canceled")
+                End If
+            Else
+                MsgBoxE("Users not selected", vbExclamation)
+            End If
+        Catch ex As Exception
+            ErrorsDescriber.Execute(EDP.LogMessageValue, ex, "Change script usage")
+        End Try
+    End Sub
     Private Function AskForMassReplace(ByVal users As List(Of IUserData), ByVal param As String) As Boolean
         Dim u$ = users.ListIfNothing.Take(20).Select(Function(uu) uu.Name).ListToString(, vbCr)
         If Not u.IsEmptyString And users.ListExists(21) Then u &= vbCr & "..."

SCrawler/My Project/AssemblyInfo.vb

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

SCrawler/My Project/Resources.Designer.vb

@@ -250,6 +250,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property ScriptPic32() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ScriptPic32", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized resource of type System.Drawing.Bitmap.
         '''</summary>

SCrawler/My Project/Resources.resx

@@ -118,29 +118,29 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="DBPic_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Content\Pictures\DBPic_32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="StarPic_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Content\Pictures\StarPic_24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="PrevPIC2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Content\Pictures\PrevPIC2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="StartPic_01_Green_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Content\Pictures\StartPic_01_Green_16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="TwitterPic400" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Content\Pictures\TwitterPic400.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="PencilPic_01_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Content\Pictures\PencilPic_01_16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="PicturePic_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Content\Pictures\PicturePic_32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="NextPIC2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Content\Pictures\NextPIC2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="BookmarkBlack_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Content\Pictures\BookmarkBlack_16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Folder_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Content\Pictures\Folder_32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="TwitterPic400" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Content\Pictures\TwitterPic400.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="PencilPic_01_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Content\Pictures\PencilPic_01_16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="PlusPIC" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Content\Pictures\PlusPIC.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -148,6 +148,9 @@
   <data name="TwitterIcon" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Content\Icons\TwitterIcon.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="SettingsPic_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Content\Pictures\SettingsPic_16.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Content\Pictures\Delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -166,8 +169,8 @@
   <data name="Refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Content\Pictures\Refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="PicturePic_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Content\Pictures\PicturePic_32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="HeartPic_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Content\Pictures\HeartPic_32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="RedditIcon" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Content\Icons\RedditIcon.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -181,13 +184,13 @@
   <data name="RedditPic512" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Content\Pictures\RedditPic512.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="DBPic_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Content\Pictures\DBPic_32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="BookmarkBlack_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Content\Pictures\BookmarkBlack_16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="SettingsPic_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Content\Pictures\SettingsPic_16.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="StartPic_01_Green_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Content\Pictures\StartPic_01_Green_16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="HeartPic_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Content\Pictures\HeartPic_32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="ScriptPic32" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Content\Pictures\ScriptPic32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

SCrawler/SCrawler.vbproj

@@ -147,6 +147,13 @@
     <Compile Include="API\Instagram\OptionsForm.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="API\Reddit\RedditViewSettingsForm.Designer.vb">
+      <DependentUpon>RedditViewSettingsForm.vb</DependentUpon>
+    </Compile>
+    <Compile Include="API\Reddit\RedditViewSettingsForm.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="API\Reddit\IRedditView.vb" />
     <Compile Include="Download\ActiveDownloadingProgress.Designer.vb">
       <DependentUpon>ActiveDownloadingProgress.vb</DependentUpon>
     </Compile>
@@ -289,6 +296,9 @@
     <EmbeddedResource Include="API\Instagram\OptionsForm.resx">
       <DependentUpon>OptionsForm.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="API\Reddit\RedditViewSettingsForm.resx">
+      <DependentUpon>RedditViewSettingsForm.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Channels\ChannelsStatsForm.resx">
       <DependentUpon>ChannelsStatsForm.vb</DependentUpon>
     </EmbeddedResource>
@@ -369,6 +379,7 @@
     <None Include="Content\Pictures\InstagramPic76.png" />
     <None Include="Content\Pictures\BookmarkBlack_16.png" />
     <None Include="Content\Pictures\HeartPic_32.png" />
+    <None Include="Content\Pictures\ScriptPic32.png" />
     <Content Include="ffmpeg.exe">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>

SCrawler/SettingsCLS.vb

@@ -97,6 +97,7 @@ Friend Class SettingsCLS : Implements IDisposable
         FromChannelDownloadTopUse = New XMLValue(Of Boolean)("FromChannelDownloadTopUse", False, MyXML, n)
         FromChannelCopyImageToUser = New XMLValue(Of Boolean)("FromChannelCopyImageToUser", True, MyXML, n)
         UpdateUserDescriptionEveryTime = New XMLValue(Of Boolean)("UpdateUserDescriptionEveryTime", True, MyXML, n)
+        ScriptFile = New XMLValueAttribute(Of SFile, Boolean)("ScriptFile", "Use",,, MyXML, n)
 
         n = {"Users", "FileName"}
         MaxUsersJobsCount = New XMLValue(Of Integer)("MaxJobsCount", DefaultMaxDownloadingTasks, MyXML, n)
@@ -254,22 +255,18 @@ Friend Class SettingsCLS : Implements IDisposable
                                 If indx < 0 Then .Protected = True
                             End If
                         End If
+                        .UpdateUserFile()
                     End With
                     .Item(i) = user
                 Next
                 If c Then UpdateUsersList()
-            End If
-            .Clear()
-            Using x As New XmlFile(UsersSettingsFile, Protector.Modes.All, False) With {.AllowSameNames = True}
-                x.LoadData()
-                If x.Count > 0 Then
-                    For i = 0 To x.Count - 1
-                        user = x(i)
+            Else
+                For i = 0 To .Count - 1
+                    user = .Item(i)
                     user.UpdateUserFile()
-                        .Add(user)
+                    .Item(i) = user
                 Next
             End If
-            End Using
         End With
     End Sub
     Private _UserListUpdateRequired As Boolean = False
@@ -363,6 +360,7 @@ Friend Class SettingsCLS : Implements IDisposable
     End Property
     Friend ReadOnly Property MaxUsersJobsCount As XMLValue(Of Integer)
     Friend ReadOnly Property ImgurClientID As XMLValue(Of String)
+    Friend ReadOnly Property ScriptFile As XMLValueAttribute(Of SFile, Boolean)
 #Region "Defaults"
     Friend ReadOnly Property DefaultTemporary As XMLValue(Of Boolean)
     Friend ReadOnly Property DefaultDownloadImages As XMLValue(Of Boolean)

Tools/NET.FrameworkVersion.ps1

@@ -0,0 +1,19 @@
+$arr=Get-ChildItem -Path Registry::HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\|Select-Object Name
+$mv=0
+$found=0
+foreach($v in $arr){if($v.Name -match "v4.0."){$mv=$v.Name}}
+if($mv -ne 0)
+    {
+        $arr=Get-ChildItem -Path Registry::"$mv\SKUs\"|Select-Object Name
+        if($arr.Count -ge 0)
+            {                
+                foreach($v in $arr){if($v.Name -match "v4.6.1"){$found=1}}
+            }
+    }
+if($found -eq 0)
+    {
+        $a=Read-Host -Prompt "NET.Framework v4.6.1 not installed. Would you like to go to the Microsoft site to download this version? (y/n)"
+        if($a -eq "y"){Start https://dotnet.microsoft.com/en-us/download/dotnet-framework/net461}
+    }
+    else
+    {Read-Host "NET.Framework v4.6.1 installed. Press Enter to close."}