2023.2.5.0

Update to library environment GlobalSettings: add UserAgent Gfycat: fix RedGifs urls issue
Update Changelog.md
2026-03-15 08:12:17 +00:00 · 2023-02-05 20:58:02 +03:00 · 2023-01-28 05:50:07 +03:00 · 2023-01-28 05:48:54 +03:00 · 2023-01-27 16:43:57 +03:00 · 2023-01-24 16:13:46 +03:00
61 changed files with 1270 additions and 491 deletions
--- a/CONTRIBUTING.md
+++ b/CONTRIBUTING.md
@@ -8,14 +8,16 @@ I welcome requests! Follow these steps to contribute:
 1. If you have a code change suggestion, you can post a replacement code block. I also accept pull requests.
 # How to build from source
-1. Delete the "PersonalUtilities" project from the solution.
+1. Delete the ```PersonalUtilities``` project from the solution.
-1. Delete the "PersonalUtilities.Notifications" project from the solution.
+1. Delete the ```PersonalUtilities.Notifications``` project from the solution.
 1. Delete the ```cURL``` folder from the solution.
 1. Delete the ```ffmpeg.exe``` from the solution.
 1. The following libraries must be added to project references with the '**Copy to output folder**' option:
-  - ```PersonalUtilities.dll```
+    - ```PersonalUtilities.dll```
-  - ```PersonalUtilities.Notifications.dll```
+    - ```PersonalUtilities.Notifications.dll```
-  - ```Microsoft.Toolkit.Uwp.Notifications.dll```
+    - ```Microsoft.Toolkit.Uwp.Notifications.dll```
-  - ```System.ValueTuple.dll```
+    - ```System.ValueTuple.dll```
-1. Import PersonalUtilities.Functions for the whole project.
+1. Import ```PersonalUtilities.Functions``` for the whole project.
 **Always use the correct libraries. You must download libraries from the same release date as the code commit date.**
--- a/Changelog.md
+++ b/Changelog.md
@@ -1,3 +1,68 @@
 # 2023.2.5.0
 *2023-02-05*
 - Added
  - The ability to configure UserAgent
 - Fixed
  - (Issue #101) Failed download Gfycat video in some cases
 # 2023.1.27.0
 *2023-01-27*
 - Added
  - Advanced Twitter options for GIFs
  - Changing the icon of the user creation form based on the selected site
 - Fixed
  - Pinned Instagram posts reload every time
 - Plugins
  - Added
    - `Interaction` option to the `Provider` attribute
    - `IPropertyProvider` interface
 # 2023.1.24.1
 *2023-01-24*
 - Added
  - Icon for standalone downloader
 - Fixed
  - (Issue #100) some Imgur albums won't download
 # 2023.1.24.0
 *2023-01-24*
 - Fixed
  - (Issue #100) Imgur albums not downloading
  - When deleting a collection with the 'ban' option, users in the collection are not banned
 # 2023.1.2.0
 *2023-01-02*
 - Added
  - RedGifs: an ability to customize token refresh interval
  - RedGifs: token refresh interval changed from 24 hours to 12 hours
  - Updated labels collection
 - Fixed
  - PornHub: bug in the downloader
  - PornHub: download additional non-user videos
  - Reddit: bug in standalone downloader
  - Fixed a bug in the user list loading algorithm
  - Notifications: pressing any button opens SCrawler
 # 2022.12.27.0
 *2022-12-27*
 - Added
  - XVideos: added downloading 'Quickies'
  - Instagram: added more enable/disable options
 - Fixed
  - XVideos not downloading (sorry, I broke it in a previous release)
 # 2022.12.26.0
 *2022-12-26*
--- a/FAQ.md
+++ b/FAQ.md
@@ -42,7 +42,7 @@ A: How to request a new site you can read [here](CONTRIBUTING.md#how-to-request-
 #### Q: **Twitter/Instagram download failed.**
-A: Check your credentials. Both of these sites require cookies. Check your [Twitter tokens](https://github.com/AAndyProgram/SCrawler/wiki/Settings#how-to-find-twitter-tokens) and [Instagram settings](https://github.com/AAndyProgram/SCrawler/wiki/Settings#instagram-settings). If all settings are set, but nothing works, go to [create a new issue](https://github.com/AAndyProgram/SCrawler/issues). Don't forget to attach the LOG.
+A: Check your credentials. Both of these sites require cookies. Check your [Twitter tokens](https://github.com/AAndyProgram/SCrawler/wiki/Settings#how-to-find-twitter-tokens) and [Instagram settings](https://github.com/AAndyProgram/SCrawler/wiki/Settings#instagram). If all settings are set, but nothing works, go to [create a new issue](https://github.com/AAndyProgram/SCrawler/issues). Don't forget to attach the LOG.
 **[SITES REQUIREMENTS](https://github.com/AAndyProgram/SCrawler/wiki/Settings#sites-requirements)**
--- a/HowToSupport.md
+++ b/HowToSupport.md
@@ -6,6 +6,7 @@ You can support the program by:
  - :repeat: make a post about my program on your profile (Reddit, Twitter, Instagram and any other social networks)
  - :speech_balloon: tell your friends about the program
  - :heart: like the program on this site: https://alternativeto.net/software/scrawler/about/
  - :heart: like the program on this site: https://www.softpedia.com/get/Internet/Download-Managers/Social-networks-crawler.shtml
  - suggest my program as an alternative ([on this site](https://alternativeto.net/software/scrawler/about/)) to any program you have used before
 I would be very grateful for any support! :blush:
--- a/ProgramScreenshots/SettingsGlobalBasis.png
+++ b/ProgramScreenshots/SettingsGlobalBasis.png
--- a/ProgramScreenshots/SettingsSiteInstagram.png
+++ b/ProgramScreenshots/SettingsSiteInstagram.png
--- a/ProgramScreenshots/SettingsSiteRedGifs.png
+++ b/ProgramScreenshots/SettingsSiteRedGifs.png
--- a/ProgramScreenshots/SettingsSiteTwitter.png
+++ b/ProgramScreenshots/SettingsSiteTwitter.png
--- a/README.md
+++ b/README.md
@@ -1,6 +1,4 @@
-# :rainbow_flag: Social networks crawler :rainbow_flag: :christmas_tree:
+# :rainbow_flag: Social networks crawler :rainbow_flag:
 # :christmas_tree: Happy new year :christmas_tree:
 [![GitHub release (latest by date)](https://img.shields.io/github/v/release/AAndyProgram/SCrawler)](https://github.com/AAndyProgram/SCrawler/releases/latest)
 [![GitHub license](https://img.shields.io/github/license/AAndyProgram/SCrawler)](https://github.com/AAndyProgram/SCrawler/blob/main/LICENSE)
@@ -11,7 +9,7 @@
 A program to download photo and video from [any site](#supported-sites) (e.g. Reddit, Twitter, Instagram, TikTok, RedGifs, PornHub, XHamster, XVIDEOS, LPSG).
-**If you like SCrawler, please like the program on [this site]( https://alternativeto.net/software/scrawler/about/)**
+**If you like SCrawler, please like the program on [this site](https://alternativeto.net/software/scrawler/about/) and/or [this](https://www.softpedia.com/get/Internet/Download-Managers/Social-networks-crawler.shtml)**
 Do you like this program? Consider adding to my coffee fund by making a donation to show your support. :blush:
@@ -24,7 +22,7 @@ Do you like this program? Consider adding to my coffee fund by making a donation
 # What can program do:
 - Download pictures and videos from users' profiles and subreddits:
-  - Reddit images, galleries of images, videos (downloading Reddit hosted video is going through ffmpeg (**ffmpeg only works with the x64 program**)), saved posts;
+  - Reddit images, galleries of images, videos, saved posts;
  - Redgifs videos (https://www.redgifs.com/);
  - Twitter images and videos, saved (bookmarked) posts;
  - Instagram images and videos, tagged posts, stories, saved posts;
@@ -39,18 +37,18 @@ Do you like this program? Consider adding to my coffee fund by making a donation
 - Download [saved Reddit, Twitter and Instagram posts](https://github.com/AAndyProgram/SCrawler/wiki/Home#saved-posts)
 - Add users from parsed channel
 - **Advanced user management**
- **Automation** (downloading data automatically every ```X``` minutes)
+- **Automation** ([downloading data automatically](https://github.com/AAndyProgram/SCrawler/wiki/Settings#automation) every ```X``` minutes)
- **Feed** (feed of downloaded media files)
+- **Feed** ([feed](https://github.com/AAndyProgram/SCrawler/wiki#feed) of downloaded media files)
 - Labeling users
- Create download groups
+- Create [download groups](https://github.com/AAndyProgram/SCrawler/wiki/Settings#download-groups)
 - Adding users to favorites and temporary
- Filter exists users by label or group
+- [Filter exists users](https://github.com/AAndyProgram/SCrawler/wiki#view) by label or group
 - Selection of media types you want to download (images only, videos only, both)
- Download a special video, image or gallery
+- [Download a special video](https://github.com/AAndyProgram/SCrawler/wiki#download-separate-video), image or gallery
- Making collections (grouping users into collections)
+- Making [collections](https://github.com/AAndyProgram/SCrawler/wiki#collections) (grouping users into collections)
 - Specifying a user folder (for downloading data to another location)
 - Changing user icons
- Changing view modes
+- Changing [view modes](https://github.com/AAndyProgram/SCrawler/wiki#view)
 - ...and many others...
 # Supported sites
@@ -76,11 +74,11 @@ First, the program downloads the full profile. After the program downloads only
 ## Reddit
-The program parses all user posts, obtain MD5  images hash and compares them with existing ones to remove duplicates. Then the media will be downloaded.
+The program parses user posts, obtain MD5  images hash and compares them with existing ones to remove duplicates. Then the media will be downloaded.
 ## Other sites
-The program parses all user posts and compares file names with existing ones to remove duplicates. Then the media will be downloaded.
+The program parses user posts and compares file names with existing ones to remove duplicates. Then the media will be downloaded.
 ## How to request a new site
@@ -122,7 +120,7 @@ Read [here](CONTRIBUTING.md#how-to-request-a-new-site) about
 # Installation
-**Just download the [latest release](https://github.com/AAndyProgram/SCrawler/releases/latest), unzip the program archive to any folder, copy the file ```ffmpeg.exe``` into it and enjoy.** :blush:
+**Just download the [latest release](https://github.com/AAndyProgram/SCrawler/releases/latest), unzip the program archive to any folder and enjoy.** :blush:
 **Don't put program in the ```Program Files``` system folder (this is portable program and program settings are stored in the program folder)**
@@ -130,17 +128,11 @@ Read [here](CONTRIBUTING.md#how-to-request-a-new-site) about
 Just download [latest](https://github.com/AAndyProgram/SCrawler/releases/latest) version and unpack it into the program folder. **Before starting a new version, I recommend making a backup copy of the program settings folder.**
-# How to build from source
+# [How to build from source](CONTRIBUTING.md#how-to-build-from-source)
-Read about how to build from source [here](CONTRIBUTING.md#how-to-build-from-source)
+# [How to make a plugin](https://github.com/AAndyProgram/SCrawler/wiki/Plugins)
-# How to make a plugin
+# [How to support](HowToSupport.md)
 Read about how to make plugin [here](https://github.com/AAndyProgram/SCrawler/wiki/Plugins).
 # How to support
 Read more about how to support the program [here](HowToSupport.md).
 # Settings and usage
--- a/SCrawler.PluginProvider/Attributes/Attributes.vb
+++ b/SCrawler.PluginProvider/Attributes/Attributes.vb
@@ -100,6 +100,8 @@ Namespace Plugin.Attributes
        ''' <see langword="False"/> - only for conversion
        ''' </summary>
        Public FieldsChecker As Boolean = False
        ''' <summary>Interaction with changing text field. Default: <see langword="False"/></summary>
        Public Interaction As Boolean = False
        ''' <summary>Initialize a new Provider attribute. <see cref="IFormatProvider"/> is only allowed</summary>
        ''' <param name="PropertyName">The name of the property for which this provider is used</param>
        Public Sub New(ByVal PropertyName As String)
--- a/SCrawler.PluginProvider/My
+++ b/SCrawler.PluginProvider/My
@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
-<Assembly: AssemblyVersion("2022.12.26.0")>
+<Assembly: AssemblyVersion("2023.2.5.0")>
-<Assembly: AssemblyFileVersion("2022.12.26.0")>
+<Assembly: AssemblyFileVersion("2023.2.5.0")>
 <Assembly: NeutralResourcesLanguage("en")>
--- a/SCrawler.PluginProvider/ObjectInterfaces/IPropertyProvider.vb
+++ b/SCrawler.PluginProvider/ObjectInterfaces/IPropertyProvider.vb
@@ -0,0 +1,13 @@
 ' Copyright (C) 2023  Andy https://github.com/AAndyProgram
 ' This program is free software: you can redistribute it and/or modify
 ' it under the terms of the GNU General Public License as published by
 ' the Free Software Foundation, either version 3 of the License, or
 ' (at your option) any later version.
 '
 ' This program is distributed in the hope that it will be useful,
 ' but WITHOUT ANY WARRANTY
 Namespace Plugin
    Public Interface IPropertyProvider : Inherits IFormatProvider
        Property PropertyName As String
    End Interface
 End Namespace
--- a/SCrawler.PluginProvider/SCrawler.PluginProvider.vbproj
+++ b/SCrawler.PluginProvider/SCrawler.PluginProvider.vbproj
@@ -102,6 +102,7 @@
  </ItemGroup>
  <ItemGroup>
    <Compile Include="Attributes\Attributes.vb" />
    <Compile Include="ObjectInterfaces\IPropertyProvider.vb" />
    <Compile Include="Objects\ExchangeOptions.vb" />
    <Compile Include="ObjectInterfaces\ILogProvider.vb" />
    <Compile Include="Interfaces\IPluginContentProvider.vb" />
--- a/SCrawler/API/Base/SiteSettingsBase.vb
+++ b/SCrawler/API/Base/SiteSettingsBase.vb
@@ -37,7 +37,6 @@ Namespace API.Base
                    .LoadSettings()
                Else
                    .CookiesDomain = CookiesDomain
                    .Cookies = New CookieKeeper(.CookiesDomain) With {.EncryptKey = SettingsCLS.CookieEncryptKey}
                    .CookiesEncryptKey = SettingsCLS.CookieEncryptKey
                    .SaveSettings()
                End If
@@ -53,6 +52,7 @@ Namespace API.Base
        End Sub
        Friend Overridable Sub EndInit() Implements ISiteSettings.EndInit
            EncryptCookies.ValidateCookiesEncrypt(Responser)
            If Not DefaultUserAgent.IsEmptyString And Not Responser Is Nothing Then Responser.UserAgent = DefaultUserAgent
        End Sub
        Friend Overridable Sub BeginUpdate() Implements ISiteSettings.BeginUpdate
        End Sub
--- a/SCrawler/API/Base/UserDataBase.vb
+++ b/SCrawler/API/Base/UserDataBase.vb
@@ -1023,12 +1023,14 @@ BlockNullPicture:
                                        End If
                                        If Not v.SpecialFolder.IsEmptyString Then
-                                            f.Path = $"{f.PathWithSeparator}{v.SpecialFolder}\".CSFileP.Path
+                                            f.Path = $"{f.PathWithSeparator}{v.SpecialFolder.StringTrimEnd("*")}\".CSFileP.Path
                                            f.Exists(SFO.Path)
                                        End If
                                        If __isVideo And vsf Then
-                                            f.Path = $"{f.PathWithSeparator}Video"
+                                            If v.SpecialFolder.IsEmptyString OrElse Not v.SpecialFolder.EndsWith("*") Then
-                                            If Not v.SpecialFolder.IsEmptyString Then f.Exists(SFO.Path)
+                                                f.Path = $"{f.PathWithSeparator}Video"
                                                If Not v.SpecialFolder.IsEmptyString Then f.Exists(SFO.Path)
                                            End If
                                        End If
                                        If v.Type = UTypes.m3u8 And UseInternalM3U8Function Then
--- a/SCrawler/API/Gfycat/Envir.vb
+++ b/SCrawler/API/Gfycat/Envir.vb
@@ -17,7 +17,18 @@ Namespace API.Gfycat
            Try
                Dim r$
                Using w As New WebClient : r = w.DownloadString(URL) : End Using
-                If Not r.IsEmptyString Then Return RegexReplace(r, RParams.DMS("contentUrl.:.(http.?://[^""]+?\.mp4)", 1)) Else Return String.Empty
+                If Not r.IsEmptyString Then
                    Dim _url$ = RegexReplace(r, RParams.DMS("contentUrl.:.(http.?://[^""]+?\.mp4)", 1, EDP.ReturnValue))
                    If Not _url.IsEmptyString Then
                        If _url.Contains("redgifs.com") Then
                            _url = RegexReplace(_url, RParams.DMS("([^/-]+)[-\w]*\.mp4", 1, EDP.ReturnValue))
                            If Not _url.IsEmptyString Then Return $"https://www.redgifs.com/watch/{_url}"
                        Else
                            Return _url
                        End If
                    End If
                End If
                Return String.Empty
            Catch ex As Exception
                Dim e As EDP = EDP.ReturnValue
                If TypeOf ex Is WebException Then
--- a/SCrawler/API/Imgur/Envir.vb
+++ b/SCrawler/API/Imgur/Envir.vb
@@ -15,7 +15,7 @@ Imports PersonalUtilities.Tools.Web.Documents.JSON
 Namespace API.Imgur
    Namespace Declarations
        Friend Module Imgur_Declarations
-            Friend ReadOnly PostRegex As RParams = RParams.DMS("/([\w\d]+?)(|\.[\w]{0,4})\Z", 1)
+            Friend ReadOnly PostRegex As RParams = RParams.DMS("/([^/]+?)(|#.*?|\.[\w]{0,4})(|\?.*?)\Z", 1)
        End Module
    End Namespace
    Friend NotInheritable Class Envir
@@ -70,11 +70,12 @@ Namespace API.Imgur
        Friend Shared Function GetVideoInfo(ByVal URL As String, Optional ByVal e As ErrorsDescriber = Nothing) As IEnumerable(Of UserMedia)
            Try
                If Not URL.IsEmptyString AndAlso URL.ToLower.Contains("imgur") AndAlso Not Settings.ImgurClientID.IsEmptyString Then
-                    Dim img$ = GetImage(URL, EDP.ReturnValue)
+                    Dim imgList As List(Of String) = GetGallery(URL, EDP.ReturnValue)
-                    If Not img.IsEmptyString Then
+                    If imgList.ListExists Then
-                        Return {New UserMedia(img)}
+                        Return imgList.Select(Function(u) New UserMedia(u))
                    Else
-                        Return GetGallery(URL, EDP.ReturnValue).ListIfNothing.Select(Function(u) New UserMedia(u))
+                        Dim img$ = GetImage(URL, EDP.ReturnValue)
                        If Not img.IsEmptyString Then Return {New UserMedia(img)}
                    End If
                End If
                Return Nothing
--- a/SCrawler/API/Instagram/EditorExchangeOptions.vb
+++ b/SCrawler/API/Instagram/EditorExchangeOptions.vb
@@ -9,10 +9,12 @@
 Imports SCrawler.Plugin
 Namespace API.Instagram
    Friend Class EditorExchangeOptions
        Friend Property GetTimeline As Boolean
        Friend Property GetStories As Boolean
        Friend Property GetTagged As Boolean
        Friend Sub New(ByVal h As ISiteSettings)
            With DirectCast(h, SiteSettings)
                GetTimeline = CBool(.GetTimeline.Value)
                GetStories = CBool(.GetStories.Value)
                GetTagged = CBool(.GetTagged.Value)
            End With
--- a/SCrawler/API/Instagram/OptionsForm.Designer.vb
+++ b/SCrawler/API/Instagram/OptionsForm.Designer.vb
@@ -26,6 +26,7 @@ Namespace API.Instagram
            Dim TP_MAIN As System.Windows.Forms.TableLayoutPanel
            Me.CH_GET_STORIES = New System.Windows.Forms.CheckBox()
            Me.CH_GET_TAGGED = New System.Windows.Forms.CheckBox()
            Me.CH_GET_TIMELINE = New System.Windows.Forms.CheckBox()
            CONTAINER_MAIN = New System.Windows.Forms.ToolStripContainer()
            TP_MAIN = New System.Windows.Forms.TableLayoutPanel()
            CONTAINER_MAIN.ContentPanel.SuspendLayout()
@@ -39,13 +40,13 @@ Namespace API.Instagram
            'CONTAINER_MAIN.ContentPanel
            '
            CONTAINER_MAIN.ContentPanel.Controls.Add(TP_MAIN)
-            CONTAINER_MAIN.ContentPanel.Size = New System.Drawing.Size(260, 53)
+            CONTAINER_MAIN.ContentPanel.Size = New System.Drawing.Size(260, 79)
            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(260, 78)
+            CONTAINER_MAIN.Size = New System.Drawing.Size(260, 104)
            CONTAINER_MAIN.TabIndex = 0
            CONTAINER_MAIN.TopToolStripPanelVisible = False
            '
@@ -54,26 +55,28 @@ Namespace API.Instagram
            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(Me.CH_GET_STORIES, 0, 0)
+            TP_MAIN.Controls.Add(Me.CH_GET_STORIES, 0, 1)
-            TP_MAIN.Controls.Add(Me.CH_GET_TAGGED, 0, 1)
+            TP_MAIN.Controls.Add(Me.CH_GET_TAGGED, 0, 2)
            TP_MAIN.Controls.Add(Me.CH_GET_TIMELINE, 0, 0)
            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.RowCount = 4
            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
-            TP_MAIN.Size = New System.Drawing.Size(260, 53)
+            TP_MAIN.Size = New System.Drawing.Size(260, 79)
            TP_MAIN.TabIndex = 0
            '
            'CH_GET_STORIES
            '
            Me.CH_GET_STORIES.AutoSize = True
            Me.CH_GET_STORIES.Dock = System.Windows.Forms.DockStyle.Fill
-            Me.CH_GET_STORIES.Location = New System.Drawing.Point(4, 4)
+            Me.CH_GET_STORIES.Location = New System.Drawing.Point(4, 30)
            Me.CH_GET_STORIES.Name = "CH_GET_STORIES"
            Me.CH_GET_STORIES.Size = New System.Drawing.Size(252, 19)
-            Me.CH_GET_STORIES.TabIndex = 0
+            Me.CH_GET_STORIES.TabIndex = 1
            Me.CH_GET_STORIES.Text = "Get stories"
            Me.CH_GET_STORIES.UseVisualStyleBackColor = True
            '
@@ -81,26 +84,37 @@ Namespace API.Instagram
            '
            Me.CH_GET_TAGGED.AutoSize = True
            Me.CH_GET_TAGGED.Dock = System.Windows.Forms.DockStyle.Fill
-            Me.CH_GET_TAGGED.Location = New System.Drawing.Point(4, 30)
+            Me.CH_GET_TAGGED.Location = New System.Drawing.Point(4, 56)
            Me.CH_GET_TAGGED.Name = "CH_GET_TAGGED"
            Me.CH_GET_TAGGED.Size = New System.Drawing.Size(252, 19)
-            Me.CH_GET_TAGGED.TabIndex = 1
+            Me.CH_GET_TAGGED.TabIndex = 2
            Me.CH_GET_TAGGED.Text = "Get tagged data"
            Me.CH_GET_TAGGED.UseVisualStyleBackColor = True
            '
            'CH_GET_TIMELINE
            '
            Me.CH_GET_TIMELINE.AutoSize = True
            Me.CH_GET_TIMELINE.Dock = System.Windows.Forms.DockStyle.Fill
            Me.CH_GET_TIMELINE.Location = New System.Drawing.Point(4, 4)
            Me.CH_GET_TIMELINE.Name = "CH_GET_TIMELINE"
            Me.CH_GET_TIMELINE.Size = New System.Drawing.Size(252, 19)
            Me.CH_GET_TIMELINE.TabIndex = 0
            Me.CH_GET_TIMELINE.Text = "Get Timeline"
            Me.CH_GET_TIMELINE.UseVisualStyleBackColor = True
            '
            'OptionsForm
            '
            Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-            Me.ClientSize = New System.Drawing.Size(260, 78)
+            Me.ClientSize = New System.Drawing.Size(260, 104)
            Me.Controls.Add(CONTAINER_MAIN)
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
            Me.Icon = Global.SCrawler.My.Resources.SiteResources.InstagramIcon_32
            Me.KeyPreview = True
            Me.MaximizeBox = False
-            Me.MaximumSize = New System.Drawing.Size(276, 117)
+            Me.MaximumSize = New System.Drawing.Size(276, 143)
            Me.MinimizeBox = False
-            Me.MinimumSize = New System.Drawing.Size(276, 117)
+            Me.MinimumSize = New System.Drawing.Size(276, 143)
            Me.Name = "OptionsForm"
            Me.ShowInTaskbar = False
            Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
@@ -116,5 +130,6 @@ Namespace API.Instagram
        Private WithEvents CH_GET_STORIES As CheckBox
        Private WithEvents CH_GET_TAGGED As CheckBox
        Private WithEvents CH_GET_TIMELINE As CheckBox
    End Class
 End Namespace
--- a/SCrawler/API/Instagram/OptionsForm.vb
+++ b/SCrawler/API/Instagram/OptionsForm.vb
@@ -21,6 +21,7 @@ Namespace API.Instagram
                .MyViewInitialize(True)
                .AddOkCancelToolbar()
                With MyExchangeOptions
                    CH_GET_TIMELINE.Checked = .GetTimeline
                    CH_GET_STORIES.Checked = .GetStories
                    CH_GET_TAGGED.Checked = .GetTagged
                End With
@@ -29,6 +30,7 @@ Namespace API.Instagram
        End Sub
        Private Sub MyDefs_ButtonOkClick(ByVal Sender As Object, ByVal e As KeyHandleEventArgs) Handles MyDefs.ButtonOkClick
            With MyExchangeOptions
                .GetTimeline = CH_GET_TIMELINE.Checked
                .GetStories = CH_GET_STORIES.Checked
                .GetTagged = CH_GET_TAGGED.Checked
            End With
--- a/SCrawler/API/Instagram/SiteSettings.vb
+++ b/SCrawler/API/Instagram/SiteSettings.vb
@@ -111,33 +111,37 @@ Namespace API.Instagram
        End Sub
 #End Region
 #Region "Download properties"
-        <PropertyOption(ControlText:="Request timer", AllowNull:=False), PXML("RequestsWaitTimer"), ControlNumber(8)>
+        <PropertyOption(ControlText:="Request timer", AllowNull:=False), PXML("RequestsWaitTimer"), ControlNumber(20)>
        Friend ReadOnly Property RequestsWaitTimer As PropertyValue
        <Provider(NameOf(RequestsWaitTimer), FieldsChecker:=True)>
        Private ReadOnly Property RequestsWaitTimerProvider As IFormatProvider
-        <PropertyOption(ControlText:="Request timer counter", AllowNull:=False, LeftOffset:=120), PXML("RequestsWaitTimerTaskCount"), ControlNumber(9)>
+        <PropertyOption(ControlText:="Request timer counter", AllowNull:=False, LeftOffset:=120), PXML("RequestsWaitTimerTaskCount"), ControlNumber(21)>
        Friend ReadOnly Property RequestsWaitTimerTaskCount As PropertyValue
        <Provider(NameOf(RequestsWaitTimerTaskCount), FieldsChecker:=True)>
        Private ReadOnly Property RequestsWaitTimerTaskCountProvider As IFormatProvider
-        <PropertyOption(ControlText:="Posts limit timer", AllowNull:=False), PXML("SleepTimerOnPostsLimit"), ControlNumber(10)>
+        <PropertyOption(ControlText:="Posts limit timer", AllowNull:=False), PXML("SleepTimerOnPostsLimit"), ControlNumber(22)>
        Friend ReadOnly Property SleepTimerOnPostsLimit As PropertyValue
        <Provider(NameOf(SleepTimerOnPostsLimit), FieldsChecker:=True)>
        Private ReadOnly Property SleepTimerOnPostsLimitProvider As IFormatProvider
-        <PropertyOption(ControlText:="Get stories"), PXML, ControlNumber(11)>
+        <PropertyOption(ControlText:="Get timeline", ControlToolTip:="Default value for new users"), PXML, ControlNumber(23)>
        Friend ReadOnly Property GetTimeline As PropertyValue
        <PropertyOption(ControlText:="Get stories", ControlToolTip:="Default value for new users"), PXML, ControlNumber(24)>
        Friend ReadOnly Property GetStories As PropertyValue
-        <PropertyOption(ControlText:="Get tagged photos"), PXML, ControlNumber(12)>
+        <PropertyOption(ControlText:="Get tagged photos", ControlToolTip:="Default value for new users"), PXML, ControlNumber(25)>
        Friend ReadOnly Property GetTagged As PropertyValue
        <PropertyOption(ControlText:="Tagged notify limit",
                        ControlToolTip:="If the number of tagged posts exceeds this number you will be notified." & vbCr &
-                        "-1 to disable"), PXML, ControlNumber(13)>
+                        "-1 to disable"), PXML, ControlNumber(26)>
        Friend ReadOnly Property TaggedNotifyLimit As PropertyValue
        <Provider(NameOf(TaggedNotifyLimit), FieldsChecker:=True)>
        Private ReadOnly Property TaggedNotifyLimitProvider As IFormatProvider
 #End Region
 #Region "Download ready"
-        <PropertyOption(ControlText:="Download timeline", ControlToolTip:="Download timeline, stories and saved posts"), PXML, ControlNumber(6)>
+        <PropertyOption(ControlText:="Download timeline", ControlToolTip:="Download timeline"), PXML, ControlNumber(10)>
        Friend ReadOnly Property DownloadTimeline As PropertyValue
-        <PropertyOption(ControlText:="Download tagged", ControlToolTip:="Download tagged posts"), PXML, ControlNumber(7)>
+        <PropertyOption(ControlText:="Download stories", ControlToolTip:="Download stories"), PXML, ControlNumber(11)>
        Friend ReadOnly Property DownloadStories As PropertyValue
        <PropertyOption(ControlText:="Download tagged", ControlToolTip:="Download tagged posts"), PXML, ControlNumber(12)>
        Friend ReadOnly Property DownloadTagged As PropertyValue
 #End Region
 #Region "429 bypass"
@@ -207,10 +211,6 @@ Namespace API.Instagram
                .CookiesExtractMode = Responser.CookiesExtractModes.Response
                .CookiesUpdateMode = CookieKeeper.UpdateModes.ReplaceByNameAll
                .CookiesExtractedAutoSave = False
                If Not .Cookies Is Nothing Then
                    .Cookies.ChangedAllowInternalDrop = False
                    .Cookies.Changed = False
                End If
            End With
            Dim n() As String = {SettingsCLS.Name_Node_Sites, Site.ToString}
@@ -221,6 +221,7 @@ Namespace API.Instagram
            IG_WWW_CLAIM = New PropertyValue(www_claim, GetType(String), Sub(v) ChangeResponserFields(NameOf(IG_WWW_CLAIM), v))
            DownloadTimeline = New PropertyValue(True)
            DownloadStories = New PropertyValue(True)
            DownloadTagged = New PropertyValue(False)
            RequestsWaitTimer = New PropertyValue(1000)
@@ -230,6 +231,7 @@ Namespace API.Instagram
            SleepTimerOnPostsLimit = New PropertyValue(60000)
            SleepTimerOnPostsLimitProvider = New TimersChecker(10000)
            GetTimeline = New PropertyValue(True)
            GetStories = New PropertyValue(False)
            GetTagged = New PropertyValue(False)
            TaggedNotifyLimit = New PropertyValue(200)
@@ -246,48 +248,6 @@ Namespace API.Instagram
            UserRegex = RParams.DMS("[htps:/]{7,8}.*?instagram.com/([^/]+)", 1)
            ImageVideoContains = "instagram.com"
        End Sub
        Private Structure LatestValues
            Friend Hash As String
            Friend Token As String
            Friend AppID As String
            Friend WwwClaim As String
            Friend Exists As Boolean
            Friend Sub New(ByVal Source As SiteSettings)
                Exists = True
                With Source
                    Hash = AConvert(Of String)(.HashTagged.Value, String.Empty)
                    With .Responser
                        Token = .Headers.Value(Header_CSRF_TOKEN)
                        AppID = .Headers.Value(Header_IG_APP_ID)
                        WwwClaim = .Headers.Value(Header_IG_WWW_CLAIM)
                    End With
                End With
            End Sub
        End Structure
        Private LV As LatestValues = Nothing
        Friend Overrides Sub BeginEdit()
            LV = New LatestValues(Me)
            MyBase.BeginEdit()
        End Sub
        Friend Overrides Sub EndEdit()
            LV = Nothing
            MyBase.EndEdit()
        End Sub
        Friend Overloads Overrides Sub Update()
            If LV.Exists Then
                Dim __lv As New LatestValues(Me)
                If If(Responser.Cookies?.Count, 0) > 0 Then
                    Dim _cookiesChanged As Boolean = If(Responser.Cookies?.Changed, False) And Responser.CookiesExists
                    Dim _tokensChanged As Boolean = (Not __lv.Token.IsEmptyString And Not __lv.WwwClaim.IsEmptyString And Not __lv.AppID.IsEmptyString) And
                        (Not LV.Token = __lv.Token Or Not LV.WwwClaim = __lv.WwwClaim Or Not LV.AppID = __lv.AppID)
                    If _cookiesChanged Or _tokensChanged Then DownloadTimeline.Value = True
                    If Not __lv.Hash.IsEmptyString And (_cookiesChanged Or _tokensChanged Or Not LV.Hash = __lv.Hash) Then DownloadTagged.Value = True
                End If
            End If
            LV = Nothing
            If Not Responser.Cookies Is Nothing Then Responser.Cookies.Changed = False
            MyBase.Update()
        End Sub
 #End Region
 #Region "PropertiesDataChecker"
        <PropertiesDataChecker({NameOf(TaggedNotifyLimit)})>
--- a/SCrawler/API/Instagram/UserData.vb
+++ b/SCrawler/API/Instagram/UserData.vb
@@ -21,6 +21,7 @@ Namespace API.Instagram
 #Region "XML Names"
        Private Const Name_LastCursor As String = "LastCursor"
        Private Const Name_FirstLoadingDone As String = "FirstLoadingDone"
        Private Const Name_GetTimeline As String = "GetTimeline"
        Private Const Name_GetStories As String = "GetStories"
        Private Const Name_GetTagged As String = "GetTaggedData"
        Private Const Name_TaggedChecked As String = "TaggedChecked"
@@ -70,16 +71,18 @@ Namespace API.Instagram
        Private ReadOnly PostsToReparse As List(Of PostKV)
        Private LastCursor As String = String.Empty
        Private FirstLoadingDone As Boolean = False
        Friend Property GetTimeline As Boolean = True
        Friend Property GetStories As Boolean
        Friend Property GetTaggedData As Boolean
 #End Region
 #Region "Exchange options"
        Friend Overrides Function ExchangeOptionsGet() As Object
-            Return New EditorExchangeOptions(HOST.Source) With {.GetStories = GetStories, .GetTagged = GetTaggedData}
+            Return New EditorExchangeOptions(HOST.Source) With {.GetTimeline = GetTimeline, .GetStories = GetStories, .GetTagged = GetTaggedData}
        End Function
        Friend Overrides Sub ExchangeOptionsSet(ByVal Obj As Object)
            If Not Obj Is Nothing AndAlso TypeOf Obj Is EditorExchangeOptions Then
                With DirectCast(Obj, EditorExchangeOptions)
                    GetTimeline = .GetTimeline
                    GetStories = .GetStories
                    GetTaggedData = .GetTagged
                End With
@@ -95,12 +98,14 @@ Namespace API.Instagram
            If Loading Then
                LastCursor = Container.Value(Name_LastCursor)
                FirstLoadingDone = Container.Value(Name_FirstLoadingDone).FromXML(Of Boolean)(False)
                GetTimeline = Container.Value(Name_GetTimeline).FromXML(Of Boolean)(CBool(MySiteSettings.GetTimeline.Value))
                GetStories = Container.Value(Name_GetStories).FromXML(Of Boolean)(CBool(MySiteSettings.GetStories.Value))
                GetTaggedData = Container.Value(Name_GetTagged).FromXML(Of Boolean)(CBool(MySiteSettings.GetTagged.Value))
                TaggedChecked = Container.Value(Name_TaggedChecked).FromXML(Of Boolean)(False)
            Else
                Container.Add(Name_LastCursor, LastCursor)
                Container.Add(Name_FirstLoadingDone, FirstLoadingDone.BoolToInteger)
                Container.Add(Name_GetTimeline, GetTimeline.BoolToInteger)
                Container.Add(Name_GetStories, GetStories.BoolToInteger)
                Container.Add(Name_GetTagged, GetTaggedData.BoolToInteger)
                Container.Add(Name_TaggedChecked, TaggedChecked.BoolToInteger)
@@ -197,21 +202,22 @@ Namespace API.Instagram
                AddHandler Responser.ResponseReceived, AddressOf Responser_ResponseReceived
                ThrowAny(Token)
                HasError = False
-                If CBool(MySiteSettings.DownloadTimeline.Value) And Not LastCursor.IsEmptyString Then
+                Dim dt As Func(Of Boolean) = Function() (CBool(MySiteSettings.DownloadTimeline.Value) And GetTimeline) Or IsSavedPosts
                If dt.Invoke And Not LastCursor.IsEmptyString Then
                    s = IIf(IsSavedPosts, Sections.SavedPosts, Sections.Timeline)
                    DownloadData(LastCursor, s, Token)
                    ThrowAny(Token)
                    If Not HasError Then FirstLoadingDone = True
                End If
-                If CBool(MySiteSettings.DownloadTimeline.Value) And Not HasError Then
+                If dt.Invoke And Not HasError Then
                    s = IIf(IsSavedPosts, Sections.SavedPosts, Sections.Timeline)
                    DownloadData(String.Empty, s, Token)
                    ThrowAny(Token)
                    If Not HasError Then FirstLoadingDone = True
                End If
                If FirstLoadingDone Then LastCursor = String.Empty
-                If MySiteSettings.BaseAuthExists() Then
+                If Not IsSavedPosts AndAlso MySiteSettings.BaseAuthExists() Then
-                    If CBool(MySiteSettings.DownloadTimeline.Value) And GetStories Then s = Sections.Stories : DownloadData(String.Empty, s, Token)
+                    If CBool(MySiteSettings.DownloadStories.Value) And GetStories Then s = Sections.Stories : DownloadData(String.Empty, s, Token)
                    If CBool(MySiteSettings.DownloadTagged.Value) And ACheck(MySiteSettings.HashTagged.Value) And GetTaggedData Then s = Sections.Tagged : DownloadData(String.Empty, s, Token)
                End If
                If WaitNotificationMode = WNM.SkipTemp Or WaitNotificationMode = WNM.SkipCurrent Then WaitNotificationMode = WNM.Notify
@@ -392,7 +398,6 @@ Namespace API.Instagram
                            If ID.IsEmptyString Then Throw New ArgumentException("User ID is not detected", "ID")
                        End If
                        'Create query
                        Select Case Section
                            Case Sections.Timeline
@@ -608,17 +613,20 @@ Namespace API.Instagram
                    With nn
                        PostIDKV = New PostKV(.Value("code"), .Value("id"), Section)
                        Pinned = .Contains("timeline_pinned_user_ids")
-                        If PostKvExists(PostIDKV) And Not Pinned Then Return False
+                        If PostKvExists(PostIDKV) Then
-                        _TempPostsList.Add(PostIDKV.ID)
+                            If Not Pinned Then Return False
-                        PostsKVIDs.ListAddValue(PostIDKV, LAP.NotContainsOnly)
+                        Else
-                        PostDate = .Value("taken_at")
+                            _TempPostsList.Add(PostIDKV.ID)
-                        If Not IsSavedPosts Then
+                            PostsKVIDs.ListAddValue(PostIDKV, LNC)
-                            Select Case CheckDatesLimit(PostDate, DateProvider)
+                            PostDate = .Value("taken_at")
-                                Case DateResult.Skip : Continue For
+                            If Not IsSavedPosts Then
-                                Case DateResult.Exit : If Not Pinned Then Return False
+                                Select Case CheckDatesLimit(PostDate, DateProvider)
-                            End Select
+                                    Case DateResult.Skip : Continue For
                                    Case DateResult.Exit : If Not Pinned Then Return False
                                End Select
                            End If
                            ObtainMedia(.Self, PostIDKV.ID, SpecFolder, PostDate)
                        End If
                        ObtainMedia(.Self, PostIDKV.ID, SpecFolder, PostDate)
                    End With
                Next
                Return True
--- a/SCrawler/API/LPSG/SiteSettings.vb
+++ b/SCrawler/API/LPSG/SiteSettings.vb
@@ -31,7 +31,7 @@ Namespace API.LPSG
            Return New UserData
        End Function
        Friend Overrides Function Available(ByVal What As ISiteSettings.Download, ByVal Silent As Boolean) As Boolean
-            Return If(Responser.Cookies?.Count, 0) > 0
+            Return Responser.CookiesExists
        End Function
    End Class
 End Namespace
--- a/SCrawler/API/PornHub/SiteSettings.vb
+++ b/SCrawler/API/PornHub/SiteSettings.vb
@@ -41,6 +41,7 @@ Namespace API.PornHub
        Friend Sub New()
            MyBase.New("PornHub", "pornhub.com")
            Responser.CurlPath = $"cURL\curl.exe"
            Responser.CurlArgumentsRight = "--ssl-no-revoke"
            CurlPathExists = Responser.CurlPath.Exists
            Responser.DeclaredError = EDP.ThrowException
--- a/SCrawler/API/PornHub/UserData.vb
+++ b/SCrawler/API/PornHub/UserData.vb
@@ -210,6 +210,7 @@ Namespace API.PornHub
                    If __continue And Not __videoDone Then
                        Do While DownloadUserVideos(page, Token) = DataDownloaded And page < 100 : page += 1 : Loop
                    End If
                    If _TempMediaList.Count > 0 Then _TempMediaList.RemoveAll(Function(m) Not m.Type = UTypes.m3u8 And Not m.Type = UTypes.VideoPre)
                End If
                Responser.Method = "GET"
@@ -256,7 +257,7 @@ Namespace API.PornHub
                    If PersonType = PersonTypeUser And r.Contains(HtmlPageNotFoundVideo) Then Return DataDownloaded_NotFound
                    Dim l As List(Of UserVideo) = RegexFields(Of UserVideo)(r, {RegexVideo_Video_All}, {1, 2})
                    Dim lw As List(Of UserVideo) = Nothing
-                    If Not PersonType = PersonTypeUser Then RegexFields(Of UserVideo)(r, {RegexVideo_Video_Wrong}, RegexVideo_Video_Wrong_Fields)
+                    If Not PersonType = PersonTypeUser Then lw = RegexFields(Of UserVideo)(r, {RegexVideo_Video_Wrong}, RegexVideo_Video_Wrong_Fields)
                    If l.ListExists Then
                        If lw.ListExists Then l.ListWithRemove(lw)
                        If l.Count > 0 Then
--- a/SCrawler/API/Reddit/UserData.vb
+++ b/SCrawler/API/Reddit/UserData.vb
@@ -533,31 +533,36 @@ Namespace API.Reddit
                    Dim e As New ErrorsDescriber(EDP.ReturnValue)
                    Dim m As UserMedia, m2 As UserMedia
                    Dim RedGifsHost As SettingsHost = Settings(RedGifs.RedGifsSiteKey)
                    Dim _repeatForRedgifs As Boolean
                    RedGifsResponser = RedGifsHost.Responser.Copy
                    For i% = _TempMediaList.Count - 1 To 0 Step -1
                        ThrowAny(Token)
                        If _TempMediaList(i).Type = UTypes.VideoPre Or _TempMediaList(i).Type = v2 Then
                            m = _TempMediaList(i)
                            If _TempMediaList(i).Type = UTypes.VideoPre Then
-                                If m.URL.Contains($"{SiteGfycatKey}.com") Then
+                                Do
-                                    r = Gfycat.Envir.GetVideo(m.URL)
+                                    _repeatForRedgifs = False
-                                ElseIf m.URL.Contains(SiteRedGifsKey) Then
+                                    If m.URL.Contains($"{SiteGfycatKey}.com") Then
-                                    m2 = RedGifs.UserData.GetDataFromUrlId(m.URL, False, RedGifsResponser, RedGifsHost)
+                                        r = Gfycat.Envir.GetVideo(m.URL)
-                                    If m2.State = UStates.Missing Then
+                                        If Not r.IsEmptyString AndAlso r.Contains("redgifs.com") Then m.URL = r : _repeatForRedgifs = True
-                                        m.State = UStates.Missing
+                                    ElseIf m.URL.Contains(SiteRedGifsKey) Then
-                                        _ContentList.Add(m)
+                                        m2 = RedGifs.UserData.GetDataFromUrlId(m.URL, False, RedGifsResponser, RedGifsHost)
-                                        _TempMediaList.RemoveAt(i)
+                                        If m2.State = UStates.Missing Then
-                                    ElseIf m2.State = RedGifs.UserData.DataGone Then
+                                            m.State = UStates.Missing
-                                        _TempMediaList.RemoveAt(i)
+                                            _ContentList.Add(m)
                                            _TempMediaList.RemoveAt(i)
                                        ElseIf m2.State = RedGifs.UserData.DataGone Then
                                            _TempMediaList.RemoveAt(i)
                                        Else
                                            m2.URL_BASE = m.URL
                                            m2.Post = m.Post
                                            _TempMediaList(i) = m2
                                        End If
                                        Continue For
                                    Else
-                                        m2.URL_BASE = m.URL
+                                        r = Responser.GetResponse(m.URL,, e)
                                        m2.Post = m.Post
                                        _TempMediaList(i) = m2
                                    End If
-                                    Continue For
+                                Loop While _repeatForRedgifs
                                Else
                                    r = Responser.GetResponse(m.URL,, e)
                                End If
                            Else
                                r = m.URL
                            End If
@@ -662,6 +667,7 @@ Namespace API.Reddit
            Try
                If Not URL.IsEmptyString Then
                    Using r As New UserData
                        r.SetEnvironment(Settings(RedditSiteKey), Nothing, False, False)
                        r.Responser = New Responser
                        r.Responser.Copy(resp)
                        r.ParsePost(URL)
--- a/SCrawler/API/Redgifs/SiteSettings.vb
+++ b/SCrawler/API/Redgifs/SiteSettings.vb
@@ -9,10 +9,10 @@
 Imports SCrawler.API.Base
 Imports SCrawler.Plugin
 Imports SCrawler.Plugin.Attributes
 Imports PersonalUtilities.Forms
 Imports PersonalUtilities.Functions.XML
 Imports PersonalUtilities.Functions.RegularExpressions
 Imports PersonalUtilities.Tools.Web.Clients
 Imports PersonalUtilities.Tools.Web.Cookies
 Imports PersonalUtilities.Tools.Web.Documents.JSON
 Imports UTypes = SCrawler.API.Base.UserMedia.Types
 Imports UStates = SCrawler.API.Base.UserMedia.States
@@ -30,10 +30,38 @@ Namespace API.RedGifs
                Return My.Resources.SiteResources.RedGifsPic_32
            End Get
        End Property
-        <PropertyOption(AllowNull:=False, ControlText:="Token", ControlToolTip:="Bearer token")>
+        <PropertyOption(ControlToolTip:="Bearer token", AllowNull:=False), ControlNumber(1)>
-        Friend Property Token As PropertyValue
+        Friend ReadOnly Property Token As PropertyValue
-        <PXML> Friend Property TokenLastDateUpdated As PropertyValue
+        <PXML> Friend ReadOnly Property TokenLastDateUpdated As PropertyValue
        Private Const TokenName As String = "authorization"
 #Region "TokenUpdateInterval"
        <PropertyOption(ControlText:="Token refresh interval", ControlToolTip:="Interval (in minutes) to refresh the token", AllowNull:=False, LeftOffset:=120),
            PXML, ControlNumber(0)>
        Friend ReadOnly Property TokenUpdateInterval As PropertyValue
        Private Class TokenIntervalProvider : Implements IFieldsCheckerProvider
            Private Property ErrorMessage As String Implements IFieldsCheckerProvider.ErrorMessage
            Private Property Name As String Implements IFieldsCheckerProvider.Name
            Private Property TypeError As Boolean Implements IFieldsCheckerProvider.TypeError
            Private Function Convert(ByVal Value As Object, ByVal DestinationType As Type, ByVal Provider As IFormatProvider,
                                     Optional ByVal NothingArg As Object = Nothing, Optional ByVal e As ErrorsDescriber = Nothing) As Object Implements ICustomProvider.Convert
                TypeError = False
                ErrorMessage = String.Empty
                If Not ACheck(Of Integer)(Value) Then
                    TypeError = True
                ElseIf CInt(Value) > 0 Then
                    Return Value
                Else
                    ErrorMessage = $"The value of [{Name}] field must be greater than or equal to 1"
                End If
                Return Nothing
            End Function
            Private Function GetFormat(ByVal FormatType As Type) As Object Implements IFormatProvider.GetFormat
                Throw New NotImplementedException("[GetFormat] is not available in the context of [TokenIntervalProvider]")
            End Function
        End Class
        <Provider(NameOf(TokenUpdateInterval), FieldsChecker:=True)>
        Private ReadOnly Property TokenUpdateIntervalProvider As IFormatProvider
 #End Region
 #End Region
 #Region "Initializer"
        Friend Sub New()
@@ -47,6 +75,8 @@ Namespace API.RedGifs
            End With
            Token = New PropertyValue(t, GetType(String), Sub(v) UpdateResponse(v))
            TokenLastDateUpdated = New PropertyValue(Now.AddYears(-1), GetType(Date))
            TokenUpdateInterval = New PropertyValue(60 * 12, GetType(Integer))
            TokenUpdateIntervalProvider = New TokenIntervalProvider
            UrlPatternUser = "https://www.redgifs.com/users/{0}/"
            UserRegex = RParams.DMS("[htps:/]{7,8}.*?redgifs.com/users/([^/]+)", 1)
            ImageVideoContains = "redgifs"
@@ -61,7 +91,7 @@ Namespace API.RedGifs
 #Region "Token updaters"
        Friend Function UpdateTokenIfRequired() As Boolean
            Dim d As Date? = AConvert(Of Date)(TokenLastDateUpdated.Value, AModes.Var, Nothing)
-            If Not d.HasValue OrElse d.Value < Now.AddDays(-1) Then
+            If Not d.HasValue OrElse d.Value < Now.AddMinutes(-CInt(TokenUpdateInterval.Value)) Then
                Return UpdateToken()
            Else
                Return True
--- a/SCrawler/API/TikTok/SiteSettings.vb
+++ b/SCrawler/API/TikTok/SiteSettings.vb
@@ -36,7 +36,7 @@ Namespace API.TikTok
            Return UserData.GetVideoInfo(URL, Responser)
        End Function
        Friend Overrides Function BaseAuthExists() As Boolean
-            Return If(Responser.Cookies?.Count, 0) > 0
+            Return Responser.CookiesExists
        End Function
    End Class
 End Namespace
--- a/SCrawler/API/Twitter/Declarations.vb
+++ b/SCrawler/API/Twitter/Declarations.vb
@@ -12,6 +12,7 @@ Imports PersonalUtilities.Functions.RegularExpressions
 Namespace API.Twitter
    Friend Module Declarations
        Friend Const TwitterSite As String = "Twitter"
        Friend Const TwitterSiteKey As String = "AndyProgram_Twitter"
        Friend ReadOnly DateProvider As ADateTime = GetDateProvider()
        Friend ReadOnly VideoNode As NodeParams() = {New NodeParams("video_info", True, True, True, True, 10)}
        Friend ReadOnly VideoSizeRegEx As RParams = RParams.DMS("\d+x(\d+)", 1, EDP.ReturnValue)
--- a/SCrawler/API/Twitter/EditorExchangeOptions.vb
+++ b/SCrawler/API/Twitter/EditorExchangeOptions.vb
@@ -0,0 +1,27 @@
 ' Copyright (C) 2023  Andy https://github.com/AAndyProgram
 ' This program is free software: you can redistribute it and/or modify
 ' it under the terms of the GNU General Public License as published by
 ' the Free Software Foundation, either version 3 of the License, or
 ' (at your option) any later version.
 '
 ' This program is distributed in the hope that it will be useful,
 ' but WITHOUT ANY WARRANTY
 Namespace API.Twitter
    Friend Class EditorExchangeOptions
        Friend Property GifsDownload As Boolean
        Friend Property GifsSpecialFolder As String
        Friend Property GifsPrefix As String
        Friend Sub New()
        End Sub
        Friend Sub New(ByVal s As SiteSettings)
            GifsDownload = s.GifsDownload.Value
            GifsSpecialFolder = s.GifsSpecialFolder.Value
            GifsPrefix = s.GifsPrefix.Value
        End Sub
        Friend Sub New(ByVal u As UserData)
            GifsDownload = u.GifsDownload
            GifsSpecialFolder = u.GifsSpecialFolder
            GifsPrefix = u.GifsPrefix
        End Sub
    End Class
 End Namespace
--- a/SCrawler/API/Twitter/OptionsForm.Designer.vb
+++ b/SCrawler/API/Twitter/OptionsForm.Designer.vb
@@ -0,0 +1,148 @@
 ' Copyright (C) 2023  Andy https://github.com/AAndyProgram
 ' This program is free software: you can redistribute it and/or modify
 ' it under the terms of the GNU General Public License as published by
 ' the Free Software Foundation, either version 3 of the License, or
 ' (at your option) any later version.
 '
 ' This program is distributed in the hope that it will be useful,
 ' but WITHOUT ANY WARRANTY
 Namespace API.Twitter
    <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
    Partial Friend Class OptionsForm : 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 ActionButton1 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(OptionsForm))
            Dim ActionButton2 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
            Me.CH_DOWN_GIFS = New System.Windows.Forms.CheckBox()
            Me.TXT_GIF_FOLDER = New PersonalUtilities.Forms.Controls.TextBoxExtended()
            Me.TXT_GIF_PREFIX = New PersonalUtilities.Forms.Controls.TextBoxExtended()
            CONTAINER_MAIN = New System.Windows.Forms.ToolStripContainer()
            TP_MAIN = New System.Windows.Forms.TableLayoutPanel()
            CONTAINER_MAIN.ContentPanel.SuspendLayout()
            CONTAINER_MAIN.SuspendLayout()
            TP_MAIN.SuspendLayout()
            CType(Me.TXT_GIF_FOLDER, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.TXT_GIF_PREFIX, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.SuspendLayout()
            '
            'CONTAINER_MAIN
            '
            '
            'CONTAINER_MAIN.ContentPanel
            '
            CONTAINER_MAIN.ContentPanel.Controls.Add(TP_MAIN)
            CONTAINER_MAIN.ContentPanel.Size = New System.Drawing.Size(304, 84)
            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(304, 109)
            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.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
            TP_MAIN.Controls.Add(Me.CH_DOWN_GIFS, 0, 0)
            TP_MAIN.Controls.Add(Me.TXT_GIF_FOLDER, 0, 1)
            TP_MAIN.Controls.Add(Me.TXT_GIF_PREFIX, 0, 2)
            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 = 4
            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.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, 100.0!))
            TP_MAIN.Size = New System.Drawing.Size(304, 84)
            TP_MAIN.TabIndex = 0
            '
            'CH_DOWN_GIFS
            '
            Me.CH_DOWN_GIFS.AutoSize = True
            Me.CH_DOWN_GIFS.Dock = System.Windows.Forms.DockStyle.Fill
            Me.CH_DOWN_GIFS.Location = New System.Drawing.Point(4, 4)
            Me.CH_DOWN_GIFS.Name = "CH_DOWN_GIFS"
            Me.CH_DOWN_GIFS.Padding = New System.Windows.Forms.Padding(100, 0, 0, 0)
            Me.CH_DOWN_GIFS.Size = New System.Drawing.Size(296, 19)
            Me.CH_DOWN_GIFS.TabIndex = 0
            Me.CH_DOWN_GIFS.Text = "Download GIFs"
            Me.CH_DOWN_GIFS.UseVisualStyleBackColor = True
            '
            'TXT_GIF_FOLDER
            '
            ActionButton1.BackgroundImage = CType(resources.GetObject("ActionButton1.BackgroundImage"), System.Drawing.Image)
            ActionButton1.Name = "Clear"
            ActionButton1.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Clear
            Me.TXT_GIF_FOLDER.Buttons.Add(ActionButton1)
            Me.TXT_GIF_FOLDER.CaptionText = "GIFs special folder"
            Me.TXT_GIF_FOLDER.CaptionToolTipText = "Put the GIFs in a special folder"
            Me.TXT_GIF_FOLDER.Dock = System.Windows.Forms.DockStyle.Fill
            Me.TXT_GIF_FOLDER.Location = New System.Drawing.Point(4, 30)
            Me.TXT_GIF_FOLDER.Name = "TXT_GIF_FOLDER"
            Me.TXT_GIF_FOLDER.Size = New System.Drawing.Size(296, 22)
            Me.TXT_GIF_FOLDER.TabIndex = 1
            '
            'TXT_GIF_PREFIX
            '
            ActionButton2.BackgroundImage = CType(resources.GetObject("ActionButton2.BackgroundImage"), System.Drawing.Image)
            ActionButton2.Name = "Clear"
            ActionButton2.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Clear
            Me.TXT_GIF_PREFIX.Buttons.Add(ActionButton2)
            Me.TXT_GIF_PREFIX.CaptionText = "GIF prefix"
            Me.TXT_GIF_PREFIX.CaptionToolTipText = "This prefix will be added to the beginning of the filename"
            Me.TXT_GIF_PREFIX.Dock = System.Windows.Forms.DockStyle.Fill
            Me.TXT_GIF_PREFIX.Location = New System.Drawing.Point(4, 59)
            Me.TXT_GIF_PREFIX.Name = "TXT_GIF_PREFIX"
            Me.TXT_GIF_PREFIX.Size = New System.Drawing.Size(296, 22)
            Me.TXT_GIF_PREFIX.TabIndex = 2
            '
            'OptionsForm
            '
            Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
            Me.ClientSize = New System.Drawing.Size(304, 109)
            Me.Controls.Add(CONTAINER_MAIN)
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
            Me.Icon = Global.SCrawler.My.Resources.SiteResources.TwitterIcon_32
            Me.MaximizeBox = False
            Me.MaximumSize = New System.Drawing.Size(320, 148)
            Me.MinimizeBox = False
            Me.MinimumSize = New System.Drawing.Size(320, 148)
            Me.Name = "OptionsForm"
            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_MAIN.PerformLayout()
            CType(Me.TXT_GIF_FOLDER, System.ComponentModel.ISupportInitialize).EndInit()
            CType(Me.TXT_GIF_PREFIX, System.ComponentModel.ISupportInitialize).EndInit()
            Me.ResumeLayout(False)
        End Sub
        Private WithEvents CH_DOWN_GIFS As CheckBox
        Private WithEvents TXT_GIF_FOLDER As PersonalUtilities.Forms.Controls.TextBoxExtended
        Private WithEvents TXT_GIF_PREFIX As PersonalUtilities.Forms.Controls.TextBoxExtended
    End Class
 End Namespace
--- a/SCrawler/API/Twitter/OptionsForm.resx
+++ b/SCrawler/API/Twitter/OptionsForm.resx
@@ -0,0 +1,143 @@
 <?xml version="1.0" encoding="utf-8"?>
 <root>
  <!-- 
    Microsoft ResX Schema 
    Version 2.0
    The primary goals of this format is to allow a simple XML format 
    that is mostly human readable. The generation and parsing of the 
    various data types are done through the TypeConverter classes 
    associated with the data types.
    Example:
    ... ado.net/XML headers & schema ...
    <resheader name="resmimetype">text/microsoft-resx</resheader>
    <resheader name="version">2.0</resheader>
    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
        <value>[base64 mime encoded serialized .NET Framework object]</value>
    </data>
    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
        <comment>This is a comment</comment>
    </data>
    There are any number of "resheader" rows that contain simple 
    name/value pairs.
    Each data row contains a name, and value. The row also contains a 
    type or mimetype. Type corresponds to a .NET class that support 
    text/value conversion through the TypeConverter architecture. 
    Classes that don't support this are serialized and stored with the 
    mimetype set.
    The mimetype is used for serialized objects, and tells the 
    ResXResourceReader how to depersist the object. This is currently not 
    extensible. For a given mimetype the value must be set accordingly:
    Note - application/x-microsoft.net.object.binary.base64 is the format 
    that the ResXResourceWriter will generate, however the reader can 
    read any of the formats listed below.
    mimetype: application/x-microsoft.net.object.binary.base64
    value   : The object must be serialized with 
            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
            : and then encoded with base64 encoding.
    mimetype: application/x-microsoft.net.object.soap.base64
    value   : The object must be serialized with 
            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
            : and then encoded with base64 encoding.
    mimetype: application/x-microsoft.net.object.bytearray.base64
    value   : The object must be serialized into a byte array 
            : using a System.ComponentModel.TypeConverter
            : and then encoded with base64 encoding.
    -->
  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
    <xsd:element name="root" msdata:IsDataSet="true">
      <xsd:complexType>
        <xsd:choice maxOccurs="unbounded">
          <xsd:element name="metadata">
            <xsd:complexType>
              <xsd:sequence>
                <xsd:element name="value" type="xsd:string" minOccurs="0" />
              </xsd:sequence>
              <xsd:attribute name="name" use="required" type="xsd:string" />
              <xsd:attribute name="type" type="xsd:string" />
              <xsd:attribute name="mimetype" type="xsd:string" />
              <xsd:attribute ref="xml:space" />
            </xsd:complexType>
          </xsd:element>
          <xsd:element name="assembly">
            <xsd:complexType>
              <xsd:attribute name="alias" type="xsd:string" />
              <xsd:attribute name="name" type="xsd:string" />
            </xsd:complexType>
          </xsd:element>
          <xsd:element name="data">
            <xsd:complexType>
              <xsd:sequence>
                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
              </xsd:sequence>
              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
              <xsd:attribute ref="xml:space" />
            </xsd:complexType>
          </xsd:element>
          <xsd:element name="resheader">
            <xsd:complexType>
              <xsd:sequence>
                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
              </xsd:sequence>
              <xsd:attribute name="name" type="xsd:string" use="required" />
            </xsd:complexType>
          </xsd:element>
        </xsd:choice>
      </xsd:complexType>
    </xsd:element>
  </xsd:schema>
  <resheader name="resmimetype">
    <value>text/microsoft-resx</value>
  </resheader>
  <resheader name="version">
    <value>2.0</value>
  </resheader>
  <resheader name="reader">
    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
  <resheader name="writer">
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
  <metadata name="CONTAINER_MAIN.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="TP_MAIN.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="ActionButton1.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="ActionButton2.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>
 </root>
--- a/SCrawler/API/Twitter/OptionsForm.vb
+++ b/SCrawler/API/Twitter/OptionsForm.vb
@@ -0,0 +1,77 @@
 ' Copyright (C) 2023  Andy https://github.com/AAndyProgram
 ' This program is free software: you can redistribute it and/or modify
 ' it under the terms of the GNU General Public License as published by
 ' the Free Software Foundation, either version 3 of the License, or
 ' (at your option) any later version.
 '
 ' This program is distributed in the hope that it will be useful,
 ' but WITHOUT ANY WARRANTY
 Imports SCrawler.Plugin.Attributes
 Imports PersonalUtilities.Forms
 Imports PersonalUtilities.Forms.Controls
 Namespace API.Twitter
    Friend Class OptionsForm
        Private WithEvents MyDefs As DefaultFormOptions
        Private ReadOnly Property MyExchangeOptions As EditorExchangeOptions
        Private ReadOnly MyGifTextProvider As SiteSettings.GifStringProvider
        Friend Sub New(ByRef ExchangeOptions As EditorExchangeOptions)
            InitializeComponent()
            MyExchangeOptions = ExchangeOptions
            MyGifTextProvider = New SiteSettings.GifStringProvider
            MyDefs = New DefaultFormOptions(Me, Settings.Design)
        End Sub
        Private Sub OptionsForm_Load(sender As Object, e As EventArgs) Handles Me.Load
            With MyDefs
                .MyViewInitialize(True)
                .AddOkCancelToolbar()
                With MyExchangeOptions
                    CH_DOWN_GIFS.Checked = .GifsDownload
                    TXT_GIF_FOLDER.Text = .GifsSpecialFolder
                    TXT_GIF_FOLDER.Tag = NameOf(SiteSettings.GifsSpecialFolder)
                    TXT_GIF_PREFIX.Text = .GifsPrefix
                    TXT_GIF_PREFIX.Tag = NameOf(SiteSettings.GifsPrefix)
                    Try
                        Dim p As PropertyOption
                        With Settings(TwitterSiteKey)
                            p = .PropList.Find(Function(pp) pp.Name = TXT_GIF_FOLDER.Tag).Options
                            If Not p Is Nothing Then
                                TXT_GIF_FOLDER.CaptionText = p.ControlText
                                TXT_GIF_FOLDER.CaptionToolTipText = p.ControlToolTip
                                TXT_GIF_FOLDER.CaptionToolTipEnabled = Not TXT_GIF_FOLDER.CaptionToolTipText.IsEmptyString
                            End If
                            p = .PropList.Find(Function(pp) pp.Name = TXT_GIF_PREFIX.Tag).Options
                            If Not p Is Nothing Then
                                TXT_GIF_PREFIX.CaptionText = p.ControlText
                                TXT_GIF_PREFIX.CaptionToolTipText = p.ControlToolTip
                                TXT_GIF_PREFIX.CaptionToolTipEnabled = Not TXT_GIF_PREFIX.CaptionToolTipText.IsEmptyString
                            End If
                        End With
                    Catch
                    End Try
                End With
                .EndLoaderOperations()
            End With
        End Sub
        Private Sub MyDefs_ButtonOkClick(ByVal Sender As Object, ByVal e As KeyHandleEventArgs) Handles MyDefs.ButtonOkClick
            With MyExchangeOptions
                .GifsDownload = CH_DOWN_GIFS.Checked
                .GifsSpecialFolder = TXT_GIF_FOLDER.Text
                .GifsPrefix = TXT_GIF_PREFIX.Text
            End With
            MyDefs.CloseForm()
        End Sub
        Private Sub TXT_ActionOnTextChanged(ByVal Sender As TextBoxExtended, ByVal e As EventArgs) Handles TXT_GIF_FOLDER.ActionOnTextChanged,
                                                                                                           TXT_GIF_PREFIX.ActionOnTextChanged
            If Not MyDefs.Initializing Then
                With Sender
                    MyGifTextProvider.PropertyName = .Tag
                    Dim s% = .SelectionStart
                    Dim t$ = AConvert(Of String)(.Text, String.Empty, MyGifTextProvider)
                    If Not .Text = t Then .Text = t : .Select(s, 0)
                End With
            End If
        End Sub
    End Class
 End Namespace
--- a/SCrawler/API/Twitter/SiteSettings.vb
+++ b/SCrawler/API/Twitter/SiteSettings.vb
@@ -13,10 +13,11 @@ Imports PersonalUtilities.Functions.RegularExpressions
 Imports PersonalUtilities.Tools.Web.Clients
 Imports PersonalUtilities.Tools.Web.Cookies
 Namespace API.Twitter
-    <Manifest("AndyProgram_Twitter"), SavedPosts>
+    <Manifest(TwitterSiteKey), SavedPosts, SpecialForm(False)>
    Friend Class SiteSettings : Inherits SiteSettingsBase
        Friend Const Header_Authorization As String = "authorization"
        Friend Const Header_Token As String = "x-csrf-token"
 #Region "Declarations"
        Friend Overrides ReadOnly Property Icon As Icon
            Get
                Return My.Resources.SiteResources.TwitterIcon_32
@@ -27,14 +28,50 @@ Namespace API.Twitter
                Return My.Resources.SiteResources.TwitterPic_400
            End Get
        End Property
-        <PropertyOption(AllowNull:=False, ControlText:="Authorization",
+#Region "Auth"
        <PropertyOption(AllowNull:=False, IsAuth:=True, ControlText:="Authorization",
                        ControlToolTip:="Set authorization from [authorization] response header. This field must start from [Bearer] key word")>
        Private ReadOnly Property Auth As PropertyValue
-        <PropertyOption(AllowNull:=False, ControlText:="Token", ControlToolTip:="Set token from [x-csrf-token] response header")>
+        <PropertyOption(AllowNull:=False, IsAuth:=True, ControlText:="Token", ControlToolTip:="Set token from [x-csrf-token] response header")>
        Private ReadOnly Property Token As PropertyValue
-        <PropertyOption(ControlText:="Saved posts user", ControlToolTip:="Personal profile username"), PXML>
+        <PropertyOption(IsAuth:=True, ControlText:="Saved posts user", ControlToolTip:="Personal profile username"), PXML>
        Friend ReadOnly Property SavedPostsUserName As PropertyValue
 #End Region
 #Region "Other properties"
        <PropertyOption(IsAuth:=False, ControlText:="Download GIFs"), PXML>
        Friend ReadOnly Property GifsDownload As PropertyValue
        <PropertyOption(IsAuth:=False, ControlText:="GIFs special folder",
                        ControlToolTip:="Put the GIFs in a special folder" & vbCr &
                        "This is a folder name, not an absolute path." & vbCr &
                        "This folder(s) will be created relative to the user's root folder." & vbCr &
                        "Examples:" & vbCr & "SomeFolderName" & vbCr & "SomeFolderName\SomeFolderName2"), PXML>
        Friend ReadOnly Property GifsSpecialFolder As PropertyValue
        <PropertyOption(IsAuth:=False, ControlText:="GIF prefix", ControlToolTip:="This prefix will be added to the beginning of the filename"), PXML>
        Friend ReadOnly Property GifsPrefix As PropertyValue
        <Provider(NameOf(GifsSpecialFolder), Interaction:=True), Provider(NameOf(GifsPrefix), Interaction:=True)>
        Private ReadOnly Property GifStringChecker As IFormatProvider
        Friend Class GifStringProvider : Implements ICustomProvider, IPropertyProvider
            Friend Property PropertyName As String Implements IPropertyProvider.PropertyName
            Private Function Convert(ByVal Value As Object, ByVal DestinationType As Type, ByVal Provider As IFormatProvider,
                                     Optional ByVal NothingArg As Object = Nothing, Optional ByVal e As ErrorsDescriber = Nothing) As Object Implements ICustomProvider.Convert
                Dim v$ = AConvert(Of String)(Value, String.Empty)
                If Not v.IsEmptyString Then
                    If PropertyName = NameOf(GifsPrefix) Then
                        v = v.StringRemoveWinForbiddenSymbols
                    Else
                        v = v.StringReplaceSymbols(GetWinForbiddenSymbols.ToList.ListWithRemove("\").ToArray, String.Empty, EDP.ReturnValue)
                        v = v.StringTrim("\")
                    End If
                End If
                Return v
            End Function
            Private Function GetFormat(ByVal FormatType As Type) As Object Implements IFormatProvider.GetFormat
                Throw New NotImplementedException("[GetFormat] is not available in the context of [TimersChecker]")
            End Function
        End Class
 #End Region
        Friend Overrides ReadOnly Property Responser As Responser
 #End Region
        Friend Sub New()
            MyBase.New(TwitterSite)
            Responser = New Responser($"{SettingsFolderName}\Responser_{Site}.xml")
@@ -44,15 +81,17 @@ Namespace API.Twitter
            With Responser
                If .File.Exists Then
                    Dim b As Boolean = .CookiesDomain.IsEmptyString
                    If EncryptCookies.CookiesEncrypted Then .CookiesEncryptKey = SettingsCLS.CookieEncryptKey
                    .LoadSettings()
                    a = .Headers.Value(Header_Authorization)
                    t = .Headers.Value(Header_Token)
                    .CookiesDomain = "twitter.com"
                    If b Then .SaveSettings()
                Else
                    .ContentType = "application/json"
                    .Accept = "*/*"
                    .CookiesDomain = "twitter.com"
                    .Cookies = New CookieKeeper(.CookiesDomain) With {.EncryptKey = SettingsCLS.CookieEncryptKey}
                    .CookiesEncryptKey = SettingsCLS.CookieEncryptKey
                    .Decoders.Add(SymbolsConverter.Converters.Unicode)
                    .Headers.Add("sec-ch-ua", " Not;A Brand"";v=""99"", ""Google Chrome"";v=""91"", ""Chromium"";v=""91""")
@@ -72,6 +111,11 @@ Namespace API.Twitter
            Token = New PropertyValue(t, GetType(String), Sub(v) ChangeResponserFields(NameOf(Token), v))
            SavedPostsUserName = New PropertyValue(String.Empty, GetType(String))
            GifsDownload = New PropertyValue(True)
            GifsSpecialFolder = New PropertyValue(String.Empty, GetType(String))
            GifsPrefix = New PropertyValue("GIF_")
            GifStringChecker = New GifStringProvider
            UserRegex = RParams.DMS("[htps:/]{7,8}.*?twitter.com/([^/]+)", 1)
            UrlPatternUser = "https://twitter.com/{0}"
            ImageVideoContains = "twitter"
@@ -104,7 +148,13 @@ Namespace API.Twitter
            Return $"https://twitter.com/{User.Name}/status/{Media.Post.ID}"
        End Function
        Friend Overrides Function BaseAuthExists() As Boolean
-            Return If(Responser.Cookies?.Count, 0) > 0 And ACheck(Token.Value) And ACheck(Auth.Value)
+            Return Responser.CookiesExists And ACheck(Token.Value) And ACheck(Auth.Value)
        End Function
        Friend Overrides Sub UserOptions(ByRef Options As Object, ByVal OpenForm As Boolean)
            If Options Is Nothing OrElse Not TypeOf Options Is EditorExchangeOptions Then Options = New EditorExchangeOptions(Me)
            If OpenForm Then
                Using f As New OptionsForm(Options) : f.ShowDialog() : End Using
            End If
        End Sub
    End Class
 End Namespace
--- a/SCrawler/API/Twitter/UserData.vb
+++ b/SCrawler/API/Twitter/UserData.vb
@@ -17,15 +17,50 @@ Imports UStates = SCrawler.API.Base.UserMedia.States
 Namespace API.Twitter
    Friend Class UserData : Inherits UserDataBase
        Private Const SinglePostUrl As String = "https://api.twitter.com/1.1/statuses/show.json?id={0}&tweet_mode=extended"
 #Region "XML names"
        Private Const Name_GifsDownload As String = "GifsDownload"
        Private Const Name_GifsSpecialFolder As String = "GifsSpecialFolder"
        Private Const Name_GifsPrefix As String = "GifsPrefix"
 #End Region
 #Region "Declarations"
        Friend Property GifsDownload As Boolean
        Friend Property GifsSpecialFolder As String
        Friend Property GifsPrefix As String
        Private ReadOnly _DataNames As List(Of String)
-        Protected Overrides Sub LoadUserInformation_OptionalFields(ByRef Container As XmlFile, ByVal Loading As Boolean)
+#End Region
 #Region "Exchange options"
        Friend Overrides Function ExchangeOptionsGet() As Object
            Return New EditorExchangeOptions(Me)
        End Function
        Friend Overrides Sub ExchangeOptionsSet(ByVal Obj As Object)
            If Not Obj Is Nothing AndAlso TypeOf Obj Is EditorExchangeOptions Then
                With DirectCast(Obj, EditorExchangeOptions)
                    GifsDownload = .GifsDownload
                    GifsSpecialFolder = .GifsSpecialFolder
                    GifsPrefix = .GifsPrefix
                End With
            End If
        End Sub
 #End Region
-#Region "Initializer"
+#Region "Initializer, loader"
        Friend Sub New()
            _DataNames = New List(Of String)
        End Sub
        Protected Overrides Sub LoadUserInformation_OptionalFields(ByRef Container As XmlFile, ByVal Loading As Boolean)
            If Loading Then
                GifsDownload = Container.Value(Name_GifsDownload).FromXML(Of Boolean)(True)
                GifsSpecialFolder = Container.Value(Name_GifsSpecialFolder)
                If Not Container.Contains(Name_GifsPrefix) Then
                    GifsPrefix = "GIF_"
                Else
                    GifsPrefix = Container.Value(Name_GifsPrefix)
                End If
            Else
                Container.Add(Name_GifsDownload, GifsDownload.BoolToInteger)
                Container.Add(Name_GifsSpecialFolder, GifsSpecialFolder)
                Container.Add(Name_GifsPrefix, GifsPrefix)
            End If
        End Sub
 #End Region
 #Region "Download functions"
        Protected Overrides Sub DownloadDataF(ByVal Token As CancellationToken)
@@ -182,10 +217,11 @@ Namespace API.Twitter
                                    url = .Value("url")
                                    ff = UrlFile(url)
                                    If Not ff.IsEmptyString Then
-                                        If Not _DataNames.Contains(ff) Then
+                                        If GifsDownload And Not _DataNames.Contains(ff) Then
                                            m = MediaFromData(url, PostID, PostDate,, State)
                                            f = m.File
-                                            If Not f.IsEmptyString Then f.Name = $"GIF_{f.Name}" : m.File = f
+                                            If Not f.IsEmptyString And Not GifsPrefix.IsEmptyString Then f.Name = $"{GifsPrefix}{f.Name}" : m.File = f
                                            If Not GifsSpecialFolder.IsEmptyString Then m.SpecialFolder = $"{GifsSpecialFolder}*"
                                            _TempMediaList.ListAddValue(m, LNC)
                                        End If
                                        Return True
--- a/SCrawler/API/XVIDEOS/SiteSettings.vb
+++ b/SCrawler/API/XVIDEOS/SiteSettings.vb
@@ -63,6 +63,7 @@ Namespace API.XVIDEOS
            Initialized = True
            DomainContainer.EndInit(Me)
            DomainsTemp.ListAddList(Domains)
            MyBase.EndInit()
        End Sub
 #End Region
 #Region "Edit"
@@ -94,7 +95,7 @@ Namespace API.XVIDEOS
        Friend Overrides Function Available(ByVal What As ISiteSettings.Download, ByVal Silent As Boolean) As Boolean
            If Settings.UseM3U8 Then
                If What = ISiteSettings.Download.SavedPosts Then
-                    Return ACheck(SavedVideosPlaylist.Value) And If(Responser.Cookies?.Count, 0) > 0
+                    Return ACheck(SavedVideosPlaylist.Value) And Responser.CookiesExists
                Else
                    Return True
                End If
@@ -104,10 +105,13 @@ Namespace API.XVIDEOS
        End Function
 #End Region
 #Region "User: get, check"
-        Friend Overrides Function GetUserUrl(ByVal User As IPluginContentProvider, ByVal Channel As Boolean) As String
+        Friend Function GetUserUrlPart(ByVal User As UserData) As String
            Dim __user$ = User.Name.Split("_").FirstOrDefault
            __user &= $"/{User.Name.Replace($"{__user}_", String.Empty)}"
-            Return String.Format(UrlPatternUser, __user)
+            Return __user
        End Function
        Friend Overrides Function GetUserUrl(ByVal User As IPluginContentProvider, ByVal Channel As Boolean) As String
            Return String.Format(UrlPatternUser, GetUserUrlPart(User))
        End Function
        Private Const UserRegexDefault As String = "/(profiles|[\w]*?[-]{0,1}channels)/([^/]+)(\Z|.*?)"
        Private Const URD As String = ".*?{0}{1}"
--- a/SCrawler/API/XVIDEOS/UserData.vb
+++ b/SCrawler/API/XVIDEOS/UserData.vb
@@ -45,16 +45,7 @@ Namespace API.XVIDEOS
            UseInternalM3U8Function = True
        End Sub
        Protected Overrides Sub DownloadDataF(ByVal Token As CancellationToken)
-            If Not Settings.UseM3U8 Then
+            If Not Settings.UseM3U8 Then MyMainLOG = $"{ToStringForLog()}: File [ffmpeg.exe] not found" : Exit Sub
                'TODELETE: XVideos m3u8 delete after debug ffmpeg x86
                'If Not Settings.OS64 Then
                '    MyMainLOG = $"XVIDEOS [{ToStringForLog()}]: The plugin only works with x64 OS."
                'Else
                '    'MyMainLOG = $"{ToStringForLog()}: File [ffmpeg.exe] not found"
                'End If
                MyMainLOG = $"{ToStringForLog()}: File [ffmpeg.exe] not found"
                Exit Sub
            End If
            If IsSavedPosts Then
                If Not ACheck(MySettings.SavedVideosPlaylist.Value) Then Throw New ArgumentNullException("SavedVideosPlaylist", "Playlist of saved videos cannot be null")
                DownloadSavedVideos(Token)
@@ -65,49 +56,63 @@ Namespace API.XVIDEOS
        Private Sub DownloadUserVideo(ByVal Token As CancellationToken)
            Dim URL$ = String.Empty
            Try
-                Dim NextPage% = 0
+                Dim NextPage%, d%
-                Dim r$
+                Dim limit% = If(DownloadTopCount, -1)
                Dim r$, n$
                Dim j As EContainer = Nothing
                Dim jj As EContainer
-                Dim user$ = MySettings.GetUserUrl(Me, False)
+                Dim user$ = MySettings.GetUserUrlPart(Me)
                Dim p As UserMedia
                Dim EnvirSet As Boolean = False
-                Do
+                If ID.IsEmptyString Then GetUserID()
-                    ThrowAny(Token)
+                For i% = 0 To 1
-                    URL = $"https://www.xvideos.com/{user}/videos/new/{If(NextPage = 0, String.Empty, NextPage)}"
+                    If i = 1 And ID.IsEmptyString Then Exit For
-                    r = Responser.GetResponse(URL)
+                    NextPage = 0
-                    If Not r.IsEmptyString Then
+                    d = 0
-                        If Not EnvirSet Then UserExists = True : UserSuspended = False : EnvirSet = True
+                    n = IIf(i = 0, "u", "url")
-                        j = JsonDocument.Parse(r).XmlIfNothing
+                    Do
-                        With j
+                        ThrowAny(Token)
-                            If .Contains("videos") Then
+                        If i = 0 Then
-                                With .Item("videos")
+                            URL = $"https://www.xvideos.com/{user}/videos/new/{If(NextPage = 0, String.Empty, NextPage)}"
-                                    If .Count > 0 Then
+                        Else 'Quickies
-                                        NextPage += 1
+                            URL = $"https://www.xvideos.com/quickies-api/profilevideos/all/none/N/{ID}/{NextPage}"
-                                        For Each jj In .Self
+                        End If
-                                            p = New UserMedia With {
+                        r = Responser.GetResponse(URL,, EDP.ReturnValue)
-                                                .Post = jj.Value("id"),
+                        If Not r.IsEmptyString Then
-                                                .URL = $"https://www.xvideos.com/{jj.Value("u").StringTrimStart("/")}"
+                            If Not EnvirSet Then UserExists = True : UserSuspended = False : EnvirSet = True
-                                            }
+                            j = JsonDocument.Parse(r).XmlIfNothing
-                                            If Not p.Post.ID.IsEmptyString And Not jj.Value("u").IsEmptyString Then
+                            With j
-                                                If Not _TempPostsList.Contains(p.Post.ID) Then
+                                If .Contains("videos") Then
-                                                    _TempPostsList.Add(p.Post.ID)
+                                    With .Item("videos")
-                                                    _TempMediaList.Add(p)
+                                        If .Count > 0 Then
-                                                Else
+                                            NextPage += 1
-                                                    Exit Do
+                                            For Each jj In .Self
                                                p = New UserMedia With {
                                                    .Post = jj.Value("id"),
                                                    .URL = $"https://www.xvideos.com/{jj.Value(n).StringTrimStart("/")}"
                                                }
                                                If Not p.Post.ID.IsEmptyString And Not jj.Value(n).IsEmptyString Then
                                                    If Not _TempPostsList.Contains(p.Post.ID) Then
                                                        _TempPostsList.Add(p.Post.ID)
                                                        _TempMediaList.Add(p)
                                                        d += 1
                                                        If limit > 0 And d = limit Then Exit Do
                                                    Else
                                                        Exit Do
                                                    End If
                                                End If
-                                            End If
+                                            Next
-                                        Next
+                                            Continue Do
-                                        Continue Do
+                                        End If
-                                    End If
+                                    End With
-                                End With
+                                End If
-                            End If
+                            End With
-                        End With
+                        End If
-                    End If
+                        If Not j Is Nothing Then j.Dispose()
-                    If Not j Is Nothing Then j.Dispose()
+                        Exit Do
-                    Exit Do
+                    Loop While NextPage < 100
-                Loop While NextPage < 100
+                Next
                If Not j Is Nothing Then j.Dispose()
@@ -130,6 +135,10 @@ Namespace API.XVIDEOS
                If _TempMediaList.ListExists Then _TempMediaList.RemoveAll(Function(m) m.URL.IsEmptyString)
            End Try
        End Sub
        Private Sub GetUserID()
            Dim r$ = Responser.GetResponse($"https://www.xvideos.com/{MySettings.GetUserUrlPart(Me)}",, EDP.ReturnValue)
            If Not r.IsEmptyString Then ID = RegexReplace(r, RParams.DMS("""id_user"":(\d+)", 1, EDP.ReturnValue))
        End Sub
        Private Sub DownloadSavedVideos(ByVal Token As CancellationToken)
            Dim URL$ = MySettings.SavedVideosPlaylist.Value
            Try
--- a/SCrawler/Download/Automation/AutoDownloader.vb
+++ b/SCrawler/Download/Automation/AutoDownloader.vb
@@ -143,7 +143,8 @@ Namespace DownloadObjects
            ''' <returns>True to activate</returns>
            Friend Function Open(ByVal _Key As String) As Boolean
                If Not User Is Nothing Then
-                    If Key = _Key Then
+                    If KeyDismiss = _Key Then
                    ElseIf Key = _Key Then
                        Return True
                    ElseIf KeyFolder = _Key Then
                        User.OpenFolder()
@@ -152,6 +153,8 @@ Namespace DownloadObjects
                    ElseIf Images.ContainsKey(_Key) Then
                        Images(_Key).Open(, EDP.None)
                    End If
                Else
                    Return True
                End If
                Return False
            End Function
@@ -548,10 +551,12 @@ Namespace DownloadObjects
                UserKeys.Last.ShowNotification()
            End If
        End Sub
-        Friend Function NotificationClicked(ByVal Key As String) As Boolean
+        Friend Function NotificationClicked(ByVal Key As String, ByRef Found As Boolean, ByRef ActivateForm As Boolean) As Boolean
            Dim i% = UserKeys.IndexOf(Key)
            If i >= 0 Then
-                MainFrameObj.FocusUser(UserKeys(i).IUserDataKey, UserKeys(i).Open(Key))
+                Found = True
                ActivateForm = UserKeys(i).Open(Key)
                MainFrameObj.FocusUser(UserKeys(i).IUserDataKey, ActivateForm)
                Return True
            Else
                Return False
--- a/SCrawler/Download/Automation/Scheduler.vb
+++ b/SCrawler/Download/Automation/Scheduler.vb
@@ -52,8 +52,13 @@ Namespace DownloadObjects
                Return Plans.Count
            End Get
        End Property
-        Friend Function NotificationClicked(ByVal Key As String) As Boolean
+        Friend Function NotificationClicked(ByVal Key As String, ByRef Found As Boolean, ByRef ActivateForm As Boolean) As Boolean
-            Return Count > 0 AndAlso Plans.Exists(Function(p) p.NotificationClicked(Key))
+            If Count > 0 Then
                For Each plan As AutoDownloader In Plans
                    If plan.NotificationClicked(Key, Found, ActivateForm) Then Return True
                Next
            End If
            Return False
        End Function
        Friend Sub Add(ByVal Plan As AutoDownloader)
            Plan.Source = Me
--- a/SCrawler/Download/Groups/DownloadGroupCollection.vb
+++ b/SCrawler/Download/Groups/DownloadGroupCollection.vb
@@ -34,9 +34,6 @@ Namespace DownloadObjects.Groups
            End If
            GroupsList.ListReindex
        End Sub
        Friend Function GetLabels() As List(Of String)
            Return ListAddList(Nothing, GroupsList.SelectMany(Function(g) g.Labels), LAP.NotContainsOnly)
        End Function
        Default Friend ReadOnly Property Item(ByVal Index As Integer) As DownloadGroup Implements IMyEnumerator(Of DownloadGroup).MyEnumeratorObject
            Get
                Return GroupsList(Index)
--- a/SCrawler/Download/VideosDownloaderForm.Designer.vb
+++ b/SCrawler/Download/VideosDownloaderForm.Designer.vb
@@ -151,10 +151,10 @@ Namespace DownloadObjects
            Me.Controls.Add(Me.LIST_VIDEOS)
            Me.Controls.Add(Me.ToolbarBOTTOM)
            Me.Controls.Add(Me.ToolbarTOP)
            Me.Icon = Global.SCrawler.My.Resources.Resources.ArrowDownIcon_Blue_24
            Me.KeyPreview = True
            Me.MinimumSize = New System.Drawing.Size(540, 400)
            Me.Name = "VideosDownloaderForm"
            Me.ShowIcon = False
            Me.Text = "Download videos"
            Me.ToolbarTOP.ResumeLayout(False)
            Me.ToolbarTOP.PerformLayout()
--- a/SCrawler/Editors/GlobalSettingsForm.Designer.vb
+++ b/SCrawler/Editors/GlobalSettingsForm.Designer.vb
@@ -24,14 +24,16 @@ Namespace Editors
        Private Sub InitializeComponent()
            Me.components = New System.ComponentModel.Container()
            Dim TP_BASIS As System.Windows.Forms.TableLayoutPanel
-            Dim ActionButton1 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton13 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(GlobalSettingsForm))
-            Dim ActionButton2 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton14 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
            Dim TP_IMAGES As System.Windows.Forms.TableLayoutPanel
-            Dim ActionButton3 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton15 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
-            Dim ActionButton4 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton16 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
-            Dim ActionButton5 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton17 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 ActionButton18 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
            Dim ActionButton19 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
            Dim ActionButton20 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
            Dim TP_FILE_NAME As System.Windows.Forms.TableLayoutPanel
            Dim TP_FILE_PATTERNS As System.Windows.Forms.TableLayoutPanel
            Dim LBL_DATE_POS As System.Windows.Forms.Label
@@ -44,14 +46,14 @@ Namespace Editors
            Dim TP_CHANNELS As System.Windows.Forms.TableLayoutPanel
            Dim TAB_BEHAVIOR As System.Windows.Forms.TabPage
            Dim TP_BEHAVIOR As System.Windows.Forms.TableLayoutPanel
-            Dim ActionButton7 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton21 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 ActionButton22 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
            Dim TP_OPEN_INFO As System.Windows.Forms.TableLayoutPanel
            Dim TP_OPEN_PROGRESS As System.Windows.Forms.TableLayoutPanel
            Dim TAB_DOWN As System.Windows.Forms.TabPage
            Dim TP_DOWNLOADING As System.Windows.Forms.TableLayoutPanel
-            Dim ActionButton9 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton23 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
-            Dim ActionButton10 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton24 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
            Dim TP_MISSING_DATA As System.Windows.Forms.TableLayoutPanel
            Dim TAB_FEED As System.Windows.Forms.TabPage
            Dim TP_FEED As System.Windows.Forms.TableLayoutPanel
@@ -68,6 +70,7 @@ Namespace Editors
            Me.TXT_IMGUR_CLIENT_ID = New PersonalUtilities.Forms.Controls.TextBoxExtended()
            Me.CH_SHOW_GROUPS = New System.Windows.Forms.CheckBox()
            Me.CH_USERS_GROUPING = New System.Windows.Forms.CheckBox()
            Me.TXT_USER_AGENT = New PersonalUtilities.Forms.Controls.TextBoxExtended()
            Me.OPT_FILE_NAME_REPLACE = New System.Windows.Forms.RadioButton()
            Me.OPT_FILE_NAME_ADD_DATE = New System.Windows.Forms.RadioButton()
            Me.CH_FILE_NAME_CHANGE = New System.Windows.Forms.CheckBox()
@@ -149,6 +152,7 @@ Namespace Editors
            CType(Me.TXT_MAX_JOBS_USERS, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.TXT_MAX_JOBS_CHANNELS, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.TXT_IMGUR_CLIENT_ID, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.TXT_USER_AGENT, System.ComponentModel.ISupportInitialize).BeginInit()
            TP_FILE_NAME.SuspendLayout()
            TP_FILE_PATTERNS.SuspendLayout()
            TP_CHANNELS_IMGS.SuspendLayout()
@@ -194,13 +198,14 @@ Namespace Editors
            TP_BASIS.Controls.Add(Me.TXT_MAX_JOBS_USERS, 0, 3)
            TP_BASIS.Controls.Add(Me.TXT_MAX_JOBS_CHANNELS, 0, 4)
            TP_BASIS.Controls.Add(Me.CH_CHECK_VER_START, 0, 5)
-            TP_BASIS.Controls.Add(Me.TXT_IMGUR_CLIENT_ID, 0, 6)
+            TP_BASIS.Controls.Add(Me.TXT_IMGUR_CLIENT_ID, 0, 7)
-            TP_BASIS.Controls.Add(Me.CH_SHOW_GROUPS, 0, 7)
+            TP_BASIS.Controls.Add(Me.CH_SHOW_GROUPS, 0, 8)
-            TP_BASIS.Controls.Add(Me.CH_USERS_GROUPING, 0, 8)
+            TP_BASIS.Controls.Add(Me.CH_USERS_GROUPING, 0, 9)
            TP_BASIS.Controls.Add(Me.TXT_USER_AGENT, 0, 6)
            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 = 10
+            TP_BASIS.RowCount = 11
            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!))
@@ -208,20 +213,21 @@ Namespace Editors
            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.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, 25.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, 278)
+            TP_BASIS.Size = New System.Drawing.Size(570, 279)
            TP_BASIS.TabIndex = 0
            '
            'TXT_GLOBAL_PATH
            '
-            ActionButton1.BackgroundImage = CType(resources.GetObject("ActionButton1.BackgroundImage"), System.Drawing.Image)
+            ActionButton13.BackgroundImage = CType(resources.GetObject("ActionButton13.BackgroundImage"), System.Drawing.Image)
-            ActionButton1.Name = "Open"
+            ActionButton13.Name = "Open"
-            ActionButton2.BackgroundImage = CType(resources.GetObject("ActionButton2.BackgroundImage"), System.Drawing.Image)
+            ActionButton14.BackgroundImage = CType(resources.GetObject("ActionButton14.BackgroundImage"), System.Drawing.Image)
-            ActionButton2.Name = "Clear"
+            ActionButton14.Name = "Clear"
-            Me.TXT_GLOBAL_PATH.Buttons.Add(ActionButton1)
+            Me.TXT_GLOBAL_PATH.Buttons.Add(ActionButton13)
-            Me.TXT_GLOBAL_PATH.Buttons.Add(ActionButton2)
+            Me.TXT_GLOBAL_PATH.Buttons.Add(ActionButton14)
            Me.TXT_GLOBAL_PATH.CaptionText = "Data Path"
            Me.TXT_GLOBAL_PATH.CaptionToolTipEnabled = True
            Me.TXT_GLOBAL_PATH.CaptionToolTipText = "Root path for storing users' data"
@@ -282,9 +288,9 @@ Namespace Editors
            '
            'TXT_COLLECTIONS_PATH
            '
-            ActionButton3.BackgroundImage = CType(resources.GetObject("ActionButton3.BackgroundImage"), System.Drawing.Image)
+            ActionButton15.BackgroundImage = CType(resources.GetObject("ActionButton15.BackgroundImage"), System.Drawing.Image)
-            ActionButton3.Name = "Clear"
+            ActionButton15.Name = "Clear"
-            Me.TXT_COLLECTIONS_PATH.Buttons.Add(ActionButton3)
+            Me.TXT_COLLECTIONS_PATH.Buttons.Add(ActionButton15)
            Me.TXT_COLLECTIONS_PATH.CaptionText = "Collections folder"
            Me.TXT_COLLECTIONS_PATH.CaptionToolTipEnabled = True
            Me.TXT_COLLECTIONS_PATH.CaptionToolTipText = "Set collections folder name (name only)"
@@ -296,10 +302,10 @@ Namespace Editors
            '
            'TXT_MAX_JOBS_USERS
            '
-            ActionButton4.BackgroundImage = CType(resources.GetObject("ActionButton4.BackgroundImage"), System.Drawing.Image)
+            ActionButton16.BackgroundImage = CType(resources.GetObject("ActionButton16.BackgroundImage"), System.Drawing.Image)
-            ActionButton4.Name = "Refresh"
+            ActionButton16.Name = "Refresh"
-            ActionButton4.ToolTipText = "Set to default"
+            ActionButton16.ToolTipText = "Set to default"
-            Me.TXT_MAX_JOBS_USERS.Buttons.Add(ActionButton4)
+            Me.TXT_MAX_JOBS_USERS.Buttons.Add(ActionButton16)
            Me.TXT_MAX_JOBS_USERS.CaptionSizeType = System.Windows.Forms.SizeType.Percent
            Me.TXT_MAX_JOBS_USERS.CaptionText = "Maximum downloading tasks of users"
            Me.TXT_MAX_JOBS_USERS.CaptionWidth = 50.0R
@@ -315,10 +321,10 @@ Namespace Editors
            '
            'TXT_MAX_JOBS_CHANNELS
            '
-            ActionButton5.BackgroundImage = CType(resources.GetObject("ActionButton5.BackgroundImage"), System.Drawing.Image)
+            ActionButton17.BackgroundImage = CType(resources.GetObject("ActionButton17.BackgroundImage"), System.Drawing.Image)
-            ActionButton5.Name = "Refresh"
+            ActionButton17.Name = "Refresh"
-            ActionButton5.ToolTipText = "Set to default"
+            ActionButton17.ToolTipText = "Set to default"
-            Me.TXT_MAX_JOBS_CHANNELS.Buttons.Add(ActionButton5)
+            Me.TXT_MAX_JOBS_CHANNELS.Buttons.Add(ActionButton17)
            Me.TXT_MAX_JOBS_CHANNELS.CaptionSizeType = System.Windows.Forms.SizeType.Percent
            Me.TXT_MAX_JOBS_CHANNELS.CaptionText = "Maximum downloading tasks of channels"
            Me.TXT_MAX_JOBS_CHANNELS.CaptionWidth = 50.0R
@@ -345,24 +351,24 @@ Namespace Editors
            '
            'TXT_IMGUR_CLIENT_ID
            '
-            ActionButton6.BackgroundImage = CType(resources.GetObject("ActionButton6.BackgroundImage"), System.Drawing.Image)
+            ActionButton18.BackgroundImage = CType(resources.GetObject("ActionButton18.BackgroundImage"), System.Drawing.Image)
-            ActionButton6.Name = "Clear"
+            ActionButton18.Name = "Clear"
-            Me.TXT_IMGUR_CLIENT_ID.Buttons.Add(ActionButton6)
+            Me.TXT_IMGUR_CLIENT_ID.Buttons.Add(ActionButton18)
            Me.TXT_IMGUR_CLIENT_ID.CaptionText = "Imgur Client ID"
            Me.TXT_IMGUR_CLIENT_ID.Dock = System.Windows.Forms.DockStyle.Fill
-            Me.TXT_IMGUR_CLIENT_ID.Location = New System.Drawing.Point(4, 175)
+            Me.TXT_IMGUR_CLIENT_ID.Location = New System.Drawing.Point(4, 204)
            Me.TXT_IMGUR_CLIENT_ID.Name = "TXT_IMGUR_CLIENT_ID"
            Me.TXT_IMGUR_CLIENT_ID.Size = New System.Drawing.Size(562, 22)
-            Me.TXT_IMGUR_CLIENT_ID.TabIndex = 6
+            Me.TXT_IMGUR_CLIENT_ID.TabIndex = 7
            '
            'CH_SHOW_GROUPS
            '
            Me.CH_SHOW_GROUPS.AutoSize = True
            Me.CH_SHOW_GROUPS.Dock = System.Windows.Forms.DockStyle.Fill
-            Me.CH_SHOW_GROUPS.Location = New System.Drawing.Point(4, 204)
+            Me.CH_SHOW_GROUPS.Location = New System.Drawing.Point(4, 233)
            Me.CH_SHOW_GROUPS.Name = "CH_SHOW_GROUPS"
            Me.CH_SHOW_GROUPS.Size = New System.Drawing.Size(562, 19)
-            Me.CH_SHOW_GROUPS.TabIndex = 7
+            Me.CH_SHOW_GROUPS.TabIndex = 8
            Me.CH_SHOW_GROUPS.Text = "Show groups"
            TT_MAIN.SetToolTip(Me.CH_SHOW_GROUPS, "Grouping users by site")
            Me.CH_SHOW_GROUPS.UseVisualStyleBackColor = True
@@ -371,14 +377,33 @@ Namespace Editors
            '
            Me.CH_USERS_GROUPING.AutoSize = True
            Me.CH_USERS_GROUPING.Dock = System.Windows.Forms.DockStyle.Fill
-            Me.CH_USERS_GROUPING.Location = New System.Drawing.Point(4, 230)
+            Me.CH_USERS_GROUPING.Location = New System.Drawing.Point(4, 259)
            Me.CH_USERS_GROUPING.Name = "CH_USERS_GROUPING"
            Me.CH_USERS_GROUPING.Size = New System.Drawing.Size(562, 19)
-            Me.CH_USERS_GROUPING.TabIndex = 8
+            Me.CH_USERS_GROUPING.TabIndex = 9
            Me.CH_USERS_GROUPING.Text = "Use user grouping"
            TT_MAIN.SetToolTip(Me.CH_USERS_GROUPING, "Group users by groups and/or labels")
            Me.CH_USERS_GROUPING.UseVisualStyleBackColor = True
            '
            'TXT_USER_AGENT
            '
            ActionButton19.BackgroundImage = CType(resources.GetObject("ActionButton19.BackgroundImage"), System.Drawing.Image)
            ActionButton19.Name = "Refresh"
            ActionButton19.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Refresh
            ActionButton20.BackgroundImage = CType(resources.GetObject("ActionButton20.BackgroundImage"), System.Drawing.Image)
            ActionButton20.Name = "Clear"
            ActionButton20.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Clear
            Me.TXT_USER_AGENT.Buttons.Add(ActionButton19)
            Me.TXT_USER_AGENT.Buttons.Add(ActionButton20)
            Me.TXT_USER_AGENT.CaptionText = "UserAgent"
            Me.TXT_USER_AGENT.CaptionToolTipEnabled = True
            Me.TXT_USER_AGENT.CaptionToolTipText = "Default user agent to use in requests"
            Me.TXT_USER_AGENT.Dock = System.Windows.Forms.DockStyle.Fill
            Me.TXT_USER_AGENT.Location = New System.Drawing.Point(4, 175)
            Me.TXT_USER_AGENT.Name = "TXT_USER_AGENT"
            Me.TXT_USER_AGENT.Size = New System.Drawing.Size(562, 22)
            Me.TXT_USER_AGENT.TabIndex = 6
            '
            'TP_FILE_NAME
            '
            TP_FILE_NAME.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single]
@@ -822,7 +847,7 @@ Namespace Editors
            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, 284)
+            TAB_BASIS.Size = New System.Drawing.Size(576, 285)
            TAB_BASIS.TabIndex = 0
            TAB_BASIS.Text = "Basis"
            '
@@ -832,7 +857,7 @@ Namespace Editors
            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, 284)
+            TAB_DEFAULTS.Size = New System.Drawing.Size(576, 338)
            TAB_DEFAULTS.TabIndex = 1
            TAB_DEFAULTS.Text = "Defaults"
            '
@@ -856,7 +881,7 @@ Namespace Editors
            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, 278)
+            TP_DEFS.Size = New System.Drawing.Size(570, 332)
            TP_DEFS.TabIndex = 0
            '
            'CH_DOWN_IMAGES_NATIVE
@@ -876,7 +901,7 @@ Namespace Editors
            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, 284)
+            TAB_DEFS_CHANNELS.Size = New System.Drawing.Size(576, 338)
            TAB_DEFS_CHANNELS.TabIndex = 4
            TAB_DEFS_CHANNELS.Text = "Channels"
            '
@@ -900,7 +925,7 @@ Namespace Editors
            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, 278)
+            TP_CHANNELS.Size = New System.Drawing.Size(570, 332)
            TP_CHANNELS.TabIndex = 0
            '
            'TXT_CHANNEL_USER_POST_LIMIT
@@ -928,7 +953,7 @@ Namespace Editors
            TAB_BEHAVIOR.Controls.Add(TP_BEHAVIOR)
            TAB_BEHAVIOR.Location = New System.Drawing.Point(4, 22)
            TAB_BEHAVIOR.Name = "TAB_BEHAVIOR"
-            TAB_BEHAVIOR.Size = New System.Drawing.Size(576, 284)
+            TAB_BEHAVIOR.Size = New System.Drawing.Size(576, 338)
            TAB_BEHAVIOR.TabIndex = 5
            TAB_BEHAVIOR.Text = "Behavior"
            '
@@ -959,17 +984,17 @@ Namespace Editors
            TP_BEHAVIOR.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
            TP_BEHAVIOR.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
            TP_BEHAVIOR.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
-            TP_BEHAVIOR.Size = New System.Drawing.Size(576, 284)
+            TP_BEHAVIOR.Size = New System.Drawing.Size(576, 338)
            TP_BEHAVIOR.TabIndex = 0
            '
            'TXT_FOLDER_CMD
            '
            Me.TXT_FOLDER_CMD.AutoShowClearButton = True
-            ActionButton7.BackgroundImage = CType(resources.GetObject("ActionButton7.BackgroundImage"), System.Drawing.Image)
+            ActionButton21.BackgroundImage = CType(resources.GetObject("ActionButton21.BackgroundImage"), System.Drawing.Image)
-            ActionButton7.Enabled = False
+            ActionButton21.Enabled = False
-            ActionButton7.Name = "Clear"
+            ActionButton21.Name = "Clear"
-            ActionButton7.Visible = False
+            ActionButton21.Visible = False
-            Me.TXT_FOLDER_CMD.Buttons.Add(ActionButton7)
+            Me.TXT_FOLDER_CMD.Buttons.Add(ActionButton21)
            Me.TXT_FOLDER_CMD.CaptionMode = PersonalUtilities.Forms.Controls.Base.ICaptionControl.Modes.CheckBox
            Me.TXT_FOLDER_CMD.CaptionText = "Folder cmd"
            Me.TXT_FOLDER_CMD.CaptionToolTipEnabled = True
@@ -1008,11 +1033,11 @@ Namespace Editors
            'TXT_CLOSE_SCRIPT
            '
            Me.TXT_CLOSE_SCRIPT.AutoShowClearButton = True
-            ActionButton8.BackgroundImage = CType(resources.GetObject("ActionButton8.BackgroundImage"), System.Drawing.Image)
+            ActionButton22.BackgroundImage = CType(resources.GetObject("ActionButton22.BackgroundImage"), System.Drawing.Image)
-            ActionButton8.Enabled = False
+            ActionButton22.Enabled = False
-            ActionButton8.Name = "Clear"
+            ActionButton22.Name = "Clear"
-            ActionButton8.Visible = False
+            ActionButton22.Visible = False
-            Me.TXT_CLOSE_SCRIPT.Buttons.Add(ActionButton8)
+            Me.TXT_CLOSE_SCRIPT.Buttons.Add(ActionButton22)
            Me.TXT_CLOSE_SCRIPT.CaptionMode = PersonalUtilities.Forms.Controls.Base.ICaptionControl.Modes.CheckBox
            Me.TXT_CLOSE_SCRIPT.CaptionText = "Close cmd"
            Me.TXT_CLOSE_SCRIPT.CaptionToolTipEnabled = True
@@ -1100,7 +1125,7 @@ Namespace Editors
            TAB_DOWN.Controls.Add(TP_DOWNLOADING)
            TAB_DOWN.Location = New System.Drawing.Point(4, 22)
            TAB_DOWN.Name = "TAB_DOWN"
-            TAB_DOWN.Size = New System.Drawing.Size(576, 284)
+            TAB_DOWN.Size = New System.Drawing.Size(576, 338)
            TAB_DOWN.TabIndex = 6
            TAB_DOWN.Text = "Downloading"
            '
@@ -1128,17 +1153,17 @@ Namespace Editors
            TP_DOWNLOADING.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
            TP_DOWNLOADING.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
            TP_DOWNLOADING.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
-            TP_DOWNLOADING.Size = New System.Drawing.Size(576, 284)
+            TP_DOWNLOADING.Size = New System.Drawing.Size(576, 338)
            TP_DOWNLOADING.TabIndex = 0
            '
            'TXT_SCRIPT
            '
-            ActionButton9.BackgroundImage = CType(resources.GetObject("ActionButton9.BackgroundImage"), System.Drawing.Image)
+            ActionButton23.BackgroundImage = CType(resources.GetObject("ActionButton23.BackgroundImage"), System.Drawing.Image)
-            ActionButton9.Name = "Open"
+            ActionButton23.Name = "Open"
-            ActionButton10.BackgroundImage = CType(resources.GetObject("ActionButton10.BackgroundImage"), System.Drawing.Image)
+            ActionButton24.BackgroundImage = CType(resources.GetObject("ActionButton24.BackgroundImage"), System.Drawing.Image)
-            ActionButton10.Name = "Clear"
+            ActionButton24.Name = "Clear"
-            Me.TXT_SCRIPT.Buttons.Add(ActionButton9)
+            Me.TXT_SCRIPT.Buttons.Add(ActionButton23)
-            Me.TXT_SCRIPT.Buttons.Add(ActionButton10)
+            Me.TXT_SCRIPT.Buttons.Add(ActionButton24)
            Me.TXT_SCRIPT.CaptionMode = PersonalUtilities.Forms.Controls.Base.ICaptionControl.Modes.CheckBox
            Me.TXT_SCRIPT.CaptionText = "Script"
            Me.TXT_SCRIPT.CaptionToolTipEnabled = True
@@ -1191,7 +1216,7 @@ Namespace Editors
            TAB_FEED.Controls.Add(TP_FEED)
            TAB_FEED.Location = New System.Drawing.Point(4, 22)
            TAB_FEED.Name = "TAB_FEED"
-            TAB_FEED.Size = New System.Drawing.Size(576, 284)
+            TAB_FEED.Size = New System.Drawing.Size(576, 338)
            TAB_FEED.TabIndex = 7
            TAB_FEED.Text = "Feed"
            '
@@ -1215,7 +1240,7 @@ Namespace Editors
            TP_FEED.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
            TP_FEED.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
            TP_FEED.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
-            TP_FEED.Size = New System.Drawing.Size(576, 284)
+            TP_FEED.Size = New System.Drawing.Size(576, 338)
            TP_FEED.TabIndex = 0
            '
            'TP_FEED_IMG_COUNT
@@ -1305,7 +1330,7 @@ Namespace Editors
            TAB_NOTIFY.Controls.Add(TP_NOTIFY_MAIN)
            TAB_NOTIFY.Location = New System.Drawing.Point(4, 22)
            TAB_NOTIFY.Name = "TAB_NOTIFY"
-            TAB_NOTIFY.Size = New System.Drawing.Size(576, 284)
+            TAB_NOTIFY.Size = New System.Drawing.Size(576, 338)
            TAB_NOTIFY.TabIndex = 8
            TAB_NOTIFY.Text = "Notifications"
            '
@@ -1332,7 +1357,7 @@ Namespace Editors
            TP_NOTIFY_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
            TP_NOTIFY_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
            TP_NOTIFY_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
-            TP_NOTIFY_MAIN.Size = New System.Drawing.Size(576, 284)
+            TP_NOTIFY_MAIN.Size = New System.Drawing.Size(576, 338)
            TP_NOTIFY_MAIN.TabIndex = 0
            '
            'TAB_MAIN
@@ -1348,7 +1373,7 @@ Namespace Editors
            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, 310)
+            Me.TAB_MAIN.Size = New System.Drawing.Size(584, 311)
            Me.TAB_MAIN.TabIndex = 1
            '
            'CONTAINER_MAIN
@@ -1357,13 +1382,13 @@ Namespace Editors
            'CONTAINER_MAIN.ContentPanel
            '
            Me.CONTAINER_MAIN.ContentPanel.Controls.Add(Me.TAB_MAIN)
-            Me.CONTAINER_MAIN.ContentPanel.Size = New System.Drawing.Size(584, 310)
+            Me.CONTAINER_MAIN.ContentPanel.Size = New System.Drawing.Size(584, 311)
            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, 310)
+            Me.CONTAINER_MAIN.Size = New System.Drawing.Size(584, 336)
            Me.CONTAINER_MAIN.TabIndex = 0
            Me.CONTAINER_MAIN.TopToolStripPanelVisible = False
            '
@@ -1371,15 +1396,15 @@ Namespace Editors
            '
            Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-            Me.ClientSize = New System.Drawing.Size(584, 310)
+            Me.ClientSize = New System.Drawing.Size(584, 336)
            Me.Controls.Add(Me.CONTAINER_MAIN)
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
            Me.Icon = Global.SCrawler.My.Resources.Resources.SettingsIcon_48
            Me.KeyPreview = True
            Me.MaximizeBox = False
-            Me.MaximumSize = New System.Drawing.Size(600, 349)
+            Me.MaximumSize = New System.Drawing.Size(600, 375)
            Me.MinimizeBox = False
-            Me.MinimumSize = New System.Drawing.Size(600, 349)
+            Me.MinimumSize = New System.Drawing.Size(600, 375)
            Me.Name = "GlobalSettingsForm"
            Me.ShowInTaskbar = False
            Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
@@ -1394,6 +1419,7 @@ Namespace Editors
            CType(Me.TXT_MAX_JOBS_USERS, System.ComponentModel.ISupportInitialize).EndInit()
            CType(Me.TXT_MAX_JOBS_CHANNELS, System.ComponentModel.ISupportInitialize).EndInit()
            CType(Me.TXT_IMGUR_CLIENT_ID, System.ComponentModel.ISupportInitialize).EndInit()
            CType(Me.TXT_USER_AGENT, System.ComponentModel.ISupportInitialize).EndInit()
            TP_FILE_NAME.ResumeLayout(False)
            TP_FILE_NAME.PerformLayout()
            TP_FILE_PATTERNS.ResumeLayout(False)
@@ -1499,5 +1525,6 @@ Namespace Editors
        Private WithEvents CH_NOTIFY_AUTO_DOWN As CheckBox
        Private WithEvents CH_NOTIFY_CHANNELS As CheckBox
        Private WithEvents CH_DOWN_REPARSE_MISSING As CheckBox
        Private WithEvents TXT_USER_AGENT As PersonalUtilities.Forms.Controls.TextBoxExtended
    End Class
 End Namespace
--- a/SCrawler/Editors/GlobalSettingsForm.resx
+++ b/SCrawler/Editors/GlobalSettingsForm.resx
@@ -121,7 +121,7 @@
    <value>False</value>
  </metadata>
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="ActionButton1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="ActionButton13.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
        wwAADsMBx2+oZAAAAR5JREFUOE+VkjFqwzAUhn2D9iShRyi+QhYbGujg3ZATZPKYdC6FQhPwlAMkg3dP
@@ -132,7 +132,7 @@
        cMaRN0UdBBkAAAAASUVORK5CYII=
 </value>
  </data>
-  <data name="ActionButton2.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="ActionButton14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
        xAAADsQBlSsOGwAAAIZJREFUOE+1j10KwCAMgz2b755xl/IsvnaL2K20UfbDAmEako+ZROSTafjE12Go
@@ -143,7 +143,7 @@
  <metadata name="TP_IMAGES.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
-  <data name="ActionButton3.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="ActionButton15.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
        xAAADsQBlSsOGwAAAIZJREFUOE+1j10KwCAMgz2b755xl/IsvnaL2K20UfbDAmEako+ZROSTafjE12Go
@@ -151,7 +151,7 @@
        AFuc5QFgn6ClHh5iOQVAKNixyucB8NY0vG9JOzzyhrdq5IRgAAAAAElFTkSuQmCC
 </value>
  </data>
-  <data name="ActionButton4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="ActionButton16.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
        JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAACOElE
@@ -167,7 +167,7 @@
        VnR1MIwhwMTCyqEQ37qEmZVDFF0OE/9nAACtFF4Ey6OP+wAAAABJRU5ErkJggg==
 </value>
  </data>
-  <data name="ActionButton5.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="ActionButton17.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
        JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAACOElE
@@ -183,7 +183,7 @@
        VnR1MIwhwMTCyqEQ37qEmZVDFF0OE/9nAACtFF4Ey6OP+wAAAABJRU5ErkJggg==
 </value>
  </data>
-  <data name="ActionButton6.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="ActionButton18.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
        xAAADsQBlSsOGwAAAIZJREFUOE+1j10KwCAMgz2b755xl/IsvnaL2K20UfbDAmEako+ZROSTafjE12Go
@@ -197,6 +197,30 @@
  <metadata name="TT_MAIN.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
  <data name="ActionButton19.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
        JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAACOElE
        QVQ4T2P4//8/QczOJyyqHpzfiE0OQwAZC8iqszAzs7CJ69o4BR768V/W2jcGXQ0KB4aFNS3dDQtnrbCb
        ePCK48wTN1wXXXzge/jXf/clV55zC4hIIatF0cjIyMikElzc57z0wX+XHd/+2+//99/ywP//xlu//tdb
        +eK/4Zp3/1WTOhYzARViNUAluKjTdf37/0ZTTn9TbdhwXblhwwW1/qOP1Ja9+K8w+95/6cm3/6v2Xvkv
        qKjniGGAoIqRpW3/4e8S9uGdzFz82gwMDFxAzCxm4ZegtuLDf+VJ1/8rZM25IqLvnM/CximCYYCic1QN
        v7x2JIwPwyrJ3XNUylddE9G2TWNmZOBDl4czmJiZMSRBmFdSyYyJgUEQmxwIYxWEYXZBCUls4sgYq6CA
        prWNbtG8nXKeaVPR5XiVjSxEzf0yYXy4BBMLO6eQjoOXZvrkbbazrv53Xf/2v4CSbjBMXkhBl1/CMyNZ
        qWnvGy5pNQ+YONwAfjXzAOupl/47LLr333L50/96q9/8l23YdES6cO5KuYqVW+R7Tj6SnfP0v4hryjyY
        HhQDmFjYeHVKFp7WX/Xuv9Kq9/+Vd/z7r7rv/3+l7f//y676DEwDN/9L+BVvYkKLCTgDhNkkVUyVlr74
        qbbz73/VOTc/qsy89kWx+9h7qbQpJwS1bbOAscGGrB6EUTggLOqf16C55ft/HlnNAFZOXgVWdi4FRgYG
        VnR1MIwhwMTCyqEQ37qEmZVDFF0OE/9nAACtFF4Ey6OP+wAAAABJRU5ErkJggg==
 </value>
  </data>
  <data name="ActionButton20.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>
  <metadata name="TP_FILE_NAME.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
@@ -206,6 +230,15 @@
  <metadata name="LBL_DATE_POS.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="LBL_DATE_POS.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="TT_MAIN.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="TT_MAIN.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
  <data name="CH_SEPARATE_VIDEO_FOLDER.ToolTip" xml:space="preserve">
    <value>This is a global setting for newly added users only.
 This parameter specifies how the video will be stored in the users' download path.
@@ -233,19 +266,34 @@ You can find more detailed information about the missing posts in the form that
  <metadata name="TP_DEFS.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="TP_DEFS.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="TAB_DEFS_CHANNELS.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="TP_CHANNELS.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="TP_CHANNELS.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="TAB_BEHAVIOR.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="TP_BEHAVIOR.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
-  <data name="ActionButton7.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <metadata name="TP_BEHAVIOR.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="TP_OPEN_INFO.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="TP_OPEN_PROGRESS.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <data name="ActionButton21.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
        xAAADsQBlSsOGwAAAIZJREFUOE+1j10KwCAMgz2b755xl/IsvnaL2K20UfbDAmEako+ZROSTafjE12Go
@@ -253,7 +301,7 @@ You can find more detailed information about the missing posts in the form that
        AFuc5QFgn6ClHh5iOQVAKNixyucB8NY0vG9JOzzyhrdq5IRgAAAAAElFTkSuQmCC
 </value>
  </data>
-  <data name="ActionButton8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="ActionButton22.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
        xAAADsQBlSsOGwAAAIZJREFUOE+1j10KwCAMgz2b755xl/IsvnaL2K20UfbDAmEako+ZROSTafjE12Go
@@ -273,7 +321,13 @@ You can find more detailed information about the missing posts in the form that
  <metadata name="TP_DOWNLOADING.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
-  <data name="ActionButton9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <metadata name="TP_DOWNLOADING.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="TP_MISSING_DATA.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <data name="ActionButton23.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
        wwAADsMBx2+oZAAAAR5JREFUOE+VkjFqwzAUhn2D9iShRyi+QhYbGujg3ZATZPKYdC6FQhPwlAMkg3dP
@@ -284,7 +338,7 @@ You can find more detailed information about the missing posts in the form that
        cMaRN0UdBBkAAAAASUVORK5CYII=
 </value>
  </data>
-  <data name="ActionButton10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="ActionButton24.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
        xAAADsQBlSsOGwAAAIZJREFUOE+1j10KwCAMgz2b755xl/IsvnaL2K20UfbDAmEako+ZROSTafjE12Go
@@ -301,6 +355,12 @@ You can find more detailed information about the missing posts in the form that
  <metadata name="TP_FEED.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="TP_FEED.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="TP_FEED_IMG_COUNT.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="TP_FEED_IMG_COUNT.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
@@ -310,4 +370,7 @@ You can find more detailed information about the missing posts in the form that
  <metadata name="TP_NOTIFY_MAIN.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
  <metadata name="TP_NOTIFY_MAIN.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
 </root>
--- a/SCrawler/Editors/GlobalSettingsForm.vb
+++ b/SCrawler/Editors/GlobalSettingsForm.vb
@@ -31,6 +31,7 @@ Namespace Editors
                        TXT_MAX_JOBS_USERS.Value = .MaxUsersJobsCount.Value
                        TXT_MAX_JOBS_CHANNELS.Value = .ChannelsMaxJobsCount.Value
                        CH_CHECK_VER_START.Checked = .CheckUpdatesAtStart
                        TXT_USER_AGENT.Text = .UserAgent
                        TXT_IMGUR_CLIENT_ID.Text = .ImgurClientID
                        CH_SHOW_GROUPS.Checked = .ShowGroups
                        CH_USERS_GROUPING.Checked = .UseGrouping
@@ -147,6 +148,8 @@ Namespace Editors
                    .MaxUsersJobsCount.Value = CInt(TXT_MAX_JOBS_USERS.Value)
                    .ChannelsMaxJobsCount.Value = TXT_MAX_JOBS_CHANNELS.Value
                    .CheckUpdatesAtStart.Value = CH_CHECK_VER_START.Checked
                    .UserAgent.Value = TXT_USER_AGENT.Text
                    DefaultUserAgent = TXT_USER_AGENT.Text
                    .ImgurClientID.Value = TXT_IMGUR_CLIENT_ID.Text
                    .ShowGroups.Value = CH_SHOW_GROUPS.Checked
                    .UseGrouping.Value = CH_USERS_GROUPING.Checked
@@ -231,6 +234,9 @@ Namespace Editors
        Private Sub TXT_MAX_JOBS_CHANNELS_ActionOnButtonClick(ByVal Sender As ActionButton, ByVal e As EventArgs) Handles TXT_MAX_JOBS_CHANNELS.ActionOnButtonClick
            If Sender.DefaultButton = ADB.Refresh Then TXT_MAX_JOBS_CHANNELS.Value = SettingsCLS.DefaultMaxDownloadingTasks
        End Sub
        Private Sub TXT_USER_AGENT_ActionOnButtonClick(ByVal Sender As ActionButton, ByVal e As ActionButtonEventArgs) Handles TXT_USER_AGENT.ActionOnButtonClick
            If Sender.DefaultButton = ADB.Refresh Then TXT_USER_AGENT.Text = Settings.UserAgent.Value
        End Sub
        Private Sub ChangePositionControlsEnabling() Handles OPT_FILE_NAME_REPLACE.CheckedChanged, OPT_FILE_NAME_ADD_DATE.CheckedChanged
            Dim b As Boolean = OPT_FILE_NAME_ADD_DATE.Checked And OPT_FILE_NAME_ADD_DATE.Enabled
            OPT_FILE_DATE_START.Enabled = b
--- a/SCrawler/Editors/LabelsForm.vb
+++ b/SCrawler/Editors/LabelsForm.vb
@@ -72,7 +72,7 @@ Friend Class LabelsForm
    Private Sub MyDefs_ButtonOkClick(ByVal Sender As Object, ByVal e As KeyHandleEventArgs) Handles MyDefs.ButtonOkClick
        Try
            LabelsList.ListAddList(CMB_LABELS.Items.CheckedItems.Select(Function(l) CStr(l.Value(0))), LAP.ClearBeforeAdd, LAP.NotContainsOnly)
-            If _AnyLabelAdd And _Source Is Nothing Then Settings.Labels.Update()
+            If _Source Is Nothing Then Settings.Labels.Update()
            MyDefs.CloseForm()
        Catch ex As Exception
            ErrorsDescriber.Execute(EDP.LogMessageValue, ex, "Label selection")
--- a/SCrawler/Editors/SiteEditorForm.vb
+++ b/SCrawler/Editors/SiteEditorForm.vb
@@ -212,7 +212,7 @@ Namespace Editors
            Select Case Sender.DefaultButton
                Case ADB.Edit
                    If Not Host.Responser Is Nothing Then
-                        Using f As New CookieListForm With {.DesignXML = Settings.Design, .UseGrid = False}
+                        Using f As New CookieListForm With {.DesignXML = Settings.Design, .ShowGrid = False}
                            f.SetCollection(Host.Responser.Cookies)
                            f.ShowDialog()
                            If f.DialogResult = DialogResult.OK Then
@@ -224,17 +224,14 @@ Namespace Editors
                    End If
                Case ADB.Clear
                    If Not Host.Responser Is Nothing Then
-                        With Host.Responser
+                        Host.Responser.Cookies.Clear()
-                            If Not .Cookies Is Nothing Then .Cookies.Dispose()
+                        MyDefs.MyOkCancel.EnableOK = True
                            .Cookies = New CookieKeeper(.CookiesDomain)
                            MyDefs.MyOkCancel.EnableOK = True
                        End With
                        SetCookieText()
                    End If
            End Select
        End Sub
        Private Sub SetCookieText()
-            If Not Host.Responser Is Nothing Then TXT_COOKIES.Text = $"{If(Host.Responser.Cookies?.Count, 0)} cookies"
+            If Not Host.Responser Is Nothing Then TXT_COOKIES.Text = $"{Host.Responser.Cookies.Count} cookies"
        End Sub
        Private Sub SpecialButton_Click(sender As Object, e As EventArgs) Handles SpecialButton.Click
            MyDefs.Detector()
--- a/SCrawler/Editors/UserCreatorForm.vb
+++ b/SCrawler/Editors/UserCreatorForm.vb
@@ -397,6 +397,7 @@ CloseForm:
                            CMB_SITE.SelectedIndex = -1
                            CMB_SITE.Clear(ComboBoxExtended.ClearMode.Text)
                            CH_IS_CHANNEL.Checked = False
                            If Not UserIsCollection Then Icon = My.Resources.UsersIcon_32
                        End If
                    End If
                    _TextChangeInvoked = False
@@ -412,6 +413,9 @@ CloseForm:
            MyExchangeOptions = Nothing
            SetParamsBySite()
        End Sub
        Private Sub CMB_SITE_ActionOnTextChanged(sender As Object, e As EventArgs) Handles CMB_SITE.ActionOnTextChanged
            If CMB_SITE.Text.IsEmptyString And Not UserIsCollection Then CMB_SITE.SelectedIndex = -1 : Icon = My.Resources.UsersIcon_32
        End Sub
        Private Sub BTT_OTHER_SETTINGS_Click(sender As Object, e As EventArgs) Handles BTT_OTHER_SETTINGS.Click
            Dim s As SettingsHost = GetSiteByCheckers()
            If Not s Is Nothing Then
@@ -604,9 +608,17 @@ CloseForm:
                    Else
                        BTT_OTHER_SETTINGS.Enabled = False
                    End If
                    If Not UserIsCollection Then
                        If Not s.Source.Icon Is Nothing Then
                            Icon = s.Source.Icon
                        ElseIf Not s.Source.Image Is Nothing Then
                            Icon = ImageRenderer.GetIcon(s.Source.Image, New ErrorsDescriber(False, False, False, My.Resources.UsersIcon_32))
                        End If
                    End If
                End With
            Else
                BTT_OTHER_SETTINGS.Enabled = False
                If Not UserIsCollection Then Icon = My.Resources.UsersIcon_32
            End If
        End Sub
        Private Sub ChangeLabels()
--- a/SCrawler/EncryptCookies.vb
+++ b/SCrawler/EncryptCookies.vb
@@ -12,15 +12,8 @@ Namespace EncryptCookies
        Friend CookiesEncrypted As Boolean = False
        Friend Sub ValidateCookiesEncrypt(ByRef Responser As Responser)
            If Not Responser Is Nothing Then
                Dim b As Boolean = False
                With Responser
-                    If Not .Cookies Is Nothing Then
+                    If .CookiesEncryptKey.IsEmptyString Then .CookiesEncryptKey = SettingsCLS.CookieEncryptKey : .SaveSettings()
                        With .Cookies
                            If .EncryptKey.IsEmptyString Then .EncryptKey = SettingsCLS.CookieEncryptKey : b = .Count > 0
                        End With
                    End If
                    If .CookiesEncryptKey.IsEmptyString Then .CookiesEncryptKey = SettingsCLS.CookieEncryptKey : b = True
                    If b Then .SaveSettings()
                End With
            End If
        End Sub
--- a/SCrawler/LabelsKeeper.vb
+++ b/SCrawler/LabelsKeeper.vb
@@ -25,30 +25,16 @@ Friend Class LabelsKeeper : Implements ICollection(Of String), IMyEnumerator(Of
    Friend ReadOnly Property Current As XMLValuesCollection(Of String)
    Friend ReadOnly Property Excluded As XMLValuesCollection(Of String)
    Friend ReadOnly Property ExcludedIgnore As XMLValue(Of Boolean)
    Private ReadOnly Property SourceXML As XmlFile
    Friend Sub New(ByRef x As XmlFile)
        SourceXML = x
        LabelsList = New List(Of String)
        NewLabels = New List(Of String)
        If LabelsFile.Exists Then LabelsList.ListAddList(IO.File.ReadAllLines(LabelsFile), LAP.NotContainsOnly)
        Current = New XMLValuesCollection(Of String)(XMLValueBase.ListModes.String, "LatestSelectedLabels", x) With {.ListAddParameters = LAP.NotContainsOnly}
        Excluded = New XMLValuesCollection(Of String)(XMLValueBase.ListModes.String, "LatestExcludedLabels", x) With {.ListAddParameters = LAP.NotContainsOnly}
        ExcludedIgnore = New XMLValue(Of Boolean)("LatestExcludedLabelsIgnore", False, x)
-    End Sub
+        Dim lp As New ListAddParams(LAP.NotContainsOnly + LAP.IgnoreICopier)
-    Friend Sub Verify()
+        If Current.Count > 0 Then LabelsList.ListAddList(Current, lp)
-        SourceXML.BeginUpdate()
+        If Excluded.Count > 0 Then LabelsList.ListAddList(Excluded, lp)
        Dim r As Predicate(Of String) = Function(l) Not LabelsList.Contains(l)
        Dim c% = Current.Count
        If c > 0 Then
            Current.ValuesList.RemoveAll(r)
            If Not Current.Count = c Then Current.Update()
        End If
        c = Excluded.Count
        If c > 0 Then
            Excluded.ValuesList.RemoveAll(r)
            If Not c = Excluded.Count Then Excluded.Update()
        End If
        SourceXML.EndUpdate()
    End Sub
    Friend ReadOnly Property ToList As List(Of String)
        Get
@@ -69,10 +55,14 @@ Friend Class LabelsKeeper : Implements ICollection(Of String), IMyEnumerator(Of
        LabelsList.Clear()
        NewLabels.Clear()
    End Sub
-    Friend Sub Update()
+    Friend Sub Update(Optional ByVal Force As Boolean = False)
        If LabelsList.Count > 0 Then
-            LabelsList.Sort()
+            If NewLabelsExists Or Force Then
-            TextSaver.SaveTextToFile(LabelsList.ListToString(vbNewLine), LabelsFile, True, False, EDP.SendInLog)
+                If LabelsList.Contains(NoParsedUser) Then LabelsList.Remove(NoParsedUser)
                LabelsList.Sort()
                TextSaver.SaveTextToFile(LabelsList.ListToString(vbNewLine), LabelsFile, True, False, EDP.SendInLog)
                If NewLabels.Count > 0 Then NewLabels.Clear()
            End If
        Else
            LabelsFile.Delete(, Settings.DeleteMode, EDP.SendInLog)
        End If
--- a/SCrawler/ListImagesLoader.vb
+++ b/SCrawler/ListImagesLoader.vb
@@ -40,20 +40,26 @@ Friend Class ListImagesLoader
            ImageThread = New Thread(New ThreadStart(Sub()
                                                         Dim ar As IAsyncResult = Nothing
                                                         Dim a As Action = Sub()
-                                                                               If UserDataList.ListExists Then
+                                                                               Try
-                                                                                   For i% = 0 To UserDataList.Count - 1
+                                                                                   If UserDataList.ListExists Then
-                                                                                       With UserDataList(i).User
+                                                                                       For i% = 0 To UserDataList.Count - 1
-                                                                                           Select Case Settings.ViewMode.Value
+                                                                                           With UserDataList(i).User
-                                                                                               Case View.LargeIcon : MyList.LargeImageList.Images.Add(.Key, .GetPicture())
+                                                                                               Select Case Settings.ViewMode.Value
-                                                                                               Case View.SmallIcon : MyList.SmallImageList.Images.Add(.Key, .GetPicture())
+                                                                                                   Case View.LargeIcon : MyList.LargeImageList.Images.Add(.Key, .GetPicture())
-                                                                                           End Select
+                                                                                                   Case View.SmallIcon : MyList.SmallImageList.Images.Add(.Key, .GetPicture())
-                                                                                       End With
+                                                                                               End Select
-                                                                                       Application.DoEvents()
+                                                                                           End With
-                                                                                   Next
+                                                                                           Application.DoEvents()
-                                                                                   UserDataList.Clear()
+                                                                                       Next
-                                                                                   GC.Collect()
+                                                                                       UserDataList.Clear()
-                                                                               End If
+                                                                                       GC.Collect()
                                                                                   End If
                                                                               Catch iex As ArgumentOutOfRangeException
                                                                               Catch ex As Exception
                                                                                   ErrorsDescriber.Execute(EDP.SendInLog, ex, "[ListImagesLoader.UpdateImages]")
                                                                               End Try
                                                                               If Not ar Is Nothing Then MyList.EndInvoke(ar)
                                                                               UpdateInProgress = False
                                                                           End Sub
                                                         If MyList.InvokeRequired Then
                                                             ar = MyList.BeginInvoke(a)
@@ -65,62 +71,81 @@ Friend Class ListImagesLoader
            ImageThread.Start()
        End If
    End Sub
    Private Sub InterruptUpdate()
        Try
            If UserDataList.ListExists Then UserDataList.Clear() : Application.DoEvents()
            If If(ImageThread?.IsAlive, False) Then ImageThread.Abort() : Application.DoEvents()
        Catch ex As Exception
            ErrorsDescriber.Execute(EDP.SendInLog, ex, "[ListImagesLoader.InterruptUpdate]")
        End Try
    End Sub
    Friend Sub Update()
-        If Not UpdateInProgress Then
+        Try
-            UpdateInProgress = True
+            If UpdateInProgress Then InterruptUpdate()
-            Dim a As Action = Sub()
+            If Not UpdateInProgress Then
-                                  With MyList
+                UpdateInProgress = True
-                                      .Items.Clear()
+                Dim a As Action = Sub()
-                                      If Not .LargeImageList Is Nothing Then .LargeImageList.Images.Clear()
+                                      With MyList
-                                      .LargeImageList = New ImageList
+                                          .Items.Clear()
-                                      If Not .SmallImageList Is Nothing Then .SmallImageList.Images.Clear()
+                                          If Not .LargeImageList Is Nothing Then .LargeImageList.Images.Clear()
-                                      .SmallImageList = New ImageList
+                                          .LargeImageList = New ImageList
-                                      If Settings.ViewModeIsPicture Then
+                                          If Not .SmallImageList Is Nothing Then .SmallImageList.Images.Clear()
-                                          .LargeImageList.ColorDepth = ColorDepth.Depth32Bit
+                                          .SmallImageList = New ImageList
-                                          .SmallImageList.ColorDepth = ColorDepth.Depth32Bit
+                                          If Settings.ViewModeIsPicture Then
-                                          .LargeImageList.ImageSize = New Size(DivideWithZeroChecking(Settings.MaxLargeImageHeight.Value, 100) * 75, Settings.MaxLargeImageHeight.Value)
+                                              .LargeImageList.ColorDepth = ColorDepth.Depth32Bit
-                                          .SmallImageList.ImageSize = New Size(DivideWithZeroChecking(Settings.MaxSmallImageHeight.Value, 100) * 75, Settings.MaxSmallImageHeight.Value)
+                                              .SmallImageList.ColorDepth = ColorDepth.Depth32Bit
-                                      End If
+                                              .LargeImageList.ImageSize = New Size(DivideWithZeroChecking(Settings.MaxLargeImageHeight.Value, 100) * 75, Settings.MaxLargeImageHeight.Value)
-                                  End With
+                                              .SmallImageList.ImageSize = New Size(DivideWithZeroChecking(Settings.MaxSmallImageHeight.Value, 100) * 75, Settings.MaxSmallImageHeight.Value)
-                              End Sub
+                                          End If
-            If MyList.InvokeRequired Then MyList.Invoke(a) Else a.Invoke
+                                      End With
-            If Settings.Users.Count > 0 Then
+                                  End Sub
-                Settings.Users.Sort()
+                If MyList.InvokeRequired Then MyList.Invoke(a) Else a.Invoke
-                Dim v As View = Settings.ViewMode.Value
+                If Settings.Users.Count > 0 Then
                    Settings.Users.Sort()
                    Dim v As View = Settings.ViewMode.Value
-                With MyList
+                    With MyList
-                    MyList.BeginUpdate()
+                        MyList.BeginUpdate()
-                    If Settings.FastProfilesLoading Then
+                        If Settings.FastProfilesLoading Then
-                        Settings.Users.ListReindex
+                            Settings.Users.ListReindex
-                        UserDataList = (From u As IUserData In Settings.Users Where u.FitToAddParams Select New UserOption(u, MyList)).ListIfNothing
+                            UserDataList = (From u As IUserData In Settings.Users Where u.FitToAddParams Select New UserOption(u, MyList)).ListIfNothing
-                        If UserDataList.ListExists Then UserDataList.Sort()
+                            If UserDataList.ListExists Then UserDataList.Sort()
-                        If UserDataList.ListExists Then
+                            If UserDataList.ListExists Then
-                            .Items.AddRange(UserDataList.Select(Function(u) u.LVI).ToArray)
+                                .Items.AddRange(UserDataList.Select(Function(u) u.LVI).ToArray)
                            If Settings.ViewModeIsPicture Then MyList.EndUpdate() : UpdateImages() Else UserDataList.Clear()
                        End If
                    Else
                        Dim t As New List(Of Task)
                        For Each User As IUserData In Settings.Users
                            If User.FitToAddParams Then
                                If Settings.ViewModeIsPicture Then
-                                    t.Add(Task.Run(Sub() UpdateUser(User, True)))
+                                    MyList.EndUpdate()
                                    UpdateImages()
                                Else
-                                    UpdateUser(User, True)
+                                    UserDataList.Clear()
                                    UpdateInProgress = False
                                End If
                            End If
-                        Next
+                        Else
-                        If t.Count > 0 Then Task.WhenAll(t.ToArray) : t.Clear()
+                            Dim t As New List(Of Task)
-                    End If
+                            For Each User As IUserData In Settings.Users
-                End With
+                                If User.FitToAddParams Then
-                MyList.EndUpdate()
+                                    If Settings.ViewModeIsPicture Then
                                        t.Add(Task.Run(Sub() UpdateUser(User, True)))
                                    Else
                                        UpdateUser(User, True)
                                    End If
                                End If
                            Next
                            If t.Count > 0 Then Task.WhenAll(t.ToArray) : t.Clear()
                            UpdateInProgress = False
                        End If
                    End With
                    MyList.EndUpdate()
                End If
            Else
                MsgBoxE({"User list update aborted. Click the 'Refresh' button to refresh the user list.", "Update user list"}, vbExclamation)
            End If
-            UpdateInProgress = False
+        Catch ex As Exception
-        Else
+            ErrorsDescriber.Execute(EDP.SendInLog, ex, "[ListImagesLoader.Update]")
-            MsgBoxE({"The user list is currently being updated. Please wait for the update operation to complete and try again.", "Update user list"}, vbExclamation)
+        End Try
        End If
    End Sub
    Friend Sub UpdateUser(ByVal User As IUserData, ByVal Add As Boolean)
        Try
--- a/SCrawler/MainFrame.Designer.vb
+++ b/SCrawler/MainFrame.Designer.vb
@@ -121,10 +121,10 @@ Partial Public Class MainFrame : Inherits System.Windows.Forms.Form
        Me.BTT_TRAY_PAUSE_AUTOMATION = New System.Windows.Forms.ToolStripMenuItem()
        Me.BTT_TRAY_SILENT_MODE = New System.Windows.Forms.ToolStripMenuItem()
        Me.BTT_TRAY_FEED_SHOW = New System.Windows.Forms.ToolStripMenuItem()
        Me.BTT_TRAY_CHANNELS = New System.Windows.Forms.ToolStripMenuItem()
        Me.BTT_TRAY_SHOW_HIDE = New System.Windows.Forms.ToolStripMenuItem()
        Me.BTT_TRAY_CLOSE = New System.Windows.Forms.ToolStripMenuItem()
        Me.BTT_TRAY_CLOSE_NO_SCRIPT = New System.Windows.Forms.ToolStripMenuItem()
        Me.BTT_TRAY_CHANNELS = New System.Windows.Forms.ToolStripMenuItem()
        SEP_1 = New System.Windows.Forms.ToolStripSeparator()
        SEP_2 = New System.Windows.Forms.ToolStripSeparator()
        CONTEXT_SEP_1 = New System.Windows.Forms.ToolStripSeparator()
@@ -419,7 +419,7 @@ Partial Public Class MainFrame : Inherits System.Windows.Forms.Form
        'BTT_DOWN_VIDEO
        '
        Me.BTT_DOWN_VIDEO.AutoToolTip = True
-        Me.BTT_DOWN_VIDEO.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
+        Me.BTT_DOWN_VIDEO.Image = Global.SCrawler.My.Resources.Resources.ArrowDownPic_Blue_24
        Me.BTT_DOWN_VIDEO.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.BTT_DOWN_VIDEO.Name = "BTT_DOWN_VIDEO"
        Me.BTT_DOWN_VIDEO.Size = New System.Drawing.Size(231, 22)
@@ -856,6 +856,13 @@ Partial Public Class MainFrame : Inherits System.Windows.Forms.Form
        Me.BTT_TRAY_FEED_SHOW.Text = "Feed"
        Me.BTT_TRAY_FEED_SHOW.ToolTipText = "Show feed of recently downloaded data." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ctrl+Click the tray icon to show the feed" &
    "."
        '
        'BTT_TRAY_CHANNELS
        '
        Me.BTT_TRAY_CHANNELS.Image = Global.SCrawler.My.Resources.SiteResources.RedditPic_512
        Me.BTT_TRAY_CHANNELS.Name = "BTT_TRAY_CHANNELS"
        Me.BTT_TRAY_CHANNELS.Size = New System.Drawing.Size(170, 22)
        Me.BTT_TRAY_CHANNELS.Text = "Channels"
        '
        'BTT_TRAY_SHOW_HIDE
        '
@@ -885,13 +892,6 @@ Partial Public Class MainFrame : Inherits System.Windows.Forms.Form
        Me.BTT_TRAY_CLOSE_NO_SCRIPT.ToolTipText = "Close the program without executing the script"
        Me.BTT_TRAY_CLOSE_NO_SCRIPT.Visible = False
        '
        'BTT_TRAY_CHANNELS
        '
        Me.BTT_TRAY_CHANNELS.Name = "BTT_TRAY_CHANNELS"
        Me.BTT_TRAY_CHANNELS.Size = New System.Drawing.Size(170, 22)
        Me.BTT_TRAY_CHANNELS.Text = "Channels"
        Me.BTT_TRAY_CHANNELS.Image = Global.SCrawler.My.Resources.SiteResources.RedditPic_512
        '
        'MainFrame
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
--- a/SCrawler/MainFrame.vb
+++ b/SCrawler/MainFrame.vb
@@ -88,32 +88,33 @@ Public Class MainFrame
            LIST_PROFILES.ShowGroups = .UseGrouping
            ApplyViewPattern(.ViewMode.Value)
            AddHandler .Labels.NewLabelAdded, AddressOf UpdateLabelsGroups
            UserListLoader = New ListImagesLoader(LIST_PROFILES)
            RefillList()
            UpdateLabelsGroups()
            SetShowButtonsCheckers(.ShowingMode.Value)
            CheckVersion(False)
            BTT_SITE_ALL.Checked = .SelectedSites.Count = 0
            BTT_SITE_SPECIFIC.Checked = .SelectedSites.Count > 0
            BTT_SHOW_LIMIT_DATES_NOT.Tag = ShowingDates.Not
            BTT_SHOW_LIMIT_DATES_NOT.Checked = .ViewDateMode.Value = ShowingDates.Not
            BTT_SHOW_LIMIT_DATES_IN.Tag = ShowingDates.In
            BTT_SHOW_LIMIT_DATES_IN.Checked = .ViewDateMode.Value = ShowingDates.In
            With .Groups
                AddHandler .Added, AddressOf GROUPS_Added
                AddHandler .Deleted, AddressOf GROUPS_Deleted
                AddHandler .Updated, AddressOf GROUPS_Updated
                If .Count > 0 Then
                    For Each ugroup As Groups.DownloadGroup In Settings.Groups : GROUPS_Added(ugroup) : Next
                End If
            End With
            .Automation = New Scheduler
            AddHandler .Groups.Updated, AddressOf .Automation.GROUPS_Updated
            AddHandler .Groups.Deleted, AddressOf .Automation.GROUPS_Deleted
            AddHandler .Automation.PauseDisabled, AddressOf MainFrameObj.PauseButtons.UpdatePauseButtons
            If .Automation.Count > 0 Then .Labels.AddRange(.Automation.GetGroupsLabels, False) : .Labels.Update()
            _UFinit = False
            Await .Automation.Start(True)
        End With
        UserListLoader = New ListImagesLoader(LIST_PROFILES)
        RefillList()
        UpdateLabelsGroups()
        SetShowButtonsCheckers(Settings.ShowingMode.Value)
        CheckVersion(False)
        BTT_SITE_ALL.Checked = Settings.SelectedSites.Count = 0
        BTT_SITE_SPECIFIC.Checked = Settings.SelectedSites.Count > 0
        BTT_SHOW_LIMIT_DATES_NOT.Tag = ShowingDates.Not
        BTT_SHOW_LIMIT_DATES_NOT.Checked = Settings.ViewDateMode.Value = ShowingDates.Not
        BTT_SHOW_LIMIT_DATES_IN.Tag = ShowingDates.In
        BTT_SHOW_LIMIT_DATES_IN.Checked = Settings.ViewDateMode.Value = ShowingDates.In
        With Settings.Groups
            AddHandler .Added, AddressOf GROUPS_Added
            AddHandler .Deleted, AddressOf GROUPS_Deleted
            AddHandler .Updated, AddressOf GROUPS_Updated
            If .Count > 0 Then
                For Each ugroup As Groups.DownloadGroup In Settings.Groups : GROUPS_Added(ugroup) : Next
            End If
        End With
        Settings.Automation = New Scheduler
        AddHandler Settings.Groups.Updated, AddressOf Settings.Automation.GROUPS_Updated
        AddHandler Settings.Groups.Deleted, AddressOf Settings.Automation.GROUPS_Deleted
        AddHandler Settings.Automation.PauseDisabled, AddressOf MainFrameObj.PauseButtons.UpdatePauseButtons
        _UFinit = False
        Await Settings.Automation.Start(True)
        UpdatePauseButtonsVisibility()
        GoTo EndFunction
 FormClosingInvoker:
@@ -1395,6 +1396,7 @@ ResumeDownloadingOperation:
                If result < 6 Then
                    Dim collectionResult% = -1
                    Dim tmpResult%
                    Dim tmpUserNames As New List(Of String)
                    Dim IsMultiple As Boolean = users.Count > 1
                    Dim removedUsers As New List(Of String)
                    Dim keepData As Boolean = Not (result Mod 2) = 0
@@ -1429,10 +1431,18 @@ ResumeDownloadingOperation:
                            removedUsers.Add(ugn(user))
                            user.Dispose()
                        Else
                            If banUser Then
                                tmpUserNames.Clear()
                                If user.IsCollection Then
                                    tmpUserNames.ListAddList(DirectCast(user, UserDataBind).Collections.Select(Function(u) u.Name), l)
                                Else
                                    tmpUserNames.Add(user.Name)
                                End If
                            End If
                            tmpResult = user.Delete(IsMultiple, collectionResult)
                            If user.IsCollection And collectionResult = -1 Then collectionResult = tmpResult
                            If tmpResult > 0 Then
-                                If banUser Then Settings.BlackList.ListAddValue(New UserBan(user.Name, reason), l) : b = True
+                                If banUser And tmpUserNames.Count > 0 Then Settings.BlackList.ListAddList(tmpUserNames.Select(Function(u) New UserBan(u, reason)), l) : b = True
                                RemoveUserFromList(user)
                                removedUsers.Add(ugn(user))
                            Else
@@ -1613,7 +1623,7 @@ ResumeDownloadingOperation:
    Private Sub Downloader_Downloading(ByVal Value As Boolean)
        Dim __isDownloading As Boolean = Value Or Downloader.Working
        ControlInvokeFast(Toolbar_TOP, BTT_DOWN_STOP, Sub() BTT_DOWN_STOP.Enabled = __isDownloading)
-        ControlInvokeFast(Me, Sub() TrayIcon.Icon = If(__isDownloading, My.Resources.ArrowDownIcon_Blue_24, My.Resources.RainbowIcon_48))
+        TrayIcon.Icon = If(__isDownloading, My.Resources.ArrowDownIcon_Blue_24, My.Resources.RainbowIcon_48)
    End Sub
 #End Region
 End Class
--- a/SCrawler/MainFrameObjects.vb
+++ b/SCrawler/MainFrameObjects.vb
@@ -74,14 +74,18 @@ Friend Class MainFrameObjects
    End Sub
    Private Sub Notificator_OnClicked(ByVal Key As String) Handles Notificator.OnClicked
        If Not Key.IsEmptyString Then
            Dim found As Boolean = False
            Dim activateForm As Boolean = False
            If Key.StartsWith(NotificationInternalKey) Then
                Select Case Key
                    Case $"{NotificationInternalKey}_{NotifyObj.Channels}" : MF.MyChannels.FormShowS()
                    Case $"{NotificationInternalKey}_{NotifyObj.SavedPosts}" : MF.MySavedPosts.FormShowS()
                    Case Else : Focus(True)
                End Select
-            ElseIf Settings.Automation Is Nothing OrElse Not Settings.Automation.NotificationClicked(Key) Then
+            ElseIf Settings.Automation Is Nothing OrElse Not Settings.Automation.NotificationClicked(Key, found, activateForm) Then
                Focus(True)
            ElseIf found Then
                Focus(activateForm)
            Else
                Focus(True)
            End If
--- a/SCrawler/MainMod.vb
+++ b/SCrawler/MainMod.vb
@@ -6,6 +6,7 @@
 '
 ' This program is distributed in the hope that it will be useful,
 ' but WITHOUT ANY WARRANTY
 Imports System.Runtime.CompilerServices
 Imports PersonalUtilities.Functions.XML.Base
 Imports PersonalUtilities.Functions.RegularExpressions
 Imports PersonalUtilities.Forms.Toolbars
@@ -107,6 +108,7 @@ Friend Module MainMod
    Friend ReadOnly FeedVideoLengthProvider As New ADateTime("hh\:mm\:ss") With {.TimeParseMode = ADateTime.TimeModes.TimeSpan}
    Friend ReadOnly UserExistsPredicate As New FPredicate(Of IUserData)(Function(u) u.Exists)
    Friend ReadOnly LogConnector As New LogHost
    Friend DefaultUserAgent As String = String.Empty
 #Region "File name operations"
    Friend FileDateAppenderProvider As IFormatProvider
    ''' <summary>File, Date</summary>
@@ -147,6 +149,14 @@ Friend Module MainMod
            Return $"{If(Host?.Name, String.Empty)}{Opt}"
        End If
    End Function
    <Extension> Friend Function GetGroupsLabels(Of T As Groups.IGroup)(ByVal Groups As IEnumerable(Of T)) As List(Of String)
        If Groups.ListExists Then
            Return ListAddList(Nothing, Groups.SelectMany(Function(g) g.Labels), LAP.NotContainsOnly).
                   ListAddList(Groups.SelectMany(Function(g) g.LabelsExcluded), LAP.NotContainsOnly)
        Else
            Return Nothing
        End If
    End Function
 #Region "Standalone video download functions"
    Friend Function GetCurrentBuffer() As String
        Dim b$ = BufferText
@@ -178,6 +188,7 @@ Friend Module MainMod
                If Not found Then
                    If URL.Contains("gfycat") Then
                        um = Gfycat.Envir.GetVideoInfo(URL)
                        If um.ListExists AndAlso um(0).URL.Contains("redgifs.com") Then Return DownloadVideoByURL(um(0).URL, AskForPath, Silent)
                    ElseIf URL.Contains("imgur.com") Then
                        um = Imgur.Envir.GetVideoInfo(URL)
                    Else
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
-<Assembly: AssemblyVersion("2022.12.26.0")>
+<Assembly: AssemblyVersion("2023.2.5.0")>
-<Assembly: AssemblyFileVersion("2022.12.26.0")>
+<Assembly: AssemblyFileVersion("2023.2.5.0")>
 <Assembly: NeutralResourcesLanguage("en")>
--- a/SCrawler/PluginsEnvironment/Hosts/PropertyValueHost.vb
+++ b/SCrawler/PluginsEnvironment/Hosts/PropertyValueHost.vb
@@ -76,6 +76,7 @@ Namespace Plugin.Hosts
                                .EndInit(True)
                            End With
                            AddHandler .ActionOnButtonClick, AddressOf TextBoxClick
                            If Not ProviderValue Is Nothing AndAlso ProviderValueInteraction Then AddHandler .ActionOnTextChanged, AddressOf TextBoxTextChanged
                        End With
                    End If
                End If
@@ -98,6 +99,14 @@ Namespace Plugin.Hosts
                ErrorsDescriber.Execute(EDP.LogMessageValue, ex, $"Updating [{Name}] property")
            End Try
        End Sub
        Private Sub TextBoxTextChanged(ByVal Sender As Object, ByVal e As EventArgs)
            UpdateProviderPropertyName()
            With DirectCast(Sender, TextBoxExtended)
                Dim s% = .SelectionStart
                Dim t$ = AConvert(Of String)(.Text, ProviderValue, String.Empty)
                If Not t = .Text Then .Text = t : .Select(s, 0)
            End With
        End Sub
        Friend Sub UpdateValueByControl()
            If Not Control Is Nothing AndAlso Not TypeOf Control Is Label Then
                If TypeOf Control Is CheckBox Then
@@ -105,6 +114,7 @@ Namespace Plugin.Hosts
                        If Options.ThreeStates Then Value = CInt(.CheckState) Else Value = .Checked
                    End With
                Else
                    UpdateProviderPropertyName()
                    Value = AConvert(DirectCast(Control, TextBoxExtended).Text, AModes.Var, [Type],,,, ProviderValue)
                End If
            End If
@@ -116,12 +126,16 @@ Namespace Plugin.Hosts
                        If Options.ThreeStates Then Return CInt(.CheckState) Else Return .Checked
                    End With
                Else
                    UpdateProviderPropertyName()
                    Return AConvert(DirectCast(Control, TextBoxExtended).Text, AModes.Var, [Type],,,, ProviderValue)
                End If
            Else
                Return Nothing
            End If
        End Function
        Private Sub UpdateProviderPropertyName()
            If ProviderValueIsPropertyProvider Then DirectCast(ProviderValue, IPropertyProvider).PropertyName = Name
        End Sub
 #End Region
 #Region "Compatibility"
        Private ReadOnly Source As Object
@@ -143,9 +157,17 @@ Namespace Plugin.Hosts
        End Property
 #Region "Providers"
        Friend Property ProviderFieldsChecker As IFormatProvider
-        Friend Property ProviderValue As IFormatProvider
+        Private Property ProviderValue As IFormatProvider
-        Friend Sub SetProvider(ByVal Provider As IFormatProvider, ByVal FC As Boolean)
+        Private Property ProviderValueInteraction As Boolean = False
-            If FC Then ProviderFieldsChecker = Provider Else ProviderValue = Provider
+        Private Property ProviderValueIsPropertyProvider As Boolean = False
        Friend Sub SetProvider(ByVal Provider As IFormatProvider, ByVal Instance As Provider)
            If Instance.FieldsChecker Then
                ProviderFieldsChecker = Provider
            Else
                ProviderValue = Provider
                ProviderValueIsPropertyProvider = TypeOf ProviderValue Is IPropertyProvider
                ProviderValueInteraction = Instance.Interaction
            End If
        End Sub
 #End Region
        Friend PropertiesChecking As String()
--- a/SCrawler/PluginsEnvironment/Hosts/SettingsHost.vb
+++ b/SCrawler/PluginsEnvironment/Hosts/SettingsHost.vb
@@ -204,7 +204,7 @@ Namespace Plugin.Hosts
                                    End If
                                Next
                            ElseIf m.MemberType = MemberTypes.Property Then
-                                If Not m.GetCustomAttribute(Of Provider)() Is Nothing Then Providers.Add(m)
+                                If m.GetCustomAttributes(Of Provider)().ListExists Then Providers.Add(m)
                            End If
                        End If
                    End With
@@ -220,13 +220,15 @@ Namespace Plugin.Hosts
                    Updaters.Clear()
                End If
                If Providers.Count > 0 Then
-                    Dim prov As Provider
+                    Dim prov As IEnumerable(Of Provider)
                    Dim _prov As Provider
                    For Each m In Providers
-                        prov = m.GetCustomAttribute(Of Provider)()
+                        prov = m.GetCustomAttributes(Of Provider)()
-                        i = PropList.FindIndex(Function(p) p.Name = prov.Name)
+                        If prov.ListExists Then
-                        If i >= 0 Then
+                            For Each _prov In prov
-                            PropList(i).SetProvider(DirectCast(DirectCast(m, PropertyInfo).GetValue(Source), IFormatProvider),
+                                i = PropList.FindIndex(Function(p) p.Name = _prov.Name)
-                                                    m.GetCustomAttribute(Of Provider)().FieldsChecker)
+                                If i >= 0 Then PropList(i).SetProvider(DirectCast(DirectCast(m, PropertyInfo).GetValue(Source), IFormatProvider), _prov)
                            Next
                        End If
                    Next
                    Providers.Clear()
--- a/SCrawler/SCrawler.vbproj
+++ b/SCrawler/SCrawler.vbproj
@@ -196,6 +196,13 @@
    <Compile Include="API\TikTok\Declarations.vb" />
    <Compile Include="API\TikTok\SiteSettings.vb" />
    <Compile Include="API\TikTok\UserData.vb" />
    <Compile Include="API\Twitter\EditorExchangeOptions.vb" />
    <Compile Include="API\Twitter\OptionsForm.Designer.vb">
      <DependentUpon>OptionsForm.vb</DependentUpon>
    </Compile>
    <Compile Include="API\Twitter\OptionsForm.vb">
      <SubType>Form</SubType>
    </Compile>
    <Compile Include="API\Xhamster\Declarations.vb" />
    <Compile Include="API\Xhamster\M3U8.vb" />
    <Compile Include="API\Xhamster\SiteSettings.vb" />
@@ -416,6 +423,9 @@
    <EmbeddedResource Include="API\Reddit\RedditViewSettingsForm.resx">
      <DependentUpon>RedditViewSettingsForm.vb</DependentUpon>
    </EmbeddedResource>
    <EmbeddedResource Include="API\Twitter\OptionsForm.resx">
      <DependentUpon>OptionsForm.vb</DependentUpon>
    </EmbeddedResource>
    <EmbeddedResource Include="Channels\ChannelsStatsForm.resx">
      <DependentUpon>ChannelsStatsForm.vb</DependentUpon>
    </EmbeddedResource>
--- a/SCrawler/SettingsCLS.vb
+++ b/SCrawler/SettingsCLS.vb
@@ -23,13 +23,10 @@ Friend Class SettingsCLS : Implements IDisposable
    Friend Const CookieEncryptKey As String = "SCrawlerCookiesEncryptKeyword"
    Friend ReadOnly Design As XmlFile
    Private ReadOnly MyXML As XmlFile
    Private ReadOnly OS64 As Boolean
    Private ReadOnly FfmpegExists As Boolean
    Friend ReadOnly FfmpegFile As SFile
    Friend ReadOnly Property UseM3U8 As Boolean
        Get
            'TODELETE: SETTINGS m3u8 delete after debug ffmpeg x86
            'Return OS64 And FfmpegExists
            Return FfmpegExists
        End Get
    End Property
@@ -69,7 +66,6 @@ Friend Class SettingsCLS : Implements IDisposable
    End Sub
    Friend Sub New()
        RemoveUnusedPlugins()
        OS64 = Environment.Is64BitOperatingSystem
        FfmpegFile = "ffmpeg.exe"
        FfmpegExists = FfmpegFile.Exists
@@ -83,7 +79,7 @@ Friend Class SettingsCLS : Implements IDisposable
        LastCollections = New List(Of String)
        FFMPEGNotification = New XMLValue(Of Boolean)("FFMPEGNotification", True, MyXML)
-        If OS64 And Not FfmpegExists Then
+        If Not FfmpegExists Then
            If FFMPEGNotification.Value AndAlso MsgBoxE(New MMessage("[ffmpeg.exe] is missing", "ffmpeg.exe",
                                                        {"OK", New MsgBoxButton("Disable notification") With {
                                                        .IsDialogResultButton = False, .ToolTip = "Disable ffmpeg missing notification"}}, vbExclamation) With {
@@ -104,6 +100,9 @@ Friend Class SettingsCLS : Implements IDisposable
        SeparateVideoFolder = New XMLValue(Of Boolean)("SeparateVideoFolder", True, MyXML)
        CollectionsPath = New XMLValue(Of String)("CollectionsPath", "Collections", MyXML)
        UserAgent = New XMLValue(Of String)("UserAgent",, MyXML)
        If Not UserAgent.IsEmptyString Then DefaultUserAgent = UserAgent
        Dim n() As String = {"Search"}
        SearchInName = New XMLValue(Of Boolean)("SearchInName", True, MyXML, n)
        SearchInDescription = New XMLValue(Of Boolean)("SearchInDescription", False, MyXML, n)
@@ -123,7 +122,7 @@ Friend Class SettingsCLS : Implements IDisposable
        If tmpPluginList.ListExists Then Plugins.AddRange(tmpPluginList)
        CookiesEncrypted.Value = True
-        FastProfilesLoading = New XMLValue(Of Boolean)("FastProfilesLoading", False, MyXML)
+        FastProfilesLoading = New XMLValue(Of Boolean)("FastProfilesLoading", True, MyXML)
        MaxLargeImageHeight = New XMLValue(Of Integer)("MaxLargeImageHeight", 150, MyXML)
        MaxSmallImageHeight = New XMLValue(Of Integer)("MaxSmallImageHeight", 15, MyXML)
        DownloadOpenInfo = New XMLValueAttribute(Of Boolean, Boolean)("DownloadOpenInfo", "OpenAgain", False, False, MyXML)
@@ -210,7 +209,7 @@ Friend Class SettingsCLS : Implements IDisposable
        Labels = New LabelsKeeper(MyXML)
        Groups = New Groups.DownloadGroupCollection
-        Labels.AddRange(Groups.GetLabels, False)
+        Labels.AddRange(Groups.GetGroupsLabels, False)
        MyXML.EndUpdate()
        If MyXML.ChangesDetected Then MyXML.Sort() : MyXML.UpdateData()
@@ -321,11 +320,8 @@ Friend Class SettingsCLS : Implements IDisposable
                If NeedUpdate Then UpdateUsersList()
            End If
            If Users.Count > 0 Then
-                Dim tul As IEnumerable(Of String) = Users.SelectMany(Function(u) u.Labels)
+                Labels.AddRange(Users.SelectMany(Function(u) u.Labels), False)
-                Labels.AddRange(tul, False)
+                Labels.Update()
                If Labels.NewLabelsExists Or
                   (tul.ListExists AndAlso Not tul.Contains(LabelsKeeper.NoParsedUser) AndAlso Labels.Remove(LabelsKeeper.NoParsedUser)) Then _
                   Labels.Update() : Labels.NewLabels.Clear() : Labels.Verify()
            End If
        Catch ex As Exception
        End Try
@@ -536,6 +532,7 @@ Friend Class SettingsCLS : Implements IDisposable
    Private ReadOnly Property CookiesEncrypted As XMLValue(Of Boolean)
    Friend ReadOnly Property AddMissingToLog As XMLValue(Of Boolean)
    Friend ReadOnly Property AddMissingErrorsToLog As XMLValue(Of Boolean)
    Friend ReadOnly Property UserAgent As XMLValue(Of String)
 #Region "Search"
    Friend ReadOnly Property SearchInName As XMLValue(Of Boolean)
    Friend ReadOnly Property SearchInDescription As XMLValue(Of Boolean)
--- a/SCrawler/UserFinder.vb
+++ b/SCrawler/UserFinder.vb
@@ -183,7 +183,7 @@ Friend Class UserFinder : Implements IDisposable
            End If
            __added = {__added, __dup, __skipped}.ListToString(vbCr.StringDup(2))
            If Not __added.IsEmptyString Then
-                Using t As New TextSaver("LOGs\ImportUsers.txt") With {.ForceAddDateTimeToFileName = True}
+                Using t As New TextSaver("LOGs\ImportUsers.txt") With {.FileForceAddDateTimeToName = True}
                    t.Append(__added)
                    If Added.Count > 0 Then
                        t.AppendLine(vbNewLine.StringDup(2))
--- a/SCrawler/UserSearchForm.vb
+++ b/SCrawler/UserSearchForm.vb
@@ -94,56 +94,49 @@ Friend Class UserSearchForm
            LIST_SEARCH.BeginUpdate()
            ControlInvokeFast(LIST_SEARCH, Sub() LIST_SEARCH.Items.Clear())
            Results.Clear()
-            Dim t$ = TXT_SEARCH.Text.Trim
+            Dim t$ = TXT_SEARCH.Text.StringTrim.StringToLower
            With Settings
                If Not t.IsEmptyString And .Users.Count > 0 Then
                    Dim i%
                    Dim s As Plugin.ExchangeOptions = Nothing
                    Dim cu As Boolean = False
                    Dim __descr As Boolean = CH_SEARCH_IN_DESCR.Checked
                    Dim __name As Boolean = CH_SEARCH_IN_NAME.Checked
                    Dim __lbl As Boolean = CH_SEARCH_IN_LABEL.Checked
-                    Dim _CheckUrl As Action(Of IUserData) = Sub(ByVal u As IUserData)
+                    Dim __isUrl As Boolean = t.StartsWith("http")
-                                                                If cu AndAlso ((u.Site = s.SiteName Or u.HOST.Key = s.HostKey) And u.Name.ToLower = s.UserName) Then _
+                    Dim __urlFound As Boolean = False
-                                                                   Results.ListAddValue(New SearchResult(u, SearchResult.Modes.URL), RLP)
+                    Dim _p_url As Predicate(Of IUserData) = Function(u) __urlFound AndAlso ((u.Site = s.SiteName Or u.HOST.Key = s.HostKey) And u.Name.ToLower = s.UserName.ToLower)
-                                                            End Sub
+                    Dim _p_descr As Predicate(Of IUserData) = Function(u) __descr AndAlso Not u.Description.IsEmptyString AndAlso u.Description.ToLower.Contains(t)
-                    Dim _CheckDescr As Action(Of IUserData) = Sub(ByVal u As IUserData)
+                    Dim _p_labels_p As Predicate(Of String) = Function(l) l.ToLower.Contains(t)
-                                                                  If __descr AndAlso Not u.Description.IsEmptyString AndAlso
+                    Dim _p_labels As Predicate(Of IUserData) = Function(u) __lbl AndAlso u.Labels.ListExists AndAlso u.Labels.Exists(_p_labels_p)
-                                                                     u.Description.Contains(t) Then _
+                    Dim _addValue As Action(Of IUserData, SearchResult.Modes, Predicate(Of IUserData)) = Sub(u, m, p) If p.Invoke(u) Then Results.ListAddValue(New SearchResult(u, m), RLP)
                                                                     Results.ListAddValue(New SearchResult(u, SearchResult.Modes.Description), RLP)
                                                              End Sub
                    Dim _LabelPredicate As Predicate(Of String) = Function(l) l.ToLower.Contains(t)
                    Dim _CheckLabels As Action(Of IUserData) = Sub(ByVal u As IUserData)
                                                                   If __lbl AndAlso u.Labels.ListExists AndAlso u.Labels.Exists(_LabelPredicate) Then _
                                                                      Results.ListAddValue(New SearchResult(u, SearchResult.Modes.Label), RLP)
                                                               End Sub
-                    If t.Length >= 4 AndAlso t.StartsWith("http") Then
+                    If __isUrl Then
                        For Each p In Settings.Plugins
                            s = p.Settings.IsMyUser(t)
                            If Not s.UserName.IsEmptyString Then Exit For
                        Next
                        __urlFound = Not s.UserName.IsEmptyString
                    End If
                    cu = Not s.UserName.IsEmptyString
                    t = t.ToLower
                    For Each user As IUserData In .Users
-                        If __name AndAlso user.Name.ToLower.Contains(t) Then Results.ListAddValue(New SearchResult(user, SearchResult.Modes.Name), RLP)
+                        If Not __isUrl AndAlso __name AndAlso user.Name.ToLower.Contains(t) Then Results.ListAddValue(New SearchResult(user, SearchResult.Modes.Name), RLP)
                        If user.IsCollection Then
                            With DirectCast(user, UserDataBind)
                                If .Count > 0 Then
                                    For i = 0 To .Count - 1
-                                        If __name AndAlso .Item(i).Name.ToLower = t Then Results.ListAddValue(New SearchResult(.Item(i), SearchResult.Modes.Name), RLP)
+                                        With .Item(i)
-                                        _CheckUrl(.Item(i))
+                                            If Not __isUrl AndAlso __name AndAlso .Self.Name.ToLower = t Then Results.ListAddValue(New SearchResult(.Self, SearchResult.Modes.Name), RLP)
-                                        _CheckDescr(.Item(i))
+                                            _addValue(.Self, SearchResult.Modes.URL, _p_url)
-                                        _CheckLabels(.Item(i))
+                                            _addValue(.Self, SearchResult.Modes.Description, _p_descr)
                                            _addValue(.Self, SearchResult.Modes.Label, _p_labels)
                                        End With
                                    Next
                                End If
                            End With
                        Else
-                            _CheckUrl(user)
+                            _addValue(user, SearchResult.Modes.URL, _p_url)
-                            _CheckDescr(user)
+                            _addValue(user, SearchResult.Modes.Description, _p_descr)
-                            _CheckLabels(user)
+                            _addValue(user, SearchResult.Modes.Label, _p_labels)
                        End If
                    Next
                    If Results.Count > 0 Then
Author	SHA1	Message	Date
Andy	290b5c4586	2023.2.5.0 Update to library environment GlobalSettings: add UserAgent Gfycat: fix RedGifs urls issue	2023-02-05 20:58:02 +03:00
Andy	f5e68a7032	Update Changelog.md	2023-01-28 05:50:07 +03:00
Andy	ece573dd40	Update README.md	2023-01-28 05:48:54 +03:00
Andy	1f1148020c	2023.1.27.0 Plugins: added 'Interaction' to 'Provider' attribute; added 'IPropertyProvider' interface Hosts: update classes to work with new options Instagram: fixed pinned post reload Twitter: advanced options for GIFs UserCreatorForm: change icon based on the selected site UserSearchForm: change search function	2023-01-27 16:43:57 +03:00
Andy	fc226d549a	2023.1.24.1 Some Imgur albums won't download Added icon for standalone downloader	2023-01-24 16:13:46 +03:00
Andy	602771d982	2023.1.24.0 Imgur albums not downloading Collections: users in the collection are not banned	2023-01-24 06:05:40 +03:00
Andy	3e472b4f2b	Update HowToSupport.md	2023-01-13 00:21:48 +03:00
Andy	30c3fe3b68	Update info Update info	2023-01-12 07:38:17 +03:00
Andy	38c81b7a0b	2022.1.2.0 Redgifs: added token refresh interval; reduced interval value Updated labels collection PornHub: fixed bugs Notifications: pressing any button opens SCrawler User list loader finished	2023-01-02 18:53:24 +03:00
Andy	0fb6add751	Update UserData.vb	2022-12-27 15:19:40 +03:00
Andy	5d64b8c7ce	2022.12.27.0 XVideos: added 'Quickies'; fixed downloading. Instagram: added more enable/disable options.	2022-12-27 15:04:56 +03:00