2023.8.6.0

Plugins.Attributes: add 'DependentFields' attribute
Plugins.IPluginContentProvider: add 'Options' and 'IsSubscription' properties
Plugins.ISiteSettings: add 'SubscriptionsAllowed' property
Plugins.ExchangeOptions: add 'Options' field
Plugins.Attributes.PropertyUpdater: replace 'Dependencies' with 'Arguments'

YT: add 'OutputPathAskForName' and 'OutputPathAutoAddPaths' properties; add the ability to store download locations; add 'DownloadLocation' and 'DownloadLocationsCollection' objects
YT.IDownloaderSettings: add 'OutputPathAskForName' and 'OutputPathAutoAddPaths' properties
YT.Downloader: fixed bug with re-saving elements when loading a video list; fixed bug when files were not deleted when clicking on the delete button; fixed a bug that caused the video to redownload; download job removes elements at wrong indexes; added skipping of downloaded elements in the job; fixed a bug, pending option did not change after download complete
YT.YouTubeMediaContainerBase: add '_MediaStateOnLoad' field and 'NeedToSave' function; update the 'Save' function to prevent saving a file when a download is complete and the file has already been saved; update code for new yt-dlp version

Fixed cache deletion errors
Add user queue
Add global locations
API.Base.SiteSettingsBase: implement 'SubscriptionsAllowed' property; remove request headers with null values on save; add '_AllowUserAgentUpdate' parameter
API.Base.Structures: add 'SiteModes' enum
API.Base.UserDataBase: add 'Erase' button; implement 'Options' and 'IsSubscription' properties; add 'SpecialLabels' property; update 'LVIKey'; update 'FitToAddParams' function; add 'EraseData' function; user colors; Not UserExists notification, UserQueue support
API.Base: add 'DeclaredNames'
API.Instagram: remove default values for headers; disable updating UserAgent from global; check for a new username for non-existent users
API.Mastodon: bypass new inherited twitter options; update names and headers
API.OnlyFans: make 'HH_BROWSER' property nullable; remove 'HH_BROWSER' from required; fix username bug (dots); handling of 504 and 429 errors; add 'DownloadHighlights' and 'DownloadChatMedia' options; add 'UserExchangeOptions'; fixed incorrect error handler
API.PathPlugin: fixed incorrect detection of path existence
API.Pinterest: add 'SpecialLabels'
API.PornHub: add new video regex; remove old regex; added 'DownloadUploaded', 'DownloadTagged', 'DownloadPrivate' and 'DownloadFavorite' properties to 'SiteSettings', 'UserData' and 'UserExchangeOptions'; update regex to define user; added downloading search queries; update 'GetUserUrl' function; hide unnecessary 'RegexFieldsTextBecameNullException' errors; add subscriptions
API.Reddit: add 'SpecialLabels'; add bearer token and its refresh interval; add OAuth; add additional options
API.RedGifs: add 'DependentFields' for 'Token'
API.ThisVid: add 'DownloadFavourite' option; add downloading search queries, tags, categories; add 'SpecialLabels'; add subscriptions; updating cookies issue
API.TikTok: rewrite algorithms
API.Twitter: add 'UseAppropriateModel', 'UseNewEndPointSearch', 'UseNewEndPointProfiles', 'AbortOnLimit', 'DownloadAlreadyParsed', 'MediaModelAllowNonUserTweets' properties; remove old commented code; remove 'TwitterPic_400' and replace with 'TwitterIcon_32.ToBitmap'; add 'DownloadModelForceApply' user option; update environment to GDL 1.25.8; fixed gifs downloading; fix typo in 'ReparseMissing'; update names
API.UserDataBind: prevent adding site-specific labels when adding to a collection
API.Xhamster: add downloading search queries, tags, categories; add 'SpecialLabels'; add additional nodes for channels; add subscriptions
API.XVIDEOS: add downloading search queries, tags, categories; add 'SpecialLabels'; add subscriptions; changed users creation method; add subscriptions
API.YouTube: add subscriptions
AutoDownloader: add new group subscription options; update predicates; fixed excluded labels and sites in default mode; update notifications; add an additional skip options, add 'Force start' option
DownloadedInfoForm: add subscriptions; fixed size/location bug; hide unnecessary error (refill)
Feed: add subscriptions; update filters; add 'Ctrl+G' shortcut
FeedMedia: add subscriptions; fixed 'webm' bug; add title for subscription media; add site icon to post; user colors; always using 'FriendlyName' instead of 'UserName' if it exists
DownloadGroup, GroupDefaults, GroupParameters: add subscription and 'UsersCount' options
MissingPostsForm: add 'BTT_DELETE_ALL'
VideoDownloaderForm, DownloaderUrlForm, DownloaderUrlsArrForm: add download locations support
VideoDownloaderForm: add subscriptions support
GlobalSettingsForm: add new properties
UserCreatorForm: add subscriptions; add 'Options' support (of 'ExchangeOptions'); user colors
ListImagesLoader: add subscription colors; user colors
MainFrame: add subscriptions; add filters by subscription and user; update predicates
NuGet: update 'LibVLCSharp', 'LibVLCSharp.WinForms', 'VideoLAN.LibVLC.Windows'
DownloadableMediaHost: update 'Save' function
PropertyValueHost: fix 'CaptionWidth' bug; add 'Dependents'
SettingsHost: add 'Dependents'
UserDataHost: add 'Options' and 'IsSubscription' properties
SettingsCLS: implement new 'IDownloaderSettings' properties; add 'CacheSnapshots'; add 'DownloadLocations'; add new properties
UserInfo, UserFinder: add subscriptions
UserSearchForm: fixed search by name bug

.github/ISSUE_TEMPLATE/bug_report.md

@@ -30,7 +30,9 @@ A clear and concise description of what you expected to happen.
 **Screenshots**
 If applicable, add screenshots to help explain your problem.
 
-**Release information (please complete the following information):**
+**Release information:**
+
+**Please complete the following information or replace the following text with data copied from SCrawler (click the top right info button in the main window, then the `Environment` button, then the `Copy` button, and paste the copied text here).**
  - OS: [e.g. Windows 10, Windows 11]
  - Architecture: [e.g. x86, x64]
  - Version: [e.g. 2023.3.5.0]
@@ -38,6 +40,7 @@ If applicable, add screenshots to help explain your problem.
  - ffmpeg version (command `ffmpeg -version`):
  - yt-dlp version (command `yt-dlp --version`):
  - gallery-dl version (command `gallery-dl --version`):
+ - cURL version (command `curl --version`):
 
 **Additional context**
 Add any other context about the problem here.

.gitignore

@@ -10,8 +10,7 @@
 *.userosscache
 *.sln.docstates
 .obsidian/
-ToDo.txt
-ToDo.md
+BugReporterFormDiscordWebHook.vb
 
 # User-specific files (MonoDevelop/Xamarin Studio)
 *.userprefs

Changelog.md

@@ -1,3 +1,169 @@
+# 2023.8.6.0
+
+*2023-08-06*
+
+- Added
+  - The ability to remove user data and/or download history for redownload
+  - **Subscription** mode
+  - Settings to change the program title and information in the program information
+  - Settings for saving video thumbnail along with the file or in the cache (temporary cache or permanent cache)
+  - A bug report form to create a bug report or say something nice to the developer :blush:
+  - Prevent adding site-specific labels when adding to a collection
+  - Ability to select custom user highlighting in the main window and feed.
+  - Add a notification to the log if the user is not found on the site
+  - Added visualization of users download queue
+  - Ability to set more than one global paths
+  - Improve user paths changing: now you can also simply move the user/collection to another global location
+  - Ability to move multiple user/collection to another location
+  - Download groups: added `Subscription` options
+  - Download groups: the ability to set the number of users to download
+  - Auto downloader: new group options
+  - Auto downloader: additional skip options
+  - Auto downloader: added force start
+  - Feed: press `Ctrl+G` to go to a specific page
+  - Feed: added site icon to post
+  - Feed: always using `Friendly name` instead of `UserName` if it exists
+  - Missing posts: the ability to delete all missing posts
+  - Standalone downloader: add the ability to store download locations and quickly select after
+  - Standalone downloader: add `Ctrl+O` hotkey to select destination path
+  - Standalone downloader: add `Alt+O` hotkey to select destination path and save it to download locations
+  - User editor: ability to hide/show site-specific labels in collection editing mode
+  - Main window: filters by subscription and user
+  - Instagram: if the user is not found on the site, SCrawler will check for a new user name
+  - OnlyFans: handling of `504` and `429` errors
+  - OnlyFans: the `sec-ch-ua` header is now optional
+  - OnlyFans: ability to download 'Highlights" and media from chats
+  - PathPlugin: incorrect detection of path existence
+  - PornHub: completely rewritten videos parser
+  - PornHub: now you choose which videos you want to download (uploaded, tagged, private, favorites)
+  - PornHub: subscription mode
+  - PornHub: ability to download search queries and search categories
+  - Reddit: ability to set the number of concurrent downloads
+  - Reddit: added bearer token (optional)
+  - Reddit: added OAuth authorization (optional)
+  - Reddit: options to use the bearer token for the timeline and/or saved posts
+  - Reddit: option to disable the use of cookies for the timeline
+  - ThisVid: now you can also download user's favorite videos
+  - ThisVid: ability to download search queries, search categories and search tags
+  - ThisVid: subscription mode
+  - Twitter: new options: `Use the appropriate model`, `New endpoint: search`, `New endpoint: profiles`, `Abort on limit`, `Download already parsed` and `Media Model: allow non-user tweets`
+  - Twitter: new user option `Force apply`
+  - xHamster: ability to download search queries, search categories and search tags
+  - xHamster: subscription mode
+  - xHamster: pornstars download
+  - XVideos: ability to download search queries, search categories and search tags
+  - XVideos: subscription mode
+  - YouTube: added `Output path: ask for a name` and `Output path: auto add` settings
+  - YouTube: added the ability to store download locations and quickly select after
+  - YouTube: subscription mode
+  - Plugins.Attributes: added `DependentFields` attribute
+  - Plugins.Attributes: replace `Dependencies` with `Arguments` (`PropertyUpdater` attribute)
+  - Plugins.IPluginContentProvider: added `Options` and `IsSubscription` properties
+  - Plugins.ISiteSettings: added `SubscriptionsAllowed` property
+  - Plugins.ExchangeOptions: added `Options` field
+  - Plugins: added `ExitException`
+  - Other improvements
+- Updated
+  - gallery-dl up to version 1.25.8
+  - yt-dlp up to version 2023.07.06
+  - LibVLCSharp up to 3.7.0
+  - VideoLAN up to 3.0.18
+- Fixed
+  - **TikTok** supported again!
+  - Auto downloader: excluded labels and sites in default mode are not respected
+  - Download info: does not remember the last size and location
+  - Download info: hide unnecessary error
+  - Feed: `webm` photos not showing
+  - Search users: incorrect search by name
+  - OnlyFans: incorrect parsing of username containing dots
+  - OnlyFans: incorrect error handler
+  - Reddit: Handling error 502 (Reddit data not downloading)
+  - RedGifs: incorrect behavior when updating token
+  - Twitter: gifs are not downloading
+  - xHamster: some channels cannot be downloaded or are not fully downloaded
+  - YouTube: re-saving elements when loading a video list
+  - YouTube: files were not deleted when the delete button was clicked
+  - YouTube: a bug that caused the video to redownload
+  - Minor bugs
+
+# 2023.6.19.0
+
+*2023-06-19*
+
+- Added
+  - **OnlyFans**
+  - YouTube: make the playlists parsing progress more informative
+  - YouTube: add `Add` button to tray
+  - YouTube: add `Ctrl+Click` on tray icon to add download
+  - YouTube: add setting `Download on click in tray: show form`
+  - Minor improvements to progress bars
+  - Other improvements
+- Fixed
+  - YouTube: incorrect sorting algorithm
+  - LPSG: some files didn't download
+  - Reddit: downloaded gifs are static (Issue #141)
+  - xHamster: videos are not downloading or downloading incorrectly (Issue #144)
+  - Progress bar bugs
+  - Minor bugs
+
+# 2023.6.9.0
+
+*2023-06-09*
+
+- Fixed
+  - YouTube: opening paths to downloaded playlists and channels
+  - Twitter: make the algorithm faster
+  - Make progress more informative
+
+# 2023.6.8.0
+
+*2023-06-08*
+
+- Added
+  - YouTube: append artist name to music playlist output path
+  - YouTube: save thumbnail path for playlist and channel
+- Fixed
+  - YouTube: opening paths to downloaded playlists and channels
+  - Twitter: profile not fully downloaded
+  - Corrected form size for small monitors (Issue #136)
+
+# 2023.6.5.0
+
+*2023-06-05*
+
+- Added
+  - **Instagram**: add additional authorization headers
+  - Setting to prevent user icon and banner from downloading (Request #129)
+  - Add standalone downloader to tray context menu
+  - YouTube downloader: added `Replace modification date` property
+  - Minor improvements
+- Fixed
+  - Fascist **Twitter**: posts not downloading (new API)
+  - Main window: refill bug when the number of filtered profiles = 0
+  - Standalone downloader: new items are not added to the queue
+  - Standalone downloader: bug when not downloaded videos do not appear in the list when loading the program
+  - Standalone downloader: add videos array not working
+  - Saved posts: remove main progress perform when downloading saved posts
+  - Minor bugs
+
+# 2023.5.12.0
+
+*2023-05-12*
+
+- Added
+  - Advanced progress (make progress bars more informative)
+  - User metrics calculation
+  - Reddit: improve parsing function
+  - PornHub: add `Download UHD` option
+- Fixed
+  - MD5 GIF hash bug
+  - Mastodon: handle 'Forbidden' error
+  - Mastodon: bug in parsing non-user posts
+  - Pinterest: remove cookies requirement for saved posts
+  - PornHub: resolutions issue
+  - Reddit: missing & broken images bug
+  - Main window: collection pointing bug 
+
 # 2023.4.28.0
 
 *2023-04-28*

ProgramsComparison.md

@@ -117,7 +117,7 @@ https://github.com/RipMeApp/ripme
 | **Free options** | The program is completely free | The program is completely free, but site limits are not declared |
 | Operating Systems | Windows 10+ | Windows, MacOS, Linux |
 | Select want content type to download | Yes | Yes |
-| Suported sites | 15 internal and any site using plugins | 86+ sites (declared) |
+| Suported sites | 15+ internal and any site using plugins | 86+ sites (declared) |
 | Other sites support | **Yes** | No |
 | Still supported | **Yes** | **No (last release date May 4, 2021)** |
 

README.md

@@ -1,3 +1,5 @@
+# :rainbow_flag: Happy LGBT Pride Month :tada:
+
 # :rainbow_flag: Social networks crawler :rainbow_flag:
 
 [![GitHub release (latest by date)](https://img.shields.io/github/v/release/AAndyProgram/SCrawler)](https://github.com/AAndyProgram/SCrawler/releases/latest)
@@ -9,17 +11,19 @@
 :eu:
 :greece:
 
-A program to download photo and video from [any site](#supported-sites) (e.g. YouTube, YouTube Music, Reddit, Twitter, Mastodon, Instagram, TikTok, RedGifs, PornHub, XHamster, XVIDEOS, ThisVid, LPSG, Pinterest).
+A program to download photo and video from [any site](#supported-sites) (e.g. YouTube, YouTube Music, OnlyFans, Reddit, Twitter, Mastodon, Instagram, TikTok, RedGifs, PornHub, XHamster, XVIDEOS, ThisVid, LPSG, Pinterest).
 
 **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:
 [![ko-fi](https://www.ko-fi.com/img/githubbutton_sm.svg)](https://ko-fi.com/andyprogram)--->
 **Bitcoin**: BC1Q0NH839FT5TA44DD7L7RLR97XDQAG9V8D6N7XET
 
+[![](https://www.softpedia.com/_img/softpedia_100_free.png?2023_1)](https://www.softpedia.com/get/Internet/Download-Managers/Social-networks-crawler.shtml#status)
+
 ![Main window](ProgramScreenshots/MainWindow.png)
 ![Channels window](ProgramScreenshots/Channels.png)
 
-[**YouTube standalone application:**](https://github.com/AAndyProgram/SCrawler/wiki/YouTube%20downloader)
+[**YouTube standalone application:**](https://github.com/AAndyProgram/SCrawler/wiki/YouTube-downloader)
 
 ![YouTube application](ProgramScreenshots/AppYouTube.png)
 
@@ -29,26 +33,28 @@ A program to download photo and video from [any site](#supported-sites) (e.g. Yo
   - Reddit images, galleries of images, videos, saved posts;
   - Redgifs videos (https://www.redgifs.com/);
   - Twitter images and videos, saved (bookmarked) posts;
+  - OnlyFans images and videos, saved (bookmarked) posts;
   - Mastodon images and videos, saved (bookmarked) posts;
   - Instagram images and videos, tagged posts, stories, saved posts;
   - TikTok videos (*currently broken*; [limited](https://github.com/AAndyProgram/SCrawler/wiki/Settings#tiktok-limits));
   - Pinterest boards, users, saved posts;
   - Imgur images, galleries and videos;
   - Gfycat videos;
-  - PornHub images, videos, save (liked) posts;
-  - XHamster images, videos, saved posts;
-  - XVIDEOS videos, saved posts;
-  - ThiVid images, videos, saved posts;
+  - PornHub images, videos, save (liked) posts, search queries, search categories;
+  - XHamster images, videos, saved posts, search queries, search categories, search tags;
+  - XVIDEOS videos, saved posts, search queries, search categories;
+  - ThisVid images, videos, saved posts, search queries, search categories, search tags;
   - [Other](#supported-sites) supported sites
-- Parse [channel and view data](https://github.com/AAndyProgram/SCrawler/wiki/Channels)
-- Download [saved Reddit, Twitter and Instagram posts](https://github.com/AAndyProgram/SCrawler/wiki/Home#saved-posts)
+- Parse [Reddit channel and view data](https://github.com/AAndyProgram/SCrawler/wiki/Channels)
+- Download [saved posts](https://github.com/AAndyProgram/SCrawler/wiki/Home#saved-posts)
 - Add users from parsed channel
 - **Advanced user management**
 - **Automation** ([downloading data automatically](https://github.com/AAndyProgram/SCrawler/wiki/Settings#automation) every ```X``` minutes)
-- **Feed** ([feed](https://github.com/AAndyProgram/SCrawler/wiki#feed) of downloaded media files)
+- **Feed** ([feed](https://github.com/AAndyProgram/SCrawler/wiki#feed) of downloaded media files and subscriptions posts)
 - Labeling users
 - Create [download groups](https://github.com/AAndyProgram/SCrawler/wiki/Settings#download-groups)
 - Adding users to favorites and temporary
+- Adding users and search queries in the **Subscription** mode (download post preview, but do not download the media file)
 - [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](https://github.com/AAndyProgram/SCrawler/wiki#download-separate-video), image or gallery
@@ -63,9 +69,10 @@ A program to download photo and video from [any site](#supported-sites) (e.g. Yo
 - **YouTube Music**
 - **Reddit**
 - **Twitter**
+- **OnlyFans**
 - **Mastodon**
 - **Instagram**
-- TikTok (*currently broken*; [limited](https://github.com/AAndyProgram/SCrawler/wiki/Settings#tiktok-limits))
+- TikTok
 - RedGifs
 - Pinterest
 - Imgur
@@ -120,6 +127,7 @@ The program parses user posts and compares file names with existing ones to remo
   - **[SITES REQUIREMENTS](https://github.com/AAndyProgram/SCrawler/wiki/Settings#sites-requirements)**
   - [Reddit](https://github.com/AAndyProgram/SCrawler/wiki/Settings#reddit)
   - [Twitter](https://github.com/AAndyProgram/SCrawler/wiki/Settings#twitter)
+  - [OnlyFans](https://github.com/AAndyProgram/SCrawler/wiki/Settings#onlyfans)
   - [Mastodon](https://github.com/AAndyProgram/SCrawler/wiki/Settings#Mastodon)
   - [Instagram](https://github.com/AAndyProgram/SCrawler/wiki/Settings#instagram)
   - [TikTok](https://github.com/AAndyProgram/SCrawler/wiki/Settings#tiktok)
@@ -158,11 +166,40 @@ The program has an intuitive interface.
 
 Just add a user profile and **click the ```Download``` button**.
 
-Read more about adding users and subreddits [here](https://github.com/AAndyProgram/SCrawler/wiki#Add%20user)
+```mermaid
+stateDiagram
+Start: Add site credentials
+What: What would I like to do
+DownUser: Download user
+DownVideo: Download video
+AUser: Add user (1)
+OVIF: Open standalone downloader (2)
+AVideo: Add video url
+F5: Press 'F5' or click the download button
+[*]-->Start
+Start-->What
+What-->DownUser
+What-->DownVideo
+DownUser-->AUser
+DownVideo-->OVIF
+OVIF-->AVideo
+AVideo-->F5
+AUser-->F5
+F5-->[*]
+```
+1. Press `Insert` or click the `Download` button ([read more here](https://github.com/AAndyProgram/SCrawler/wiki#users-list), [hot keys](https://github.com/AAndyProgram/SCrawler/wiki#hot-keys))
+2. Click the `Download` button, then `Standalone downloader` ([read more here](https://github.com/AAndyProgram/SCrawler/wiki#download-separate-video))
 
 ![Add user](ProgramScreenshots/CreateUserClear.png)
 
 # Contact me
 
+[e-mail](mailto:andyprogram@proton.me): andyprogram@proton.me
+
 Matrix (Element): https://matrix.to/#/@andyprogram:matrix.org
-Discord: AndyProgram#3804
+
+Discord (contact the developer): andyprogram
+
+Discord server: https://discord.gg/uFNUXvFFmg
+
+[Wire](https://account.wire.com/user-profile/?id=93985052-cf2c-4b72-ac75-bbe3231cf544): @andyprogram

SCrawler.PluginProvider/Attributes/Attributes.vb

@@ -44,6 +44,16 @@ Namespace Plugin.Attributes
             Name = PropertyName
         End Sub
     End Class
+    ''' <summary>Set the dependent fields that need to be updated when this property is changed internally.</summary>
+    <AttributeUsage(AttributeTargets.Property, AllowMultiple:=False, Inherited:=False)> Public NotInheritable Class DependentFields : Inherits Attribute
+        Public ReadOnly Fields As String()
+        Public Sub New(ByVal Field As String)
+            Fields = {Field}
+        End Sub
+        Public Sub New(ByVal Fields As String())
+            Me.Fields = Fields
+        End Sub
+    End Class
     ''' <summary>Store property value in settings XML file</summary>
     <AttributeUsage(AttributeTargets.Property, AllowMultiple:=False, Inherited:=False)> Public NotInheritable Class PXML : Inherits Attribute
         Public ReadOnly ElementName As String
@@ -59,16 +69,16 @@ Namespace Plugin.Attributes
     ''' <summary>Special property updater</summary>
     <AttributeUsage(AttributeTargets.Method, AllowMultiple:=True, Inherited:=False)> Public NotInheritable Class PropertyUpdater : Inherits Attribute
         Public ReadOnly Name As String
-        Public ReadOnly Dependencies As String()
+        Public ReadOnly Arguments As String()
         ''' <inheritdoc cref="PropertyUpdater.New(String, String())"/>
         Public Sub New(ByVal UpdatingPropertyName As String)
             Name = UpdatingPropertyName
         End Sub
         ''' <summary>Initialize a new PropertyUpdater attribute</summary>
         ''' <param name="UpdatingPropertyName">The name of the property to be updated</param>
-        Public Sub New(ByVal UpdatingPropertyName As String, ByVal Dependent As String())
+        Public Sub New(ByVal UpdatingPropertyName As String, ByVal Arguments As String())
             Name = UpdatingPropertyName
-            Dependencies = Dependent
+            Me.Arguments = Arguments
         End Sub
     End Class
     ''' <summary>Plugin key</summary>

SCrawler.PluginProvider/Interfaces/IPluginContentProvider.vb

@@ -10,11 +10,14 @@ Namespace Plugin
     Public Interface IPluginContentProvider : Inherits IDisposable
         Event ProgressChanged(ByVal Value As Integer)
         Event ProgressMaximumChanged(ByVal Value As Integer, ByVal Add As Boolean)
+        Event ProgressPreChanged As ProgressChangedEventHandler
+        Event ProgressPreMaximumChanged As ProgressMaximumChangedEventHandler
         Property Thrower As IThrower
         Property LogProvider As ILogProvider
         Property Settings As ISiteSettings
         Property Name As String
         Property ID As String
+        Property Options As String
         Property ParseUserMediaOnly As Boolean
         Property UserDescription As String
         Property ExistingContentList As List(Of IUserMedia)
@@ -23,6 +26,7 @@ Namespace Plugin
         Property UserExists As Boolean
         Property UserSuspended As Boolean
         Property IsSavedPosts As Boolean
+        Property IsSubscription As Boolean
         Property SeparateVideoFolder As Boolean
         Property DataPath As String
         Property PostsNumberLimit As Integer?

SCrawler.PluginProvider/Interfaces/ISiteSettings.vb

@@ -17,6 +17,7 @@ Namespace Plugin
         ReadOnly Property Icon As Icon
         ReadOnly Property Image As Image
         ReadOnly Property Site As String
+        ReadOnly Property SubscriptionsAllowed As Boolean
         Property Logger As ILogProvider
         Function GetUserUrl(ByVal User As IPluginContentProvider) As String
         Function IsMyUser(ByVal UserURL As String) As ExchangeOptions

SCrawler.PluginProvider/My Project/AssemblyInfo.vb

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

SCrawler.PluginProvider/Objects/ExchangeOptions.vb

@@ -11,6 +11,7 @@ Namespace Plugin
         Public UserName As String
         Public SiteName As String
         Public HostKey As String
+        Public Options As String
         Public Exists As Boolean
         Public Sub New(ByVal Site As String, ByVal Name As String)
             UserName = Name

SCrawler.PluginProvider/Objects/ExitException.vb

@@ -0,0 +1,36 @@
+' 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
+    ''' <summary>Represents errors that occur during downloading to be thrown to the root downloading function.</summary>
+    Public Class ExitException : Inherits Exception
+        ''' <summary>Add only the message to the log, without adding a <see cref="StackTrace"/>. Default: <see langword="True"/>.</summary>
+        ''' <returns><see langword="True"/> if only the message should be added to the log; otherwise the stack trace will also be added.</returns>
+        Public Property SimpleLogLine As Boolean = True
+        ''' <summary>Don't add a message to the log. Default: <see langword="False"/>.</summary>
+        ''' <returns><see langword="True"/> if the error is exit-only and there is no need to add a message to the log; otherwise add a message to the log.</returns>
+        Public Property Silent As Boolean = False
+        ''' <summary>Initializes a new instance of the <see cref="ExitException"/> class.</summary>
+        Public Sub New()
+        End Sub
+        ''' <summary>Initializes a new instance of the <see cref="ExitException"/> class with a specified error message.</summary>
+        ''' <param name="Message">The message that describes the error.</param>
+        Public Sub New(ByVal Message As String)
+            MyBase.New(Message)
+        End Sub
+        ''' <summary>
+        ''' Initializes a new instance of the <see cref="ExitException"/> class with a specified error message 
+        ''' and a reference to the inner exception that is the cause of this exception.
+        ''' </summary>
+        ''' <param name="Message">The error message that explains the reason for the exception.</param>
+        ''' <param name="InnerException">The exception that is the cause of the current exception, or a null reference (Nothing in Visual Basic) if no inner exception is specified.</param>
+        Public Sub New(ByVal Message As String, ByVal InnerException As Exception)
+            MyBase.New(Message, InnerException)
+        End Sub
+    End Class
+End Namespace

SCrawler.PluginProvider/SCrawler.PluginProvider.vbproj

@@ -107,6 +107,7 @@
     <Compile Include="Objects\ExchangeOptions.vb" />
     <Compile Include="ObjectInterfaces\ILogProvider.vb" />
     <Compile Include="Interfaces\IPluginContentProvider.vb" />
+    <Compile Include="Objects\ExitException.vb" />
     <Compile Include="Objects\PluginUserMedia.vb" />
     <Compile Include="Interfaces\ISiteSettings.vb" />
     <Compile Include="ObjectInterfaces\IThrower.vb" />

SCrawler.YouTube/Base/Structures.vb

@@ -58,7 +58,7 @@ Namespace API.YouTube.Base
         ''' <summary>Kb</summary>
         Public Size As Double
         Public Codec As String
-        Public Info As String
+        Public Protocol As String
         Public URL As String
         Public Property Index As Integer Implements IIndexable.Index
         Private Function SetIndex(ByVal Obj As Object, ByVal Index As Integer) As Object Implements IIndexable.SetIndex

SCrawler.YouTube/Base/YouTubeSettings.vb

@@ -34,13 +34,36 @@ Namespace API.YouTube.Base
         <Browsable(False)> Friend ReadOnly Property DesignXml As XmlFile
         <Browsable(False)> Private Property Mode As GridUpdateModes = GridUpdateModes.OnConfirm Implements IGridValuesContainer.Mode
         <Browsable(False), XMLVV(-1)> Friend ReadOnly Property PlaylistFormSplitterDistance As XMLValue(Of Integer)
+        <Browsable(False)> Friend ReadOnly Property DownloadLocations As DownloadLocationsCollection
 #Region "Environment"
-        <Browsable(True), GridVisible(False), XMLVN({"Environment"}), Category("Environment"), DisplayName("Path to yt-dlp.exe"),
+#Region "Programs"
+        <Browsable(True), GridVisible(False), XMLVN({"Environment"}), Category("Environment programs"), DisplayName("Path to yt-dlp.exe"),
             Description("Path to yt-dlp.exe file")>
         Public ReadOnly Property YTDLP As XMLValue(Of SFile)
-        <Browsable(True), GridVisible(False), XMLVN({"Environment"}), Category("Environment"), DisplayName("Path to ffmpeg.exe"),
+        <Browsable(True), GridVisible(False), XMLVN({"Environment"}), Category("Environment programs"), DisplayName("Path to ffmpeg.exe"),
             Description("Path to ffmpeg.exe file")>
         Public ReadOnly Property FFMPEG As XMLValue(Of SFile)
+        <Browsable(False)> Private ReadOnly Property ENVIR_FFMPEG As SFile Implements IDownloaderSettings.ENVIR_FFMPEG
+            Get
+                Return FFMPEG
+            End Get
+        End Property
+        <Browsable(False)> Private ReadOnly Property ENVIR_YTDLP As SFile Implements IDownloaderSettings.ENVIR_YTDLP
+            Get
+                Return YTDLP
+            End Get
+        End Property
+        <Browsable(False)> Private ReadOnly Property ENVIR_GDL As SFile Implements IDownloaderSettings.ENVIR_GDL
+            Get
+                Return Nothing
+            End Get
+        End Property
+        <Browsable(False)> Private ReadOnly Property ENVIR_CURL As SFile Implements IDownloaderSettings.ENVIR_CURL
+            Get
+                Return Nothing
+            End Get
+        End Property
+#End Region
         <Browsable(True), GridVisible(False), Category("Environment"), Description("YouTube cookies"), GridCollectionForm(GetType(CookieListForm2)),
             EditorBrowsable(EditorBrowsableState.Never), DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
         Public ReadOnly Property Cookies As CookieKeeper
@@ -62,6 +85,22 @@ Namespace API.YouTube.Base
         <Browsable(True), GridVisible(False), XMLVN({"Environment"}), Category("Environment"), DisplayName("Output path auto change"),
             Description("Automatically change the output path when a new destination is selected in the opening forms.")>
         Public ReadOnly Property OutputPathAutoChange As XMLValue(Of Boolean)
+        <Browsable(True), GridVisible(False), XMLVN({"Environment"}, True), Category("Environment"), DisplayName("Output path: ask for a name"),
+            Description("Ask for a name when adding a new output path to the list.")>
+        Public ReadOnly Property OutputPathAskForName As XMLValue(Of Boolean)
+        Private ReadOnly Property IDownloaderSettings_OutputPathAskForName As Boolean Implements IDownloaderSettings.OutputPathAskForName
+            Get
+                Return OutputPathAskForName
+            End Get
+        End Property
+        <Browsable(True), GridVisible(False), XMLVN({"Environment"}, True), Category("Environment"), DisplayName("Output path: auto add"),
+            Description("Add new paths to the list automatically.")>
+        Public ReadOnly Property OutputPathAutoAddPaths As XMLValue(Of Boolean)
+        Private ReadOnly Property IDownloaderSettings_OutputPathAutoAddPaths As Boolean Implements IDownloaderSettings.OutputPathAutoAddPaths
+            Get
+                Return OutputPathAutoAddPaths
+            End Get
+        End Property
         <Browsable(True), GridVisible(False), XMLVN({"Environment"}, DoubleClickBehavior.Folder), Category("Environment"), DisplayName("On item double click"),
             Description("What should program open when you double-click on an item...")>
         Public ReadOnly Property OnItemDoubleClick As XMLValue(Of DoubleClickBehavior)
@@ -94,12 +133,12 @@ Namespace API.YouTube.Base
         End Property
 #End Region
 #Region "Defaults"
+        <Browsable(True), GridVisible, XMLVN({"Defaults"}), Category("Defaults"), DisplayName("Replace modification date"),
+            Description("Set the file date to the date the video was added (website) (if available). Default: false.")>
+        Public ReadOnly Property ReplaceModificationDate As XMLValue(Of Boolean)
         <Browsable(True), GridVisible, XMLVN({"Defaults"}), Category("Defaults"), DisplayName("Use cookies"),
             Description("By default, use cookies when downloading from YouTube.")>
         Public ReadOnly Property DefaultUseCookies As XMLValue(Of Boolean)
-        <Browsable(True), GridVisible(False), XMLVN({"Defaults"}, 100), Category("Defaults"), DisplayName("Items limit"),
-            Description("Number of items displayed in the list.")>
-        Public ReadOnly Property ItemsListLimit As XMLValue(Of Integer)
         <Browsable(True), GridVisible(False), XMLVN({"Defaults"}), Category("Defaults"),
             DisplayName("Auto remove"), Description("Automatically remove downloaded items from the list.")>
         Public ReadOnly Property RemoveDownloadedAutomatically As XMLValue(Of Boolean)
@@ -152,6 +191,15 @@ Namespace API.YouTube.Base
         <Browsable(True), GridVisible(False), XMLVN({"Defaults"}, False), Category("Defaults"), DisplayName("Confirm exit"),
             Description("Exit confirmation when closing the program.")>
         Public ReadOnly Property ExitConfirm As XMLValue(Of Boolean)
+        <Browsable(True), GridVisible(False), XMLVN({"Defaults"}), Category("Defaults"), DisplayName("Download on click in tray: show form"),
+            Description("Show main window when download by clicking (Ctrl+Click) the tray icon. Default: false")>
+        Public ReadOnly Property ShowFormDownTrayClick As XMLValue(Of Boolean)
+        <Browsable(True), GridVisible(False), XMLVN({"Defaults"}), Category("Defaults"), DisplayName("Program title"),
+            Description("Change the title of the main window if you need to")>
+        Friend ReadOnly Property ProgramText As XMLValue(Of String)
+        <Browsable(True), GridVisible(False), XMLVN({"Defaults"}), Category("Defaults"), DisplayName("Program description"),
+            Description("Add some additional info to the program info if you need")>
+        Friend ReadOnly Property ProgramDescription As XMLValue(Of String)
 #End Region
 #Region "Defaults Video"
         <Browsable(True), GridVisible, XMLVN({"DefaultsVideo"}, "MKV"), Category("Defaults Video"), DisplayName("Default format"),
@@ -164,6 +212,9 @@ Namespace API.YouTube.Base
         <Browsable(True), GridVisible, XMLVN({"DefaultsVideo"}, 1080), Category("Defaults Video"), DisplayName("Default definition"),
             Description("The default maximum video resolution. -1 for max definition")>
         Public ReadOnly Property DefaultVideoDefinition As XMLValue(Of Integer)
+        <Browsable(True), GridVisible, XMLVN({"DefaultsVideo"}), Category("Defaults Video"), DisplayName("Include zero size formats"),
+            Description("Include formats with zero size (or undefined size).")>
+        Public ReadOnly Property DefaultVideoIncludeNullSize As XMLValue(Of Boolean)
 #End Region
 #Region "Defaults Audio"
         <Browsable(True), GridVisible, XMLVN({"DefaultsAudio"}, "AAC"), Category("Defaults Audio"), DisplayName("Default codec"),
@@ -230,6 +281,8 @@ Namespace API.YouTube.Base
 #End Region
 #Region "Initializer"
         Public Sub New()
+            DownloadLocations = New DownloadLocationsCollection
+            DownloadLocations.Load(False, True)
             XML = New XmlFile(YouTubeSettingsFile,, False) With {.AutoUpdateFile = True}
             XML.LoadData(EDP.None)
             DesignXml = New XmlFile("Settings\DesignDownloader.xml", Protector.Modes.All, False)

SCrawler.YouTube/Controls/MusicPlaylistsForm.Designer.vb

@@ -41,6 +41,10 @@ Namespace API.YouTube.Controls
             Dim ActionButton6 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
             Dim ActionButton7 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
             Dim ActionButton8 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton9 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 ListColumn1 As PersonalUtilities.Forms.Controls.Base.ListColumn = New PersonalUtilities.Forms.Controls.Base.ListColumn()
+            Dim ListColumn2 As PersonalUtilities.Forms.Controls.Base.ListColumn = New PersonalUtilities.Forms.Controls.Base.ListColumn()
             Dim TT_MAIN As System.Windows.Forms.ToolTip
             Me.BTT_DOWN = New System.Windows.Forms.Button()
             Me.BTT_CANCEL = New System.Windows.Forms.Button()
@@ -53,7 +57,7 @@ Namespace API.YouTube.Controls
             Me.CMB_FORMATS = New System.Windows.Forms.ComboBox()
             Me.TXT_SUBS = New PersonalUtilities.Forms.Controls.TextBoxExtended()
             Me.CH_DOWN_LYRICS = New System.Windows.Forms.CheckBox()
-            Me.TXT_OUTPUT_PATH = New PersonalUtilities.Forms.Controls.TextBoxExtended()
+            Me.TXT_OUTPUT_PATH = New PersonalUtilities.Forms.Controls.ComboBoxExtended()
             TP_MAIN = New System.Windows.Forms.TableLayoutPanel()
             TP_BUTTONS = New System.Windows.Forms.TableLayoutPanel()
             TP_PLS = New System.Windows.Forms.TableLayoutPanel()
@@ -408,18 +412,41 @@ Namespace API.YouTube.Controls
             ActionButton7.BackgroundImage = CType(resources.GetObject("ActionButton7.BackgroundImage"), System.Drawing.Image)
             ActionButton7.Name = "Open"
             ActionButton7.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Open
+            ActionButton7.ToolTipText = "Choose a new location (Ctrl+O)"
             ActionButton8.BackgroundImage = CType(resources.GetObject("ActionButton8.BackgroundImage"), System.Drawing.Image)
-            ActionButton8.Name = "Clear"
-            ActionButton8.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Clear
+            ActionButton8.Name = "Add"
+            ActionButton8.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Add
+            ActionButton8.ToolTipText = "Choose a new location and add it to the list (Alt+O)"
+            ActionButton9.BackgroundImage = CType(resources.GetObject("ActionButton9.BackgroundImage"), System.Drawing.Image)
+            ActionButton9.Name = "Clear"
+            ActionButton9.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Clear
+            ActionButton10.BackgroundImage = CType(resources.GetObject("ActionButton10.BackgroundImage"), System.Drawing.Image)
+            ActionButton10.Name = "ArrowDown"
+            ActionButton10.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.ArrowDown
             Me.TXT_OUTPUT_PATH.Buttons.Add(ActionButton7)
             Me.TXT_OUTPUT_PATH.Buttons.Add(ActionButton8)
+            Me.TXT_OUTPUT_PATH.Buttons.Add(ActionButton9)
+            Me.TXT_OUTPUT_PATH.Buttons.Add(ActionButton10)
+            Me.TXT_OUTPUT_PATH.CaptionMode = PersonalUtilities.Forms.Controls.Base.ICaptionControl.Modes.Label
             Me.TXT_OUTPUT_PATH.CaptionText = "Output path"
+            Me.TXT_OUTPUT_PATH.CaptionVisible = True
             Me.TXT_OUTPUT_PATH.CaptionWidth = 112.0R
+            ListColumn1.Name = "COL_NAME"
+            ListColumn1.Text = "Name"
+            ListColumn1.Width = -1
+            ListColumn2.DisplayMember = True
+            ListColumn2.Name = "COL_VALUE"
+            ListColumn2.Text = "Value"
+            ListColumn2.ValueMember = True
+            ListColumn2.Visible = False
+            Me.TXT_OUTPUT_PATH.Columns.Add(ListColumn1)
+            Me.TXT_OUTPUT_PATH.Columns.Add(ListColumn2)
             Me.TXT_OUTPUT_PATH.Dock = System.Windows.Forms.DockStyle.Fill
             Me.TXT_OUTPUT_PATH.Location = New System.Drawing.Point(3, 59)
             Me.TXT_OUTPUT_PATH.Name = "TXT_OUTPUT_PATH"
             Me.TXT_OUTPUT_PATH.Size = New System.Drawing.Size(428, 22)
             Me.TXT_OUTPUT_PATH.TabIndex = 2
+            Me.TXT_OUTPUT_PATH.TextBoxBorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
             '
             'MusicPlaylistsForm
             '
@@ -464,6 +491,6 @@ Namespace API.YouTube.Controls
         Private WithEvents CMB_FORMATS As ComboBox
         Private WithEvents SPLITTER_MAIN As SplitContainer
         Private WithEvents CH_DOWN_LYRICS As CheckBox
-        Private WithEvents TXT_OUTPUT_PATH As PersonalUtilities.Forms.Controls.TextBoxExtended
+        Private WithEvents TXT_OUTPUT_PATH As PersonalUtilities.Forms.Controls.ComboBoxExtended
     End Class
 End Namespace

SCrawler.YouTube/Controls/MusicPlaylistsForm.resx

@@ -233,11 +233,123 @@
 </value>
   </data>
   <data name="ActionButton8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
+        JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAADmUlE
+        QVRIS62WWWxMURjHL220JW1HausmlFrDFKUhnUGH6bRFzJ2idImlC0Vp2mlji1A8iNhCPIjIRES8EU+W
+        h2oEtbSDTk3HNNM7S01VKsXjkb/vXBo3k1Ee7sMvmZzzzf//ne/+z50RAAxL1MUIG4G/YAv3HSVhF5Vw
+        IYNdz3LadVj9RgdTB+HQYYPHIJuE1ocSdlEJFzG+1bPRLQLinglIeCkg+XUkKvz56hnkOfQs/rmA8S9H
+        YEp7FDI64tAQtKhnsMapZ7zzNHsUFnbGY4VzIk70l6hnIH4wsDR7NBZ3apDrSqL5T8eFgUr1DLZ78lim
+        Q4N8VzK29MxEpZSBa4M16hnU+c3M9CEFpdJsVHsXos63DDcHrf9nQEXD5VymwW/5USLNwl5vJhp7dTgW
+        NML2pR7jbsUMS+KdMTa5Q8NQxinfBU4dRFcOyjy52OtbhwOBDTgZLKPPmTgY0ON4MBdNfSbYBupxY8Aq
+        G10dqMG5/nIc7ytGQ6CQRliAamkTN/g1Ai4e95Qy3iogpX0UtBRDnhRzdxq2SXOxz5eFQ70rScCEU335
+        ssGxj0YS06HSm4GN3ekwdE2C1hGH1LZR0JDOJof5jwHvnIvzTa0jlooTYfktvt+fhcOBHDQFTWRgxJGP
+        ObAGsulZLMLWnjlY756K5c4JmNcRi6T2SGheCIihS2l5ozAo6NRhMolnUAcGV6IcwwqvFrX+JTjYuwKH
+        SfRAYDms/mzs9y1GFe2VSnOw1j0FejqpLN4WCX4ZufiIBwLMLxQGm12rsLQzgWKYgmLPLNTQw6ynpDSS
+        IBet8y+TqaVRVdFIeJrWuCcj+/0EzH43BomvIhBLI45uFiDcJ+6QwROFwa6+Amb9bGFNg6Xs9Ncd7Oy3
+        Knb2eyU7/20nu9y/m136tIvEl6BC0qKoZwby3alo9JVhj7T5R7m/kJVIIityi8zyXmTiW+I10SqyIQNb
+        uIgNwYuuf25kFd75KPKkI49OmUWnrfYWyXv/wBb2cijhhVf6a9lGei65XclYRDd6mj0GWz2iLBJaH0rY
+        RSVc5Eywmhm7kuQXHX+bJlBStrh+zTi0PpSwi0q4yNFAOVvgiEcKJWUsxZn/NhT+znlofShhF5VwkRpv
+        MUtti4KGYjj6sYCIh5QSu4oG27stjItHU+cjeQzvkcFzFQ2KnSKLoc4FukDCXeI2GbSoaFD4ziyPxNxK
+        0AUyNxOP1DOwcaG/8I+/LRB+At7psBnyDBG0AAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="ActionButton9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
         xAAADsQBlSsOGwAAAIZJREFUOE+1j10KwCAMgz2b755xl/IsvnaL2K20UfbDAmEako+ZROSTafjE12Go
         tbbB43rK5xSAQq1VYFtmeQBoqZTSreVZvgTknM8yyyjA/qodsDF9gspD2Bj6B+DH+NqzhQQAG+POMnSX
         AFuc5QFgn6ClHh5iOQVAKNixyucB8NY0vG9JOzzyhrdq5IRgAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="ActionButton10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAE65JREFUeF7t
+        3X2sJWddB/DdLi2lQG2hdOHuvfM887J7Cxca4ELTQMDWKigIFpBAEAgi9g+CJpJo9Q8NJhgBiYZIYspL
+        GlAKCkhEC4KgQlsLQkqhKi/lrYWWlxaw3dLddrerz/Q89+7dc2fbfTn3npf5fJJv2rS758z85nnOzJz5
+        nZktAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMK3O3r79wVUIz65jfGNVxI/VIX69CvGO9M//a9P+e8o3B/8v
+        vKn9s+3fyX8dAJgmaWd+fl3E96Wd/E9XdvZHkfbvXNa+Rn45AGCS3bvjj/E/h3box5OrmxjPyy8PAEyS
+        XXO7zqhCeH/HDnwUOdCE+J6zdux4eH47YIrEGE8uy/Ls9Bnx/LooL0oH9b9Th/I1TVG+rCqKC+q6Xsh/
+        FJgmO8vy6WknfdPQTnsjckMdwlPy2wITLO3wF6si/lGas1ekuXvX0Fzuyg9S3psOCl6qDwimQB3ji9Ok
+        3btmEm907kpnEa/Mbw9Mlq1pB/6cdHZ/ZcfcPZrcXoXyrVVVFfl1gUmSdsS/libqPUMTd5NSvjktwrbB
+        kgDjVi1UT26K+Nnu+XrMuaud60uPWHpIfhtg3JqyfEaanHcPTdZNTRPCPy4uLj40LxIwBudt2fKAtOP/
+        0zQnN+5koIg3tpca81sC49J+LZcm5a3rJulYEq6LSV40YBOFEB6V5uFV6+flRiTsSwf9r81vDYzBCSO4
+        vjfq/KAuiqfm5QM2QRPjuWnubUbz71DCn6W33zpYCmDT1EX5m92Tcuy5q47xFXkxgQ3UduqnOXfn0Bzc
+        xJSvz4sCbIb2pzlp8v1w/WScnKSzkjekRT1hsMTAKC0vL5/Ydud3zb1NT1FelBcL2GiDm3d0TMTJy0ea
+        pjk1LzYwAu3NvtLc+uTQXBtn7tYYCJtja/vQno5JOJFpQrzWb4hhNJoQnpjm1Q3D82wCcnNRFKfnxQQ2
+        Qttk1zH5JjzhFmcIcHzyzb6O5aFem5J0sP/OvKjARmg7b7sm3xRkT3vDorwawJHb1t6Ep2NOTVoOtDch
+        yssMjFr6IPh8x8SbnsT4lrQamgPhCMzPzz+sifHjnXNpMnN5XnRglJaWlk5KE2z/0ISbxnzQQ0bgvlXz
+        1ePSXPnG0NyZ+DRF8Zi8CsCo7Azh0V0TbkrzRc2B0G3wIJ9429CcmZLce4MgYJTyff87JtzU5uayLM/J
+        qwcM7vD5+jQ3DgzNlWnKDXldgFFJZwW/2jHZpj1727uZ5VWE3mofqJXmw4eG5sdUpqqqXXm1gFGoQnhJ
+        12SbgRxoYvzjtIruK04vxRjPSvPgK0PzYmqTPqtemVcNGIU6xgu7JtusJH1ovH9ubu6UvLrQC2ncPyuN
+        /58Mz4fpTvnmvHrAKJQL5dO6J9ssJXxucWFhLq8yzLKtaUf5h2ncb9zz+8eUKsYP53UERmHX/PyOrsk2
+        g7nJDUWYZUuPWHpIE8oPdIz92UiMn86rCoxIOmOYta8KD5uftk2Peb1hZtTzdVOHcF3HmJ+ZVCF+Ia8u
+        MCppcl0+PNlmOG1zYPtYYc2BzIQ0np+ZxvWPh8b5LObqvMrAqEzRo4BHmctijCfnEsBUqkP5u2ksz8Kd
+        PI8g5SfyagOj0jbIpQk2c01DR5Brmh3NfC4DTI324LWO8V0dY3pm48mAsEGm7OEgo0sRb9wZ4+NzGWDi
+        lWUZ0ti9Zt1YnvUU8fdyCYBRmsFbAh9xqhDvqEN4Xi4FTKz8s93vD4/hPiSdpJyXywCMWPtrgKuGJ12P
+        ck/6gPmDXAuYOHVR/lY6UN3XMXb7kDv17MAGqhaqJ6WJ1sdegDUJ726a5oG5JDB2917vL+Kl3eO1N/lQ
+        LgewUdIO8E0dk69vubosy+25JDA2bYNuFeJnOsZovxLjhbkkwEZZXl4+0QfOvfl2Ogg4O5cFNl1dFE9N
+        4/B7Q+Oyj7mh/VzKZQE2UtM0j6iL+LWOidizhN3OPBiHuigvSmPwrvVjsn9pQnh1LguwGQa3Fo3fHp6M
+        Pcw97c1WcllgQy0tLZ2UDr7/qmMc9jJNiF/WkwNjMHhQ0GzfX/yIU8RLfRCxkdq+kzTfrugcf/3MgZ1l
+        +fRcHmCztU8Yq2P8h47J2cdcpTmQjdCE8IQ0vnzjdkjKP8nlAcZoWxXin3dP0n4l1eGb9UL92FwXOG51
+        Ub48ja09w2Otz2nvTJpKs21QIWDs0lnKb6TJqTEphN3NQvncXBY4VtvSju4N3WOs17l6cXHxoblGwKRo
+        r8mlHeAtHZO2b9mfDohem8sCR2XX3K4z0hj65NCYklSTGONpuUzApNlVFFWaqP81NHF7mvD2tnM7lwbu
+        V/vwqTR2vrV+LPU7VSjf4ff+MAU0B65NeWVd12fm0sBhpTnzosHDp7rGUV8T9lVFvDiXCJgSrmEezDea
+        onhMrgsM25rmyuvSODkwNG56nvZyYvi5XCNg2mgOXM3tVVH9ci4L3KtpmlN9W7Y+VYhfiEkuEzCt8n3L
+        fzA8yXuY/b7OZEVZlovt3ew6xknf8965ublTcpmAaac5cG3C2zQ09Vv7bVAaC/+7fmz0Og6QYVZpDlyT
+        GD/dPlgpl4b+2Nru5NIYuGfdmOhxmhB/VBblL+QaATNKc+DBfH1nCI/OdWHGtTewSdv874fGgIT4xfYb
+        wlwmYNZpDlzNbVUIz85lYUblJ2i6BDacGP/u7O3bH5zLBPSF5sDV7K+L+Nu5LMyYtJP7xbSNfzy0zfue
+        A+03gak8WwdVAnpHc+CaxHiJ5sCZsnK9f/+6bd3v3JZ2/r+SawT0mebAg0kfjB93v/Pp136t3X693bWN
+        e56v6nsBhmkOXE24Ph0EnJXrwpSp63qhDuXnu7dtn1P+U1VVP5PLBHAozYGDtD+LchvU6TN4Iqa+lqGs
+        XO8/YVAlgMPQHLiSsC+dNb0ml4UJVxflRWm73b1+O/Y5YXcVwvNziQDun+bANYnxkvO2bHlALg0TJsZ4
+        cl3ESzu3Xa8Trm+KYimXCeDIaQ48mKqIH9McOHl2zc/vaIr42a5t1vN8tCiK03OZAI6J5sCVFPFr7QNk
+        cl0Ys3yp6nvrtlO/s3K9f9ugSgDHSXPgILk58PxcFsYkX+93J8s1qUK8oynKF+YSAYyO5sCVhH3pgOjV
+        uSxsoqZpHpjq//bu7dLjFPHGND+Xc5kARk9z4JrE+JZUEl+1bpLFhYW5VPf/WLcd5N/ruj4zlwlg42gO
+        PCQfdXOVjdeE8MRU6xuGai9uXw2MgebA1YTrFkMoc10YsaYoX5rqfOf6uvc6e9LO/xW5RACbT3Pgam5N
+        B0Q/m8vCCLT3XnCQ2ZXwnWqhenIuE8D4aA5czV3OykZj19yuM1I9PzlUXwnhirIst+cyAYyf5sA1GTQH
+        uu/6MdoZ4+NTHb+1rq59j+v9wKTSHHhIPtI0zam5NByhNH5enGr306Fa9j1720ttuUQAE0tz4Epi/FJM
+        cl24b8ZNd25KdTk31whg8mkOXEm4pX1EbS4LHebn5x+WdnIf765fr3NVCOFRuUwA00Nz4Gr21kX58lwW
+        1qjmq8el+nxjqF4S4yVLS0sn5TIBTB/NgWuiOfAQTVE+J9XltnV16nXCvqqIF+cSAUw3zYGH5INnb9/+
+        4Fyavtra7uRSLe4Zqk3f88MmxvNyjQBmhiavg/liVVVFrkuvLC4uPjSt/4eG6iEhXlOWZchlApg9mgNX
+        c3P6wD8nl6UXqvlqZ1rv/xmqQ+/ThPJv5ufnH5TLBDC7NAeuZm97n/tclplWhfCstL4/GVr/nsf1fqCH
+        NAeu5kB7aSSVZFabA13v786tVVFckGsE0C+aAw8mnSG/f25u7pRcmpnQbt8mlB/oWt8+pwnxWk+PBNAc
+        uJoqxC/MSnNgs7BQ1yFc17WePc97Z+1AD+C4aA5czU3T/qjXdED3zLQePx5ar75nf77ev3VQJQBWaQ5c
+        zZ4qhJfkskyVuigvapvbOtapt2lC/FFTls/IJQKgi+bA1aw0B07FGWOM8eQ6xnd1rEe/E+OX2jGdywTA
+        fdEcuCYx/u2kXzNudjTz6az/c53L3+NUMX7YI6EBjp7mwIO5pt3J5rpMlHKhfFpavu8PLW/fM+s/7QTY
+        eJoDV/PduiiWc1kmwuB6f7x7aDn7ntvrGC/MJQLgeGgOHKQK8Y46hOflsoxN0zQPbEJ8Z9cy9jxf3RnC
+        o3OZABgFzYGrab9efl0qyViaAxcXFubSgchnOpar77k8xnhaLhMAo6Q5cE2K+L7NfoBMHcJT0nvfvG5Z
+        +h3X+wE2iebAg7m6LMvtuS4bKl/v14txSMLuKoQX5BIBsBk0B64kfCfV4om5LCN33pYtD3DA1ZVwfb1Q
+        PzaXCYDNpDlwJWH3RnSe75rbdUZ6/X9b/369z0eLojg9lwmAcdAcuJqV5sCRaEJ4QnrNbw+9R9+zcr1/
+        26BKAIyV5sBDcll7W95cmmPSPocgvc6dQ6/b9+xpivJluUQATBDNgQdz1TE2B6phV4p446TdhAmAIens
+        9ZXpQ1tz4KA58Am5LPfrrB07Hp7+zr90v1Z/UxXxU3Vdn5nLBMAk0xy4krC7WSifm8tyWGVZnl2F+M3u
+        1+hxYrxkeXn5xFwmAKaB5sDV7E9nsRfnsqyTdnIvGtxiuPPv9jV7Ul1ekUsEwLTRHHgwVSjfsbS0dFIu
+        TWtr+6uB9P8ODP/Znue7ZVmek2sEwBTT2Laa8sr2enb7jHoHRl0JV8QYH5nHDQCzwJ0DV/P1tKO7vuO/
+        9zpVKN/qej/AjNIcKB3Z24TyVXmIADCrNAfKmtzUxHhuHhoAzDrNgZJyVQjhUXlIANAjmgN7m/Du471d
+        MgBTzp0D+5Sw777uiQBAz2gO7EPCLSnn500OAAOaA2c615RlGfKmBoBDaQ6cvTQhvmd+fv5BeRMDwGFp
+        DpyJuN4PwDHQHDjVubUqigvypgSAo6M5cPrShHjtYghl3oQAcGw0B05Rivi+ubm5U/KmA4Djozlw4rM/
+        X+/fOthiADA6mgMnME2IP2rK8hl5GwHAxtAcOFH5SozxrLxpAGBjaQ4cf6oYP9w0zal5kwDA5tAcOLYc
+        aC/FpE1wwmBLAMAm0xy46bk91fvCXH4AGCvNgZuRIn6tKYrH5JoDwGTQHLihuTzGeFouNQBMFs2BI4/r
+        /QBMB82Bo0rYXYXwglxWAJh8mgOPN+H6eqF+bC4nAEwVzYHHkiL+c1EUp+caAsB00hx4FInxLalk2waV
+        A4AppznwfrOnLsqX53IBwOzQHHiYFPHGaqF6Ui4TAMwezYGHpirip+q6PjOXBwBmmubANjFesry8fGKu
+        CQD0Q4+bA/dWMf56LgMA9E8PmwO/W5blOXn1AaC/+tMcWF4ZY3xkXm0AYOabA2O8ZGlp6aS8ugDAGrPY
+        HLi3CeWr8voBAIczQ82BN6UDmnPzagEA92f6mwPLz1dVVeTVAQCO1LQ2B1Yh/PX8/PyD8moAAEdrupoD
+        w76qiBfnRQcAjtMUNAeGW1LOz8sLAIzKBDcHXlOWZciLCQCM2gQ2B142Nzd3Sl48AGCjTEhz4H7X+wFg
+        k425OfDWqqh+Pi8KALDJtqWDgDemHfKBoR30hqUJ8dqY5PcHAMalKcrnpJ3z94Z31qNO+/t+1/sBYIKk
+        k/LT6hD+Mu2oR/4rgXTW/+X02r+U3woAmDTtz/GaIv5F2nH/ZHhHfpS5J+Vf01n/S9LLbhu8OgAw0dpb
+        8TYL5XPTmfvb0o78v/MOvWtHvybtzXzKT1Qx/n5d1wv5pQCAaXXvAUFRLLXd+3WMFzZF+cKUl7X/rIri
+        gsWFhbn8RwEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA6LEtW/4flgYiLD1qeX0A
+        AAAASUVORK5CYII=
 </value>
   </data>
 </root>

SCrawler.YouTube/Controls/MusicPlaylistsForm.vb

@@ -8,6 +8,7 @@
 ' but WITHOUT ANY WARRANTY
 Imports System.ComponentModel
 Imports SCrawler.API.YouTube.Objects
+Imports SCrawler.DownloadObjects.STDownloader
 Imports PersonalUtilities.Forms
 Imports PersonalUtilities.Forms.Controls
 Imports PersonalUtilities.Forms.Controls.Base
@@ -50,6 +51,8 @@ Namespace API.YouTube.Controls
                 MyView.SetFormSize()
             End If
 
+            MyYouTubeSettings.DownloadLocations.PopulateComboBox(TXT_OUTPUT_PATH)
+
             CMB_FORMATS.Items.AddRange(AvailableAudioFormats)
             If MyYouTubeSettings.PlaylistFormSplitterDistance > 0 Then SPLITTER_MAIN.SplitterDistancePercentageSet(MyYouTubeSettings.PlaylistFormSplitterDistance)
 
@@ -81,6 +84,14 @@ Namespace API.YouTube.Controls
 
                 If Not .UserTitle.IsEmptyString Then
                     Text = .UserTitle
+                    If .ObjectType = Base.YouTubeMediaType.PlayList Then
+                        If Not .PlaylistTitle.IsEmptyString AndAlso Not .PlaylistTitle = .UserTitle Then
+                            Text &= $" - { .PlaylistTitle}"
+                        ElseIf Not .Title.IsEmptyString AndAlso Not .Title = .UserTitle Then
+                            Text &= $" - { .Title}"
+                        End If
+                    End If
+                    If Not TXT_OUTPUT_PATH.IsEmptyString AndAlso Not TXT_OUTPUT_PATH.Text.Contains(.UserTitle) Then TXT_OUTPUT_PATH.Text = $"{TXT_OUTPUT_PATH.Text.TrimEnd("\")}\{ .UserTitle}\"
                 ElseIf Not .PlaylistTitle.IsEmptyString Then
                     Text = .PlaylistTitle
                 End If
@@ -94,6 +105,17 @@ Namespace API.YouTube.Controls
             MyYouTubeSettings.PlaylistFormSplitterDistance.Value = SPLITTER_MAIN.SplitterDistancePercentageGet
             MyView.DisposeIfReady()
         End Sub
+        Private Sub MusicPlaylistsForm_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
+            Dim b As Boolean = True
+            If e.KeyCode = Keys.O And e.Control Then
+                MyYouTubeSettings.DownloadLocations.ChooseNewLocation(TXT_OUTPUT_PATH, False, MyDownloaderSettings.OutputPathAskForName)
+            ElseIf e.KeyCode = Keys.O And e.Alt Then
+                MyYouTubeSettings.DownloadLocations.ChooseNewLocation(TXT_OUTPUT_PATH, True, MyDownloaderSettings.OutputPathAskForName)
+            Else
+                b = False
+            End If
+            If b Then e.Handled = True
+        End Sub
 #End Region
 #Region "Form text"
         Private _InitialFormText As String = String.Empty
@@ -151,10 +173,8 @@ Namespace API.YouTube.Controls
             End With
         End Sub
         Private Sub TXT_OUTPUT_PATH_ActionOnButtonClick(ByVal Sender As ActionButton, ByVal e As ActionButtonEventArgs) Handles TXT_OUTPUT_PATH.ActionOnButtonClick
-            If Sender.DefaultButton = ADB.Open Then
-                Dim f As SFile = SFile.SelectPath(TXT_OUTPUT_PATH.Text, "Select files destination", EDP.ReturnValue)
-                If Not f.IsEmptyString Then TXT_OUTPUT_PATH.Text = f
-            End If
+            If Sender.DefaultButton = ADB.Open Or Sender.DefaultButton = ADB.Add Then _
+               MyYouTubeSettings.DownloadLocations.ChooseNewLocation(TXT_OUTPUT_PATH, Sender.DefaultButton = ADB.Add, MyDownloaderSettings.OutputPathAskForName)
         End Sub
 #End Region
 #Region "Lists' handlers"
@@ -248,6 +268,7 @@ Namespace API.YouTube.Controls
                     If Not TXT_FORMATS_ADDIT.Checked Then .PostProcessing_OutputAudioFormats.Clear()
                     .File = TXT_OUTPUT_PATH.Text.CSFileP
                     If MyYouTubeSettings.OutputPathAutoChange Then MyYouTubeSettings.OutputPath.Value = .File
+                    If MyDownloaderSettings.OutputPathAutoAddPaths Then MyYouTubeSettings.DownloadLocations.Add(.File, False)
                 End With
                 DialogResult = DialogResult.OK
                 Close()

SCrawler.YouTube/Controls/ParsingProgressForm.Designer.vb

@@ -82,7 +82,6 @@ Namespace API.YouTube.Controls
             Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
             Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
             Me.Text = "Parsing progress"
-            Me.TopMost = True
             TP_MAIN.ResumeLayout(False)
             TP_MAIN.PerformLayout()
             Me.ResumeLayout(False)

SCrawler.YouTube/Controls/ParsingProgressForm.vb

@@ -17,9 +17,27 @@ Namespace API.YouTube.Controls
                 Return TokenSource.Token
             End Get
         End Property
-        Public Sub New()
+        Private ReadOnly CountMax As Integer
+        Private CountCurrent As Integer = 1
+        Friend Sub NextPlaylist()
+            CountCurrent += 1
+            MyProgress.InformationTemporary(True) = InfoStr
+            MyProgress.Information = InfoStr
+        End Sub
+        Private ReadOnly Property InfoStr As String
+            Get
+                Const MainMsg$ = "Data parsing in progress"
+                If CountMax > 1 Then
+                    Return $"{MainMsg} [{CountCurrent - 1}/{CountMax}]"
+                Else
+                    Return MainMsg
+                End If
+            End Get
+        End Property
+        Public Sub New(Optional ByVal _Count As Integer = 1)
             InitializeComponent()
-            MyProgress = New MyProgress(PR_MAIN, LBL_MAIN, "Data parsing in progress") With {.ResetProgressOnMaximumChanges = False}
+            CountMax = _Count
+            MyProgress = New MyProgress(PR_MAIN, LBL_MAIN, InfoStr) With {.ResetProgressOnMaximumChanges = False}
             TokenSource = New CancellationTokenSource
         End Sub
         Public Sub SetInitialValues(ByVal Count As Integer, ByVal Info As String)

SCrawler.YouTube/Controls/VideoOption.vb

@@ -52,6 +52,7 @@ Namespace API.YouTube.Controls
                 End If
                 LBL_DEFINITION.Text = $"{m.Height}p"
                 LBL_CODECS.Text = $"{m.Extension.StringToUpper}{d}{m.Codec.StringToUpper}{d}{m.FPS}fps{d}{m.Bitrate}k"
+                If Not m.Protocol.IsEmptyString Then LBL_CODECS.Text &= $" ({m.Protocol})"
                 If Not SelectedAudio.ID.IsEmptyString Then LBL_CODECS.Text &= $" / {SelectedAudio.Extension}{d}{SelectedAudio.Codec}{d}{SelectedAudio.Bitrate}k"
             End If
 

SCrawler.YouTube/Controls/VideoOptionsForm.Designer.vb

@@ -29,6 +29,10 @@ Namespace API.YouTube.Controls
             Dim ICON_LINK As System.Windows.Forms.PictureBox
             Dim TP_FOOTER As System.Windows.Forms.TableLayoutPanel
             Dim TP_DESTINATION 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(VideoOptionsForm))
+            Dim ListColumn1 As PersonalUtilities.Forms.Controls.Base.ListColumn = New PersonalUtilities.Forms.Controls.Base.ListColumn()
+            Dim ListColumn2 As PersonalUtilities.Forms.Controls.Base.ListColumn = New PersonalUtilities.Forms.Controls.Base.ListColumn()
             Dim TP_OK_CANCEL As System.Windows.Forms.TableLayoutPanel
             Dim LB_SEP_1 As System.Windows.Forms.Label
             Dim LB_SEP_2 As System.Windows.Forms.Label
@@ -37,8 +41,6 @@ Namespace API.YouTube.Controls
             Dim LBL_FORMAT As System.Windows.Forms.Label
             Dim LBL_SUBS_FORMAT As System.Windows.Forms.Label
             Dim TT_MAIN As System.Windows.Forms.ToolTip
-            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(VideoOptionsForm))
             Dim ActionButton2 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
             Dim ActionButton3 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()
@@ -47,12 +49,13 @@ Namespace API.YouTube.Controls
             Dim ActionButton7 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
             Dim ActionButton8 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
             Dim ActionButton9 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton10 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
             Me.ICON_VIDEO = New System.Windows.Forms.PictureBox()
             Me.LBL_TITLE = New System.Windows.Forms.Label()
             Me.TP_HEADER_INFO_2 = New System.Windows.Forms.TableLayoutPanel()
             Me.LBL_TIME = New System.Windows.Forms.Label()
             Me.LBL_URL = New System.Windows.Forms.LinkLabel()
-            Me.TXT_FILE = New System.Windows.Forms.TextBox()
+            Me.TXT_FILE = New PersonalUtilities.Forms.Controls.ComboBoxExtended()
             Me.BTT_BROWSE = New System.Windows.Forms.Button()
             Me.BTT_DOWN = New System.Windows.Forms.Button()
             Me.BTT_CANCEL = New System.Windows.Forms.Button()
@@ -93,6 +96,7 @@ Namespace API.YouTube.Controls
             CType(ICON_LINK, System.ComponentModel.ISupportInitialize).BeginInit()
             TP_FOOTER.SuspendLayout()
             TP_DESTINATION.SuspendLayout()
+            CType(Me.TXT_FILE, System.ComponentModel.ISupportInitialize).BeginInit()
             TP_OK_CANCEL.SuspendLayout()
             TP_WHAT.SuspendLayout()
             Me.TP_HEADER_BASE.SuspendLayout()
@@ -267,12 +271,27 @@ Namespace API.YouTube.Controls
             '
             'TXT_FILE
             '
+            ActionButton1.BackgroundImage = CType(resources.GetObject("ActionButton1.BackgroundImage"), System.Drawing.Image)
+            ActionButton1.Name = "ArrowDown"
+            ActionButton1.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.ArrowDown
+            Me.TXT_FILE.Buttons.Add(ActionButton1)
+            ListColumn1.Name = "COL_NAME"
+            ListColumn1.Text = "Name"
+            ListColumn1.Width = -1
+            ListColumn2.DisplayMember = True
+            ListColumn2.Name = "COL_VALUE"
+            ListColumn2.Text = "Value"
+            ListColumn2.ValueMember = True
+            ListColumn2.Visible = False
+            Me.TXT_FILE.Columns.Add(ListColumn1)
+            Me.TXT_FILE.Columns.Add(ListColumn2)
             Me.TXT_FILE.Dock = System.Windows.Forms.DockStyle.Fill
-            Me.TXT_FILE.Location = New System.Drawing.Point(3, 3)
+            Me.TXT_FILE.Location = New System.Drawing.Point(1, 1)
+            Me.TXT_FILE.Margin = New System.Windows.Forms.Padding(1)
             Me.TXT_FILE.Name = "TXT_FILE"
-            Me.TXT_FILE.Size = New System.Drawing.Size(503, 20)
+            Me.TXT_FILE.Size = New System.Drawing.Size(507, 22)
             Me.TXT_FILE.TabIndex = 0
-            Me.TXT_FILE.WordWrap = False
+            Me.TXT_FILE.TextBoxBorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
             '
             'BTT_BROWSE
             '
@@ -283,7 +302,7 @@ Namespace API.YouTube.Controls
             Me.BTT_BROWSE.Size = New System.Drawing.Size(74, 22)
             Me.BTT_BROWSE.TabIndex = 1
             Me.BTT_BROWSE.Text = "Browse"
-            TT_MAIN.SetToolTip(Me.BTT_BROWSE, "Choose an output file")
+            TT_MAIN.SetToolTip(Me.BTT_BROWSE, "Choose an output file (Right click for add a new location to the list)")
             Me.BTT_BROWSE.UseVisualStyleBackColor = True
             '
             'TP_OK_CANCEL
@@ -473,21 +492,21 @@ Namespace API.YouTube.Controls
             '
             'TXT_SUBS
             '
-            ActionButton1.BackgroundImage = CType(resources.GetObject("ActionButton1.BackgroundImage"), System.Drawing.Image)
-            ActionButton1.Name = "Open"
-            ActionButton1.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Open
-            ActionButton1.ToolTipText = "Choose subtitles"
             ActionButton2.BackgroundImage = CType(resources.GetObject("ActionButton2.BackgroundImage"), System.Drawing.Image)
-            ActionButton2.Name = "Refresh"
-            ActionButton2.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Refresh
-            ActionButton2.ToolTipText = "Reset subtitles to initial selected"
+            ActionButton2.Name = "Open"
+            ActionButton2.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Open
+            ActionButton2.ToolTipText = "Choose subtitles"
             ActionButton3.BackgroundImage = CType(resources.GetObject("ActionButton3.BackgroundImage"), System.Drawing.Image)
-            ActionButton3.Name = "Clear"
-            ActionButton3.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Clear
-            ActionButton3.ToolTipText = "Clear subtitles selection (don't download subtitles)"
-            Me.TXT_SUBS.Buttons.Add(ActionButton1)
+            ActionButton3.Name = "Refresh"
+            ActionButton3.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Refresh
+            ActionButton3.ToolTipText = "Reset subtitles to initial selected"
+            ActionButton4.BackgroundImage = CType(resources.GetObject("ActionButton4.BackgroundImage"), System.Drawing.Image)
+            ActionButton4.Name = "Clear"
+            ActionButton4.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Clear
+            ActionButton4.ToolTipText = "Clear subtitles selection (don't download subtitles)"
             Me.TXT_SUBS.Buttons.Add(ActionButton2)
             Me.TXT_SUBS.Buttons.Add(ActionButton3)
+            Me.TXT_SUBS.Buttons.Add(ActionButton4)
             Me.TXT_SUBS.CaptionText = "Subtitles"
             Me.TXT_SUBS.CaptionToolTipEnabled = True
             Me.TXT_SUBS.CaptionToolTipText = "The selected subtitles will also be downloaded"
@@ -611,24 +630,24 @@ Namespace API.YouTube.Controls
             '
             'TXT_SUBS_ADDIT
             '
-            ActionButton4.BackgroundImage = CType(resources.GetObject("ActionButton4.BackgroundImage"), System.Drawing.Image)
-            ActionButton4.Enabled = False
-            ActionButton4.Name = "Open"
-            ActionButton4.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Open
-            ActionButton4.ToolTipText = "Choose additional formats"
             ActionButton5.BackgroundImage = CType(resources.GetObject("ActionButton5.BackgroundImage"), System.Drawing.Image)
             ActionButton5.Enabled = False
-            ActionButton5.Name = "Refresh"
-            ActionButton5.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Refresh
-            ActionButton5.ToolTipText = "Fill in additional formats from the defaults"
+            ActionButton5.Name = "Open"
+            ActionButton5.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Open
+            ActionButton5.ToolTipText = "Choose additional formats"
             ActionButton6.BackgroundImage = CType(resources.GetObject("ActionButton6.BackgroundImage"), System.Drawing.Image)
             ActionButton6.Enabled = False
-            ActionButton6.Name = "Clear"
-            ActionButton6.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Clear
-            ActionButton6.ToolTipText = "Remove all additional formats"
-            Me.TXT_SUBS_ADDIT.Buttons.Add(ActionButton4)
+            ActionButton6.Name = "Refresh"
+            ActionButton6.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Refresh
+            ActionButton6.ToolTipText = "Fill in additional formats from the defaults"
+            ActionButton7.BackgroundImage = CType(resources.GetObject("ActionButton7.BackgroundImage"), System.Drawing.Image)
+            ActionButton7.Enabled = False
+            ActionButton7.Name = "Clear"
+            ActionButton7.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Clear
+            ActionButton7.ToolTipText = "Remove all additional formats"
             Me.TXT_SUBS_ADDIT.Buttons.Add(ActionButton5)
             Me.TXT_SUBS_ADDIT.Buttons.Add(ActionButton6)
+            Me.TXT_SUBS_ADDIT.Buttons.Add(ActionButton7)
             Me.TXT_SUBS_ADDIT.CaptionMode = PersonalUtilities.Forms.Controls.Base.ICaptionControl.Modes.CheckBox
             Me.TXT_SUBS_ADDIT.CaptionText = "Additional subtitle formats"
             Me.TXT_SUBS_ADDIT.CaptionToolTipEnabled = True
@@ -646,24 +665,24 @@ Namespace API.YouTube.Controls
             '
             'TXT_EXTRA_AUDIO_FORMATS
             '
-            ActionButton7.BackgroundImage = CType(resources.GetObject("ActionButton7.BackgroundImage"), System.Drawing.Image)
-            ActionButton7.Enabled = False
-            ActionButton7.Name = "Open"
-            ActionButton7.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Open
-            ActionButton7.ToolTipText = "Choose additional formats"
             ActionButton8.BackgroundImage = CType(resources.GetObject("ActionButton8.BackgroundImage"), System.Drawing.Image)
             ActionButton8.Enabled = False
-            ActionButton8.Name = "Refresh"
-            ActionButton8.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Refresh
-            ActionButton8.ToolTipText = "Fill in additional formats from the defaults"
+            ActionButton8.Name = "Open"
+            ActionButton8.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Open
+            ActionButton8.ToolTipText = "Choose additional formats"
             ActionButton9.BackgroundImage = CType(resources.GetObject("ActionButton9.BackgroundImage"), System.Drawing.Image)
             ActionButton9.Enabled = False
-            ActionButton9.Name = "Clear"
-            ActionButton9.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Clear
-            ActionButton9.ToolTipText = "Choose additional formats"
-            Me.TXT_EXTRA_AUDIO_FORMATS.Buttons.Add(ActionButton7)
+            ActionButton9.Name = "Refresh"
+            ActionButton9.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Refresh
+            ActionButton9.ToolTipText = "Fill in additional formats from the defaults"
+            ActionButton10.BackgroundImage = CType(resources.GetObject("ActionButton10.BackgroundImage"), System.Drawing.Image)
+            ActionButton10.Enabled = False
+            ActionButton10.Name = "Clear"
+            ActionButton10.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Clear
+            ActionButton10.ToolTipText = "Choose additional formats"
             Me.TXT_EXTRA_AUDIO_FORMATS.Buttons.Add(ActionButton8)
             Me.TXT_EXTRA_AUDIO_FORMATS.Buttons.Add(ActionButton9)
+            Me.TXT_EXTRA_AUDIO_FORMATS.Buttons.Add(ActionButton10)
             Me.TXT_EXTRA_AUDIO_FORMATS.CaptionMode = PersonalUtilities.Forms.Controls.Base.ICaptionControl.Modes.CheckBox
             Me.TXT_EXTRA_AUDIO_FORMATS.CaptionText = "Additional audio formats"
             Me.TXT_EXTRA_AUDIO_FORMATS.CaptionToolTipEnabled = True
@@ -704,7 +723,7 @@ Namespace API.YouTube.Controls
             CType(ICON_LINK, System.ComponentModel.ISupportInitialize).EndInit()
             TP_FOOTER.ResumeLayout(False)
             TP_DESTINATION.ResumeLayout(False)
-            TP_DESTINATION.PerformLayout()
+            CType(Me.TXT_FILE, System.ComponentModel.ISupportInitialize).EndInit()
             TP_OK_CANCEL.ResumeLayout(False)
             TP_WHAT.ResumeLayout(False)
             TP_WHAT.PerformLayout()
@@ -740,7 +759,7 @@ Namespace API.YouTube.Controls
         Private WithEvents CMB_SUBS_FORMAT As ComboBox
         Private WithEvents TXT_SUBS_ADDIT As PersonalUtilities.Forms.Controls.TextBoxExtended
         Private WithEvents TXT_EXTRA_AUDIO_FORMATS As PersonalUtilities.Forms.Controls.TextBoxExtended
-        Private WithEvents TXT_FILE As TextBox
+        Private WithEvents TXT_FILE As PersonalUtilities.Forms.Controls.ComboBoxExtended
         Private WithEvents BTT_BROWSE As Button
         Private WithEvents BTT_DOWN As Button
         Private WithEvents BTT_CANCEL As Button

SCrawler.YouTube/Controls/VideoOptionsForm.resx

@@ -135,6 +135,97 @@
   <metadata name="TP_DESTINATION.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>
+        iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAE65JREFUeF7t
+        3X2sJWddB/DdLi2lQG2hdOHuvfM887J7Cxca4ELTQMDWKigIFpBAEAgi9g+CJpJo9Q8NJhgBiYZIYspL
+        GlAKCkhEC4KgQlsLQkqhKi/lrYWWlxaw3dLddrerz/Q89+7dc2fbfTn3npf5fJJv2rS758z85nnOzJz5
+        nZktAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMK3O3r79wVUIz65jfGNVxI/VIX69CvGO9M//a9P+e8o3B/8v
+        vKn9s+3fyX8dAJgmaWd+fl3E96Wd/E9XdvZHkfbvXNa+Rn45AGCS3bvjj/E/h3box5OrmxjPyy8PAEyS
+        XXO7zqhCeH/HDnwUOdCE+J6zdux4eH47YIrEGE8uy/Ls9Bnx/LooL0oH9b9Th/I1TVG+rCqKC+q6Xsh/
+        FJgmO8vy6WknfdPQTnsjckMdwlPy2wITLO3wF6si/lGas1ekuXvX0Fzuyg9S3psOCl6qDwimQB3ji9Ok
+        3btmEm907kpnEa/Mbw9Mlq1pB/6cdHZ/ZcfcPZrcXoXyrVVVFfl1gUmSdsS/libqPUMTd5NSvjktwrbB
+        kgDjVi1UT26K+Nnu+XrMuaud60uPWHpIfhtg3JqyfEaanHcPTdZNTRPCPy4uLj40LxIwBudt2fKAtOP/
+        0zQnN+5koIg3tpca81sC49J+LZcm5a3rJulYEq6LSV40YBOFEB6V5uFV6+flRiTsSwf9r81vDYzBCSO4
+        vjfq/KAuiqfm5QM2QRPjuWnubUbz71DCn6W33zpYCmDT1EX5m92Tcuy5q47xFXkxgQ3UduqnOXfn0Bzc
+        xJSvz4sCbIb2pzlp8v1w/WScnKSzkjekRT1hsMTAKC0vL5/Ydud3zb1NT1FelBcL2GiDm3d0TMTJy0ea
+        pjk1LzYwAu3NvtLc+uTQXBtn7tYYCJtja/vQno5JOJFpQrzWb4hhNJoQnpjm1Q3D82wCcnNRFKfnxQQ2
+        Qttk1zH5JjzhFmcIcHzyzb6O5aFem5J0sP/OvKjARmg7b7sm3xRkT3vDorwawJHb1t6Ep2NOTVoOtDch
+        yssMjFr6IPh8x8SbnsT4lrQamgPhCMzPzz+sifHjnXNpMnN5XnRglJaWlk5KE2z/0ISbxnzQQ0bgvlXz
+        1ePSXPnG0NyZ+DRF8Zi8CsCo7Azh0V0TbkrzRc2B0G3wIJ9429CcmZLce4MgYJTyff87JtzU5uayLM/J
+        qwcM7vD5+jQ3DgzNlWnKDXldgFFJZwW/2jHZpj1727uZ5VWE3mofqJXmw4eG5sdUpqqqXXm1gFGoQnhJ
+        12SbgRxoYvzjtIruK04vxRjPSvPgK0PzYmqTPqtemVcNGIU6xgu7JtusJH1ovH9ubu6UvLrQC2ncPyuN
+        /58Mz4fpTvnmvHrAKJQL5dO6J9ssJXxucWFhLq8yzLKtaUf5h2ncb9zz+8eUKsYP53UERmHX/PyOrsk2
+        g7nJDUWYZUuPWHpIE8oPdIz92UiMn86rCoxIOmOYta8KD5uftk2Peb1hZtTzdVOHcF3HmJ+ZVCF+Ia8u
+        MCppcl0+PNlmOG1zYPtYYc2BzIQ0np+ZxvWPh8b5LObqvMrAqEzRo4BHmctijCfnEsBUqkP5u2ksz8Kd
+        PI8g5SfyagOj0jbIpQk2c01DR5Brmh3NfC4DTI324LWO8V0dY3pm48mAsEGm7OEgo0sRb9wZ4+NzGWDi
+        lWUZ0ti9Zt1YnvUU8fdyCYBRmsFbAh9xqhDvqEN4Xi4FTKz8s93vD4/hPiSdpJyXywCMWPtrgKuGJ12P
+        ck/6gPmDXAuYOHVR/lY6UN3XMXb7kDv17MAGqhaqJ6WJ1sdegDUJ726a5oG5JDB2917vL+Kl3eO1N/lQ
+        LgewUdIO8E0dk69vubosy+25JDA2bYNuFeJnOsZovxLjhbkkwEZZXl4+0QfOvfl2Ogg4O5cFNl1dFE9N
+        4/B7Q+Oyj7mh/VzKZQE2UtM0j6iL+LWOidizhN3OPBiHuigvSmPwrvVjsn9pQnh1LguwGQa3Fo3fHp6M
+        Pcw97c1WcllgQy0tLZ2UDr7/qmMc9jJNiF/WkwNjMHhQ0GzfX/yIU8RLfRCxkdq+kzTfrugcf/3MgZ1l
+        +fRcHmCztU8Yq2P8h47J2cdcpTmQjdCE8IQ0vnzjdkjKP8nlAcZoWxXin3dP0n4l1eGb9UL92FwXOG51
+        Ub48ja09w2Otz2nvTJpKs21QIWDs0lnKb6TJqTEphN3NQvncXBY4VtvSju4N3WOs17l6cXHxoblGwKRo
+        r8mlHeAtHZO2b9mfDohem8sCR2XX3K4z0hj65NCYklSTGONpuUzApNlVFFWaqP81NHF7mvD2tnM7lwbu
+        V/vwqTR2vrV+LPU7VSjf4ff+MAU0B65NeWVd12fm0sBhpTnzosHDp7rGUV8T9lVFvDiXCJgSrmEezDea
+        onhMrgsM25rmyuvSODkwNG56nvZyYvi5XCNg2mgOXM3tVVH9ci4L3KtpmlN9W7Y+VYhfiEkuEzCt8n3L
+        fzA8yXuY/b7OZEVZlovt3ew6xknf8965ublTcpmAaac5cG3C2zQ09Vv7bVAaC/+7fmz0Og6QYVZpDlyT
+        GD/dPlgpl4b+2Nru5NIYuGfdmOhxmhB/VBblL+QaATNKc+DBfH1nCI/OdWHGtTewSdv874fGgIT4xfYb
+        wlwmYNZpDlzNbVUIz85lYUblJ2i6BDacGP/u7O3bH5zLBPSF5sDV7K+L+Nu5LMyYtJP7xbSNfzy0zfue
+        A+03gak8WwdVAnpHc+CaxHiJ5sCZsnK9f/+6bd3v3JZ2/r+SawT0mebAg0kfjB93v/Pp136t3X693bWN
+        e56v6nsBhmkOXE24Ph0EnJXrwpSp63qhDuXnu7dtn1P+U1VVP5PLBHAozYGDtD+LchvU6TN4Iqa+lqGs
+        XO8/YVAlgMPQHLiSsC+dNb0ml4UJVxflRWm73b1+O/Y5YXcVwvNziQDun+bANYnxkvO2bHlALg0TJsZ4
+        cl3ESzu3Xa8Trm+KYimXCeDIaQ48mKqIH9McOHl2zc/vaIr42a5t1vN8tCiK03OZAI6J5sCVFPFr7QNk
+        cl0Ys3yp6nvrtlO/s3K9f9ugSgDHSXPgILk58PxcFsYkX+93J8s1qUK8oynKF+YSAYyO5sCVhH3pgOjV
+        uSxsoqZpHpjq//bu7dLjFPHGND+Xc5kARk9z4JrE+JZUEl+1bpLFhYW5VPf/WLcd5N/ruj4zlwlg42gO
+        PCQfdXOVjdeE8MRU6xuGai9uXw2MgebA1YTrFkMoc10YsaYoX5rqfOf6uvc6e9LO/xW5RACbT3Pgam5N
+        B0Q/m8vCCLT3XnCQ2ZXwnWqhenIuE8D4aA5czV3OykZj19yuM1I9PzlUXwnhirIst+cyAYyf5sA1GTQH
+        uu/6MdoZ4+NTHb+1rq59j+v9wKTSHHhIPtI0zam5NByhNH5enGr306Fa9j1720ttuUQAE0tz4Epi/FJM
+        cl24b8ZNd25KdTk31whg8mkOXEm4pX1EbS4LHebn5x+WdnIf765fr3NVCOFRuUwA00Nz4Gr21kX58lwW
+        1qjmq8el+nxjqF4S4yVLS0sn5TIBTB/NgWuiOfAQTVE+J9XltnV16nXCvqqIF+cSAUw3zYGH5INnb9/+
+        4Fyavtra7uRSLe4Zqk3f88MmxvNyjQBmhiavg/liVVVFrkuvLC4uPjSt/4eG6iEhXlOWZchlApg9mgNX
+        c3P6wD8nl6UXqvlqZ1rv/xmqQ+/ThPJv5ufnH5TLBDC7NAeuZm97n/tclplWhfCstL4/GVr/nsf1fqCH
+        NAeu5kB7aSSVZFabA13v786tVVFckGsE0C+aAw8mnSG/f25u7pRcmpnQbt8mlB/oWt8+pwnxWk+PBNAc
+        uJoqxC/MSnNgs7BQ1yFc17WePc97Z+1AD+C4aA5czU3T/qjXdED3zLQePx5ar75nf77ev3VQJQBWaQ5c
+        zZ4qhJfkskyVuigvapvbOtapt2lC/FFTls/IJQKgi+bA1aw0B07FGWOM8eQ6xnd1rEe/E+OX2jGdywTA
+        fdEcuCYx/u2kXzNudjTz6az/c53L3+NUMX7YI6EBjp7mwIO5pt3J5rpMlHKhfFpavu8PLW/fM+s/7QTY
+        eJoDV/PduiiWc1kmwuB6f7x7aDn7ntvrGC/MJQLgeGgOHKQK8Y46hOflsoxN0zQPbEJ8Z9cy9jxf3RnC
+        o3OZABgFzYGrab9efl0qyViaAxcXFubSgchnOpar77k8xnhaLhMAo6Q5cE2K+L7NfoBMHcJT0nvfvG5Z
+        +h3X+wE2iebAg7m6LMvtuS4bKl/v14txSMLuKoQX5BIBsBk0B64kfCfV4om5LCN33pYtD3DA1ZVwfb1Q
+        PzaXCYDNpDlwJWH3RnSe75rbdUZ6/X9b/369z0eLojg9lwmAcdAcuJqV5sCRaEJ4QnrNbw+9R9+zcr1/
+        26BKAIyV5sBDcll7W95cmmPSPocgvc6dQ6/b9+xpivJluUQATBDNgQdz1TE2B6phV4p446TdhAmAIens
+        9ZXpQ1tz4KA58Am5LPfrrB07Hp7+zr90v1Z/UxXxU3Vdn5nLBMAk0xy4krC7WSifm8tyWGVZnl2F+M3u
+        1+hxYrxkeXn5xFwmAKaB5sDV7E9nsRfnsqyTdnIvGtxiuPPv9jV7Ul1ekUsEwLTRHHgwVSjfsbS0dFIu
+        TWtr+6uB9P8ODP/Znue7ZVmek2sEwBTT2Laa8sr2enb7jHoHRl0JV8QYH5nHDQCzwJ0DV/P1tKO7vuO/
+        9zpVKN/qej/AjNIcKB3Z24TyVXmIADCrNAfKmtzUxHhuHhoAzDrNgZJyVQjhUXlIANAjmgN7m/Du471d
+        MgBTzp0D+5Sw777uiQBAz2gO7EPCLSnn500OAAOaA2c615RlGfKmBoBDaQ6cvTQhvmd+fv5BeRMDwGFp
+        DpyJuN4PwDHQHDjVubUqigvypgSAo6M5cPrShHjtYghl3oQAcGw0B05Rivi+ubm5U/KmA4Djozlw4rM/
+        X+/fOthiADA6mgMnME2IP2rK8hl5GwHAxtAcOFH5SozxrLxpAGBjaQ4cf6oYP9w0zal5kwDA5tAcOLYc
+        aC/FpE1wwmBLAMAm0xy46bk91fvCXH4AGCvNgZuRIn6tKYrH5JoDwGTQHLihuTzGeFouNQBMFs2BI4/r
+        /QBMB82Bo0rYXYXwglxWAJh8mgOPN+H6eqF+bC4nAEwVzYHHkiL+c1EUp+caAsB00hx4FInxLalk2waV
+        A4AppznwfrOnLsqX53IBwOzQHHiYFPHGaqF6Ui4TAMwezYGHpirip+q6PjOXBwBmmubANjFesry8fGKu
+        CQD0Q4+bA/dWMf56LgMA9E8PmwO/W5blOXn1AaC/+tMcWF4ZY3xkXm0AYOabA2O8ZGlp6aS8ugDAGrPY
+        HLi3CeWr8voBAIczQ82BN6UDmnPzagEA92f6mwPLz1dVVeTVAQCO1LQ2B1Yh/PX8/PyD8moAAEdrupoD
+        w76qiBfnRQcAjtMUNAeGW1LOz8sLAIzKBDcHXlOWZciLCQCM2gQ2B142Nzd3Sl48AGCjTEhz4H7X+wFg
+        k425OfDWqqh+Pi8KALDJtqWDgDemHfKBoR30hqUJ8dqY5PcHAMalKcrnpJ3z94Z31qNO+/t+1/sBYIKk
+        k/LT6hD+Mu2oR/4rgXTW/+X02r+U3woAmDTtz/GaIv5F2nH/ZHhHfpS5J+Vf01n/S9LLbhu8OgAw0dpb
+        8TYL5XPTmfvb0o78v/MOvWtHvybtzXzKT1Qx/n5d1wv5pQCAaXXvAUFRLLXd+3WMFzZF+cKUl7X/rIri
+        gsWFhbn8RwEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA6LEtW/4flgYiLD1qeX0A
+        AAAASUVORK5CYII=
+</value>
+  </data>
   <metadata name="TT_MAIN.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>False</value>
   </metadata>
@@ -162,8 +253,7 @@
   <metadata name="LBL_SUBS_FORMAT.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">
+  <data name="ActionButton2.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
         wwAADsMBx2+oZAAAAR5JREFUOE+VkjFqwzAUhn2D9iShRyi+QhYbGujg3ZATZPKYdC6FQhPwlAMkg3dP
@@ -174,7 +264,7 @@
         cMaRN0UdBBkAAAAASUVORK5CYII=
 </value>
   </data>
-  <data name="ActionButton2.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="ActionButton3.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
         JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAACOElE
@@ -188,17 +278,17 @@
         HhQDmFjYeHVKFp7WX/Xuv9Kq9/+Vd/z7r7rv/3+l7f//y676DEwDN/9L+BVvYkKLCTgDhNkkVUyVlr74
         qbbz73/VOTc/qsy89kWx+9h7qbQpJwS1bbOAscGGrB6EUTggLOqf16C55ft/HlnNAFZOXgVWdi4FRgYG
         VnR1MIwhwMTCyqEQ37qEmZVDFF0OE/9nAACtFF4Ey6OP+wAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="ActionButton3.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="ActionButton4.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="ActionButton5.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
         wwAADsMBx2+oZAAAAR5JREFUOE+VkjFqwzAUhn2D9iShRyi+QhYbGujg3ZATZPKYdC6FQhPwlAMkg3dP
@@ -209,7 +299,7 @@
         cMaRN0UdBBkAAAAASUVORK5CYII=
 </value>
   </data>
-  <data name="ActionButton5.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="ActionButton6.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
         JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAACOElE
@@ -225,7 +315,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="ActionButton7.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
         xAAADsQBlSsOGwAAAIZJREFUOE+1j10KwCAMgz2b755xl/IsvnaL2K20UfbDAmEako+ZROSTafjE12Go
@@ -233,7 +323,7 @@
         AFuc5QFgn6ClHh5iOQVAKNixyucB8NY0vG9JOzzyhrdq5IRgAAAAAElFTkSuQmCC
 </value>
   </data>
-  <data name="ActionButton7.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="ActionButton8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
         wwAADsMBx2+oZAAAAR5JREFUOE+VkjFqwzAUhn2D9iShRyi+QhYbGujg3ZATZPKYdC6FQhPwlAMkg3dP
@@ -244,7 +334,7 @@
         cMaRN0UdBBkAAAAASUVORK5CYII=
 </value>
   </data>
-  <data name="ActionButton8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="ActionButton9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
         JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAACOElE
@@ -260,7 +350,7 @@
         VnR1MIwhwMTCyqEQ37qEmZVDFF0OE/9nAACtFF4Ey6OP+wAAAABJRU5ErkJggg==
 </value>
   </data>
-  <data name="ActionButton9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="ActionButton10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
         xAAADsQBlSsOGwAAAIZJREFUOE+1j10KwCAMgz2b755xl/IsvnaL2K20UfbDAmEako+ZROSTafjE12Go

SCrawler.YouTube/Controls/VideoOptionsForm.vb

@@ -47,6 +47,8 @@ Namespace API.YouTube.Controls
                 MyView.SetFormSize()
             End If
 
+            MyYouTubeSettings.DownloadLocations.PopulateComboBox(TXT_FILE)
+
             If Not MyContainer Is Nothing Then
                 With MyContainer
                     Dim i%
@@ -299,7 +301,7 @@ Namespace API.YouTube.Controls
                         .FileSetManually = True
                         .UpdateInfoFields()
                         '#If DEBUG Then
-                        '                        Debug.WriteLine(.Command(False))
+                        'Debug.WriteLine(.Command(False))
                         '#End If
                     Else
                         If OPT_AUDIO.Checked Then
@@ -312,6 +314,7 @@ Namespace API.YouTube.Controls
                 End With
 
                 If MyYouTubeSettings.OutputPathAutoChange Then MyYouTubeSettings.OutputPath.Value = f
+                If MyDownloaderSettings.OutputPathAutoAddPaths Then MyYouTubeSettings.DownloadLocations.Add(f, False)
 
                 DialogResult = DialogResult.OK
                 Close()
@@ -430,7 +433,7 @@ Namespace API.YouTube.Controls
         End Sub
 #End Region
 #Region "Footer"
-        Private Sub BTT_BROWSE_Click(sender As Object, e As EventArgs) Handles BTT_BROWSE.Click
+        Private Sub BTT_BROWSE_MouseClick(sender As Object, e As MouseEventArgs) Handles BTT_BROWSE.MouseClick
             Dim f As SFile
 #Disable Warning BC40000
             If MyContainer.HasElements Then
@@ -444,7 +447,13 @@ Namespace API.YouTube.Controls
                 f = SFile.SaveAs(f, "Select the destination of the video file",,, sPattern, EDP.ReturnValue)
             End If
 #Enable Warning
-            If Not f.IsEmptyString Then TXT_FILE.Text = f
+            If Not f.IsEmptyString Then
+                If e.Button = MouseButtons.Right Then
+                    MyYouTubeSettings.DownloadLocations.Add(f, MyDownloaderSettings.OutputPathAskForName)
+                    MyYouTubeSettings.DownloadLocations.PopulateComboBox(TXT_FILE, f)
+                End If
+                TXT_FILE.Text = f
+            End If
         End Sub
 #End Region
 #End Region

SCrawler.YouTube/Downloader/DownloadLocationsCollection.vb

@@ -0,0 +1,204 @@
+' 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 PersonalUtilities.Functions.XML
+Imports PersonalUtilities.Functions.XML.Base
+Imports PersonalUtilities.Functions.XML.Attributes
+Imports PersonalUtilities.Forms.Controls
+Imports PersonalUtilities.Forms.Controls.Base
+Imports PersonalUtilities.Tools
+Namespace DownloadObjects.STDownloader
+    Public Structure DownloadLocation : Implements IComparable(Of DownloadLocation), IEquatable(Of DownloadLocation), IEContainerProvider
+        <XMLECA(NameOf(Path))> Public Name As String
+        <XMLEC> Public Path As String
+        <XMLECA(NameOf(Path), NullValue:=-1, NullValueExists:=True)>
+        Public Model As Integer
+        ''' <param name="Path">with separator</param>
+        Public Sub New(ByVal Path As String)
+            Me.New(Path, -1)
+        End Sub
+        ''' <inheritdoc cref="DownloadLocation.New(String)"/>
+        Public Sub New(ByVal Path As String, ByVal Model As Integer)
+            Me.Path = Path
+            Me.Model = Model
+        End Sub
+        Public Shared Widening Operator CType(ByVal Path As String) As DownloadLocation
+            Return New DownloadLocation(Path)
+        End Operator
+        Public Shared Narrowing Operator CType(ByVal Path As SFile) As DownloadLocation
+            Return New DownloadLocation(Path.PathWithSeparator)
+        End Operator
+        Public Shared Widening Operator CType(ByVal Location As DownloadLocation) As String
+            Return Location.Path
+        End Operator
+        Public Overrides Function ToString() As String
+            Return Path
+        End Function
+        Public Overloads Overrides Function Equals(ByVal Obj As Object) As Boolean
+            If Not IsNothing(Obj) Then
+                If TypeOf Obj Is DownloadLocation Then
+                    Return Equals(DirectCast(Obj, DownloadLocation))
+                Else
+                    Return Obj.ToString = Path
+                End If
+            Else
+                Return False
+            End If
+        End Function
+        Public Overloads Function Equals(ByVal Other As DownloadLocation) As Boolean Implements IEquatable(Of DownloadLocation).Equals
+            Return Path = Other.Path And Model = Other.Model
+        End Function
+        Private Function ToEContainer(Optional ByVal e As ErrorsDescriber = Nothing) As EContainer Implements IEContainerProvider.ToEContainer
+            Return XMLGenerateContainers(Me).FirstOrDefault
+        End Function
+        Private Function CompareTo(ByVal Other As DownloadLocation) As Integer Implements IComparable(Of DownloadLocation).CompareTo
+            Return Name.CompareTo(Other.Name)
+        End Function
+    End Structure
+    Public Class DownloadLocationsCollection : Implements ICollection(Of DownloadLocation), IMyEnumerator(Of DownloadLocation)
+        Private ReadOnly Property Locations As List(Of DownloadLocation)
+        Private WorkingFile As SFile
+        Public Sub New()
+            Locations = New List(Of DownloadLocation)
+        End Sub
+        Public Sub Load(ByVal IsGlobal As Boolean, Optional ByVal IsYT As Boolean = False, Optional ByVal File As SFile = Nothing)
+            If Not IsGlobal Then
+                WorkingFile = $"Settings\DownloadLocations{IIf(IsYT, "YouTube", String.Empty)}.xml"
+            ElseIf Not File.IsEmptyString Then
+                WorkingFile = File
+            Else
+                Throw New ArgumentNullException("File", "File cannot be null in global locations instance")
+            End If
+            If WorkingFile.Exists Then
+                Using x As New XmlFile(WorkingFile, Protector.Modes.All, False) With {.AllowSameNames = True}
+                    x.LoadData()
+                    Locations.ListAddList(x.XMLGenerateInstances(Of DownloadLocation), LAP.NotContainsOnly)
+                End Using
+            End If
+        End Sub
+        Private ReadOnly Property IsReadOnly As Boolean = False Implements ICollection(Of DownloadLocation).IsReadOnly
+        Public ReadOnly Property Count As Integer Implements ICollection(Of DownloadLocation).Count, IMyEnumerator(Of DownloadLocation).MyEnumeratorCount
+            Get
+                Return Locations.Count
+            End Get
+        End Property
+        Default Public ReadOnly Property Item(ByVal Index As Integer) As DownloadLocation Implements IMyEnumerator(Of DownloadLocation).MyEnumeratorObject
+            Get
+                Return Locations(Index)
+            End Get
+        End Property
+        Public Shared Sub AddCmbColumns(ByRef CMB As ComboBoxExtended, Optional ByVal UseUpdate As Boolean = True)
+            With CMB
+                If UseUpdate Then .BeginUpdate()
+                With .Columns
+                    .Clear()
+                    .Add(New ListColumn("COL_NAME", "Name") With {.DisplayMember = False, .ValueMember = False, .AutoWidth = True, .Width = -1})
+                    .Add(New ListColumn("COL_VALUE", "Value") With {.DisplayMember = True, .ValueMember = True, .Visible = False})
+                End With
+                If UseUpdate Then .EndUpdate(True)
+            End With
+        End Sub
+        Public Sub PopulateComboBox(ByRef CMB As ComboBoxExtended, Optional ByVal Current As SFile = Nothing)
+            Locations.Sort()
+            With CMB
+                .BeginUpdate()
+
+                If .Columns.Count = 0 Then AddCmbColumns(CMB, False)
+
+                .Items.Clear()
+
+                If Count > 0 Then
+                    .Items.AddRange(Locations.Select(Function(l) New ListItem({l.Name, l.Path})))
+                    .LeaveDefaultButtons = True
+                Else
+                    .LeaveDefaultButtons = False
+                End If
+
+                .ListAutoCompleteMode = ComboBoxExtended.AutoCompleteModes.Disabled
+
+                .EndUpdate()
+
+                If Not Current.IsEmptyString And Locations.Count > 0 Then
+                    Dim i% = IndexOf(Current.PathWithSeparator)
+                    If i.ValueBetween(0, .Items.Count - 1) Then .SelectedIndex = i
+                    If Current.File.IsEmptyString Then CMB.Text = Current.PathWithSeparator Else CMB.Text = Current
+                End If
+            End With
+        End Sub
+        Public Function ChooseNewLocation(ByRef CMB As ComboBoxExtended, ByVal AddToList As Boolean, ByVal AskForName As Boolean) As SFile
+            Dim f As SFile = SFile.SelectPath(CMB.Text.CSFileP, "Select output directory", EDP.ReturnValue)
+            If Not f.IsEmptyString Then
+                CMB.Text = f.PathWithSeparator
+                If AddToList Then
+                    Add(New DownloadLocation(f.PathWithSeparator), AskForName)
+                    PopulateComboBox(CMB, f)
+                End If
+            End If
+            Return f
+        End Function
+        Private Sub Update()
+            If Locations.Count > 0 Then
+                Using x As New XmlFile With {.AllowSameNames = True}
+                    x.AddRange(Locations)
+                    x.Name = "Locations"
+                    x.Save(WorkingFile, EDP.SendToLog)
+                End Using
+            Else
+                WorkingFile.Delete(,, EDP.None)
+            End If
+        End Sub
+        Public Sub Clear() Implements ICollection(Of DownloadLocation).Clear
+            If Locations.Count > 0 Then Locations.Clear() : Update()
+        End Sub
+        Public Overloads Sub Add(ByVal Item As DownloadLocation) Implements ICollection(Of DownloadLocation).Add
+            Add(Item, True)
+        End Sub
+        Public Overloads Sub Add(ByVal Item As DownloadLocation, ByVal AskForName As Boolean)
+            If Not Item.Path.IsEmptyString Then
+                Dim i% = IndexOf(Item)
+                Dim processUpdate As Boolean = True
+                If i >= 0 Then
+                    If Locations(i).Model = Item.Model Then
+                        processUpdate = False
+                    Else
+                        Locations(i) = Item
+                    End If
+                Else
+                    If Item.Name.IsEmptyString And AskForName Then Item.Name = InputBoxE("Enter a new name for the new location", "Location name", Item.Path)
+                    If Item.Name.IsEmptyString Then Item.Name = Item.Path
+                    Locations.Add(Item)
+                    Locations.Sort()
+                End If
+                If processUpdate Then Update()
+            End If
+        End Sub
+        Private Sub CopyTo(ByVal Array() As DownloadLocation, ByVal ArrayIndex As Integer) Implements ICollection(Of DownloadLocation).CopyTo
+            Locations.CopyTo(Array, ArrayIndex)
+        End Sub
+        Public Function Contains(ByVal Item As DownloadLocation) As Boolean Implements ICollection(Of DownloadLocation).Contains
+            Return Not Item.Path.IsEmptyString AndAlso Locations.Contains(Item)
+        End Function
+        Public Function IndexOf(ByVal Item As DownloadLocation, Optional ByVal IgnoreModel As Boolean = False) As Integer
+            Return Locations.FindIndex(Function(d) d.Path = Item.Path And (d.Model = Item.Model Or IgnoreModel))
+        End Function
+        Public Function Remove(ByVal Item As DownloadLocation) As Boolean Implements ICollection(Of DownloadLocation).Remove
+            If Locations.Remove(Item) Then
+                Update()
+                Return True
+            Else
+                Return False
+            End If
+        End Function
+        Private Function GetEnumerator() As IEnumerator(Of DownloadLocation) Implements IEnumerable(Of DownloadLocation).GetEnumerator
+            Return New MyEnumerator(Of DownloadLocation)(Me)
+        End Function
+        Private Function IEnumerable_GetEnumerator() As IEnumerator Implements IEnumerable.GetEnumerator
+            Return GetEnumerator()
+        End Function
+    End Class
+End Namespace

SCrawler.YouTube/Downloader/IDownloaderSettings.vb

@@ -16,5 +16,11 @@ Namespace DownloadObjects.STDownloader
         ReadOnly Property OnItemDoubleClick As DoubleClickBehavior
         ReadOnly Property OpenFolderInOtherProgram As Boolean
         ReadOnly Property OpenFolderInOtherProgram_Command As String
+        ReadOnly Property OutputPathAskForName As Boolean
+        ReadOnly Property OutputPathAutoAddPaths As Boolean
+        ReadOnly Property ENVIR_FFMPEG As SFile
+        ReadOnly Property ENVIR_YTDLP As SFile
+        ReadOnly Property ENVIR_GDL As SFile
+        ReadOnly Property ENVIR_CURL As SFile
     End Interface
 End Namespace

SCrawler.YouTube/Downloader/MediaItem.vb

@@ -115,31 +115,36 @@ Namespace DownloadObjects.STDownloader
             Me.New
             Const d$ = " " & ChrW(183) & " "
             MyContainer = Container
-            MyContainer.Progress = MyProgress
-            If MyContainer.HasElements Then FileOption = SFO.Path Else FileOption = SFO.File
-            If Not MyContainer.SiteKey = YouTubeSiteKey Then
-                BTT_DOWN_AGAIN.Visible = False
-                SEP_DOWN_AGAIN.Visible = False
-            End If
+            With MyContainer
+                .Progress = MyProgress
+                If .HasElements Then FileOption = SFO.Path Else FileOption = SFO.File
+                If .DownloadState = Plugin.UserMediaStates.Downloaded AndAlso
+                   (.ObjectType = Base.YouTubeMediaType.Channel Or .ObjectType = Base.YouTubeMediaType.PlayList) AndAlso FileOption = SFO.File AndAlso
+                   Not .File.Exists AndAlso .File.Exists(SFO.Path, False) Then FileOption = SFO.Path
+                If Not .SiteKey = YouTubeSiteKey Then
+                    BTT_DOWN_AGAIN.Visible = False
+                    SEP_DOWN_AGAIN.Visible = False
+                End If
 
-            ICON_SITE.Image = MyContainer.SiteIcon
-            LBL_TIME.Text = AConvert(Of String)(Container.Duration, TimeToStringProvider, String.Empty)
-            LBL_TITLE.Text = Container.ToString(True)
-            If Not Container.SiteKey = YouTubeSiteKey And Container.ContentType = Plugin.UserMediaTypes.Picture Then
-                LBL_INFO.Text = Container.File.Extension.StringToUpper
-            ElseIf Not Container.IsMusic Then
-                If Container.Height > 0 Then
-                    LBL_INFO.Text = $"{Container.File.Extension.StringToUpper}{d}{Container.Height}p"
+                ICON_SITE.Image = .SiteIcon
+                LBL_TIME.Text = AConvert(Of String)(.Duration, TimeToStringProvider, String.Empty)
+                LBL_TITLE.Text = .ToString(True)
+                If Not .SiteKey = YouTubeSiteKey And .ContentType = Plugin.UserMediaTypes.Picture Then
+                    LBL_INFO.Text = .File.Extension.StringToUpper
+                ElseIf Not .IsMusic Then
+                    If .Height > 0 Then
+                        LBL_INFO.Text = $"{ .File.Extension.StringToUpper}{d}{ .Height}p"
+                    Else
+                        LBL_INFO.Text = .File.Extension.StringToUpper
+                    End If
                 Else
-                    LBL_INFO.Text = Container.File.Extension.StringToUpper
+                    If .Bitrate > 0 Then
+                        LBL_INFO.Text = $"{ .File.Extension.StringToUpper}{d}{ .Bitrate}k"
+                    Else
+                        LBL_INFO.Text = .File.Extension.StringToUpper
+                    End If
                 End If
-            Else
-                If Container.Bitrate > 0 Then
-                    LBL_INFO.Text = $"{Container.File.Extension.StringToUpper}{d}{Container.Bitrate}k"
-                Else
-                    LBL_INFO.Text = Container.File.Extension.StringToUpper
-                End If
-            End If
+            End With
             UpdateMediaIcon()
         End Sub
 #End Region
@@ -277,6 +282,7 @@ Namespace DownloadObjects.STDownloader
 #Region "Context buttons' handlers"
         Public Sub AddToQueue()
             ControlInvokeFast(Me, Sub()
+                                      Pending = True
                                       BTT_DOWN.Visible = False
                                       SEP_DOWN.Visible = False
                                   End Sub, EDP.None)
@@ -300,6 +306,8 @@ Namespace DownloadObjects.STDownloader
                 Throw oex
             Catch ex As Exception
                 ErrorsDescriber.Execute(EDP.SendToLog, ex, $"MediaItem.Download:{vbCr}{MyContainer.ToString}{vbCr}{MyContainer.URL})")
+            Finally
+                Pending = False
             End Try
         End Sub
 #End Region
@@ -367,12 +375,12 @@ Namespace DownloadObjects.STDownloader
                     If FileOption = SFO.File And MyContainer.File.Exists(SFO.File, False) Then
                         MyContainer.File.Open(SFO.File,, EDP.ShowMainMsg)
                     ElseIf MyContainer.File.Exists(SFO.Path, False) Then
-                        MyContainer.File.Open(SFO.Path,, EDP.ShowMainMsg)
+                        GlobalOpenPath(MyContainer.File, EDP.ShowMainMsg)
                     Else
                         m.Show()
                     End If
                 Else
-                    If MyContainer.File.Exists(SFO.Path, False) Then MyContainer.File.Open(SFO.Path,, EDP.ShowMainMsg) Else m.Show()
+                    If MyContainer.File.Exists(SFO.Path, False) Then GlobalOpenPath(MyContainer.File, EDP.ShowMainMsg) Else m.Show()
                 End If
             End If
             OnDoubleClick(e)

SCrawler.YouTube/Downloader/VideoListForm.Designer.vb

@@ -47,6 +47,7 @@ Namespace DownloadObjects.STDownloader
             Me.BTT_LOG = New System.Windows.Forms.ToolStripButton()
             Me.BTT_INFO = New System.Windows.Forms.ToolStripButton()
             Me.BTT_DONATE = New System.Windows.Forms.ToolStripButton()
+            Me.BTT_BUG_REPORT = New System.Windows.Forms.ToolStripButton()
             SEP_2 = New System.Windows.Forms.ToolStripSeparator()
             SEP_3 = New System.Windows.Forms.ToolStripSeparator()
             MENU_ADD_SEP_1 = New System.Windows.Forms.ToolStripSeparator()
@@ -104,7 +105,7 @@ Namespace DownloadObjects.STDownloader
             'TOOLBAR_TOP
             '
             Me.TOOLBAR_TOP.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
-            Me.TOOLBAR_TOP.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BTT_SETTINGS, Me.SEP_1, Me.MENU_ADD, SEP_2, Me.BTT_DOWN, Me.BTT_STOP, SEP_3, Me.BTT_DELETE, Me.BTT_CLEAR_DONE, Me.BTT_CLEAR_ALL, Me.SEP_LOG, Me.BTT_LOG, Me.BTT_INFO, Me.BTT_DONATE})
+            Me.TOOLBAR_TOP.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BTT_SETTINGS, Me.SEP_1, Me.MENU_ADD, SEP_2, Me.BTT_DOWN, Me.BTT_STOP, SEP_3, Me.BTT_DELETE, Me.BTT_CLEAR_DONE, Me.BTT_CLEAR_ALL, Me.SEP_LOG, Me.BTT_LOG, Me.BTT_INFO, Me.BTT_DONATE, Me.BTT_BUG_REPORT})
             Me.TOOLBAR_TOP.Location = New System.Drawing.Point(0, 0)
             Me.TOOLBAR_TOP.Name = "TOOLBAR_TOP"
             Me.TOOLBAR_TOP.Size = New System.Drawing.Size(584, 25)
@@ -143,7 +144,8 @@ Namespace DownloadObjects.STDownloader
             Me.BTT_ADD.Size = New System.Drawing.Size(184, 22)
             Me.BTT_ADD.Tag = "a"
             Me.BTT_ADD.Text = "Add (Ins)"
-            Me.BTT_ADD.ToolTipText = "Click to add." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ctrl+click to use cookies for download (if supported)."
+            Me.BTT_ADD.ToolTipText = "Click to add." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ctrl+click to use cookies for download (if supported)." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Shift to a" &
+    "dd without downloading."
             '
             'BTT_ADD_PLS_ARR
             '
@@ -154,7 +156,8 @@ Namespace DownloadObjects.STDownloader
             Me.BTT_ADD_PLS_ARR.Size = New System.Drawing.Size(184, 22)
             Me.BTT_ADD_PLS_ARR.Tag = "pls"
             Me.BTT_ADD_PLS_ARR.Text = "Add playlist array"
-            Me.BTT_ADD_PLS_ARR.ToolTipText = "Click to add." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ctrl+click to use cookies for download (if supported)."
+            Me.BTT_ADD_PLS_ARR.ToolTipText = "Click to add." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ctrl+click to use cookies for download (if supported)." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Shift to a" &
+    "dd without downloading."
             '
             'BTT_ADD_NO_SHORTS
             '
@@ -166,7 +169,7 @@ Namespace DownloadObjects.STDownloader
             Me.BTT_ADD_NO_SHORTS.Tag = "ans"
             Me.BTT_ADD_NO_SHORTS.Text = "Add (without Shorts)"
             Me.BTT_ADD_NO_SHORTS.ToolTipText = "Download all videos except 'Shorts'." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Click to add." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ctrl+click to use cookies fo" &
-    "r download (if supported)."
+    "r download (if supported)." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Shift to add without downloading."
             '
             'BTT_ADD_SHORTS_ONLY
             '
@@ -178,20 +181,21 @@ Namespace DownloadObjects.STDownloader
             Me.BTT_ADD_SHORTS_ONLY.Tag = "as"
             Me.BTT_ADD_SHORTS_ONLY.Text = "Add (Shorts only)"
             Me.BTT_ADD_SHORTS_ONLY.ToolTipText = "Download only 'Shorts' videos." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Click to add." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ctrl+click to use cookies for down" &
-    "load (if supported)."
+    "load (if supported)." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Shift to add without downloading."
             '
             'BTT_DOWN
             '
-            Me.BTT_DOWN.Image = CType(resources.GetObject("BTT_DOWN.Image"), System.Drawing.Image)
+            Me.BTT_DOWN.Image = Global.SCrawler.My.Resources.Resources.StartPic_Green_16
             Me.BTT_DOWN.ImageTransparentColor = System.Drawing.Color.Magenta
             Me.BTT_DOWN.Name = "BTT_DOWN"
             Me.BTT_DOWN.Size = New System.Drawing.Size(81, 22)
             Me.BTT_DOWN.Text = "Download"
-            Me.BTT_DOWN.ToolTipText = "Download pending items"
+            Me.BTT_DOWN.ToolTipText = "Download pending items (F5)"
             '
             'BTT_STOP
             '
             Me.BTT_STOP.AutoToolTip = False
+            Me.BTT_STOP.Enabled = False
             Me.BTT_STOP.Image = CType(resources.GetObject("BTT_STOP.Image"), System.Drawing.Image)
             Me.BTT_STOP.ImageTransparentColor = System.Drawing.Color.Magenta
             Me.BTT_STOP.Name = "BTT_STOP"
@@ -259,6 +263,16 @@ Namespace DownloadObjects.STDownloader
             Me.BTT_DONATE.Size = New System.Drawing.Size(23, 22)
             Me.BTT_DONATE.ToolTipText = "Support"
             '
+            'BTT_BUG_REPORT
+            '
+            Me.BTT_BUG_REPORT.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+            Me.BTT_BUG_REPORT.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+            Me.BTT_BUG_REPORT.Image = Global.SCrawler.My.Resources.Resources.MailPic_16
+            Me.BTT_BUG_REPORT.ImageTransparentColor = System.Drawing.Color.Magenta
+            Me.BTT_BUG_REPORT.Name = "BTT_BUG_REPORT"
+            Me.BTT_BUG_REPORT.Size = New System.Drawing.Size(23, 22)
+            Me.BTT_BUG_REPORT.Text = "Bug report"
+            '
             'VideoListForm
             '
             Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -302,5 +316,6 @@ Namespace DownloadObjects.STDownloader
         Protected WithEvents BTT_ADD_SHORTS_ONLY As PersonalUtilities.Forms.Controls.KeyClick.ToolStripMenuItemKeyClick
         Protected WithEvents MENU_ADD As ToolStripDropDownButton
         Protected WithEvents BTT_DOWN As ToolStripButton
+        Private WithEvents BTT_BUG_REPORT As ToolStripButton
     End Class
 End Namespace

SCrawler.YouTube/Downloader/VideoListForm.resx

@@ -136,243 +136,222 @@
   <data name="BTT_ADD.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAN7SURBVEhLrZVJTFNRFIafQhgkQA1OZYriSI0UtUI0vIKg
-        UEGNBRSUIQ4MihElUAgOqeKwcGM07owLYoxxYzSuHBZIjAoKrfpaoBZLJyiaYNxf83vus0QWBAy+k/xp
-        k3vzf+ee99/3hNkq7GZIZ/itEEwnvhbcNvfiRmlWDcu1iNj5UYRBItlE7HflyZDgtrkXN9n4ScMWdAuI
-        eSsg7r2AhL5Q1PoKlQPoJA2LfSdg8ft5WG4JR7oUg9ZAiXKATALwzlOs4dhkj0XO4FJc+V6pHECU0liK
-        NQJb7CoUOOJp/qtwc6JOOcBRScd0NhUKHQk4NLIWde503P3ZqBygWcpihi+JqHKnosGzCc3ebbj/0/Rv
-        gJlyPqkjluxfle51OOXRoW1UxKVAPjp/tGDRg8gZpX4U1Sl3mDeZccp30aCIYkcuql0FOOXdi3b/flwN
-        VNN/Hc769egIFODyuAGdEy24N2GSQXcmGnHjew06xivQ6i+lERahwV0G9eMoyABuHvOGMt4jINESBi3F
-        kCfFOJyCI+71OO3NxLnR7WRgwLXxQhlwaSyfzETUedJxYHg18oaWQWuLQVJ/GFTkU2Yz/gXwzrk5X9Ta
-        ommzGiVB8zO+TJz35+JywECAfFwYy4XJn0XPYjMOj2iwz7kC2YNLsEGKRrwlFKpeAZF0KUs+TgEU2UUk
-        k3k6dZDnUMsxrPVo0eTLwNnRHJwn03Z/Nky+LJzxbkE9rVW5NdjjXA49nVQ27w8Fv4zcfN5zAcbeKYCD
-        jh3Yao+jGCaiwrUOjfQwWygpbWTITZt922Q10ajqaSQ8TbudycgaWILUz1FQfwhBNI04okuA8Iz0mACv
-        pwBOSBnMNKBnZmcVMw8fY+av9czsqqPf4+yi/SS7/e0EmWeg1q1F+cgaFDqT0OatRtmHHb9qpGxWKYms
-        nKQniZ9IfaQekckAHtPpIjYpvun6QBur9aSh3LUau+iUmXTaBk+5vDajeExnK76xw97EDtBzKRhKwGa6
-        0SutkTjsKpZNgtvmXtzELDWw/KF4+UXH36ZxlJRDjuCM/7f+AGrYRlssEikpCynO/NtQOpnz/y1u0ihV
-        sKT+cKgohgteCQh5QSmxKgg4KukZN4+gzufzGD4lwDsFARUUv0jqXKALJDwhPSRAt4KA0s9GeSTGHhJd
-        IGMX6aVSAMoyN5pWs+ZcEH4DgcGuQfDpaFIAAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAN1SURBVEhLrZVZSFRRGMdvKa44TljWuGGWldMyZpYLjpqW
+        TlrRuGVutLiUkSk6SmUMZfYaRW/Rg0REL2H01PJgEZWaOuod00kZZ7OxwOj9xL/v3EbyQTT0fvBnBs7h
+        //vOd//nXmG58rnr1eV7zwuLia95tq28uJHapGZZQ1ocHtZCJ5LMWhRbsyWIZ9vKi5vsGlGzgHcCFB8F
+        hPQLCB/wRo0zTz6ARlSz4E8CNvSvQfSQL+JFBVrdhfIBEgjAO48x+SJhLBiZ4xtx60eFfIBkAsSY/LB/
+        TIlcSxjNfyvuztXKBzgraliiWYk8SzjKprej1haPh78a5AM0i0lM9zUClbY41NsT0OxIxeNfhv8DLJXz
+        eVX0ZfyusO3AJXsi2ma0uOHOQdfPFqx/4r+kVM8Cu6QOs+czTvnOH9eiwJKFKmsuLjmO44qrGJ3uKvqf
+        iKuudNx056JjVoeuuRY8mjNIoAdzDbjzoxo3Z8vR6iqiEeaj3nYSqu5ASABurvhAGe8VEDHkQ7FUSEnR
+        T8XgjG0nLjuScG3mIBnocHs2TwLc+JZDZlrU2uNRMhWL7IlN0JgViBz0gZJ8Tpr1/wC8c27OFzXmINqs
+        QqHHvNGZhHZXFjrcOgLk4Pq3LBhcafQs9uH0tBonJjcjYzwUu8UghA15Q9knwJ8uZeHwAkD+mBZRZB5P
+        HWRbVFIMa+waNDkP4OpMJtrJ9IorAwZnGhod+1FHa5U2NY5NRiOdTiqZD3qDX0ZuvuaVAH3fAsApyyGk
+        jIVQDCNQbt2BBnqYLZSUNjLkps3OVElNNKo6GglP09HJKKR9CUXcaCBUn70QRCP26xEgvCR1E+D9AsAF
+        cS8ziCnM+KWSGcfPMeNEHTNaaun3PDOKF9n97xfI/ABqbBqUTm9D3mQk2hxVKPiY8btaTGUVYjIrJaWQ
+        kkdIA6TeZCYBeEwXi9i8+KZOsY3V2Peg1BqLI3TKJDptvb1UWltSPKbLFd9oFJtYCT2X3Ilw7KMbvcXk
+        j9PWAsnEs23l9RdQz3ImwqQXHX+bhlBSyiyeGa+2/gKq2V5zMCIoKesozvzbUDSf89UWN2kQy1nkoC+U
+        FMOAtwK8XlNKTDICzlLCuLkfdb6Wx/AFAT7JCCin+PlT5wJdIOE56SkB3skIKBrVSyPR95LoAul7SG/k
+        AlCWudGiWjbngvAHbcWtizmLGJwAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="BTT_ADD_PLS_ARR.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAN6SURBVEhLrZVbSJNhGMe/UjyiLixrnig7J7WVphXOLa25
-        tKKlluYBy1MZWaJLNGNkh6sgiu6iC4mIbsLoqsNFRZRa6bRva1vW3MlmgeH9G/+e92OSF6Jh3wN/Nnhf
-        /r/nfb7/+33CfBV2M6Qn/FYIZhNfC25beHEjtSWd5Q1psHdYA4NIsmpQ6sqXIMFtCy9ukjGSzqJeC4h9
-        JyD+vYCkj6Go9xXKB8gS01lcn4Bl7xdh5VA41GIszgeK5QPsJADvPM0Sjm22OOjsy3HlZ6V8AK2oZmmW
-        CGy3KVDgTKT5r8HNyQb5ACfELJZpVaDQmYRjY+vR4Fbj7lSzfIBWMZcZviSjyr0RTZ5taPXuwv0p078B
-        5sr5tGqHdb8r3RtwxpOJ9nENLgX06PnVhqUPIueU8lF0j9Rh/nTGKd9Fdg0OO/NQ7SrAGe9BdPhLcTVQ
-        Tf8z0enPRXegAJcnDOiZbMO9SZMEujPZjBs/69A9UYHz/hIaYRGa3Eeh7I2GBODmsW8p4/0CkofCoKIY
-        8qQYv6bhuDsdZ73ZuDC+mwwMuDZRKAEufdeTmQYNHjWOfF2LfMcKqKyxSBkMg4J8jlqNfwG8c27OF1XW
-        GNqsRHHQ/JwvG13+PFwOGAigx8XveTD5c+hZZKBmbBMOja6C1p6AzWIMEodCoRgQEEmXsnh4BqDIpkEq
-        maupg3ynUophvUeFFl8WOsd16CLTDr8WJl8Oznm3o5HWqtybcGB0JXLppJL5YCj4ZeTmi54JMA7MAJQ7
-        92CnLZ5imIwK1wY008Nso6S0kyE3bfXtktRCo2qkkfA07R9NRc7nBGz8FA3lhxDE0IgjXgoQnpJ6CfBm
-        BuCUbQczOXTM/K2KmV21zDzWyMzuBvo9ybrtp9ntH6fIPAv1bhXKxtahcDQF7d5qlA/qf9eJu1mlqGVl
-        JB1JO0L6SOrXMgnAYzpbxKbFN113tLN6zxaUudZiH50ym07b5CmT1uYUj+l8xTdesbewI/RcChxJyKAb
-        vdoSiRrXYckkuG3hxU3M1iamdyRKLzr+No2npBxzBmf8vyUBxDq21RqHZErKEooz/zaUTOf8f4ubNIsV
-        LGUwHAqKYdQrASHPKSUWGQEnRB3j5hHU+WIewycE6JMRUEHxi6TOBbpAwmPSQwK8lhFQ8skojcTYT6IL
-        ZHxJeiEXgLLMjWbVvDkXhD8Iya6ZQXWVtAAAAABJRU5ErkJggg==
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAN2SURBVEhLrZVJTFNRFIafQhgD1OBUpiiKSomUSYmVgoJC
+        BTVWBpEpigyKESVQiVMa56XRuDMuiDHGjcG4cligMSqCUOAVoZaUTlgkqWF/ze+5zzayIGDwneRPm9yb
+        /zv3vP++JyxWQXcDuoLvBWA+8TXftqUXN0oxqVj+oBZ7h7TQiSSzFuW2Agni27b04iapwyoW9k5A5EcB
+        0X0CYr8EotFVLB8gXVSxqE8CVvUtw7rBYKSJkTjvKZUPkEUA3nmiKRgZo1HYNbYGN2Zq5ANoxBSWaArB
+        tlEFiiwxNP+NuOttkg9QL6azLLMCxZZYVE1uRpM9DQ9nW+UDtIs7mO5bHGrtyWhxZKDdqcHjWcO/ARbK
+        uV91/Xm/auxbcMaRhc4pLa56CtH1swMrn4QuKOWz8C6pwwJ/xinfJWNaHLbko85WhDPOg7jgLsdNTx39
+        z8JFdy6ueYpwfVqHLm8HHnkNEuiBtxV3Zhpwbboa591lNMIStNiPQNkdDgnAzSM/UMZ7BcQNBkFNMeRJ
+        0U8k4rg9BWed2bg0tZsMdLg1XSwBrn4vJDMtmhxpqJhIQsH4WqjNkYgfCIKCfI6Y9X8BvHNuzhfV5gja
+        rESpz/ycKxuX3fm47tERoBBXvufD4M6hZ5GJY5MqHLKuR97YamwVIxAzGAjFZwGhdClLh+YASka1SCDz
+        NOqgwKKUYtjoUKPNtR0Xp3bhMplecOfB4MrBOec2NNNarV2FA9Z1yKWTSuYDgeCXkZsveyVA/3kO4Khl
+        D3aMRlMM41Bt24JWepgdlJROMuSm7S6NpDYaVTONhKdpvzUBOV9XI3kkHMr+AETQiEN6BAgvSd0EeD8H
+        cErMZAZxJzOO1zKj5QQzfmtmRmsT/Z5kRvE0u//jFJlvR6NdjcrJTSi2xqPTWYey3t2/GsQcViNqWCVp
+        J0kzTPpC6tUwCcBjOl/E/OKbboudrNGRikpbEvbRKbPptC2OSmltQfGYLlZ8o1FsYxX0XIrGY5FJN3qD
+        KRTHbIclE9+2pdcfQAsrHI+RXnT8bRpNSamy+Gb8v/UH0MDSzVGIo6SsoDjzb0OZP+f/W9ykVaxm8QPB
+        UFAMw94KCHhNKTHJCKinhHHzEOp8OY/hCwJ8khFQTfELpc4FukDCc9JTAryTEVA2opdGou8l0QXS95De
+        yAWgLHOjebVozgXhN40Crc2i/A+XAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="BTT_ADD_NO_SHORTS.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAOBSURBVEhLrZVbSJNhGMe/Ujwk6sJO8xBlJy1qljapnKUr
-        nd8qmlqtPNDBQxmtRJd0IrKSbiKKoIvoQiKimyi66nBREZWabtVmbk12tplheP/Gv+f92MgL0bDvgT8M
-        3pf/73mf9/9+E6aqmBtRnbE3ozCR+Fp42/SLG22yqlmxRYNtnzTQ2Uh2DXa7tRIkvG36xU0KP6vZrDcC
-        kt4LSOkRkNYbjfqAKB+gyKZmyR8EzO2ZgUWWWOTYknAqVCEfYCsBeOeZ1lis60/GloH5uDxSLR9AtG1i
-        mdY4rO9XoNSZSvNfihujDfIBDn0tYnl2BURnGvZ7VqDBm4O7Yyb5AC2uMqb7lo4abzaafOvQ4t+I+2Pm
-        fwNMlvOITC7972pvFo778tA2pMHFUAk6f7VizoP4SaV8lNApdaiNZJzyrR/QoNxZjFp3KY77d+J0cDeu
-        hGrpdx7OBAvRHirFpWEdOkdbcW/ULIHujJpwfaQO7cNVOBWspBHq0eTdC+XjBEgAbp70jjLeJSDdEgMV
-        xZAnxTCYiYPeVTjhz8fZoSIy0KFjWJQAF7+XkJkGDb4c7BlcBq1jAVT2JGT0xUBBPnvthr8A3jk354sq
-        eyJtVqIibH4ykI9zwWJcCukIUILz34thDhbQXeTigGcldrkWY/PAPKy2JSLVEg1Ft4B4epQVn8YB9P0a
-        LCTzHOpA61RKMaz3qdAcUOPM0BacI9PTwc0wBwpw0r8ejbRW412JHa5FKKSTSuZ90eCPkZvPeC7A0D0O
-        sM+5FRv6UyiG6ahyZ8FEl9lKSWkjQ27aEtgoqZlG1Ugj4Wna7lqIgq/zkP0lAcqPUUikEce9EiA8Iz0m
-        wNtxgKNeLTMH9OzCcA1r/3GYdYw0so6fDezqyBF2zX+M3fpxlMzVqPeqYPQsh+jKQJu/FnUOw+8613ZW
-        7RCZ0SYyPUn8TOoldYlMAvCYThSxiPim24E2Vu9bA6N7GcrolPl02iafUVqbVDymUxXfeN3fzPbQvZQ6
-        0pBLL3qJNR4H3OWSSXjb9IubXPY0sRJHqvSh41/TFErKfmd4xv9b3OTCYB1ba09GOiVlNsWZ/zdURnL+
-        v8VNTM4qltEXCwXFcNZrAVEvKCVWGQGH7HrGzeOo85k8hk8J8EFGQBXFL546F+gBCU9IDwnwRkZA5ReD
-        NBJDF4kekOEV6aVcAMoyN5pQU+ZcEP4ATUiw5fkSx60AAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAN8SURBVEhLrZVZSJRRGIZ/U1wSdcK2caMsW6nR3Chm1LRZ
+        UosmTS2XNpc0tEQnaUPMiugmiu6iC4mIbsLoquXCJCpbdMx/XKapcVbHAqP7E2/f+RvJC9Gw/4MXBs7h
+        fb7znff8I8xXwTcDu0JuBWI28TX/toUXN8owp7DcAQ20gxoYRJJFgwP2PAni37bw4ibbP6Wwxb0CIt8I
+        iH4vIPZjEGrc+fIB1GIKi3orYNn7AKwaCEGyGIkzviL5ANkE4J0nmkOwbTgKOaMrcPl7hXwArZjBEs2h
+        SB9WQG+Nofmvxc2pWvkAx0Q1S7MokG+NxaHx9ah1JOPuzyb5AC0ju5jhcxwqHRvR4NyGFtcO3P9p+jfA
+        XDmfVv2I7leFYwManWlo82rQ4dOh60crlj4Im1PKR+FdUod50xmnfBeMarDfmosqux6Nrr046zmAK74q
+        +p2Gc54sXPLp0TlpQNdUK+5NmSTQnakm3PhejUuT5TjjKaYRFqDBUQpldzj+XCKZR76mjPcJiBsIhopi
+        yJNi/JKIo47NOOXKxHnvTjIw4OpkvgTomNCRmQa1zmSUfElC3thKqCyRiO8PhoJ8Si3GvwDeOTfniypL
+        BG1WoshvftqdiQueXHT6DATQ4eJELkweNd1FKo6Mb8I+22pkjy7HFjECMQNBULwTEEaPsmhwBqBgWIME
+        Mk+mDvKsSimGNU4Vmt0ZOOfNwQUyPevJhsmtxmlXOupordKxCXtsq5BFJ5XM+4PAHyM3D3gmwPhuBuCg
+        dRe2D0dTDONQbt+AJrrMVkpKGxly0xb3DknNNKo6GglPU6EtAeqR5dg4FA7lh0BE0IhDewQIT0ndBHg1
+        A1Bvy2Imu461uytZu+c46/DWsY6JWtbpPcGufT3Jbn+rJ/MM1DhUKBtfh3xbPNpcVTgsFv6qHtGzClHL
+        ykg6kvYT6SOpT8skAI/pbBGbFt90y97GapxbUWZPwm46ZSadtsFZJq3NKR7T+YpvvP61mZXQvejHYpFK
+        L3qNOQxH7PslE/+2hRc3af/cwHRjMdKHjn9Noykph6z+Gf9vSYDRapZiiUIcJWUJxZn/NxRP5/x/i5s0
+        WcpZfH8IFBTDxS8FBD6nlJhlBBwTdYybh1Lni3gMnxDgrYyAcopfGHUu0AMSHpMeEqBXRkDxkFEaibGP
+        RA/I2EN6IReAssyNZtW8OReE31w2r8aW2OYjAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="BTT_ADD_SHORTS_ONLY.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAOBSURBVEhLrZVbSJNhGMe/Ujwk6sJO8xBlJy1qljapnKUr
-        nd8qmlqtPNDBQxmtRJd0IrKSbiKKoIvoQiKimyi66nBREZWabtVmbk12tplheP/Gv+f92MgL0bDvgT8M
-        3pf/73mf9/9+E6aqmBtRnbE3ozCR+Fp42/SLG22yqlmxRYNtnzTQ2Uh2DXa7tRIkvG36xU0KP6vZrDcC
-        kt4LSOkRkNYbjfqAKB+gyKZmyR8EzO2ZgUWWWOTYknAqVCEfYCsBeOeZ1lis60/GloH5uDxSLR9AtG1i
-        mdY4rO9XoNSZSvNfihujDfIBDn0tYnl2BURnGvZ7VqDBm4O7Yyb5AC2uMqb7lo4abzaafOvQ4t+I+2Pm
-        fwNMlvOITC7972pvFo778tA2pMHFUAk6f7VizoP4SaV8lNApdaiNZJzyrR/QoNxZjFp3KY77d+J0cDeu
-        hGrpdx7OBAvRHirFpWEdOkdbcW/ULIHujJpwfaQO7cNVOBWspBHq0eTdC+XjBEgAbp70jjLeJSDdEgMV
-        xZAnxTCYiYPeVTjhz8fZoSIy0KFjWJQAF7+XkJkGDb4c7BlcBq1jAVT2JGT0xUBBPnvthr8A3jk354sq
-        eyJtVqIibH4ykI9zwWJcCukIUILz34thDhbQXeTigGcldrkWY/PAPKy2JSLVEg1Ft4B4epQVn8YB9P0a
-        LCTzHOpA61RKMaz3qdAcUOPM0BacI9PTwc0wBwpw0r8ejbRW412JHa5FKKSTSuZ90eCPkZvPeC7A0D0O
-        sM+5FRv6UyiG6ahyZ8FEl9lKSWkjQ27aEtgoqZlG1Ugj4Wna7lqIgq/zkP0lAcqPUUikEce9EiA8Iz0m
-        wNtxgKNeLTMH9OzCcA1r/3GYdYw0so6fDezqyBF2zX+M3fpxlMzVqPeqYPQsh+jKQJu/FnUOw+8613ZW
-        7RCZ0SYyPUn8TOoldYlMAvCYThSxiPim24E2Vu9bA6N7GcrolPl02iafUVqbVDymUxXfeN3fzPbQvZQ6
-        0pBLL3qJNR4H3OWSSXjb9IubXPY0sRJHqvSh41/TFErKfmd4xv9b3OTCYB1ba09GOiVlNsWZ/zdURnL+
-        v8VNTM4qltEXCwXFcNZrAVEvKCVWGQGH7HrGzeOo85k8hk8J8EFGQBXFL546F+gBCU9IDwnwRkZA5ReD
-        NBJDF4kekOEV6aVcAMoyN5pQU+ZcEP4ATUiw5fkSx60AAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAN8SURBVEhLrZVZSJRRGIZ/U1wSdcK2caMsW6nR3Chm1LRZ
+        UosmTS2XNpc0tEQnaUPMiugmiu6iC4mIbsLoquXCJCpbdMx/XKapcVbHAqP7E2/f+RvJC9Gw/4MXBs7h
+        fb7znff8I8xXwTcDu0JuBWI28TX/toUXN8owp7DcAQ20gxoYRJJFgwP2PAni37bw4ibbP6Wwxb0CIt8I
+        iH4vIPZjEGrc+fIB1GIKi3orYNn7AKwaCEGyGIkzviL5ANkE4J0nmkOwbTgKOaMrcPl7hXwArZjBEs2h
+        SB9WQG+Nofmvxc2pWvkAx0Q1S7MokG+NxaHx9ah1JOPuzyb5AC0ju5jhcxwqHRvR4NyGFtcO3P9p+jfA
+        XDmfVv2I7leFYwManWlo82rQ4dOh60crlj4Im1PKR+FdUod50xmnfBeMarDfmosqux6Nrr046zmAK74q
+        +p2Gc54sXPLp0TlpQNdUK+5NmSTQnakm3PhejUuT5TjjKaYRFqDBUQpldzj+XCKZR76mjPcJiBsIhopi
+        yJNi/JKIo47NOOXKxHnvTjIw4OpkvgTomNCRmQa1zmSUfElC3thKqCyRiO8PhoJ8Si3GvwDeOTfniypL
+        BG1WoshvftqdiQueXHT6DATQ4eJELkweNd1FKo6Mb8I+22pkjy7HFjECMQNBULwTEEaPsmhwBqBgWIME
+        Mk+mDvKsSimGNU4Vmt0ZOOfNwQUyPevJhsmtxmlXOupordKxCXtsq5BFJ5XM+4PAHyM3D3gmwPhuBuCg
+        dRe2D0dTDONQbt+AJrrMVkpKGxly0xb3DknNNKo6GglPU6EtAeqR5dg4FA7lh0BE0IhDewQIT0ndBHg1
+        A1Bvy2Imu461uytZu+c46/DWsY6JWtbpPcGufT3Jbn+rJ/MM1DhUKBtfh3xbPNpcVTgsFv6qHtGzClHL
+        ykg6kvYT6SOpT8skAI/pbBGbFt90y97GapxbUWZPwm46ZSadtsFZJq3NKR7T+YpvvP61mZXQvejHYpFK
+        L3qNOQxH7PslE/+2hRc3af/cwHRjMdKHjn9Noykph6z+Gf9vSYDRapZiiUIcJWUJxZn/NxRP5/x/i5s0
+        WcpZfH8IFBTDxS8FBD6nlJhlBBwTdYybh1Lni3gMnxDgrYyAcopfGHUu0AMSHpMeEqBXRkDxkFEaibGP
+        RA/I2EN6IReAssyNZtW8OReE31w2r8aW2OYjAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="MENU_ADD.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAN/SURBVEhLrZVbSJNhGMc/Uzwk6sJO80RZdqRm5ZTElc3S
-        bVa01LQ8YOWhDE3RKZ0INesmiiK6iS4kIroJo6sOFxZRWalTtzXnYu5kU8Ho/o1/z/s1yQvR0O+BPwze
-        h//vfZ/3/34T5qvgO4GdIXcDMZv4mr9t4cWN0o1Kpu5X4cCAChoTyaxCgSNLhPjbFl7cRDWoZEvfCYj8
-        KCD6i4DY3iBUenTSATJNShb1ScCKLwFY0x+CZFMkmn150gGyCMB3nmgMwU5LFDKtq3BtskQ6gNaUzhKN
-        oVBaZMixxdD81+POVJV0gFOWTJZilkFni8WJ0Y2ocibj4a866QCNIxqmGYlDqXMzalw70ehOx+Nfhv8D
-        zJXzadWO6H6XODeh1pWCljEVWn3Z6PzZhOVPwuaU/Fl4599LnM445TvXqsJRmxpljhzUug/jgrcAHb4y
-        +p2Ci949aPPloH1cg86pJjyaMoigB1N1uD1ZgbbxYjR782mEuahxFkLeFQ4RwM0jP1DGewTE9QdDQTHk
-        SdF/T8RJ51acd6fh0tg+MtDg+rhOBLT+yCYzFapcyTj2PQlZw6uhMEcivi8YMvIpNOv/AfjOuTlfVJgj
-        qFmOPL95vScNl71qtPs0BMjGlR9qGLwZdBe7UD66BUfsa7HXuhLbTBGI6Q+C7LOAMHqUeQMzALkWFRLI
-        PJl2kGWTizGsdCnQ4EnFxbFMXCbTC969MHgyUO9WoprWSp1bcMi+BnvopKJ5XxD4Y+TmAa8E6D/PABy3
-        7cduSzTFMA7Fjk2oo8tsoqS0kCE3bfSki2qgUVXTSHiaDtoTkPFtJTYPhUP+NRARNOLQbgHCS1IXAd7P
-        AJwdVTODW8eu+kpZ6/hp1jFRzTomq9iNiTPspuscuzdxlsxTUelUoGh0A3T2eLS4y3DaeuR3xUguK7Fq
-        WZFJy3Qk7SCpl9SjZSKAx3S2iE2LN913t7BK13YUOZKgpVOm0WlrXEXi2pziMZ2veOMtVwM7RveSMxyL
-        XfSi1xnDUO44Kpr42xZe3KTdUcOyh2PEDx3/mkZTUk7Y/DNebHGTq/YKtsMchThKyjKKM/9vyJ/O+WKL
-        m9QNF7P4vhDIKIZL3woIfE0pMUoIOGXSMW4eSjtfwmP4ggCfJAQUU/zCaOcCPSDhOekpAd5JCMgf0osj
-        0feQ6AHpu0lvpAJQlrnRrJo354LwB0sEsKr2elKBAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="BTT_DOWN.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAN7SURBVEhLrZVJTFNRFIafQhgkQA1OZYriSI0UtUI0vIKg
-        UEGNBRSUIQ4MihElUAgOqeKwcGM07owLYoxxYzSuHBZIjAoKrfpaoBZLJyiaYNxf83vus0QWBAy+k/xp
-        k3vzf+ee99/3hNkq7GZIZ/itEEwnvhbcNvfiRmlWDcu1iNj5UYRBItlE7HflyZDgtrkXN9n4ScMWdAuI
-        eSsg7r2AhL5Q1PoKlQPoJA2LfSdg8ft5WG4JR7oUg9ZAiXKATALwzlOs4dhkj0XO4FJc+V6pHECU0liK
-        NQJb7CoUOOJp/qtwc6JOOcBRScd0NhUKHQk4NLIWde503P3ZqBygWcpihi+JqHKnosGzCc3ebbj/0/Rv
-        gJlyPqkjluxfle51OOXRoW1UxKVAPjp/tGDRg8gZpX4U1Sl3mDeZccp30aCIYkcuql0FOOXdi3b/flwN
-        VNN/Hc769egIFODyuAGdEy24N2GSQXcmGnHjew06xivQ6i+lERahwV0G9eMoyABuHvOGMt4jINESBi3F
-        kCfFOJyCI+71OO3NxLnR7WRgwLXxQhlwaSyfzETUedJxYHg18oaWQWuLQVJ/GFTkU2Yz/gXwzrk5X9Ta
-        ommzGiVB8zO+TJz35+JywECAfFwYy4XJn0XPYjMOj2iwz7kC2YNLsEGKRrwlFKpeAZF0KUs+TgEU2UUk
-        k3k6dZDnUMsxrPVo0eTLwNnRHJwn03Z/Nky+LJzxbkE9rVW5NdjjXA49nVQ27w8Fv4zcfN5zAcbeKYCD
-        jh3Yao+jGCaiwrUOjfQwWygpbWTITZt922Q10ajqaSQ8TbudycgaWILUz1FQfwhBNI04okuA8Iz0mACv
-        pwBOSBnMNKBnZmcVMw8fY+av9czsqqPf4+yi/SS7/e0EmWeg1q1F+cgaFDqT0OatRtmHHb9qpGxWKYms
-        nKQniZ9IfaQekckAHtPpIjYpvun6QBur9aSh3LUau+iUmXTaBk+5vDajeExnK76xw97EDtBzKRhKwGa6
-        0SutkTjsKpZNgtvmXtzELDWw/KF4+UXH36ZxlJRDjuCM/7f+AGrYRlssEikpCynO/NtQOpnz/y1u0ihV
-        sKT+cKgohgteCQh5QSmxKgg4KukZN4+gzufzGD4lwDsFARUUv0jqXKALJDwhPSRAt4KA0s9GeSTGHhJd
-        IGMX6aVSAMoyN5pWs+ZcEH4DgcGuQfDpaFIAAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAN9SURBVEhLrZVZSJRRGIZ/U1wSdcK2cYmyzYyayTQrHStn
+        cdKKJi3NjRaXMrJEJ9EMyza6CqO76EIiopsoumq5qIjSSp3yn1FHbZzNxgSj+yNv3/kZyQvRsP+DFwbO
+        4X2+8533/CPMVcFtge0hdwIxk/iaf9v8ixulWtQsq0cD/VcNjCLJqsFhh1aC+LfNv7jJ9m9qtvCdgMiP
+        AqI/C4jtCkKFJ0c+QLqoZlEdApZ8DsDKnhCoxUhc8OXJB8gkAO88wRKCZFsUdvcvw7XxEvkAOjGVJVhC
+        kWpTINseQ/Nfg7aJSvkAJ8R0lmJVIMcei6KR9ah0qnH/d418gDqblhkH41Dq3IBqVzLq3Dvx8Lf53wCz
+        5XxKp2z6yRJnIs66UtAwqsEVnwHtv+qx+FHYrFI+CW+XOtROZZzynduvwSF7Fsoc2TjrPoBG72Fc95XR
+        7xQ0eTPR6svG1TEj2ifq8WDCLIHuTdTg9ng5WseKccGbTyPMRbWzAMqn4ZAA3DzyA2W8U0BcTzBUFEOe
+        FNNwAo47N+KcOw0XR/eQgRE3xnIkwJUfBjLToNKlxpHhtdAOLIfKGon47mAoyKfAavoL4J1zc76oskbQ
+        ZiXy/ObnPWlo9mbhqs9IAAMu/ciC2ZtBd7EVx0aScHBoFXb1L8UmMQIxPUFQfBIQRo8y7+s0QK5NgxVk
+        rqYOtHalFMMKlwq1nm1oGt2NZjJt9O6C2ZOB8+5UVNFaqTMJ+4dWIpNOKpl3B4E/Rm4e8FKA6dM0wFG7
+        Djts0RTDOBQ7ElFDl1lPSWkgQ25a59kpqZZGVUUj4WnaN7QCGX1LsaE3HMovgYigEYe+ESC8ID0lwPtp
+        gNODGmb+rmct7lLW4jnJLnur2OXRStbqPcVuDp9hd3+eJvNtqHCqUDiyDjlD8Whwl6GsN3ey3GZgJaKO
+        FZL0JN03UhepU8ckAI/pTBGbEt/U9r2BVbg2o9CxFnvplGl02mpXobQ2q3hM5yq+8dZwLTtC95I9EIut
+        9KJXW8JwzHFIMvFvm39xkxZ7NTMMxEgfOv41jaakFNn9M/7fkgB95WyLNQpxlJRFFGf+35A/lfP/LW5S
+        Ixaz+O4QKCiGC98KCHxFKbHICDgh6hk3D6XOF/AYPidAh4yAYopfGHUu0AMSnpEeE+CdjID8XpM0ElMn
+        iR6Q6Q3ptVwAyjI3mlFz5lwQ/gBru6+QfGvWdQAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="BTT_STOP.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAVDSURBVEhLjZVrTJNXGMcLQmdHO6AdarLSOcQBAgX61tK6
-        qTAuUrRgC4KOETWj4gqKF5QoRmM00SgmS/Zh+7B92DKTGbdEl2VjwiibCmTKAKdbuQ5rKb0XXnZJFujZ
-        /5RWZywbT/JL+57znP/z73NOz8uh0V9QEGVMSPiwc8WK4RsSyQebxeKXMBzhn/yfGFIolL9JJDdHli/v
-        u5aYWI6hKBDmn6Rx32Dg3yko+HyoqYmMX7pE7jU2+m4olR3ZAsFqTEfOZ4UOE8O8bt2x4yF74QKZaWkh
-        wxUV7veSk+sk0dGxmJ4v0rFq1fuDhw6RsdOnyfipU8SCZPPRo6RVqbwpFQheRUrIIiMq1RsQN7MXLxIW
-        a9nmZjJz8iQZ1Gg8X4rF7yJFCCI4nSKRhYqPNTaSh8ePEwuSJs+dI6amJt8NheJWukCQhMSniqAthdbK
-        Sgt1TsVnIM4eOUJmYMxbXU2McXEPkKYEAk57fPzl4ZoaMo4CZmA5doxYscB+9iwZQrvalcruND4/Gcn+
-        IkMyWeFkRYVl+vx5wsLMDEyxWDdz8CCZ2ruXtCoUzp0i0VWkFgMhR7dy5cutcvnNgd27fY+QNAEm4caO
-        PXGhZY7Dh0knimTx+Sk/MUzBRHm5dfrMGX9LWDhm0V62oYFMQ9yYleVO4vE+gbAeSAHdcE4kIxIlo0i3
-        eedOYt23j9jq64n9wAHiRDEPhEbr6309KtXAaGmphT1xwu+YxRyLXLau7rF4Co93GXo1IDUgHg78wc0S
-        ClO+lcm6fq2q8tlqa4kDuAwG4oaAF8W8+/eTabidpsJ4ZvHsF0d7u+Ryj5TPp+LU+RqwFDw5qoHgKoTC
-        Ne0ZGd3WbduIY9cu4gIevZ544XAKBaewgVOlpcSbm0u8KhVxg67sbG+mQHAF6/cA6pwHnhEPBndtbGxq
-        u1TaPZibO+vevp241GriYhjiFIuJUyAgzshI4lyyhIzy+b62hASPMiaGbmgtSAPPgwXFg+Fv1x2ptH8S
-        gjaI2YEDUGE/ERGkLyPjr/Lk5K+R/w5IB4sS94e1utpgVanMNh7vWXFAx0yJibNGjWY0JT6+FEuiweLE
-        vXr9YWdentMG9wuJT4CHwJyaSvq02gdvrluXiaX/ea34w6XXNzs2bXLZoqKeEXeg97RdVHwcDIeHk/ug
-        NzPT119W9ku5UknbtHARz549x+1FRe5Qzh0iEXlUVPT3UFKSj4oPBcVBF+hmmLl++ksWKoKj2GzLy/PY
-        +Hy/8FNtWbaMmIqLfz+zYUNP75Ytk+aUFPIzRO+C2+AHYAS31q6d+7G8fCBPKqUX5JOr3l1T00TF7aHE
-        4+KIaePGP+oYph2p9UVpaW89KCkZNaH3QfEO0AZaQadCMddTVtb7sUZDN54LwjjurVst9piY0M4hXiuT
-        tSHRAOhGCg/k5LzWp9ONDKSnPxb/BnwFroN+mWz2rk43iNyVgMuxabUmt0QS0rmBYb5DUl1APPim4h7M
-        z1f2lZWNfJ+e7vu3+BdhYeRuVtasUa2eQF4BiOX0VFXtmFSrXS6IBp3fLyz8c19o8WBwG3JysrGxw3cy
-        Msi1gLgxO3vuM7X6UfHq1R8hZ74AYmlbRcUJS0mJZ0yp9FHnDXJ5B8YXEg8GV79+vYy2A9e5z6hSzV2F
-        8xd4vBbMacF8ixBhTEJCdK9O9+lYSYnjSn4+Tl94A8YZwKfzNGmB4F6vrHz7nlY7cVujcRYlJdF3gQ6I
-        AT2uj9fSLzFADjYHPhf7938O0KNJT84W8AoI+YdbAqhj+rKmn/R5MUFN0Pv/xQC0YMAYh/MP1UTZ10sP
-        VAUAAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAVESURBVEhLjZVrTJNXGMcLQmdHO6AdarLSOcQBQgv0raV1
+        XnBcpGjBlgo6RtSMiisoXlCiGI3RxMVLsmQftg/bhy0zmXFLdFk2JoyaOYFMGKiwlIsOaym9F152SRbo
+        2f+UVmcsG0/yy9v3nOf8n3+fc9735dDoLyqKM6ekfHxz2bKRGxLJR5vF4lcwHBOc/J8YVipVv0kkt0aX
+        Lu27lppqwFAciApO0hgwmfh3ioq+HG5uJmOXLpHepqbADZWqI08gWInp2LmsyGFhmLX2HTsesefPk+mL
+        F8lIZaX3g/T0ekl8fCKm54p0rFjx4dChQ+Th6dNk7NQpYkOy9ehR0qpS3ZIJBK8jJWKRUbX6TYhb2QsX
+        CIu1bEsLmT55kgxptb6vxeL3kSIEMZybIpGNij9saiKPjh8nNiRNnDtH7jc3B24olT9JBYI0JD5TBG0p
+        tldV2ahzKj4NcfbIETINY/6aGmJOShpEmgoIOO3JyZdHamvJGApYge3YMWLHAufZs2QQ7WpXqbqy+Px0
+        JAeLDMvlxROVlbap994jLMxMwxSLddMHD5LJvXtJq1Lp3ikSXUVqKRBy9MuXv9qqUNzq2b078BhJ42AC
+        bpzYEw9a5jp8mNxEkVw+P+MXhikaNxjsU2fOBFvCwjGL9rKNjWQK4ubcXG8aj/cZhI1ABuiGc2IZkSgd
+        RbqsO3cS+759xNHQQJwHDhA3ivkgZGloCHSr1XcflJfb2BMngo5ZzLHIZevrn4hn8HiXoVcLMkPi0SAY
+        3FyhMON7ubzzXnV1wFFXR1zAYzIRLwT8KObfv59Mwe0UFcY9i/ugONrbqVD4ZHw+FafOV4HF4OlRDQVX
+        KRSuas/O7rJv20Zcu3YRD/AZjcQPh5MoOIkNnCwvJ/6NG4lfrSZe0JmX588RCK5g/R5AnfPAc+Lh4K5O
+        TMxsl8m6BtaunfFu3048Gg3xMAxxi8XELRAQd2wscS9aRCx8fqAtJcWnSkigG1oHssCLYF7xcATbdUcm
+        65+AoANiTuACVDhITAzpy87+y5Ce/i3y3wVSsCDxYNhrakx2tdrq4PGeFwd0bCA1dcas1T7ISE4ux5J4
+        sDBxv9F42F1Q4HbA/Xzi4+ARsGZmkj6dbvCtNWtysPQ/XyvB8BiNLa5NmzyOuLjnxF3oPW0XFR8DI9HR
+        ZAB05+QE+isqfjWoVLRN8xfx7dlz3FlS4o3k3CUSkcclJX8PpqUFqPhwSLwXdIIfGWa2n/6T+YrgKLY4
+        Cgp8Dj4/KPxMW5YsIZbS0t/PrF/f3btly4Q1I4Pch2gPuE3FgZmyevXszwbD3QKZjL4gn77qvbW1zVTc
+        GUk8KYlYNmz4o55h2pHaUJKV9fZgWdkDC3ofFu8AbaCVFlEqZ7srKno/1WrpxnNBFMe7davNmZAQ2TnE
+        6+TyNiSaAN1I4YH8/Df69PrRu1LpE/HvwDfgOuiXSmd69Poh5C4HXI5Dp7N4JZKIzk0M8wOS6kPi4S8V
+        92BhoaqvomK0XSoN/Fv8q6go0pOVNWPWaMaRVwQSOd3V1TsmNBqPB6Jh5wPFxX/uiyweDm5jfn4eNnbk
+        TnY2uRYSN+flzX6h0TwuXbnyE+TMFUAsbqusPGErK/MNqVQB6rxRoejA+Hzi4eAa162T03a0YZ1ZrZ69
+        Cucv8XgXMacDcy1CRDEpKfG9ev3nD8vKXFcKC3H6ohsxzgA+nadJ8wT3elXVO/d0uvHbWq27JC2Nfgv0
+        QAzocX2ylv5IAAqwOXRd6OP/AqBHk56cLeA1EPGBWwSoY/qxpld6v5CgJuj7/+UQtGDIGIfzD+o72WmD
+        vfrkAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="BTT_DELETE.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAVDSURBVEhLjZVtTFNXGMcLQmdHO6AdarLSOcTxXqC3lls3
-        FeVFihZsqaBjRM2ouILiC0oUozGaaHxJluzD9mH7sGUmM26JLsuGwqiZE5jKQAcGAR3WUvpeuOwlWaRn
-        /1NanbFsPMkvt/ec5/yff59z7r08Gn1FRTHmpKRPri1aNHxVJvt4nVT6GoajApP/E0MqFfubTHZ9ZOHC
-        3kvJyQYMxYCIwCSNfpNJeKuo6Kuh5mYyeu4cudnU5L/Ksh15ItFSTEfPZIWPQYZ527Z58yPu9GkydfYs
-        Ga6s9HyYmlovi42Nx/RMkY4lSz66v3cveXjsGBk9epRYkWw5cIC0sux1uUj0JlLCFhlRq9dA3MKdOUM4
-        rOVaWsjUkSPkvlbr/UYq/QApYhDFuyaRWKn4w6Ym8ujQIWJF0vjJk6Svudl/VaX6KUskSkHic0XQlmJb
-        VZWVOqfiUxDn9u8nUzDmq6kh5oSEAaSxQMRrT0w8P1xbS0ZRwAKsBw8SGxY4Tpwgd9GudpbtyhQKU5Ec
-        KDKkUBSPV1ZaJ0+dIhzMTMEUh3VTe/aQiR07SKtK5doikVxEaikQ8/SLF7/eqlRe/3nbNv9jJI2Bcbhx
-        YE/caJlz3z5yDUVyhcK0XximaMxgsE0ePx5oCQfHHNrLNTaSSYibc3M9KQLB5xA2AjmgG86LZiSSVBTp
-        smzZQmw7dxJ7QwNx7N5NXCjmhdBAQ4O/W62+86C83ModPhxwzGGOQy5XX/9UPE0gOA+9WpARFI8EgeDn
-        isVpVxSKzt7qar+9ro44gdtkIh4I+FDMt2sXmYTbSSqMew73AXG0t1Op9MqFQipOnaeD+eDZUQ0GXyUW
-        p7dnZ3fZNm4kzq1biRt4jUbig8MJFJzABk6UlxPf6tXEp1YTD+jMy/PliEQXsH47oM4F4AXxUPCXxcdn
-        tMvlXf1q9RPPpk3ErdEQN8MQl1RKXCIRcUVHE9e8eWRAKPS3JSV52bg4uqF1IBO8DGYVD0WgXbfk8r5x
-        CNoh5gBOQIUDREWR3uzsvwypqd8h/32QBeYkHghbTY3JplZb7ALBi+KAjvUnJz8xa7UP0hITy7EkFsxN
-        3Gc07nMVFLjscD+b+Bh4BCwZGaRXpxt4Z/nyHCz9z9dKINxGY4tz7Vq3PSbmBXEnek/bRcVHwXBkJOkH
-        N3Jy/H0VFfcMLEvbNHsR7/bthxwlJZ5wzp0SCXlcUvL33ZQUPxUfCor3gE5gZpjpPvpPZiuCo9hiLyjw
-        2oXCgPBzbVmwgAyWlv5+fOXK7p7168ctaWnkV4jeBjfAj7QAZdmy6ZsGw50CuZy+IJ+96j21tc1U3BFO
-        PCGBDK5a9Uc9w7QjtaEkM/PdgbKyB4PofUi8A7SBVlpEpZrurqjo+UyrpRvPBxE8z4YNVkdcXHjnEK9T
-        KNqQaAJ0I8W78/Pf6tXrR+5kZT0V/x58Cy6DvvT0J7f1+vvIXQz4PLtON+iRycI6NzHMD0iqD4qHvlT8
-        PYWFbG9FxciVrCz/v8W/joggt1HArNGMIa8IxPO6q6s3j2s0bjdEQ877i4v/3BlePBT8xvz8PGzs8K3s
-        bHIpKG7Oy5v+UqN5XLp06afImSmAmN9WWXnYWlbmvceyfuq8UanswPhs4qHgG1esUNB24OvnN6vV0xfh
-        /BWB4CzmdGCmRYgIJikptkev/+JhWZnzQmEhTl9kI8YZIKTzNGmW4F+uqnrvrk43dkOrdZWkpNBvgR5I
-        AT2uT9fSH3FACdYFr3N9/F8C9GjSk7MevAHCPnDzAHVMP9b0Su/nEtQEff+/GoQWDBrj8f4B7pXZMs39
-        OqoAAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAVCSURBVEhLjZVtTFNXGMcLQmdHO6AdarLSOcTxXqC3ltZN
+        xfEiRQu2VNAxomZUXEHxBSWK0RhNNIrJkn3YPmwftsxkxi3RzWxMGCVTgYiMsuGCgA5rKX0vXPaSLNKz
+        /ymtzlg2nuSX23vOc/7Pv885914ODXNRUYwpKenjrmXLRq9LJB9tFItfwXBUYPJ/YkShUP4mkdwYW7p0
+        4Epysh5DMSAiMEljyGjk9xUVfTnS3EzGL1wgt5qa/NeVys48gWAlpqPnssLHMMO8adu27SF77hyZaW0l
+        o5WVng9SU+slsbHxmJ4r0rlixYf3DhwgD06eJOMnThArki2HD5M2pfKGVCB4HSlhi4ypVG9B3MKeP09Y
+        rGVbWsjM8ePknkbj/Vosfh8pQhDF6RKJrFT8QVMTeXj0KLEiafLMGdLX3Oy/rlDczBIIUpD4TBG0pdhW
+        VWWlzqn4DMTZQ4fIDIz5amqIKSHhLtKUQMDpSEy8OFpbS8ZRwAKsR44QGxY4Tp8m/WhXh1LZk8nnpyI5
+        UGREJiuerKy0Tp89S1iYmYEpFutm9u8nU7t3kzaFwrVdJLqM1FIg5OiWL3+1TS6/cXPnTv8jJE2ASbhx
+        YE/caJnz4EHShSK5fH7aTwxTNKHX26ZPnQq0hIVjFu1lGxvJNMRNubmeFB7vMwgbgBTQDedEMyJRKor0
+        WLZvJ7Y9e4i9oYE49u0jLhTzQsjc0ODvVakG75eXW9ljxwKOWcyxyGXr65+Ip/F4F6FXCzKC4pEgENxc
+        oTDte5ms+3Z1td9eV0ecwG00Eg8EfCjm27uXTMPtNBXGPYv7gDja2y2Xe6V8PhWnztPBYvD0qAaDqxAK
+        0zuys3tsW7YQ544dxA28BgPxweEUCk5hA6fKy4lv/XriU6mIB3Tn5flyBIJLWL8LUOc88Jx4KLir4uMz
+        OqTSniG5/LFn61biVquJm2GISywmLoGAuKKjiWvRImLm8/3tSUleZVwc3dA6kAleBPOKhyLQrj6p1DwJ
+        QTvEHMAJqHCAqCgykJ39lz419VvkvweywILEA2GrqTHaVCqLncd7XhzQsaHk5McmjeZ+WmJiOZbEgoWJ
+        +wyGg66CApcd7ucTnwAPgSUjgwxotXffXr06B0v/87USCLfB0OLcsMFtj4l5TtyJ3tN2UfFxMBoZSYZA
+        V06O31xR8ateqaRtmr+Id9euo46SEk84506RiDwqKfm7PyXFT8VHguL9oBuYGGbWTP/JfEVwFFvsBQVe
+        O58fEH6mLUuWkOHS0t9PrV3b279p06QlLY38AtE74Bb4kRagrFo1e1uvHyyQSukL8umr3lNb20zFHeHE
+        ExLI8Lp1f9QzTAdSG0oyM9+5W1Z2fxi9D4l3gnbQRosoFLO9FRX9n2o0dOO5IILj2bzZ6oiLC+8c4nUy
+        WTsSjYBupHBffv4bAzrd2GBW1hPx78A1cBWY09Mf39Hp7iF3OeBy7FrtsEciCevcyDA/IKk+KB76UnH3
+        FxYqByoqxq5lZfn/Lf5VRAS5gwImtXoCeUUgntNbXb1tUq12uyEacj5UXPznnvDioeA25ufnYWNH+7Kz
+        yZWguCkvb/YLtfpR6cqVnyBnrgBicXtl5TFrWZl3UKn0U+eNcnknxucTDwXXsGaNjLbjG6wzqVSzl+H8
+        JR6vFXNaMNciRASTlBTbr9N9/qCszHmpsBCnL7IR4wzg03maNE9wr1ZVvfuzVjtxS6NxlaSk0G+BDogB
+        Pa5P1tIfcUAONgavC338XwD0aNKTswm8BsI+cIsAdUw/1vRK7xcS1AR9/78chBYMGuNw/gGBHdjskDgc
+        +QAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="BTT_CLEAR_DONE.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAVDSURBVEhLjZVtTFNXGMcLQmdHO6AdarLSOcTxXqC3lls3
-        FeVFihZsqaBjRM2ouILiC0oUozGaaHxJluzD9mH7sGUmM26JLsuGwqiZE5jKQAcGAR3WUvpeuOwlWaRn
-        /1NanbFsPMkvt/ec5/yff59z7r08Gn1FRTHmpKRPri1aNHxVJvt4nVT6GoajApP/E0MqFfubTHZ9ZOHC
-        3kvJyQYMxYCIwCSNfpNJeKuo6Kuh5mYyeu4cudnU5L/Ksh15ItFSTEfPZIWPQYZ527Z58yPu9GkydfYs
-        Ga6s9HyYmlovi42Nx/RMkY4lSz66v3cveXjsGBk9epRYkWw5cIC0sux1uUj0JlLCFhlRq9dA3MKdOUM4
-        rOVaWsjUkSPkvlbr/UYq/QApYhDFuyaRWKn4w6Ym8ujQIWJF0vjJk6Svudl/VaX6KUskSkHic0XQlmJb
-        VZWVOqfiUxDn9u8nUzDmq6kh5oSEAaSxQMRrT0w8P1xbS0ZRwAKsBw8SGxY4Tpwgd9GudpbtyhQKU5Ec
-        KDKkUBSPV1ZaJ0+dIhzMTMEUh3VTe/aQiR07SKtK5doikVxEaikQ8/SLF7/eqlRe/3nbNv9jJI2Bcbhx
-        YE/caJlz3z5yDUVyhcK0XximaMxgsE0ePx5oCQfHHNrLNTaSSYibc3M9KQLB5xA2AjmgG86LZiSSVBTp
-        smzZQmw7dxJ7QwNx7N5NXCjmhdBAQ4O/W62+86C83ModPhxwzGGOQy5XX/9UPE0gOA+9WpARFI8EgeDn
-        isVpVxSKzt7qar+9ro44gdtkIh4I+FDMt2sXmYTbSSqMew73AXG0t1Op9MqFQipOnaeD+eDZUQ0GXyUW
-        p7dnZ3fZNm4kzq1biRt4jUbig8MJFJzABk6UlxPf6tXEp1YTD+jMy/PliEQXsH47oM4F4AXxUPCXxcdn
-        tMvlXf1q9RPPpk3ErdEQN8MQl1RKXCIRcUVHE9e8eWRAKPS3JSV52bg4uqF1IBO8DGYVD0WgXbfk8r5x
-        CNoh5gBOQIUDREWR3uzsvwypqd8h/32QBeYkHghbTY3JplZb7ALBi+KAjvUnJz8xa7UP0hITy7EkFsxN
-        3Gc07nMVFLjscD+b+Bh4BCwZGaRXpxt4Z/nyHCz9z9dKINxGY4tz7Vq3PSbmBXEnek/bRcVHwXBkJOkH
-        N3Jy/H0VFfcMLEvbNHsR7/bthxwlJZ5wzp0SCXlcUvL33ZQUPxUfCor3gE5gZpjpPvpPZiuCo9hiLyjw
-        2oXCgPBzbVmwgAyWlv5+fOXK7p7168ctaWnkV4jeBjfAj7QAZdmy6ZsGw50CuZy+IJ+96j21tc1U3BFO
-        PCGBDK5a9Uc9w7QjtaEkM/PdgbKyB4PofUi8A7SBVlpEpZrurqjo+UyrpRvPBxE8z4YNVkdcXHjnEK9T
-        KNqQaAJ0I8W78/Pf6tXrR+5kZT0V/x58Cy6DvvT0J7f1+vvIXQz4PLtON+iRycI6NzHMD0iqD4qHvlT8
-        PYWFbG9FxciVrCz/v8W/joggt1HArNGMIa8IxPO6q6s3j2s0bjdEQ877i4v/3BlePBT8xvz8PGzs8K3s
-        bHIpKG7Oy5v+UqN5XLp06afImSmAmN9WWXnYWlbmvceyfuq8UanswPhs4qHgG1esUNB24OvnN6vV0xfh
-        /BWB4CzmdGCmRYgIJikptkev/+JhWZnzQmEhTl9kI8YZIKTzNGmW4F+uqnrvrk43dkOrdZWkpNBvgR5I
-        AT2uT9fSH3FACdYFr3N9/F8C9GjSk7MevAHCPnDzAHVMP9b0Su/nEtQEff+/GoQWDBrj8f4B7pXZMs39
-        OqoAAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAVCSURBVEhLjZVtTFNXGMcLQmdHO6AdarLSOcTxXqC3ltZN
+        xfEiRQu2VNAxomZUXEHxBSWK0RhNNIrJkn3YPmwftsxkxi3RzWxMGCVTgYiMsuGCgA5rKX0vXPaSLNKz
+        /ymtzlg2nuSX23vOc/7Pv885914ODXNRUYwpKenjrmXLRq9LJB9tFItfwXBUYPJ/YkShUP4mkdwYW7p0
+        4Epysh5DMSAiMEljyGjk9xUVfTnS3EzGL1wgt5qa/NeVys48gWAlpqPnssLHMMO8adu27SF77hyZaW0l
+        o5WVng9SU+slsbHxmJ4r0rlixYf3DhwgD06eJOMnThArki2HD5M2pfKGVCB4HSlhi4ypVG9B3MKeP09Y
+        rGVbWsjM8ePknkbj/Vosfh8pQhDF6RKJrFT8QVMTeXj0KLEiafLMGdLX3Oy/rlDczBIIUpD4TBG0pdhW
+        VWWlzqn4DMTZQ4fIDIz5amqIKSHhLtKUQMDpSEy8OFpbS8ZRwAKsR44QGxY4Tp8m/WhXh1LZk8nnpyI5
+        UGREJiuerKy0Tp89S1iYmYEpFutm9u8nU7t3kzaFwrVdJLqM1FIg5OiWL3+1TS6/cXPnTv8jJE2ASbhx
+        YE/caJnz4EHShSK5fH7aTwxTNKHX26ZPnQq0hIVjFu1lGxvJNMRNubmeFB7vMwgbgBTQDedEMyJRKor0
+        WLZvJ7Y9e4i9oYE49u0jLhTzQsjc0ODvVakG75eXW9ljxwKOWcyxyGXr65+Ip/F4F6FXCzKC4pEgENxc
+        oTDte5ms+3Z1td9eV0ecwG00Eg8EfCjm27uXTMPtNBXGPYv7gDja2y2Xe6V8PhWnztPBYvD0qAaDqxAK
+        0zuys3tsW7YQ544dxA28BgPxweEUCk5hA6fKy4lv/XriU6mIB3Tn5flyBIJLWL8LUOc88Jx4KLir4uMz
+        OqTSniG5/LFn61biVquJm2GISywmLoGAuKKjiWvRImLm8/3tSUleZVwc3dA6kAleBPOKhyLQrj6p1DwJ
+        QTvEHMAJqHCAqCgykJ39lz419VvkvweywILEA2GrqTHaVCqLncd7XhzQsaHk5McmjeZ+WmJiOZbEgoWJ
+        +wyGg66CApcd7ucTnwAPgSUjgwxotXffXr06B0v/87USCLfB0OLcsMFtj4l5TtyJ3tN2UfFxMBoZSYZA
+        V06O31xR8ateqaRtmr+Id9euo46SEk84506RiDwqKfm7PyXFT8VHguL9oBuYGGbWTP/JfEVwFFvsBQVe
+        O58fEH6mLUuWkOHS0t9PrV3b279p06QlLY38AtE74Bb4kRagrFo1e1uvHyyQSukL8umr3lNb20zFHeHE
+        ExLI8Lp1f9QzTAdSG0oyM9+5W1Z2fxi9D4l3gnbQRosoFLO9FRX9n2o0dOO5IILj2bzZ6oiLC+8c4nUy
+        WTsSjYBupHBffv4bAzrd2GBW1hPx78A1cBWY09Mf39Hp7iF3OeBy7FrtsEciCevcyDA/IKk+KB76UnH3
+        FxYqByoqxq5lZfn/Lf5VRAS5gwImtXoCeUUgntNbXb1tUq12uyEacj5UXPznnvDioeA25ufnYWNH+7Kz
+        yZWguCkvb/YLtfpR6cqVnyBnrgBicXtl5TFrWZl3UKn0U+eNcnknxucTDwXXsGaNjLbjG6wzqVSzl+H8
+        JR6vFXNaMNciRASTlBTbr9N9/qCszHmpsBCnL7IR4wzg03maNE9wr1ZVvfuzVjtxS6NxlaSk0G+BDogB
+        Pa5P1tIfcUAONgavC338XwD0aNKTswm8BsI+cIsAdUw/1vRK7xcS1AR9/78chBYMGuNw/gGBHdjskDgc
+        +QAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="BTT_CLEAR_ALL.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAVDSURBVEhLjZVtTFNXGMcLQmdHO6AdarLSOcTxXqC3lls3
-        FeVFihZsqaBjRM2ouILiC0oUozGaaHxJluzD9mH7sGUmM26JLsuGwqiZE5jKQAcGAR3WUvpeuOwlWaRn
-        /1NanbFsPMkvt/ec5/yff59z7r08Gn1FRTHmpKRPri1aNHxVJvt4nVT6GoajApP/E0MqFfubTHZ9ZOHC
-        3kvJyQYMxYCIwCSNfpNJeKuo6Kuh5mYyeu4cudnU5L/Ksh15ItFSTEfPZIWPQYZ527Z58yPu9GkydfYs
-        Ga6s9HyYmlovi42Nx/RMkY4lSz66v3cveXjsGBk9epRYkWw5cIC0sux1uUj0JlLCFhlRq9dA3MKdOUM4
-        rOVaWsjUkSPkvlbr/UYq/QApYhDFuyaRWKn4w6Ym8ujQIWJF0vjJk6Svudl/VaX6KUskSkHic0XQlmJb
-        VZWVOqfiUxDn9u8nUzDmq6kh5oSEAaSxQMRrT0w8P1xbS0ZRwAKsBw8SGxY4Tpwgd9GudpbtyhQKU5Ec
-        KDKkUBSPV1ZaJ0+dIhzMTMEUh3VTe/aQiR07SKtK5doikVxEaikQ8/SLF7/eqlRe/3nbNv9jJI2Bcbhx
-        YE/caJlz3z5yDUVyhcK0XximaMxgsE0ePx5oCQfHHNrLNTaSSYibc3M9KQLB5xA2AjmgG86LZiSSVBTp
-        smzZQmw7dxJ7QwNx7N5NXCjmhdBAQ4O/W62+86C83ModPhxwzGGOQy5XX/9UPE0gOA+9WpARFI8EgeDn
-        isVpVxSKzt7qar+9ro44gdtkIh4I+FDMt2sXmYTbSSqMew73AXG0t1Op9MqFQipOnaeD+eDZUQ0GXyUW
-        p7dnZ3fZNm4kzq1biRt4jUbig8MJFJzABk6UlxPf6tXEp1YTD+jMy/PliEQXsH47oM4F4AXxUPCXxcdn
-        tMvlXf1q9RPPpk3ErdEQN8MQl1RKXCIRcUVHE9e8eWRAKPS3JSV52bg4uqF1IBO8DGYVD0WgXbfk8r5x
-        CNoh5gBOQIUDREWR3uzsvwypqd8h/32QBeYkHghbTY3JplZb7ALBi+KAjvUnJz8xa7UP0hITy7EkFsxN
-        3Gc07nMVFLjscD+b+Bh4BCwZGaRXpxt4Z/nyHCz9z9dKINxGY4tz7Vq3PSbmBXEnek/bRcVHwXBkJOkH
-        N3Jy/H0VFfcMLEvbNHsR7/bthxwlJZ5wzp0SCXlcUvL33ZQUPxUfCor3gE5gZpjpPvpPZiuCo9hiLyjw
-        2oXCgPBzbVmwgAyWlv5+fOXK7p7168ctaWnkV4jeBjfAj7QAZdmy6ZsGw50CuZy+IJ+96j21tc1U3BFO
-        PCGBDK5a9Uc9w7QjtaEkM/PdgbKyB4PofUi8A7SBVlpEpZrurqjo+UyrpRvPBxE8z4YNVkdcXHjnEK9T
-        KNqQaAJ0I8W78/Pf6tXrR+5kZT0V/x58Cy6DvvT0J7f1+vvIXQz4PLtON+iRycI6NzHMD0iqD4qHvlT8
-        PYWFbG9FxciVrCz/v8W/joggt1HArNGMIa8IxPO6q6s3j2s0bjdEQ877i4v/3BlePBT8xvz8PGzs8K3s
-        bHIpKG7Oy5v+UqN5XLp06afImSmAmN9WWXnYWlbmvceyfuq8UanswPhs4qHgG1esUNB24OvnN6vV0xfh
-        /BWB4CzmdGCmRYgIJikptkev/+JhWZnzQmEhTl9kI8YZIKTzNGmW4F+uqnrvrk43dkOrdZWkpNBvgR5I
-        AT2uT9fSH3FACdYFr3N9/F8C9GjSk7MevAHCPnDzAHVMP9b0Su/nEtQEff+/GoQWDBrj8f4B7pXZMs39
-        OqoAAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAVCSURBVEhLjZVtTFNXGMcLQmdHO6AdarLSOcTxXqC3ltZN
+        xfEiRQu2VNAxomZUXEHxBSWK0RhNNIrJkn3YPmwftsxkxi3RzWxMGCVTgYiMsuGCgA5rKX0vXPaSLNKz
+        /ymtzlg2nuSX23vOc/7Pv885914ODXNRUYwpKenjrmXLRq9LJB9tFItfwXBUYPJ/YkShUP4mkdwYW7p0
+        4Epysh5DMSAiMEljyGjk9xUVfTnS3EzGL1wgt5qa/NeVys48gWAlpqPnssLHMMO8adu27SF77hyZaW0l
+        o5WVng9SU+slsbHxmJ4r0rlixYf3DhwgD06eJOMnThArki2HD5M2pfKGVCB4HSlhi4ypVG9B3MKeP09Y
+        rGVbWsjM8ePknkbj/Vosfh8pQhDF6RKJrFT8QVMTeXj0KLEiafLMGdLX3Oy/rlDczBIIUpD4TBG0pdhW
+        VWWlzqn4DMTZQ4fIDIz5amqIKSHhLtKUQMDpSEy8OFpbS8ZRwAKsR44QGxY4Tp8m/WhXh1LZk8nnpyI5
+        UGREJiuerKy0Tp89S1iYmYEpFutm9u8nU7t3kzaFwrVdJLqM1FIg5OiWL3+1TS6/cXPnTv8jJE2ASbhx
+        YE/caJnz4EHShSK5fH7aTwxTNKHX26ZPnQq0hIVjFu1lGxvJNMRNubmeFB7vMwgbgBTQDedEMyJRKor0
+        WLZvJ7Y9e4i9oYE49u0jLhTzQsjc0ODvVakG75eXW9ljxwKOWcyxyGXr65+Ip/F4F6FXCzKC4pEgENxc
+        oTDte5ms+3Z1td9eV0ecwG00Eg8EfCjm27uXTMPtNBXGPYv7gDja2y2Xe6V8PhWnztPBYvD0qAaDqxAK
+        0zuys3tsW7YQ544dxA28BgPxweEUCk5hA6fKy4lv/XriU6mIB3Tn5flyBIJLWL8LUOc88Jx4KLir4uMz
+        OqTSniG5/LFn61biVquJm2GISywmLoGAuKKjiWvRImLm8/3tSUleZVwc3dA6kAleBPOKhyLQrj6p1DwJ
+        QTvEHMAJqHCAqCgykJ39lz419VvkvweywILEA2GrqTHaVCqLncd7XhzQsaHk5McmjeZ+WmJiOZbEgoWJ
+        +wyGg66CApcd7ucTnwAPgSUjgwxotXffXr06B0v/87USCLfB0OLcsMFtj4l5TtyJ3tN2UfFxMBoZSYZA
+        V06O31xR8ateqaRtmr+Id9euo46SEk84506RiDwqKfm7PyXFT8VHguL9oBuYGGbWTP/JfEVwFFvsBQVe
+        O58fEH6mLUuWkOHS0t9PrV3b279p06QlLY38AtE74Bb4kRagrFo1e1uvHyyQSukL8umr3lNb20zFHeHE
+        ExLI8Lp1f9QzTAdSG0oyM9+5W1Z2fxi9D4l3gnbQRosoFLO9FRX9n2o0dOO5IILj2bzZ6oiLC+8c4nUy
+        WTsSjYBupHBffv4bAzrd2GBW1hPx78A1cBWY09Mf39Hp7iF3OeBy7FrtsEciCevcyDA/IKk+KB76UnH3
+        FxYqByoqxq5lZfn/Lf5VRAS5gwImtXoCeUUgntNbXb1tUq12uyEacj5UXPznnvDioeA25ufnYWNH+7Kz
+        yZWguCkvb/YLtfpR6cqVnyBnrgBicXtl5TFrWZl3UKn0U+eNcnknxucTDwXXsGaNjLbjG6wzqVSzl+H8
+        JR6vFXNaMNciRASTlBTbr9N9/qCszHmpsBCnL7IR4wzg03maNE9wr1ZVvfuzVjtxS6NxlaSk0G+BDogB
+        Pa5P1tIfcUAONgavC338XwD0aNKTswm8BsI+cIsAdUw/1vRK7xcS1AR9/78chBYMGuNw/gGBHdjskDgc
+        +QAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="BTT_LOG.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

SCrawler.YouTube/Downloader/VideoListForm.vb

@@ -50,7 +50,11 @@ Namespace DownloadObjects.STDownloader
             End If
 
             If AppMode Then
-                If Now.Month.ValueBetween(6, 8) Then Text = "SCrawler: Happy LGBT Pride Month! :-)"
+                If Now.Month.ValueBetween(6, 8) Then
+                    Text = "SCrawler: Happy LGBT Pride Month! :-)"
+                ElseIf Not MyYouTubeSettings Is Nothing AndAlso Not MyYouTubeSettings.ProgramText.IsEmptyString Then
+                    Text = MyYouTubeSettings.ProgramText
+                End If
                 MyNotificator = New YTNotificator(Me)
                 MyDownloaderSettings = MyYouTubeSettings
             End If
@@ -64,6 +68,7 @@ Namespace DownloadObjects.STDownloader
                 BTT_LOG.Visible = False
                 BTT_INFO.Visible = False
                 BTT_DONATE.Visible = False
+                BTT_BUG_REPORT.Visible = False
             End If
             MyProgress.Visible = False
             LoadData()
@@ -81,7 +86,13 @@ Namespace DownloadObjects.STDownloader
             If Not MyYouTubeSettings Is Nothing Then MyYouTubeSettings.Close()
         End Sub
         Private Sub VideoListForm_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
-            If e.KeyCode = Keys.Insert Then BTT_ADD.PerformClick() : e.Handled = True
+            Dim b As Boolean = True
+            Select Case e.KeyCode
+                Case Keys.Insert : BTT_ADD.PerformClick()
+                Case Keys.F5 : BTT_DOWN.PerformClick()
+                Case Else : b = False
+            End Select
+            If b Then e.Handled = True
         End Sub
 #End Region
 #Region "Refill, save list"
@@ -90,7 +101,7 @@ Namespace DownloadObjects.STDownloader
             If c.ListExists Then
                 c.Sort(New ContainerDateComparer)
                 SuspendLayout()
-                For i% = c.Count - 1 To 0 Step -1 : ControlCreateAndAdd(c(i), True, i = 0) : Next
+                For i% = c.Count - 1 To 0 Step -1 : ControlCreateAndAdd(c(i), True, i = 0, True) : Next
                 ResumeLayout(False)
                 PerformLayout()
             End If
@@ -115,11 +126,11 @@ Namespace DownloadObjects.STDownloader
 #End Region
 #Region "Controls"
         Protected Sub ControlCreateAndAdd(ByVal Container As IYouTubeMediaContainer, Optional ByVal DisableDownload As Boolean = False,
-                                          Optional ByVal PerformClick As Boolean = True)
+                                          Optional ByVal PerformClick As Boolean = True, Optional ByVal IsLoading As Boolean = False)
             ControlInvokeFast(TP_CONTROLS, Sub()
                                                With TP_CONTROLS
                                                    .SuspendLayout()
-                                                   If DisableDownload Or Not MyDownloaderSettings.DownloadAutomatically Then Container.Save()
+                                                   If Not IsLoading And (DisableDownload Or Not MyDownloaderSettings.DownloadAutomatically) Then Container.Save()
                                                    '.AutoScroll = True
                                                    '.HorizontalScroll.Visible = False
                                                    .RowStyles.Insert(0, New RowStyle(SizeType.Absolute, 60))
@@ -230,83 +241,82 @@ Namespace DownloadObjects.STDownloader
                                                                                                                                     BTT_ADD_NO_SHORTS.KeyClick, BTT_ADD_SHORTS_ONLY.KeyClick
             Dim pForm As ParsingProgressForm = Nothing
             Try
-                Dim canProcess As Boolean = True
-                If TP_CONTROLS.Controls.Count >= MyYouTubeSettings.ItemsListLimit Then canProcess = TP_CONTROLS.Controls.Cast(Of MediaItem).ListExists(ControlsDownloaded)
-                If canProcess Then
-                    Dim useCookies As Boolean = MyYouTubeSettings.DefaultUseCookies
-                    If e.Control Then useCookies = True
-                    Dim useCookiesParse As Boolean? = Nothing
-                    If useCookies Then useCookiesParse = True
+                Dim useCookies As Boolean = MyYouTubeSettings.DefaultUseCookies
+                Dim sTag$ = If(Sender?.Tag, String.Empty)
+                Dim disableDown As Boolean = e.Shift
+                If e.Control Then useCookies = True
+                Dim useCookiesParse As Boolean? = Nothing
+                If useCookies Then useCookiesParse = True
 
-                    Dim c As IYouTubeMediaContainer = Nothing
-                    Dim url$ = String.Empty
-                    Dim GetDefault As Boolean = True
-                    Dim GetShorts As Boolean = True
+                Dim c As IYouTubeMediaContainer = Nothing
+                Dim url$ = String.Empty
+                Dim GetDefault As Boolean = True
+                Dim GetShorts As Boolean = True
 
-                    If Sender.Tag = "pls" Then
-                        Using pf As New PlaylistArrayForm With {.DesignXML = DesignXML}
-                            pf.ShowDialog()
-                            If pf.DialogResult = DialogResult.OK Then
-                                With pf.URLs
-                                    If .Count > 0 Then
-                                        pForm = New ParsingProgressForm
-                                        pForm.Show()
-                                        pForm.SetInitialValues(.Count, "Parsing playlists...")
-                                        Dim containers As New List(Of IYouTubeMediaContainer)
-                                        For Each u$ In .Self : containers.Add(YouTubeFunctions.Parse(u, useCookiesParse, pForm.Token, pForm.MyProgress, True, False)) : pForm.MyProgress.Perform() : Next
-                                        pForm.Dispose()
-                                        If containers.Count > 0 Then containers.ListDisposeRemoveAll(Function(cc) cc.HasError Or Not cc.Exists)
-                                        If containers.Count > 0 Then
-                                            c = New Channel With {.UserTitle = IIf(pf.IsOneArtist, containers(0).UserTitle, "Playlists")}
-                                            c.Elements.AddRange(containers)
-                                        End If
+                If sTag = "pls" Then
+                    Using pf As New PlaylistArrayForm With {.DesignXML = DesignXML}
+                        pf.ShowDialog()
+                        If pf.DialogResult = DialogResult.OK Then
+                            With pf.URLs
+                                If .Count > 0 Then
+                                    pForm = New ParsingProgressForm(.Count)
+                                    pForm.Show(Me)
+                                    pForm.SetInitialValues(.Count, "Parsing playlists...")
+                                    Dim containers As New List(Of IYouTubeMediaContainer)
+                                    For Each u$ In .Self
+                                        containers.Add(YouTubeFunctions.Parse(u, useCookiesParse, pForm.Token, pForm.MyProgress, True, False))
+                                        pForm.NextPlaylist()
+                                        pForm.MyProgress.Perform()
+                                    Next
+                                    pForm.Dispose()
+                                    If containers.Count > 0 Then containers.ListDisposeRemoveAll(Function(cc) cc.HasError Or Not cc.Exists)
+                                    If containers.Count > 0 Then
+                                        c = New Channel With {
+                                            .UserTitle = IIf(pf.IsOneArtist, containers(0).UserTitle, "Playlists"),
+                                            .IsMusic = containers.Any(Function(cc) cc.IsMusic)
+                                        }
+                                        c.Elements.AddRange(containers)
                                     End If
-                                End With
-                            End If
-                        End Using
-                    Else
-                        Select Case CStr(Sender.Tag)
-                            Case "ans" : GetShorts = False
-                            Case "as" : GetDefault = False : GetShorts = True
-                        End Select
-                        url = BufferText
-                        If url.IsEmptyString OrElse Not YouTubeFunctions.IsMyUrl(url) Then url = InputBoxE("Enter a valid URL to the YouTube video:", "YouTube link")
-                    End If
-
-                    If Not c Is Nothing OrElse YouTubeFunctions.IsMyUrl(url) Then
-                        If c Is Nothing Then
-                            pForm = New ParsingProgressForm
-                            pForm.Show()
-                            pForm.SetInitialValues(1, "Parsing data...")
-                            c = YouTubeFunctions.Parse(url, useCookiesParse, pForm.Token, pForm.MyProgress, GetDefault, GetShorts)
-                            pForm.Dispose()
-                        End If
-                        If Not c Is Nothing Then
-                            Dim f As Form
-                            Select Case c.ObjectType
-                                Case YouTubeMediaType.Single : f = New VideoOptionsForm(c)
-                                Case YouTubeMediaType.Channel, YouTubeMediaType.PlayList
-                                    If c.IsMusic Then
-                                        f = New MusicPlaylistsForm(c)
-                                    Else
-                                        f = New VideoOptionsForm(c)
-                                    End If
-                                Case Else : c.Dispose() : Throw New ArgumentException($"Object type {c.ObjectType} not implemented", "IYouTubeMediaContainer.ObjectType")
-                            End Select
-                            If Not f Is Nothing Then
-                                If TypeOf f Is IDesignXMLContainer Then DirectCast(f, IDesignXMLContainer).DesignXML = DesignXML
-                                f.ShowDialog()
-                                If f.DialogResult = DialogResult.OK Then
-                                    If TP_CONTROLS.Controls.Count >= MyYouTubeSettings.ItemsListLimit Then _
-                                       RemoveControls(TP_CONTROLS.Controls.Cast(Of MediaItem).LastOrDefault(ControlsDownloaded))
-                                    ControlCreateAndAdd(c)
                                 End If
-                                f.Dispose()
-                            End If
+                            End With
+                        End If
+                    End Using
+                Else
+                    Select Case sTag
+                        Case "ans" : GetShorts = False
+                        Case "as" : GetDefault = False : GetShorts = True
+                    End Select
+                    url = BufferText
+                    If url.IsEmptyString OrElse Not YouTubeFunctions.IsMyUrl(url) Then url = InputBoxE("Enter a valid URL to the YouTube video:", "YouTube link")
+                End If
+
+                If Not c Is Nothing OrElse YouTubeFunctions.IsMyUrl(url) Then
+                    If c Is Nothing Then
+                        pForm = New ParsingProgressForm
+                        pForm.Show(Me)
+                        pForm.SetInitialValues(1, "Parsing data...")
+                        c = YouTubeFunctions.Parse(url, useCookiesParse, pForm.Token, pForm.MyProgress, GetDefault, GetShorts)
+                        pForm.Dispose()
+                    End If
+                    If Not c Is Nothing Then
+                        Dim f As Form
+                        Select Case c.ObjectType
+                            Case YouTubeMediaType.Single : f = New VideoOptionsForm(c)
+                            Case YouTubeMediaType.Channel, YouTubeMediaType.PlayList
+                                If c.IsMusic Then
+                                    f = New MusicPlaylistsForm(c)
+                                Else
+                                    f = New VideoOptionsForm(c)
+                                End If
+                            Case Else : c.Dispose() : Throw New ArgumentException($"Object type {c.ObjectType} not implemented", "IYouTubeMediaContainer.ObjectType")
+                        End Select
+                        If Not f Is Nothing Then
+                            If TypeOf f Is IDesignXMLContainer Then DirectCast(f, IDesignXMLContainer).DesignXML = DesignXML
+                            f.ShowDialog()
+                            If f.DialogResult = DialogResult.OK Then ControlCreateAndAdd(c, disableDown)
+                            f.Dispose()
                         End If
                     End If
-                Else
-                    MsgBoxE({$"Number of items to download exceeded!{vbCr}Reduce the number of items or increase the limit.", "New download"}, vbCritical)
                 End If
             Catch oex As OperationCanceledException
             Catch dex As ObjectDisposedException
@@ -332,13 +342,13 @@ Namespace DownloadObjects.STDownloader
             MyJob.Cancel()
         End Sub
         Private Sub BTT_DELETE_Click(sender As Object, e As EventArgs) Handles BTT_DELETE.Click
-            RemoveControls(ControlsChecked)
+            RemoveControls(ControlsChecked, True)
         End Sub
         Protected Overridable Sub BTT_CLEAR_DONE_Click(sender As Object, e As EventArgs) Handles BTT_CLEAR_DONE.Click
-            RemoveControls(ControlsDownloaded)
+            RemoveControls(ControlsDownloaded, False)
         End Sub
         Protected Overridable Sub BTT_CLEAR_ALL_Click(sender As Object, e As EventArgs) Handles BTT_CLEAR_ALL.Click
-            RemoveControls()
+            RemoveControls(, False)
         End Sub
         Private Sub BTT_LOG_Click(sender As Object, e As EventArgs) Handles BTT_LOG.Click
             MyMainLOG_ShowForm(DesignXML,,,, AddressOf UpdateLogButton)
@@ -346,20 +356,23 @@ Namespace DownloadObjects.STDownloader
         Friend Sub UpdateLogButton()
             If AppMode Then MyMainLOG_UpdateLogButton(BTT_LOG, TOOLBAR_TOP)
         End Sub
+        Private Sub BTT_BUG_REPORT_Click(sender As Object, e As EventArgs) Handles BTT_BUG_REPORT.Click
+            Try
+                With MyYouTubeSettings
+                    Using f As New Editors.BugReporterForm(MyCache, .DesignXml, .ProgramText, My.Application.Info.Version,
+                                                           True, .Self, .ProgramDescription) : f.ShowDialog() : End Using
+                End With
+            Catch
+            End Try
+        End Sub
         Private Sub BTT_DONATE_Click(sender As Object, e As EventArgs) Handles BTT_DONATE.Click
             Try : Process.Start("https://github.com/AAndyProgram/SCrawler/blob/main/HowToSupport.md") : Catch : End Try
         End Sub
         Private Sub BTT_INFO_Click(sender As Object, e As EventArgs) Handles BTT_INFO.Click
-            Try
-                MsgBoxE({$"YouTube Downloader v{My.Application.Info.Version}" & vbCr &
-                         $"Address: https://github.com/AAndyProgram/SCrawler" & vbCr &
-                         "Created by Greek LGBT person Andy (Gay)",
-                         "Program information"},,,,
-                        {"OK", New MsgBoxButton("Go to site") With {.CallBack = Sub(r, n, b) Process.Start("https://github.com/AAndyProgram/SCrawler/releases")}})
-            Catch
-            End Try
+            ShowProgramInfo(MyYouTubeSettings.ProgramText.Value.IfNullOrEmpty("YouTube Downloader"),
+                            My.Application.Info.Version, False, True, MyYouTubeSettings, True,, False, MyYouTubeSettings.ProgramDescription)
         End Sub
-        Protected Overloads Sub RemoveControls(Optional ByVal Predicate As Predicate(Of MediaItem) = Nothing)
+        Protected Overloads Sub RemoveControls(Optional ByVal Predicate As Predicate(Of MediaItem) = Nothing, Optional ByVal RemoveFiles As Boolean = False)
             ControlInvokeFast(TP_CONTROLS, Sub()
                                                With TP_CONTROLS
                                                    If .Controls.Count > 0 Then
@@ -374,7 +387,7 @@ Namespace DownloadObjects.STDownloader
                                                            For i = rCnt.Count - 1 To 0 Step -1
                                                                cnt = .Controls(rCnt(i))
                                                                .Controls.RemoveAt(rCnt(i))
-                                                               If Not cnt.MyContainer Is Nothing Then cnt.MyContainer.Delete(False)
+                                                               If Not cnt.MyContainer Is Nothing Then cnt.MyContainer.Delete(RemoveFiles) : cnt.MyContainer.Dispose()
                                                                cnt.Dispose()
                                                            Next
                                                        End If
@@ -390,19 +403,24 @@ Namespace DownloadObjects.STDownloader
                                                UpdateScrolls(Nothing, Nothing)
                                            End Sub, EDP.None)
         End Sub
-        Private Overloads Sub RemoveControls(ByVal CNT As MediaItem)
+        Private Overloads Sub RemoveControls(ByVal CNT As MediaItem, Optional ByVal RemoveFiles As Boolean = False)
             ControlInvokeFast(TP_CONTROLS, Sub()
-                                               If Not CNT Is Nothing Then TP_CONTROLS.Controls.Remove(CNT) : OffsetControls()
+                                               If Not CNT Is Nothing Then
+                                                   If Not CNT.MyContainer Is Nothing Then CNT.MyContainer.Delete(RemoveFiles) : CNT.MyContainer.Dispose()
+                                                   TP_CONTROLS.Controls.Remove(CNT)
+                                                   OffsetControls()
+                                                   CNT.Dispose()
+                                               End If
                                            End Sub, EDP.None)
         End Sub
 #End Region
 #Region "Media controls' handlers"
         Private Sub MediaControl_FileDownloaded(ByVal Sender As MediaItem, ByVal Container As IYouTubeMediaContainer)
             If MyDownloaderSettings.ShowNotifications Then MyNotificator.ShowNotification(Container.ToString(), Container.ThumbnailFile)
-            If MyDownloaderSettings.RemoveDownloadedAutomatically Then RemoveControls(Sender)
+            If MyDownloaderSettings.RemoveDownloadedAutomatically Then RemoveControls(Sender, False)
         End Sub
         Private Sub MediaControl_Removal(ByVal Sender As MediaItem, ByVal Container As IYouTubeMediaContainer)
-            RemoveControls(Sender)
+            RemoveControls(Sender, False)
         End Sub
         Private Sub MediaControl_DownloadAgain(ByVal Sender As MediaItem, ByVal Container As IYouTubeMediaContainer)
             If Not Container.URL.IsEmptyString Then BufferText = Container.URL : BTT_ADD.PerformClick()
@@ -425,8 +443,8 @@ Namespace DownloadObjects.STDownloader
             UpdateLogButton()
         End Sub
         Protected Sub AddToDownload(ByRef Item As MediaItem, ByVal RunThread As Boolean)
-            If MyJob.Count = 0 OrElse Not MyJob.Items.Exists(Function(i) i.MyContainer.GetHashCode) Then
-                Item.Pending = True
+            Dim hc% = Item.MyContainer.GetHashCode
+            If MyJob.Count = 0 OrElse Not MyJob.Items.Exists(Function(i) i.MyContainer.GetHashCode = hc) Then
                 MyJob.Add(Item)
                 Item.AddToQueue()
                 If RunThread Then StartDownloading()
@@ -450,37 +468,55 @@ Namespace DownloadObjects.STDownloader
                 MyJob.Start()
                 Const nf As ANumbers.Formats = ANumbers.Formats.Number
                 Dim t As New List(Of Task)
-                Dim i%
+                Dim i%, iAbs%
                 Dim __item As MediaItem
                 Dim Indexes As New List(Of Integer)
+                Dim IndexesToRemove As New List(Of Integer)
                 Dim maxJobCount% = MyDownloaderSettings.MaxJobsCount
                 If maxJobCount <= 0 Then maxJobCount = 1
                 MyProgress.Visible = True
                 MyProgress.Maximum = MyJob.Count
                 Do While MyJob.Count > 0 And Not MyJob.IsCancellationRequested
                     i = -1
+                    iAbs = -1
                     Indexes.Clear()
+                    IndexesToRemove.Clear()
                     For Each __item In MyJob.Items
-                        i += 1
-                        If i <= maxJobCount - 1 Then
-                            Indexes.Add(i)
-                            t.Add(Task.Run(Sub() __item.Download(MyJob.Token)))
+                        iAbs += 1
+                        If Not __item.IsDisposed And Not If(__item.MyContainer?.DownloadState, Plugin.UserMediaStates.Unknown) = Plugin.UserMediaStates.Downloaded Then
+                            i += 1
+                            If i <= maxJobCount - 1 Then
+                                Indexes.Add(iAbs)
+                                t.Add(Task.Run(Sub() __item.Download(MyJob.Token)))
+                            Else
+                                Exit For
+                            End If
                         Else
-                            Exit For
+                            IndexesToRemove.Add(iAbs)
                         End If
                     Next
+                    If IndexesToRemove.Count > 0 Then
+                        For i = IndexesToRemove.Count - 1 To 0 Step -1
+                            If Not MyJob.Items(IndexesToRemove(i)).IsDisposed Then MyJob.Items(IndexesToRemove(i)).Pending = False
+                            MyJob.Items.RemoveAt(IndexesToRemove(i))
+                        Next
+                    End If
                     If t.Count > 0 Then
                         MyProgress.Information = $"Downloading {t.Count.NumToString(nf, PNumProv)}/{MyJob.Count.NumToString(nf, PNumProv)}"
                         MyProgress.InformationTemporary = MyProgress.Information
                         Task.WaitAll(t.ToArray)
                         MyProgress.Perform(t.Count)
                         If Indexes.Count > 0 Then
-                            For i = Indexes.Count - 1 To 0 Step -1 : MyJob.Items.RemoveAt(Indexes(i)) : Next
+                            For i = Indexes.Count - 1 To 0 Step -1
+                                MyJob.Item(Indexes(i)).Pending = False
+                                MyJob.Items.RemoveAt(Indexes(i))
+                            Next
                         End If
                         t.Clear()
                     End If
                 Loop
                 Indexes.Clear()
+                IndexesToRemove.Clear()
                 MyProgress.Done()
                 MyProgress.InformationTemporary = "Download completed"
             Catch aoex As ArgumentOutOfRangeException

SCrawler.YouTube/Editors/BugReporterForm.Designer.vb

@@ -0,0 +1,361 @@
+' 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 Editors
+    <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+    Partial Public Class BugReporterForm : 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()
+            Me.components = New System.ComponentModel.Container()
+            Dim TP_MAIN As System.Windows.Forms.TableLayoutPanel
+            Dim TP_BUTTONS 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(BugReporterForm))
+            Dim ActionButton2 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton3 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 ActionButton5 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton6 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton7 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton8 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Dim ActionButton9 As PersonalUtilities.Forms.Controls.Base.ActionButton = New PersonalUtilities.Forms.Controls.Base.ActionButton()
+            Me.BTT_EMAIL = New System.Windows.Forms.Button()
+            Me.BTT_GITHUB = New System.Windows.Forms.Button()
+            Me.BTT_COPY = New System.Windows.Forms.Button()
+            Me.BTT_CANCEL = New System.Windows.Forms.Button()
+            Me.BTT_ANON = New System.Windows.Forms.Button()
+            Me.TT_MAIN = New System.Windows.Forms.ToolTip(Me.components)
+            Me.TXT_DESCR = New PersonalUtilities.Forms.Controls.TextBoxExtended()
+            Me.TXT_URL_PROFILE = New PersonalUtilities.Forms.Controls.TextBoxExtended()
+            Me.TXT_URL_POST = New PersonalUtilities.Forms.Controls.TextBoxExtended()
+            Me.TXT_REPRODUCE = New PersonalUtilities.Forms.Controls.TextBoxExtended()
+            Me.TXT_EXPECT = New PersonalUtilities.Forms.Controls.TextBoxExtended()
+            Me.TXT_LOG = New PersonalUtilities.Forms.Controls.TextBoxExtended()
+            Me.TXT_FILES = New PersonalUtilities.Forms.Controls.TextBoxExtended()
+            TP_MAIN = New System.Windows.Forms.TableLayoutPanel()
+            TP_BUTTONS = New System.Windows.Forms.TableLayoutPanel()
+            TP_MAIN.SuspendLayout()
+            TP_BUTTONS.SuspendLayout()
+            CType(Me.TXT_DESCR, System.ComponentModel.ISupportInitialize).BeginInit()
+            CType(Me.TXT_URL_PROFILE, System.ComponentModel.ISupportInitialize).BeginInit()
+            CType(Me.TXT_URL_POST, System.ComponentModel.ISupportInitialize).BeginInit()
+            CType(Me.TXT_REPRODUCE, System.ComponentModel.ISupportInitialize).BeginInit()
+            CType(Me.TXT_EXPECT, System.ComponentModel.ISupportInitialize).BeginInit()
+            CType(Me.TXT_LOG, System.ComponentModel.ISupportInitialize).BeginInit()
+            CType(Me.TXT_FILES, System.ComponentModel.ISupportInitialize).BeginInit()
+            Me.SuspendLayout()
+            '
+            'TP_MAIN
+            '
+            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.TXT_DESCR, 0, 0)
+            TP_MAIN.Controls.Add(Me.TXT_URL_PROFILE, 0, 1)
+            TP_MAIN.Controls.Add(Me.TXT_URL_POST, 0, 2)
+            TP_MAIN.Controls.Add(Me.TXT_REPRODUCE, 0, 3)
+            TP_MAIN.Controls.Add(Me.TXT_EXPECT, 0, 4)
+            TP_MAIN.Controls.Add(Me.TXT_LOG, 0, 5)
+            TP_MAIN.Controls.Add(TP_BUTTONS, 0, 7)
+            TP_MAIN.Controls.Add(Me.TXT_FILES, 0, 6)
+            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 = 8
+            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.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, 20.0!))
+            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+            TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+            TP_MAIN.Size = New System.Drawing.Size(584, 461)
+            TP_MAIN.TabIndex = 0
+            '
+            'TP_BUTTONS
+            '
+            TP_BUTTONS.ColumnCount = 6
+            TP_BUTTONS.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+            TP_BUTTONS.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!))
+            TP_BUTTONS.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!))
+            TP_BUTTONS.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!))
+            TP_BUTTONS.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!))
+            TP_BUTTONS.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!))
+            TP_BUTTONS.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+            TP_BUTTONS.Controls.Add(Me.BTT_EMAIL, 2, 0)
+            TP_BUTTONS.Controls.Add(Me.BTT_GITHUB, 3, 0)
+            TP_BUTTONS.Controls.Add(Me.BTT_COPY, 4, 0)
+            TP_BUTTONS.Controls.Add(Me.BTT_CANCEL, 5, 0)
+            TP_BUTTONS.Controls.Add(Me.BTT_ANON, 1, 0)
+            TP_BUTTONS.Dock = System.Windows.Forms.DockStyle.Fill
+            TP_BUTTONS.Location = New System.Drawing.Point(0, 431)
+            TP_BUTTONS.Margin = New System.Windows.Forms.Padding(0)
+            TP_BUTTONS.Name = "TP_BUTTONS"
+            TP_BUTTONS.RowCount = 1
+            TP_BUTTONS.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+            TP_BUTTONS.Size = New System.Drawing.Size(584, 30)
+            TP_BUTTONS.TabIndex = 7
+            '
+            'BTT_EMAIL
+            '
+            Me.BTT_EMAIL.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.BTT_EMAIL.Location = New System.Drawing.Point(187, 3)
+            Me.BTT_EMAIL.Name = "BTT_EMAIL"
+            Me.BTT_EMAIL.Size = New System.Drawing.Size(94, 24)
+            Me.BTT_EMAIL.TabIndex = 1
+            Me.BTT_EMAIL.Text = "email"
+            Me.TT_MAIN.SetToolTip(Me.BTT_EMAIL, "Create a message to send via email.")
+            Me.BTT_EMAIL.UseVisualStyleBackColor = True
+            '
+            'BTT_GITHUB
+            '
+            Me.BTT_GITHUB.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.BTT_GITHUB.Location = New System.Drawing.Point(287, 3)
+            Me.BTT_GITHUB.Name = "BTT_GITHUB"
+            Me.BTT_GITHUB.Size = New System.Drawing.Size(94, 24)
+            Me.BTT_GITHUB.TabIndex = 2
+            Me.BTT_GITHUB.Text = "GitHub"
+            Me.TT_MAIN.SetToolTip(Me.BTT_GITHUB, "Create a MarkDown message to post to GitHub.")
+            Me.BTT_GITHUB.UseVisualStyleBackColor = True
+            '
+            'BTT_COPY
+            '
+            Me.BTT_COPY.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.BTT_COPY.Location = New System.Drawing.Point(387, 3)
+            Me.BTT_COPY.Name = "BTT_COPY"
+            Me.BTT_COPY.Size = New System.Drawing.Size(94, 24)
+            Me.BTT_COPY.TabIndex = 3
+            Me.BTT_COPY.Text = "Copy"
+            Me.TT_MAIN.SetToolTip(Me.BTT_COPY, "Create a message and copy to your clipboard.")
+            Me.BTT_COPY.UseVisualStyleBackColor = True
+            '
+            'BTT_CANCEL
+            '
+            Me.BTT_CANCEL.DialogResult = System.Windows.Forms.DialogResult.Cancel
+            Me.BTT_CANCEL.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.BTT_CANCEL.Location = New System.Drawing.Point(487, 3)
+            Me.BTT_CANCEL.Name = "BTT_CANCEL"
+            Me.BTT_CANCEL.Size = New System.Drawing.Size(94, 24)
+            Me.BTT_CANCEL.TabIndex = 4
+            Me.BTT_CANCEL.Text = "Cancel"
+            Me.BTT_CANCEL.UseVisualStyleBackColor = True
+            '
+            'BTT_ANON
+            '
+            Me.BTT_ANON.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.BTT_ANON.Location = New System.Drawing.Point(87, 3)
+            Me.BTT_ANON.Name = "BTT_ANON"
+            Me.BTT_ANON.Size = New System.Drawing.Size(94, 24)
+            Me.BTT_ANON.TabIndex = 0
+            Me.BTT_ANON.Text = "Anon message"
+            Me.TT_MAIN.SetToolTip(Me.BTT_ANON, resources.GetString("BTT_ANON.ToolTip"))
+            Me.BTT_ANON.UseVisualStyleBackColor = True
+            '
+            'TXT_DESCR
+            '
+            ActionButton1.BackgroundImage = CType(resources.GetObject("ActionButton1.BackgroundImage"), System.Drawing.Image)
+            ActionButton1.Dock = System.Windows.Forms.DockStyle.Top
+            ActionButton1.Name = "Clear"
+            ActionButton1.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Clear
+            Me.TXT_DESCR.Buttons.Add(ActionButton1)
+            Me.TXT_DESCR.CaptionDock = System.Windows.Forms.DockStyle.Top
+            Me.TXT_DESCR.CaptionMode = PersonalUtilities.Forms.Controls.Base.ICaptionControl.Modes.None
+            Me.TXT_DESCR.CaptionVisible = False
+            Me.TXT_DESCR.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.TXT_DESCR.GroupBoxed = True
+            Me.TXT_DESCR.GroupBoxText = "Describe the bug or write your message"
+            Me.TXT_DESCR.Lines = New String(-1) {}
+            Me.TXT_DESCR.Location = New System.Drawing.Point(3, 3)
+            Me.TXT_DESCR.Multiline = True
+            Me.TXT_DESCR.Name = "TXT_DESCR"
+            Me.TXT_DESCR.Size = New System.Drawing.Size(578, 69)
+            Me.TXT_DESCR.TabIndex = 0
+            Me.TXT_DESCR.TextToolTip = "A clear and concise description of what the bug is"
+            Me.TXT_DESCR.TextToolTipEnabled = True
+            '
+            'TXT_URL_PROFILE
+            '
+            ActionButton2.BackgroundImage = CType(resources.GetObject("ActionButton2.BackgroundImage"), System.Drawing.Image)
+            ActionButton2.Name = "Clear"
+            ActionButton2.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Clear
+            Me.TXT_URL_PROFILE.Buttons.Add(ActionButton2)
+            Me.TXT_URL_PROFILE.CaptionText = "Profile URL"
+            Me.TXT_URL_PROFILE.CaptionWidth = 75.0R
+            Me.TXT_URL_PROFILE.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.TXT_URL_PROFILE.Lines = New String(-1) {}
+            Me.TXT_URL_PROFILE.Location = New System.Drawing.Point(3, 78)
+            Me.TXT_URL_PROFILE.Name = "TXT_URL_PROFILE"
+            Me.TXT_URL_PROFILE.Size = New System.Drawing.Size(578, 22)
+            Me.TXT_URL_PROFILE.TabIndex = 1
+            '
+            'TXT_URL_POST
+            '
+            ActionButton3.BackgroundImage = CType(resources.GetObject("ActionButton3.BackgroundImage"), System.Drawing.Image)
+            ActionButton3.Name = "Clear"
+            ActionButton3.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Clear
+            Me.TXT_URL_POST.Buttons.Add(ActionButton3)
+            Me.TXT_URL_POST.CaptionText = "Post URL"
+            Me.TXT_URL_POST.CaptionWidth = 75.0R
+            Me.TXT_URL_POST.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.TXT_URL_POST.Lines = New String(-1) {}
+            Me.TXT_URL_POST.Location = New System.Drawing.Point(3, 106)
+            Me.TXT_URL_POST.Name = "TXT_URL_POST"
+            Me.TXT_URL_POST.Size = New System.Drawing.Size(578, 22)
+            Me.TXT_URL_POST.TabIndex = 2
+            '
+            'TXT_REPRODUCE
+            '
+            ActionButton4.BackgroundImage = CType(resources.GetObject("ActionButton4.BackgroundImage"), System.Drawing.Image)
+            ActionButton4.Dock = System.Windows.Forms.DockStyle.Top
+            ActionButton4.Name = "Clear"
+            ActionButton4.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Clear
+            Me.TXT_REPRODUCE.Buttons.Add(ActionButton4)
+            Me.TXT_REPRODUCE.CaptionDock = System.Windows.Forms.DockStyle.Top
+            Me.TXT_REPRODUCE.CaptionMode = PersonalUtilities.Forms.Controls.Base.ICaptionControl.Modes.None
+            Me.TXT_REPRODUCE.CaptionVisible = False
+            Me.TXT_REPRODUCE.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.TXT_REPRODUCE.GroupBoxed = True
+            Me.TXT_REPRODUCE.GroupBoxText = "To Reproduce"
+            Me.TXT_REPRODUCE.Lines = New String(-1) {}
+            Me.TXT_REPRODUCE.Location = New System.Drawing.Point(3, 134)
+            Me.TXT_REPRODUCE.Multiline = True
+            Me.TXT_REPRODUCE.Name = "TXT_REPRODUCE"
+            Me.TXT_REPRODUCE.Size = New System.Drawing.Size(578, 69)
+            Me.TXT_REPRODUCE.TabIndex = 3
+            Me.TXT_REPRODUCE.TextToolTip = "Steps to reproduce the behavior:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1. Do something" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "2. See error"
+            Me.TXT_REPRODUCE.TextToolTipEnabled = True
+            '
+            'TXT_EXPECT
+            '
+            ActionButton5.BackgroundImage = CType(resources.GetObject("ActionButton5.BackgroundImage"), System.Drawing.Image)
+            ActionButton5.Dock = System.Windows.Forms.DockStyle.Top
+            ActionButton5.Name = "Clear"
+            ActionButton5.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Clear
+            Me.TXT_EXPECT.Buttons.Add(ActionButton5)
+            Me.TXT_EXPECT.CaptionDock = System.Windows.Forms.DockStyle.Top
+            Me.TXT_EXPECT.CaptionMode = PersonalUtilities.Forms.Controls.Base.ICaptionControl.Modes.None
+            Me.TXT_EXPECT.CaptionVisible = False
+            Me.TXT_EXPECT.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.TXT_EXPECT.GroupBoxed = True
+            Me.TXT_EXPECT.GroupBoxText = "Expected behavior"
+            Me.TXT_EXPECT.Lines = New String(-1) {}
+            Me.TXT_EXPECT.Location = New System.Drawing.Point(3, 209)
+            Me.TXT_EXPECT.Multiline = True
+            Me.TXT_EXPECT.Name = "TXT_EXPECT"
+            Me.TXT_EXPECT.Size = New System.Drawing.Size(578, 69)
+            Me.TXT_EXPECT.TabIndex = 4
+            Me.TXT_EXPECT.TextToolTip = "A clear and concise description of what you expected to happen."
+            Me.TXT_EXPECT.TextToolTipEnabled = True
+            '
+            'TXT_LOG
+            '
+            ActionButton6.BackgroundImage = CType(resources.GetObject("ActionButton6.BackgroundImage"), System.Drawing.Image)
+            ActionButton6.Dock = System.Windows.Forms.DockStyle.Top
+            ActionButton6.Name = "Open"
+            ActionButton6.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Open
+            ActionButton6.ToolTipText = "Select log files to add their text to the message"
+            ActionButton7.BackgroundImage = CType(resources.GetObject("ActionButton7.BackgroundImage"), System.Drawing.Image)
+            ActionButton7.Dock = System.Windows.Forms.DockStyle.Top
+            ActionButton7.Name = "Clear"
+            ActionButton7.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Clear
+            ActionButton7.ToolTipText = "Empty"
+            Me.TXT_LOG.Buttons.Add(ActionButton6)
+            Me.TXT_LOG.Buttons.Add(ActionButton7)
+            Me.TXT_LOG.CaptionDock = System.Windows.Forms.DockStyle.Top
+            Me.TXT_LOG.CaptionMode = PersonalUtilities.Forms.Controls.Base.ICaptionControl.Modes.None
+            Me.TXT_LOG.CaptionVisible = False
+            Me.TXT_LOG.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.TXT_LOG.GroupBoxed = True
+            Me.TXT_LOG.GroupBoxText = "Log data"
+            Me.TXT_LOG.Lines = New String(-1) {}
+            Me.TXT_LOG.Location = New System.Drawing.Point(3, 284)
+            Me.TXT_LOG.Multiline = True
+            Me.TXT_LOG.Name = "TXT_LOG"
+            Me.TXT_LOG.Size = New System.Drawing.Size(578, 69)
+            Me.TXT_LOG.TabIndex = 5
+            '
+            'TXT_FILES
+            '
+            ActionButton8.BackgroundImage = CType(resources.GetObject("ActionButton8.BackgroundImage"), System.Drawing.Image)
+            ActionButton8.Dock = System.Windows.Forms.DockStyle.Top
+            ActionButton8.Name = "Add"
+            ActionButton8.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Add
+            ActionButton8.ToolTipText = "Add files"
+            ActionButton9.BackgroundImage = CType(resources.GetObject("ActionButton9.BackgroundImage"), System.Drawing.Image)
+            ActionButton9.Dock = System.Windows.Forms.DockStyle.Top
+            ActionButton9.Name = "Clear"
+            ActionButton9.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.Clear
+            ActionButton9.ToolTipText = "Clear files"
+            Me.TXT_FILES.Buttons.Add(ActionButton8)
+            Me.TXT_FILES.Buttons.Add(ActionButton9)
+            Me.TXT_FILES.CaptionDock = System.Windows.Forms.DockStyle.Top
+            Me.TXT_FILES.CaptionMode = PersonalUtilities.Forms.Controls.Base.ICaptionControl.Modes.None
+            Me.TXT_FILES.CaptionVisible = False
+            Me.TXT_FILES.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.TXT_FILES.GroupBoxed = True
+            Me.TXT_FILES.GroupBoxText = "Files"
+            Me.TXT_FILES.Lines = New String(-1) {}
+            Me.TXT_FILES.Location = New System.Drawing.Point(3, 359)
+            Me.TXT_FILES.Multiline = True
+            Me.TXT_FILES.Name = "TXT_FILES"
+            Me.TXT_FILES.Size = New System.Drawing.Size(578, 69)
+            Me.TXT_FILES.TabIndex = 6
+            Me.TXT_FILES.TextBoxReadOnly = True
+            Me.TXT_FILES.TextToolTip = "Attach files to your message (only works with anonymous message)"
+            Me.TXT_FILES.TextToolTipEnabled = True
+            '
+            'BugReporterForm
+            '
+            Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+            Me.CancelButton = Me.BTT_CANCEL
+            Me.ClientSize = New System.Drawing.Size(584, 461)
+            Me.Controls.Add(TP_MAIN)
+            Me.KeyPreview = True
+            Me.MinimumSize = New System.Drawing.Size(600, 500)
+            Me.Name = "BugReporterForm"
+            Me.Text = "New message"
+            TP_MAIN.ResumeLayout(False)
+            TP_BUTTONS.ResumeLayout(False)
+            CType(Me.TXT_DESCR, System.ComponentModel.ISupportInitialize).EndInit()
+            CType(Me.TXT_URL_PROFILE, System.ComponentModel.ISupportInitialize).EndInit()
+            CType(Me.TXT_URL_POST, System.ComponentModel.ISupportInitialize).EndInit()
+            CType(Me.TXT_REPRODUCE, System.ComponentModel.ISupportInitialize).EndInit()
+            CType(Me.TXT_EXPECT, System.ComponentModel.ISupportInitialize).EndInit()
+            CType(Me.TXT_LOG, System.ComponentModel.ISupportInitialize).EndInit()
+            CType(Me.TXT_FILES, System.ComponentModel.ISupportInitialize).EndInit()
+            Me.ResumeLayout(False)
+
+        End Sub
+
+        Private WithEvents TXT_DESCR As PersonalUtilities.Forms.Controls.TextBoxExtended
+        Private WithEvents TXT_URL_PROFILE As PersonalUtilities.Forms.Controls.TextBoxExtended
+        Private WithEvents TXT_URL_POST As PersonalUtilities.Forms.Controls.TextBoxExtended
+        Private WithEvents TXT_REPRODUCE As PersonalUtilities.Forms.Controls.TextBoxExtended
+        Private WithEvents TXT_EXPECT As PersonalUtilities.Forms.Controls.TextBoxExtended
+        Private WithEvents TXT_LOG As PersonalUtilities.Forms.Controls.TextBoxExtended
+        Private WithEvents TT_MAIN As ToolTip
+        Private WithEvents BTT_EMAIL As Button
+        Private WithEvents BTT_GITHUB As Button
+        Private WithEvents BTT_COPY As Button
+        Private WithEvents BTT_CANCEL As Button
+        Private WithEvents BTT_ANON As Button
+        Private WithEvents TXT_FILES As PersonalUtilities.Forms.Controls.TextBoxExtended
+    End Class
+End Namespace

SCrawler.YouTube/Editors/BugReporterForm.resx

@@ -0,0 +1,225 @@
+<?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="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>
+  <data name="ActionButton3.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="ActionButton4.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="ActionButton5.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="ActionButton6.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAAR5JREFUOE+VkjFqwzAUhn2D9iShRyi+QhYbGujg3ZATZPKYdC6FQhPwlAMkg3dP
+        WQwhyWIyJIUW5NqyPb7oCVtIlhVTwYf8nv7/t2zJagel9KmqKsIACYL9RjI8UHz5zshougZr/AEvbxEP
+        aZCDBY3VslixaJvX3wzkkDiOwbZtDRGA5vdNAg+TL27qgmt5XkBG/gTdAG7Gt+3PP9oOaEGFCVEC6rp+
+        5g9MfM/c5e4OsEZMZkQEtGL5H2DdZ5JRArDwPA+iKII0TfkC9vroC9j5vq8JTWw3WzWgLMtZGIaa0MR8
+        vlAD8PYlSaIJTTiOowY0p0Bc19XEJo6HE59FAPuMzyAINKGJ1XLFZxHALtMrnkBXOIQIIIQ8YvF/KrgB
+        cMaRN0UdBBkAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ActionButton7.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_BUTTONS.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="BTT_ANON.ToolTip" xml:space="preserve">
+    <value>Send an anonymous message.
+The developer will not be able you contact you back.
+You can attach files (images, photos) to your message.
+If you would like a response from the developer, response, please add your contact details (email, Discord, etc.).</value>
+  </data>
+  <data name="ActionButton8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
+        JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAADmUlE
+        QVRIS62WWWxMURjHL220JW1HausmlFrDFKUhnUGH6bRFzJ2idImlC0Vp2mlji1A8iNhCPIjIRES8EU+W
+        h2oEtbSDTk3HNNM7S01VKsXjkb/vXBo3k1Ee7sMvmZzzzf//ne/+z50RAAxL1MUIG4G/YAv3HSVhF5Vw
+        IYNdz3LadVj9RgdTB+HQYYPHIJuE1ocSdlEJFzG+1bPRLQLinglIeCkg+XUkKvz56hnkOfQs/rmA8S9H
+        YEp7FDI64tAQtKhnsMapZ7zzNHsUFnbGY4VzIk70l6hnIH4wsDR7NBZ3apDrSqL5T8eFgUr1DLZ78lim
+        Q4N8VzK29MxEpZSBa4M16hnU+c3M9CEFpdJsVHsXos63DDcHrf9nQEXD5VymwW/5USLNwl5vJhp7dTgW
+        NML2pR7jbsUMS+KdMTa5Q8NQxinfBU4dRFcOyjy52OtbhwOBDTgZLKPPmTgY0ON4MBdNfSbYBupxY8Aq
+        G10dqMG5/nIc7ytGQ6CQRliAamkTN/g1Ai4e95Qy3iogpX0UtBRDnhRzdxq2SXOxz5eFQ70rScCEU335
+        ssGxj0YS06HSm4GN3ekwdE2C1hGH1LZR0JDOJof5jwHvnIvzTa0jlooTYfktvt+fhcOBHDQFTWRgxJGP
+        ObAGsulZLMLWnjlY756K5c4JmNcRi6T2SGheCIihS2l5ozAo6NRhMolnUAcGV6IcwwqvFrX+JTjYuwKH
+        SfRAYDms/mzs9y1GFe2VSnOw1j0FejqpLN4WCX4ZufiIBwLMLxQGm12rsLQzgWKYgmLPLNTQw6ynpDSS
+        IBet8y+TqaVRVdFIeJrWuCcj+/0EzH43BomvIhBLI45uFiDcJ+6QwROFwa6+Amb9bGFNg6Xs9Ncd7Oy3
+        Knb2eyU7/20nu9y/m136tIvEl6BC0qKoZwby3alo9JVhj7T5R7m/kJVIIityi8zyXmTiW+I10SqyIQNb
+        uIgNwYuuf25kFd75KPKkI49OmUWnrfYWyXv/wBb2cijhhVf6a9lGei65XclYRDd6mj0GWz2iLBJaH0rY
+        RSVc5Eywmhm7kuQXHX+bJlBStrh+zTi0PpSwi0q4yNFAOVvgiEcKJWUsxZn/NhT+znlofShhF5VwkRpv
+        MUtti4KGYjj6sYCIh5QSu4oG27stjItHU+cjeQzvkcFzFQ2KnSKLoc4FukDCXeI2GbSoaFD4ziyPxNxK
+        0AUyNxOP1DOwcaG/8I+/LRB+At7psBnyDBG0AAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="ActionButton9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        xAAADsQBlSsOGwAAAIZJREFUOE+1j10KwCAMgz2b755xl/IsvnaL2K20UfbDAmEako+ZROSTafjE12Go
+        tbbB43rK5xSAQq1VYFtmeQBoqZTSreVZvgTknM8yyyjA/qodsDF9gspD2Bj6B+DH+NqzhQQAG+POMnSX
+        AFuc5QFgn6ClHh5iOQVAKNixyucB8NY0vG9JOzzyhrdq5IRgAAAAAElFTkSuQmCC
+</value>
+  </data>
+</root>

SCrawler.YouTube/Editors/BugReporterForm.vb

@@ -0,0 +1,238 @@
+' 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 System.ComponentModel
+Imports PersonalUtilities.Bots
+Imports PersonalUtilities.Tools
+Imports PersonalUtilities.Forms
+Imports PersonalUtilities.Forms.Controls.Base
+Imports PersonalUtilities.Functions.XML
+Imports PersonalUtilities.Functions.Messaging
+Imports BStyle = PersonalUtilities.Bots.IBot.Styles
+Imports ADB = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons
+Namespace Editors
+    Public Class BugReporterForm
+#Region "Declarations"
+        Private Const MsgTitle As String = "Bug report"
+        Private ReadOnly MyView As FormView
+        Private ReadOnly MyFieldsChecker As FieldsChecker
+        Private MyProgramInfo As String
+        Private MyProgramInfoPopulated As Boolean = False
+        Private ReadOnly MyProgramText As String
+        Private ReadOnly MyCurrentVersion As Version
+        Private ReadOnly MyIsYouTube As Boolean
+        Private ReadOnly MyEnvirData As DownloadObjects.STDownloader.IDownloaderSettings
+        Private ReadOnly MyAdditText As String
+        Private ReadOnly MyCache As CacheKeeper
+#End Region
+#Region "Initializer"
+        Public Sub New(ByVal Cache As CacheKeeper, ByVal DesignXML As EContainer, ByVal ProgramText As String, ByVal CurrentVersion As Version, ByVal IsYouTube As Boolean,
+                       ByVal EnvirData As DownloadObjects.STDownloader.IDownloaderSettings, Optional ByVal AdditText As String = Nothing)
+            InitializeComponent()
+            MyView = New FormView(Me, DesignXML)
+            MyFieldsChecker = New FieldsChecker
+            MyCache = Cache
+            MyProgramText = ProgramText
+            MyCurrentVersion = CurrentVersion
+            MyIsYouTube = IsYouTube
+            MyEnvirData = EnvirData
+            MyAdditText = AdditText
+            Icon = ImageRenderer.GetIcon(My.Resources.MailPic_16, EDP.ReturnValue)
+        End Sub
+#End Region
+#Region "Form handlers"
+        Private Async Sub BugReporterForm_Load(sender As Object, e As EventArgs) Handles Me.Load
+            MyView.Import()
+            MyView.SetFormSize()
+            With MyFieldsChecker
+                .AddControl(Of String)(TXT_DESCR, TXT_DESCR.GroupBoxText)
+                .EndLoaderOperations()
+            End With
+            TXT_LOG.Text = MyMainLOG
+            Await Task.Run(Sub()
+                               MyProgramInfo = ProgramInfo.GetProgramText(MyProgramText.IfNullOrEmpty(IIf(MyIsYouTube, "YouTube downloader", "SCrawler")),
+                                                                          MyCurrentVersion, MyIsYouTube, MyEnvirData, MyAdditText)
+                               MyProgramInfoPopulated = True
+                           End Sub)
+        End Sub
+        Private Sub BugReporterForm_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+            MyView.Dispose()
+            MyFieldsChecker.Dispose()
+        End Sub
+#End Region
+#Region "Message"
+        Private Sub WaitLoadingDone()
+            While Not MyProgramInfoPopulated : Threading.Thread.Sleep(100) : End While
+        End Sub
+        Private Function CreateMessage(ByVal ForGitHub As Boolean, Optional ByVal ForDiscord As Boolean = False) As Object
+            Try
+                Dim nl$ = vbNewLine.StringDup(2)
+                Dim data As New List(Of BotMessage)
+                Dim t$ = String.Empty
+                Dim discordAppendNl As Action = Sub() data.Add(New BotMessage(vbNewLine))
+                Dim appendNewLine As Action = Sub() If ForDiscord Then data.Add(New BotMessage(nl)) Else t &= nl
+                Dim ghBold As Func(Of String, Object) = Function(ByVal input As String) As Object
+                                                            If ForDiscord Then
+                                                                Return New BotMessage(input, BStyle.Bold)
+                                                            Else
+                                                                Return String.Format("{1}{0}{1}", input, IIf(ForGitHub, "**", ""))
+                                                            End If
+                                                        End Function
+                Dim appendData As Action(Of Object) = Sub(ByVal input As Object)
+                                                          If ForDiscord Then
+                                                              discordAppendNl.Invoke
+                                                              data.Add(If(TypeOf input Is BotMessage, input, New BotMessage(input.ToString)))
+                                                          Else
+                                                              t.StringAppendLine(input)
+                                                          End If
+                                                      End Sub
+
+                appendData(ghBold("Describe the bug"))
+                appendData(TXT_DESCR.Text)
+                If Not TXT_URL_PROFILE.IsEmptyString Then appendData($"Profile URL: {TXT_URL_PROFILE.Text}")
+                If Not TXT_URL_POST.IsEmptyString Then appendData($"Post URL: {TXT_URL_POST.Text}")
+                If Not TXT_REPRODUCE.IsEmptyString Then
+                    appendNewLine.Invoke
+                    appendData(ghBold("To Reproduce"))
+                    appendData(TXT_REPRODUCE.Text)
+                End If
+                If Not TXT_EXPECT.IsEmptyString Then
+                    appendNewLine.Invoke
+                    appendData(ghBold("Expected behavior"))
+                    appendData(TXT_EXPECT.Text)
+                End If
+                If Not TXT_LOG.IsEmptyString Then
+                    appendNewLine.Invoke
+                    If ForDiscord Then
+                        data.Add(New BotMessage(TXT_LOG.Text, BStyle.Code))
+                    ElseIf ForGitHub Then
+                        appendData($"<details><summary>Log data</summary><pre>{TXT_LOG.Text}</pre></details>")
+                    Else
+                        appendData(ghBold("LOG"))
+                        appendData(TXT_LOG.Text)
+                    End If
+                End If
+
+                WaitLoadingDone()
+                appendNewLine.Invoke
+                appendData(ghBold("Release information:"))
+                appendData(MyProgramInfo)
+
+                Return If(ForDiscord, data, t)
+            Catch ex As Exception
+                Return ErrorsDescriber.Execute(EDP.SendToLog + EDP.ReturnValue, ex, "[BugReporterForm.CreateMessage]")
+            End Try
+        End Function
+        Private Function ValidateFields(Optional ByVal SimpleMode As Boolean = False) As Boolean
+            If MyFieldsChecker.AllParamsOK Then
+                Dim opts$ = String.Empty
+                If TXT_URL_PROFILE.IsEmptyString Then opts.StringAppend("profile URL")
+                If TXT_URL_POST.IsEmptyString Then opts.StringAppend("post URL")
+                If TXT_LOG.Text.IsEmptyString Then opts.StringAppend("LOG")
+                Return opts.IsEmptyString OrElse SimpleMode OrElse
+                       MsgBoxE({$"You haven't completed the following fields: {opts}.{vbCr}Are you sure you want to skip them?",
+                                MsgTitle}, vbExclamation,,, {"Process", "Cancel"}) = 0
+            End If
+            Return False
+        End Function
+#End Region
+#Region "Buttons"
+        Private Sub BTT_ANON_Click(sender As Object, e As EventArgs) Handles BTT_ANON.Click
+            Try
+                If ValidateFields(True) Then
+                    Dim files As List(Of SFile) = Nothing
+                    If TXT_FILES.Lines.ListExists Then files.ListAddList(TXT_FILES.Lines, LAP.NotContainsOnly)
+                    Dim msgs As New List(Of BotMessage)
+                    Dim isSimple As Boolean = False
+                    Dim aMsg$ = String.Empty
+                    Select Case MsgBoxE(New MMessage("Do you want to send a simple message or report a bug?", MsgTitle,
+                                                     {New MsgBoxButton("Nice", "Say something nice to the developer." & vbCr &
+                                                                               "You can also attach cat picture :-)" & vbCr &
+                                                                               $"The message will be sent from the '{TXT_DESCR.GroupBoxText}' field."),
+                                                      New MsgBoxButton("Simple", $"The developer will only receive the message from the '{TXT_DESCR.GroupBoxText}' field."),
+                                                      New MsgBoxButton("Bug report", "The developer will receive a full bug report."),
+                                                      "Cancel"}, vbQuestion) With {.ButtonsPerRow = 4, .DefaultButton = 2, .CancelButton = 3}).Index
+                        Case 0 : msgs.Add(TXT_DESCR.Text) : aMsg = $"{vbCr}Thank you very much. I'm very grateful for your messages. You are awesome!"
+                        Case 1 : isSimple = True : msgs.Add(TXT_DESCR.Text)
+                        Case 2 : msgs = CreateMessage(False, True)
+                        Case Else : Exit Sub
+                    End Select
+                    If msgs.ListExists Then
+                        Dim nErr As New ErrorsDescriber(EDP.None)
+                        Using d As New DiscordBot With {.Credential = DiscordWebHook, .User = "Anonymous user"}
+                            d.SendMessage(New BotMessage(msgs.ToArray), EDP.ThrowException)
+                            If isSimple Then WaitLoadingDone() : d.SendMessage(MyProgramInfo, nErr)
+                            If files.ListExists Then files.ForEach(Sub(ff) d.SendFile(BotMessage.FromFile(ff),, nErr))
+                        End Using
+                        msgs.Clear()
+                        MsgBoxE({$"Your message has been sent to the developer.{aMsg}", MsgTitle})
+                    End If
+                End If
+            Catch ex As Exception
+                MsgBoxE({"Something is wrong. Your message has not been sent to the developer.", MsgTitle}, vbCritical)
+            End Try
+        End Sub
+        Private Sub BTT_EMAIL_Click(sender As Object, e As EventArgs) Handles BTT_EMAIL.Click
+            If ValidateFields() Then
+                Dim msg$ = CreateMessage(False)
+                Dim cmd$ = "START mailto:""andyprogram@proton.me?to=andyprogram@proton.me&subject=Application%%20bug%%20report"""
+                BufferText = msg
+                MsgBoxE({"The message has been copied to your clipboard. Click OK and paste this message into the window that opens.", MsgTitle})
+                Using b As New BatchExecutor
+                    b.FileExchanger = MyCache.NewInstance(Of BatchFileExchanger)
+                    b.Execute(cmd)
+                End Using
+            End If
+        End Sub
+        Private Sub BTT_GITHUB_Click(sender As Object, e As EventArgs) Handles BTT_GITHUB.Click
+            If ValidateFields() Then
+                Dim msg$ = CreateMessage(True)
+                BufferText = msg
+                MsgBoxE({"The message has been copied to your clipboard. Create a new issue on GitHub and paste this message.", MsgTitle})
+                Try : Process.Start("https://github.com/AAndyProgram/SCrawler/issues/new?assignees=&labels=&projects=&template=custom.md&title=") : Catch : End Try
+            End If
+        End Sub
+        Private Sub BTT_COPY_Click(sender As Object, e As EventArgs) Handles BTT_COPY.Click
+            If ValidateFields() Then
+                Dim msg$ = CreateMessage(MsgBoxE({"Will you post this message on GitHub?", MsgTitle}, vbQuestion + vbYesNo) = vbYes)
+                BufferText = msg
+                MsgBoxE({"The message has been copied to your clipboard.", MsgTitle})
+            End If
+        End Sub
+        Private Sub BTT_CANCEL_Click(sender As Object, e As EventArgs) Handles BTT_CANCEL.Click
+            DialogResult = DialogResult.Cancel
+            Close()
+        End Sub
+#End Region
+#Region "Logs"
+        Private Sub TXT_LOG_ActionOnButtonClick(ByVal Sender As Object, ByVal e As ActionButtonEventArgs) Handles TXT_LOG.ActionOnButtonClick
+            If e.DefaultButton = ADB.Open Then
+                Dim files As List(Of SFile) = SFile.SelectFiles("LOGs\",, "Select log files", "Log files|*.txt|All files|*.*", EDP.ReturnValue)
+                If files.ListExists Then
+                    Dim t$
+                    For Each file As SFile In files
+                        t = file.GetText
+                        If Not t.IsEmptyString Then _
+                           TXT_LOG.Text = $"{TXT_LOG.Text}{If(TXT_LOG.Text.IsEmptyString, String.Empty, vbNewLine.StringDup(2))}{file.Name}{vbNewLine}{t}"
+                    Next
+                End If
+            End If
+        End Sub
+        Private Sub TXT_FILES_ActionOnButtonClick(ByVal Sender As Object, ByVal e As ActionButtonEventArgs) Handles TXT_FILES.ActionOnButtonClick
+            Try
+                If e.DefaultButton = ADB.Add Then
+                    Dim f As List(Of SFile) = SFile.SelectFiles(,, "Select files to be sent", "Images|*.jpg;*.jpeg;*.png;*.webp;*.webm;*.gif|All files|*.*", EDP.ReturnValue)
+                    If f.ListExists Then TXT_FILES.Lines = ListAddList(Nothing, TXT_FILES.Lines.Concat(f.Select(Function(ff) ff.ToString)),
+                                                                       LAP.NotContainsOnly, EDP.ReturnValue).ToArray
+                End If
+            Catch ex As Exception
+            End Try
+        End Sub
+#End Region
+    End Class
+End Namespace

SCrawler.YouTube/MainModShared.vb

@@ -7,6 +7,8 @@
 ' This program is distributed in the hope that it will be useful,
 ' but WITHOUT ANY WARRANTY
 Imports PersonalUtilities.Tools
+Imports PersonalUtilities.Tools.Web
+Imports PersonalUtilities.Functions.Messaging
 Imports SCrawler.DownloadObjects.STDownloader
 Public Module MainModShared
     Public Property BATCH As BatchExecutor
@@ -36,4 +38,98 @@ Public Module MainModShared
             End If
         End Try
     End Sub
-End Module
+    Public Sub ShowProgramInfo(ByVal ProgramText As String, ByVal CurrentVersion As Version, ByVal CheckForUpdate As Boolean, ByVal Force As Boolean,
+                               ByVal EnvirData As IDownloaderSettings, ByVal IsYouTube As Boolean,
+                               Optional ByRef NewVersionDestination As String = Nothing, Optional ByVal ShowNewVersionNotification As Boolean = True,
+                               Optional ByVal AdditText As String = Nothing)
+        Try
+            Dim GoToSite As New MsgBoxButton("Go to site") With {.CallBack = Sub(r, n, b) Process.Start("https://github.com/AAndyProgram/SCrawler/releases/latest")}
+            If CheckForUpdate AndAlso GitHub.NewVersionExists(CurrentVersion, "AAndyProgram", "SCrawler", NewVersionDestination) Then
+                If ShowNewVersionNotification Or Force Then
+                    If MsgBoxE(New MMessage($"{ProgramText}: new version detected" & vbCr &
+                                            $"Current version: {CurrentVersion}" & vbCr &
+                                            $"New version: {NewVersionDestination}",
+                                            "New version",
+                                            {"OK", GoToSite, "Disable notifications"})) = 2 Then ShowNewVersionNotification = False
+                End If
+            Else
+                If Force Then
+                    Dim pVer$ = $"{ProgramText} v{CurrentVersion} ({IIf(Environment.Is64BitProcess, "x64", "x86")})"
+                    Dim eText$ = Editors.ProgramInfo.GetProgramBaseText(ProgramText, CurrentVersion, AdditText)
+                    Dim m As New MMessage($"{pVer}" & vbCr &
+                                          "Address: https://github.com/AAndyProgram/SCrawler" & vbCr &
+                                          "Created by Greek LGBT person Andy (Gay)",
+                                          "Program information",
+                                          {"OK",
+                                           GoToSite,
+                                           New MsgBoxButton("Environment", "Show program environment") With {
+                                                            .IsDialogResultButton = False,
+                                                            .CallBack = Sub(r, n, b) ShowProgramEnvir(EnvirData, IsYouTube, eText)}
+                                          }) With {.DefaultButton = 0, .CancelButton = 0}
+                    If Not AdditText.IsEmptyString Then m.Text &= $"{vbCr}{AdditText}"
+                    m.Show()
+                End If
+                ShowNewVersionNotification = True
+            End If
+        Catch ex As Exception
+        End Try
+    End Sub
+    Private Sub ShowProgramEnvir(ByVal EnvirData As IDownloaderSettings, ByVal IsYouTube As Boolean, ByVal AdditCopyText As String)
+        Dim m As New MMessage(Editors.ProgramInfo.GetProgramEnvirText(EnvirData, IsYouTube), "Program environment", {"OK", "Copy"}) With {.Editable = True, .DefaultButton = 0, .CancelButton = 0}
+        If m.Text = Editors.ProgramInfo.EnvironmentNotFound Then m.Style = vbCritical
+        m.Text = $"{AdditCopyText}{vbCr}{m.Text}"
+        If m.Show() = 1 Then BufferText = m.Text
+    End Sub
+End Module
+Namespace Editors
+    Public NotInheritable Class ProgramInfo
+        Public Const EnvironmentNotFound As String = "Environment not found"
+        Private Sub New()
+        End Sub
+        Public Shared Function GetProgramText(ByVal ProgramText As String, ByVal CurrentVersion As Version, ByVal IsYouTube As Boolean,
+                                              ByVal EnvirData As IDownloaderSettings, Optional ByVal AdditText As String = Nothing) As String
+            Return GetProgramBaseText(ProgramText, CurrentVersion, AdditText) & vbNewLine & GetProgramEnvirText(EnvirData, IsYouTube)
+        End Function
+        Public Shared Function GetProgramBaseText(ByVal ProgramText As String, ByVal CurrentVersion As Version, Optional ByVal AdditText As String = Nothing) As String
+            Dim pVer$ = $"{ProgramText} v{CurrentVersion} ({IIf(Environment.Is64BitProcess, "x64", "x86")})"
+            Dim WinVer$ = String.Empty
+            Try : WinVer = $"OS: {My.Computer.Info.OSFullName} ({IIf(Environment.Is64BitOperatingSystem, "x64", "x86")})" : Catch : End Try
+            Return pVer.StringDup(1).StringAppendLine(WinVer).StringAppendLine(AdditText)
+        End Function
+        Public Shared Function GetProgramEnvirText(ByVal EnvirData As IDownloaderSettings, ByVal IsYouTube As Boolean) As String
+            Try
+                Dim output$ = String.Empty
+                Using b As New BatchExecutor(True)
+                    Dim f As SFile
+                    Dim cmd$, ff$, vText$
+
+                    For i% = 0 To IIf(IsYouTube, 1, 3)
+                        cmd = "--version"
+                        Select Case i
+                            Case 0 : f = EnvirData.ENVIR_FFMPEG : ff = "ffmpeg" : cmd = "-version"
+                            Case 1 : f = EnvirData.ENVIR_YTDLP : ff = "yt-dlp"
+                            Case 2 : f = EnvirData.ENVIR_GDL : ff = "gallery-dl"
+                            Case 3 : f = EnvirData.ENVIR_CURL : ff = "cURL"
+                            Case Else : f = Nothing : ff = Nothing : cmd = Nothing
+                        End Select
+                        If Not ff.IsEmptyString Then
+                            If f.IsEmptyString Then
+                                output.StringAppendLine($"[{ff}] NOT FOUND")
+                            Else
+                                b.Reset()
+                                b.Execute($"""{f}"" {cmd}", EDP.None)
+                                If b.OutputData.Count > 3 Then vText = b.OutputData(3) Else vText = "undefined"
+                                output.StringAppendLine($"{ff} version: {vText}")
+                            End If
+                        End If
+                    Next
+
+                    If output.IsEmptyString Then output = EnvironmentNotFound
+                End Using
+                Return output
+            Catch ex As Exception
+                Return ErrorsDescriber.Execute(EDP.SendToLog + EDP.ReturnValue, ex, "[ProgramInfo.GetProgramEnvirText]", String.Empty)
+            End Try
+        End Function
+    End Class
+End Namespace

SCrawler.YouTube/My Project/AssemblyInfo.vb

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

SCrawler.YouTube/My Project/Resources.Designer.vb

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

SCrawler.YouTube/My Project/Resources.resx

@@ -139,12 +139,18 @@
   <data name="LinkPic_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Content\Pictures\LinkPic_32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="MailPic_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Content\Pictures\MailPic_16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="RulerPic_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Content\Pictures\RulerPic_32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="SettingsPic_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Content\Pictures\SettingsPic_16.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="StartPic_Green_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Content\Pictures\StartPic_Green_16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="VideoCamera_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Content\Pictures\VideoCamera_32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>

SCrawler.YouTube/Objects/YouTubeMediaContainerBase.vb

@@ -22,17 +22,8 @@ Imports UMStates = SCrawler.Plugin.UserMediaStates
 Imports CollectionModes = PersonalUtilities.Functions.XML.Objects.IXMLValuesCollection.Modes
 Namespace API.YouTube.Objects
     Public Class ContainerDateComparer : Implements IComparer(Of IYouTubeMediaContainer)
-        Private ReadOnly NullDateValue As New Date
         Public Function Compare(ByVal x As IYouTubeMediaContainer, ByVal y As IYouTubeMediaContainer) As Integer Implements IComparer(Of IYouTubeMediaContainer).Compare
-            If x.DateDownloaded = NullDateValue And y.DateDownloaded = NullDateValue Then
-                Return x.DateCreated.CompareTo(y.DateCreated) * -1
-            ElseIf x.DateDownloaded = NullDateValue Then
-                Return -1
-            ElseIf y.DateDownloaded = NullDateValue Then
-                Return 1
-            Else
-                Return x.DateDownloaded.CompareTo(y.DateDownloaded) * -1
-            End If
+            Return x.DateCreated.CompareTo(y.DateCreated) * -1
         End Function
     End Class
     Public MustInherit Class YouTubeMediaContainerBase : Implements IYouTubeMediaContainer
@@ -74,6 +65,7 @@ Namespace API.YouTube.Objects
             End Set
         End Property
         Protected _MediaState As UMStates = UMStates.Unknown
+        Protected _MediaStateOnLoad As UMStates = UMStates.Unknown
         <XMLEC> Public Property MediaState As UMStates Implements IYouTubeMediaContainer.MediaState, IUserMedia.DownloadState
             Get
                 If _MediaState = UMStates.Unknown And HasElements Then
@@ -440,7 +432,7 @@ Namespace API.YouTube.Objects
             End Get
         End Property
         Protected _Exists As Boolean = True
-        Public ReadOnly Property Exists As Boolean Implements IDownloadableMedia.Exists
+        Public Overridable ReadOnly Property Exists As Boolean Implements IDownloadableMedia.Exists
             Get
                 If Not _Exists Then
                     Return False
@@ -600,7 +592,9 @@ Namespace API.YouTube.Objects
                     Bitrate = 0
                     _MediaType = UMTypes.Undefined
                     If SelectedVideoIndex >= 0 Then
-                        cmd.StringAppend($"bv*[format_id={SelectedVideo.ID}]")
+                        'URGENT: 2023.3.4 -> 2023.7.6
+                        'cmd.StringAppend($"bv*[format_id={SelectedVideo.ID}]")
+                        cmd.StringAppend(SelectedVideo.ID)
                         _Size = SelectedVideo.Size
                         _MediaType = UMTypes.Video
                         Height = SelectedVideo.Height
@@ -611,7 +605,9 @@ Namespace API.YouTube.Objects
                     End If
                     If SelectedAudioIndex >= 0 Then
                         Dim atCodec$
-                        cmd.StringAppend($"ba*[format_id={SelectedAudio.ID}]", "+")
+                        'URGENT: 2023.3.4 -> 2023.7.6
+                        'cmd.StringAppend($"ba*[format_id={SelectedAudio.ID}]", "+")
+                        cmd.StringAppend(SelectedAudio.ID, "+")
                         If OutputAudioCodec.StringToLower = ac3 Then
                             PostProcessing_AudioAC3 = True
                             formats.StringAppend($"--audio-format {aac}", " ")
@@ -642,7 +638,10 @@ Namespace API.YouTube.Objects
                         subs = $"--write-subs --write-auto-subs --sub-format {OutputSubtitlesFormat.StringToLower} --sub-langs ""{subs}"" --convert-subs {OutputSubtitlesFormat.StringToLower}"
                     End If
                     If Not cmd.IsEmptyString Then
-                        cmd = $"yt-dlp -f ""{cmd}"""
+                        'URGENT: 2023.3.4 -> 2023.7.6
+                        'cmd = $"yt-dlp -f ""{cmd}"""
+                        cmd = $"yt-dlp -f {cmd}"
+                        If Not MyYouTubeSettings.ReplaceModificationDate Then cmd &= " --no-mtime"
                         cmd.StringAppend(formats, " ")
                         cmd.StringAppend(subs, " ")
                         cmd.StringAppend(YouTubeFunctions.GetCookiesCommand(WithCookies, YouTubeCookieNetscapeFile), " ")
@@ -864,6 +863,7 @@ Namespace API.YouTube.Objects
                                 .Information = $"Download {MediaType}"
                             End With
                         End If
+                        .MainProcessName = "yt-dlp"
                         .FileExchanger = MyCache.NewInstance(Of BatchFileExchanger)(CachePath, EDP.ReturnValue)
                         .FileExchanger.DeleteCacheOnDispose = True
                         .AddCommand("chcp 65001")
@@ -1024,6 +1024,7 @@ Namespace API.YouTube.Objects
                         Dim fc As SFile = x.Value(Name_CachePath).CSFileP
                         If fc.Exists(SFO.Path, False) AndAlso SFile.GetFiles(fc, "*.json",, EDP.ReturnValue).Count > 0 Then Parse(Nothing, fc, IsMusic)
                         XMLPopulateData(Me, x)
+                        _MediaStateOnLoad = _MediaState
                         _Exists = True
                         If If(x(Name_CheckedElements)?.Count, 0) > 0 Then ApplyElementCheckedValue(x(Name_CheckedElements))
                         If ArrayMaxResolution <> -10 Then SetMaxResolution(ArrayMaxResolution)
@@ -1038,43 +1039,63 @@ Namespace API.YouTube.Objects
         End Sub
 #End Region
 #Region "Save"
+        Protected Function NeedToSave() As Boolean
+            Return Not _MediaStateOnLoad = _MediaState And Not FileSettings.Exists
+        End Function
+        Private Function GetThumbnails() As IEnumerable(Of SFile)
+            If HasElements Then
+                Return ListAddList(Of SFile)(New List(Of SFile)({ThumbnailFile}),
+                                             Elements.SelectMany(Function(ee As YouTubeMediaContainerBase) ee.GetThumbnails))
+            Else
+                Return {ThumbnailFile}
+            End If
+        End Function
         Public Overridable Sub Save() Implements IDownloadableMedia.Save
             Try
-                Dim fSettings As SFile = FileSettings
-                If fSettings.IsEmptyString Then fSettings = MyCacheSettings.NewFile
-                Dim f As SFile = fSettings
+                If NeedToSave() Then
+                    Dim fSettings As SFile = FileSettings
+                    If fSettings.IsEmptyString Then fSettings = MyCacheSettings.NewFile
+                    Dim f As SFile = fSettings
 
-                If Not MediaState = UMStates.Downloaded Then
-                    If CachePath.Exists(SFO.Path, False) AndAlso Not CachePath.Path.Contains(MyCacheSettings.RootDirectory.Path) Then
-                        f = $"{f.PathWithSeparator}{f.Name}\"
-                        If f.Exists(SFO.Path) Then
-                            Dim files As List(Of SFile) = SFile.GetFiles(CachePath, "*.json", IO.SearchOption.AllDirectories, EDP.ReturnValue)
-                            If files.ListExists Then
-                                CachePath = f
-                                Dim fd As SFile = f
-                                fd.Extension = "json"
-                                For Each f In files
-                                    fd.Name = f.Name
-                                    SFile.Move(f, fd)
-                                Next
-                            Else
-                                If CachePath.Exists(SFO.Path, False) Then CachePath.Delete(SFO.Path, SFODelete.DeletePermanently, EDP.None)
-                                CachePath = Nothing
+                    If Not MediaState = UMStates.Downloaded Then
+                        If CachePath.Exists(SFO.Path, False) AndAlso Not CachePath.Path.Contains(MyCacheSettings.RootDirectory.Path) Then
+                            f = $"{f.PathWithSeparator}{f.Name}\"
+                            If f.Exists(SFO.Path) Then
+                                Dim files As List(Of SFile) = SFile.GetFiles(CachePath, "*.json", IO.SearchOption.AllDirectories, EDP.ReturnValue)
+                                If files.ListExists Then
+                                    CachePath = f
+                                    Dim fd As SFile = f
+                                    fd.Extension = "json"
+                                    For Each f In files
+                                        fd.Name = f.Name
+                                        SFile.Move(f, fd)
+                                    Next
+                                Else
+                                    If CachePath.Exists(SFO.Path, False) Then CachePath.Delete(SFO.Path, SFODelete.DeletePermanently, EDP.None)
+                                    CachePath = Nothing
+                                End If
                             End If
                         End If
+                    Else
+                        If CachePath.Exists(SFO.Path, False) Then CachePath.Delete(SFO.Path, SFODelete.DeletePermanently, EDP.None)
+                        CachePath = Nothing
+                        If ThumbnailFile.IsEmptyString And HasElements Then
+                            With ListAddList(Nothing, GetThumbnails, LAP.NotContainsOnly).ListWithRemove(Function(tf) tf.IsEmptyString)
+                                If .ListExists Then _ThumbnailFile = .FirstOrDefault(Function(tf) tf.Exists)
+                            End With
+                        End If
                     End If
-                Else
-                    If CachePath.Exists(SFO.Path, False) Then CachePath.Delete(SFO.Path, SFODelete.DeletePermanently, EDP.None)
-                    CachePath = Nothing
-                End If
 
-                Using x As New XmlFile With {.AllowSameNames = True}
-                    fSettings.Extension = "xml"
-                    FileSettings = fSettings
-                    x.AddRange(ToEContainer.Elements)
-                    x.Name = "MediaContainer"
-                    x.Save(fSettings)
-                End Using
+                    Using x As New XmlFile With {.AllowSameNames = True}
+                        fSettings.Extension = "xml"
+                        FileSettings = fSettings
+                        If NeedToSave() Then
+                            x.AddRange(ToEContainer.Elements)
+                            x.Name = "MediaContainer"
+                            x.Save(fSettings)
+                        End If
+                    End Using
+                End If
             Catch ex As Exception
                 ErrorsDescriber.Execute(EDP.SendToLog, ex, $"YouTubeMediaContainerBase.Save({FileSettings})")
             End Try
@@ -1238,25 +1259,27 @@ Namespace API.YouTube.Objects
                     obj.Height = AConvert(Of Integer)(ee.Value("height"), NumberProvider, -1)
                     obj.FPS = AConvert(Of Double)(ee.Value("fps"), NumberProvider, -1)
                     obj.Bitrate = AConvert(Of Double)(ee.Value("tbr"), NumberProvider, -1)
+                    obj.Protocol = ee.Value("protocol")
+                    If Not obj.Protocol.IsEmptyString Then obj.Protocol = obj.Protocol.Split("_").FirstOrDefault
                     nValue = AConvert(Of Double)(ee.Value("filesize"), NumberProvider, -1)
                     If nValue > 0 Then obj.Size = (nValue / 1024).RoundVal(2)
+                    If obj.Size <= 0 Then
+                        nValue = AConvert(Of Double)(ee.Value("filesize_approx"), NumberProvider, -1)
+                        If nValue > 0 Then obj.Size = (nValue / 1024).RoundVal(2)
+                    End If
+                    If obj.Size <= 0 And obj.Bitrate > 0 And Duration.TotalSeconds > 0 Then _
+                       obj.Size = (obj.Bitrate / 8 * Duration.TotalSeconds).RoundVal(2)
+
                     sValue = ee.Value("vcodec")
                     If validCodecValue(sValue) Then
                         obj.Type = UMTypes.Video
                         obj.Codec = sValue.Split(".").First
-                        If validCodecValue(ee.Value("acodec")) Then
-                            obj.Type = av
-                            If obj.Size <= 0 Then
-                                nValue = AConvert(Of Double)(ee.Value("filesize_approx"), NumberProvider, -1)
-                                If nValue > 0 Then obj.Size = (nValue / 1024).RoundVal(2)
-                            End If
-                        End If
+                        If validCodecValue(ee.Value("acodec")) Then obj.Type = av
                     Else
                         sValue = ee.Value("acodec")
                         If validCodecValue(sValue) Then
                             obj.Type = UMTypes.Audio
                             obj.Codec = sValue.Split(".").First
-                            obj.Bitrate = AConvert(Of Double)(ee.Value("tbr"), NumberProvider, -1)
                         Else
                             Continue For
                         End If
@@ -1286,6 +1309,7 @@ Namespace API.YouTube.Objects
                             Next
                         End If
                     End Sub
+                If MediaObjects.Count > 0 And Not MyYouTubeSettings.DefaultVideoIncludeNullSize Then MediaObjects.RemoveAll(Function(mo) mo.Size <= 0)
                 If MediaObjects.Count > 0 Then DupRemover.Invoke(UMTypes.Audio)
                 If MediaObjects.Count > 0 Then DupRemover.Invoke(UMTypes.Video)
                 If MediaObjects.Count > 0 Then

SCrawler.YouTube/SCrawler.YouTube.vbproj

@@ -121,6 +121,7 @@
     <Compile Include="Controls\PlayListParserForm.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Downloader\DownloadLocationsCollection.vb" />
     <Compile Include="Downloader\IDownloaderSettings.vb" />
     <Compile Include="Downloader\Notificator.vb" />
     <Compile Include="Downloader\MediaItem.Designer.vb">
@@ -155,6 +156,13 @@
     </Compile>
     <Compile Include="Declarations.vb" />
     <Compile Include="Downloader\STDownloaderDeclarations.vb" />
+    <Compile Include="Editors\BugReporterForm.Designer.vb">
+      <DependentUpon>BugReporterForm.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Editors\BugReporterForm.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Editors\BugReporterFormDiscordWebHook.vb" />
     <Compile Include="MainModShared.vb" />
     <Compile Include="Objects\Channel.vb" />
     <Compile Include="Objects\IYouTubeMediaContainer.vb" />
@@ -218,6 +226,9 @@
     <EmbeddedResource Include="Controls\VideoOption.resx">
       <DependentUpon>VideoOption.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Editors\BugReporterForm.resx">
+      <DependentUpon>BugReporterForm.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>PublicVbMyResourcesResXFileCodeGenerator</Generator>
       <LastGenOutput>Resources.Designer.vb</LastGenOutput>
@@ -314,5 +325,11 @@
   <ItemGroup>
     <None Include="Content\Pictures\ImagePic_32.png" />
   </ItemGroup>
+  <ItemGroup>
+    <None Include="Content\Pictures\StartPic_Green_16.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Content\Pictures\MailPic_16.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>

SCrawler.YouTubeDownloader/MainFrame.Designer.vb

@@ -20,9 +20,12 @@ Partial Public Class MainFrame : Inherits SCrawler.DownloadObjects.STDownloader.
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MainFrame))
+        Dim CONTEXT_SEP_1 As System.Windows.Forms.ToolStripSeparator
         Me.TRAY_ICON = New System.Windows.Forms.NotifyIcon(Me.components)
         Me.TRAY_CONTEXT = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.BTT_TRAY_CLOSE = New System.Windows.Forms.ToolStripMenuItem()
+        Me.CONTEXT_BTT_ADD = New PersonalUtilities.Forms.Controls.KeyClick.ToolStripMenuItemKeyClick()
+        CONTEXT_SEP_1 = New System.Windows.Forms.ToolStripSeparator()
         Me.TRAY_CONTEXT.SuspendLayout()
         Me.SuspendLayout()
         '
@@ -32,13 +35,13 @@ Partial Public Class MainFrame : Inherits SCrawler.DownloadObjects.STDownloader.
         Me.TRAY_ICON.BalloonTipTitle = "YouTube Downloader"
         Me.TRAY_ICON.ContextMenuStrip = Me.TRAY_CONTEXT
         Me.TRAY_ICON.Icon = CType(resources.GetObject("TRAY_ICON.Icon"), System.Drawing.Icon)
-        Me.TRAY_ICON.Text = "YouTube Downloader"
+        Me.TRAY_ICON.Text = "YouTube Downloader" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ctrl+Click to add download"
         '
         'TRAY_CONTEXT
         '
-        Me.TRAY_CONTEXT.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BTT_TRAY_CLOSE})
+        Me.TRAY_CONTEXT.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CONTEXT_BTT_ADD, CONTEXT_SEP_1, Me.BTT_TRAY_CLOSE})
         Me.TRAY_CONTEXT.Name = "ContextMenuStrip1"
-        Me.TRAY_CONTEXT.Size = New System.Drawing.Size(181, 48)
+        Me.TRAY_CONTEXT.Size = New System.Drawing.Size(181, 76)
         '
         'BTT_TRAY_CLOSE
         '
@@ -47,6 +50,18 @@ Partial Public Class MainFrame : Inherits SCrawler.DownloadObjects.STDownloader.
         Me.BTT_TRAY_CLOSE.Size = New System.Drawing.Size(180, 22)
         Me.BTT_TRAY_CLOSE.Text = "Close"
         '
+        'CONTEXT_BTT_ADD
+        '
+        Me.CONTEXT_BTT_ADD.Name = "CONTEXT_BTT_ADD"
+        Me.CONTEXT_BTT_ADD.Size = New System.Drawing.Size(180, 22)
+        Me.CONTEXT_BTT_ADD.Text = "Add"
+        Me.CONTEXT_BTT_ADD.Image = Global.PersonalUtilities.My.Resources.PlusPic_Green_24
+        '
+        'CONTEXT_SEP_1
+        '
+        CONTEXT_SEP_1.Name = "CONTEXT_SEP_1"
+        CONTEXT_SEP_1.Size = New System.Drawing.Size(177, 6)
+        '
         'MainFrame
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -61,4 +76,5 @@ Partial Public Class MainFrame : Inherits SCrawler.DownloadObjects.STDownloader.
     Private WithEvents TRAY_ICON As NotifyIcon
     Private WithEvents TRAY_CONTEXT As ContextMenuStrip
     Private WithEvents BTT_TRAY_CLOSE As ToolStripMenuItem
+    Private WithEvents CONTEXT_BTT_ADD As PersonalUtilities.Forms.Controls.KeyClick.ToolStripMenuItemKeyClick
 End Class

SCrawler.YouTubeDownloader/MainFrame.resx

@@ -123,6 +123,9 @@
   <metadata name="TRAY_CONTEXT.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>425, 17</value>
   </metadata>
+  <metadata name="CONTEXT_SEP_1.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="BTT_TRAY_CLOSE.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

SCrawler.YouTubeDownloader/MainFrame.vb

@@ -9,6 +9,7 @@
 Imports System.ComponentModel
 Imports SCrawler.API.YouTube
 Imports PersonalUtilities.Forms
+Imports PersonalUtilities.Forms.Controls.KeyClick
 Public Class MainFrame
     Private WithEvents MyActivator As FormActivator
     Public Sub New()
@@ -66,6 +67,12 @@ CloseResume:
     Private Sub BTT_TRAY_CLOSE_Click(sender As Object, e As EventArgs) Handles BTT_TRAY_CLOSE.Click
         If CheckForClose(False) Then _IgnoreCloseConfirm = True : _IgnoreTrayOptions = True : Close()
     End Sub
+    Private Sub MyActivator_TrayIconClick(ByVal Sender As Object, ByVal e As KeyClickEventArgs) Handles MyActivator.TrayIconClick
+        If e.MouseButton = MouseButtons.Left And e.Control Then
+            BTT_ADD_KeyClick(Nothing, New KeyClickEventArgs)
+            e.Handled = Not MyYouTubeSettings.ShowFormDownTrayClick
+        End If
+    End Sub
     Private Function CheckForClose(ByVal _Ignore As Boolean) As Boolean
         If MyYouTubeSettings.ExitConfirm And Not _Ignore Then
             Return MsgBoxE({"Do you want to close the program?", "Closing the program"}, MsgBoxStyle.YesNo) = MsgBoxResult.Yes
@@ -77,6 +84,9 @@ CloseResume:
         MyBase.BTT_SETTINGS_Click(sender, e)
         TRAY_ICON.Visible = MyYouTubeSettings.CloseToTray
     End Sub
+    Protected Overrides Sub BTT_ADD_KeyClick(ByVal Sender As ToolStripMenuItemKeyClick, ByVal e As KeyClickEventArgs) Handles CONTEXT_BTT_ADD.KeyClick
+        MyBase.BTT_ADD_KeyClick(Sender, e)
+    End Sub
     Protected Overrides Sub MyJob_Started(ByVal Sender As Object, ByVal e As EventArgs)
         TRAY_ICON.Icon = My.Resources.ArrowDownIcon_Orange_24
     End Sub

SCrawler.YouTubeDownloader/My Project/AssemblyInfo.vb

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

SCrawler/API/Base/Declarations.vb

@@ -6,9 +6,12 @@
 '
 ' This program is distributed in the hope that it will be useful,
 ' but WITHOUT ANY WARRANTY
+Imports PersonalUtilities.Forms
+Imports PersonalUtilities.Functions.RegularExpressions
 Namespace API.Base
     Friend Module Declarations
         Friend Const UserLabelName As String = "User"
+        Friend Const SearchRequestLabelName As String = "Search request"
         Friend ReadOnly LNC As New ListAddParams(LAP.NotContainsOnly)
         Friend ReadOnly UnixDate32Provider As New ADateTime(ADateTime.Formats.Unix32)
         Friend ReadOnly UnixDate64Provider As New ADateTime(ADateTime.Formats.Unix64)
@@ -16,5 +19,58 @@ Namespace API.Base
         Friend ReadOnly TitleHtmlConverter As Func(Of String, String) =
                Function(Input) SymbolsConverter.HTML.Decode(SymbolsConverter.Convert(Input, EDP.ReturnValue), EDP.ReturnValue).
                                StringRemoveWinForbiddenSymbols().StringTrim()
+        Friend ReadOnly Regex_VideosThumb_OG_IMAGE As RParams = RParams.DMS("meta.property=.og.image..content=""([^""]+)""", 1, EDP.ReturnValue)
+        Friend Class ConcurrentDownloadsProvider : Inherits FieldsCheckerProviderBase
+            Public Overrides Sub Reset()
+                ErrorMessage = String.Empty
+                MyBase.Reset()
+            End Sub
+            Public Overrides 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
+                Dim v% = AConvert(Of Integer)(Value, -1)
+                Dim defV% = Settings.MaxUsersJobsCount
+                If v.ValueBetween(1, defV) Then
+                    Return Value
+                Else
+                    HasError = True
+                    If ACheck(Of Integer)(Value) Then
+                        ErrorMessage = $"The number of concurrent downloads must be greater than 0 and equal to or less than {defV} (global limit)."
+                    Else
+                        TypeError = True
+                    End If
+                    Return Nothing
+                End If
+            End Function
+        End Class
+        Friend Class TokenRefreshIntervalProvider : Inherits FieldsCheckerProviderBase
+            Public Overrides Sub Reset()
+                ErrorMessage = String.Empty
+                MyBase.Reset()
+            End Sub
+            Public Overrides 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
+                Dim v% = AConvert(Of Integer)(Value, -1)
+                If v > 0 Then
+                    Return Value
+                ElseIf Not ACheck(Of Integer)(Value) Then
+                    TypeError = True
+                Else
+                    ErrorMessage = $"The value of [{Name}] field must be greater than or equal to 1"
+                End If
+                HasError = True
+                Return Nothing
+            End Function
+        End Class
+        Friend ReadOnly Property CacheDeletionError(ByVal RootPath As SFile) As ErrorsDescriber
+            Get
+                Return New ErrorsDescriber(EDP.None) With {.Action = Sub(ee, eex, msg, obj) Settings.Cache.AddPath(RootPath)}
+            End Get
+        End Property
+        Friend Function ValidateChangeSearchOptions(ByVal User As String, ByVal NewQuery As String, ByVal CurrentQuery As String) As Boolean
+            Return MsgBoxE({$"Are you sure you want to change the query for user '{User}'?{vbCr}" &
+                            "It is highly recommended to add a new user with this query instead of changing current one." & vbCr &
+                            $"Current query: [{CurrentQuery}]{vbCr}New query: [{NewQuery}]",
+                            "Changing a query"}, vbExclamation,,, {"Process", "Cancel"}) = 0
+        End Function
     End Module
 End Namespace

SCrawler/API/Base/DeclaredNames.vb

@@ -0,0 +1,31 @@
+' 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.Base
+    Friend NotInheritable Class DeclaredNames
+        Friend Const Header_Authorization As String = "authorization"
+        Friend Const Header_CSRFToken As String = "x-csrf-token"
+
+        Friend Const ConcurrentDownloadsCaption As String = "Concurrent downloads"
+        Friend Const ConcurrentDownloadsToolTip As String = "The number of concurrent downloads."
+        Friend Const SavedPostsUserNameCaption As String = "Saved posts user"
+        Friend Const SavedPostsUserNameToolTip As String = "Personal profile username"
+        Friend Const GifsSpecialFolderCaption As String = "GIFs special folder"
+        Friend Const GifsSpecialFolderToolTip As String = "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"
+        Friend Const GifsPrefixCaption As String = "GIF prefix"
+        Friend Const GifsPrefixToolTip As String = "This prefix will be added to the beginning of the filename"
+        Friend Const GifsDownloadCaption As String = "Download GIFs"
+        Friend Const UseMD5ComparisonCaption As String = "Use MD5 comparison"
+        Friend Const UseMD5ComparisonToolTip As String = "Each image will be checked for existence using MD5"
+        Private Sub New()
+        End Sub
+    End Class
+End Namespace

SCrawler/API/Base/GDLBatch.vb

@@ -66,21 +66,29 @@ Namespace API.Base.GDL
             Return urls
         End Function
     End Module
-    Friend Class GDLBatch : Inherits BatchExecutor
+    Friend Class GDLBatch : Inherits TokenBatch
         Friend Property TempPostsList As List(Of String)
         Friend Const UrlLibStart As String = "[urllib3.connectionpool][debug]"
         Friend Const UrlTextStart As String = UrlLibStart & " https"
-        Friend Sub New()
-            MyBase.New(True)
+        Friend Sub New(ByVal _Token As Threading.CancellationToken)
+            MyBase.New(_Token)
+            MainProcessName = "gallery-dl"
             ChangeDirectory(Settings.GalleryDLFile.File)
         End Sub
+        Public Overrides Sub Create()
+            If TempPostsList Is Nothing Then TempPostsList = New List(Of String)
+            MyBase.Create()
+        End Sub
         Protected Overrides Async Sub OutputDataReceiver(ByVal Sender As Object, ByVal e As DataReceivedEventArgs)
-            MyBase.OutputDataReceiver(Sender, e)
-            Await Validate(e.Data)
+            If Not ProcessKilled Then
+                MyBase.OutputDataReceiver(Sender, e)
+                Await Validate(e.Data)
+            End If
         End Sub
         Protected Overridable Async Function Validate(ByVal Value As String) As Task
-            If Await Task.Run(Of Boolean)(Function() Not Value.IsEmptyString AndAlso
-                                                     TempPostsList.Exists(Function(v) Value.Contains(v))) Then Kill(EDP.None)
+            If Not ProcessKilled AndAlso Await Task.Run(Of Boolean)(Function() Token.IsCancellationRequested OrElse
+                                                                               (Not Value.IsEmptyString AndAlso
+                                                                               TempPostsList.Exists(Function(v) Value.Contains(v)))) Then Kill()
         End Function
     End Class
 End Namespace

SCrawler/API/Base/IUserData.vb

@@ -0,0 +1,88 @@
+' 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 System.Threading
+Imports SCrawler.Plugin.Hosts
+Namespace API.Base
+    Friend Interface IUserData : Inherits IComparable(Of UserDataBase), IComparable, IEquatable(Of UserDataBase), IIndexable, IDisposable
+        Event UserUpdated(ByVal User As IUserData)
+        Enum EraseMode As Integer
+            None = 0
+            Data = 1
+            History = 2
+        End Enum
+        ReadOnly Property Site As String
+        ReadOnly Property Name As String
+        Property ID As String
+        Property Options As String
+        Property FriendlyName As String
+        Property Description As String
+        Property Favorite As Boolean
+        Property Temporary As Boolean
+        Property BackColor As Color?
+        Property ForeColor As Color?
+        Sub OpenSite(Optional ByVal e As ErrorsDescriber = Nothing)
+        Sub DownloadData(ByVal Token As CancellationToken)
+        Sub DownloadSingleObject(ByVal Data As YouTube.Objects.IYouTubeMediaContainer, ByVal Token As CancellationToken)
+        Property ParseUserMediaOnly As Boolean
+        ReadOnly Property IsSubscription As Boolean
+#Region "Images"
+        Function GetPicture() As Image
+        Sub SetPicture(ByVal f As SFile)
+#End Region
+#Region "Collection support"
+        ReadOnly Property IsCollection As Boolean
+        ReadOnly Property CollectionName As String
+        ReadOnly Property CollectionPath As SFile
+        ReadOnly Property IncludedInCollection As Boolean
+        ReadOnly Property UserModel As UsageModel
+        ReadOnly Property CollectionModel As UsageModel
+        ReadOnly Property IsVirtual As Boolean
+        ReadOnly Property Labels As List(Of String)
+#End Region
+        Property Exists As Boolean
+        Property Suspended As Boolean
+        Property ReadyForDownload As Boolean
+        Property HOST As SettingsHost
+        Property [File] As SFile
+        Property FileExists As Boolean
+        Property DownloadedPictures(ByVal Total As Boolean) As Integer
+        Property DownloadedVideos(ByVal Total As Boolean) As Integer
+        ReadOnly Property DownloadedTotal(Optional ByVal Total As Boolean = True) As Integer
+        ReadOnly Property DownloadedInformation As String
+        Property HasError As Boolean
+        ReadOnly Property FitToAddParams As Boolean
+        ReadOnly Property Key As String
+        Property DownloadImages As Boolean
+        Property DownloadVideos As Boolean
+        Property DownloadMissingOnly As Boolean
+        Property ScriptUse As Boolean
+        Property ScriptData As String
+        Function GetLVI(ByVal Destination As ListView) As ListViewItem
+        Function GetLVIGroup(ByVal Destination As ListView) As ListViewGroup
+        Sub LoadUserInformation()
+        Sub UpdateUserInformation()
+        ''' <summary>
+        ''' 0 - Nothing removed<br/>
+        ''' 1 - User removed<br/>
+        ''' 2 - Collection removed<br/>
+        ''' 3 - Collection split
+        ''' </summary>
+        Function Delete(Optional ByVal Multiple As Boolean = False, Optional ByVal CollectionValue As Integer = -1) As Integer
+        Function EraseData(ByVal Mode As EraseMode) As Boolean
+        Function MoveFiles(ByVal CollectionName As String, ByVal SpecialCollectionPath As SFile) As Boolean
+        Function CopyFiles(ByVal DestinationPath As SFile, Optional ByVal e As ErrorsDescriber = Nothing) As Boolean
+        Sub OpenFolder()
+        Property DownloadTopCount As Integer?
+        Property DownloadDateFrom As Date?
+        Property DownloadDateTo As Date?
+        Sub SetEnvironment(ByRef h As SettingsHost, ByVal u As UserInfo, ByVal _LoadUserInformation As Boolean,
+                           Optional ByVal AttachUserInfo As Boolean = True)
+        ReadOnly Property Disposed As Boolean
+    End Interface
+End Namespace

SCrawler/API/Base/M3U8Base.vb

@@ -33,40 +33,56 @@ Namespace API.Base
             End If
         End Function
         Friend Shared Function Download(ByVal URLs As List(Of String), ByVal DestinationFile As SFile, Optional ByVal Responser As Responser = Nothing,
-                                        Optional ByVal Token As CancellationToken = Nothing, Optional ByVal Progress As MyProgress = Nothing) As SFile
+                                        Optional ByVal Token As CancellationToken = Nothing, Optional ByVal Progress As MyProgress = Nothing,
+                                        Optional ByVal UsePreProgress As Boolean = True) As SFile
             Dim Cache As CacheKeeper = Nothing
-            Try
-                If URLs.ListExists Then
-                    Dim ConcatFile As SFile = DestinationFile
-                    If ConcatFile.Name.IsEmptyString Then ConcatFile.Name = "PlayListFile"
-                    ConcatFile.Extension = "mp4"
-                    Cache = New CacheKeeper($"{DestinationFile.PathWithSeparator}_{TempCacheFolderName}\")
-                    Dim cache2 As CacheKeeper = Cache.NewInstance
-                    If cache2.RootDirectory.Exists(SFO.Path) Then
-                        Dim progressExists As Boolean = Not Progress Is Nothing
-                        If progressExists Then Progress.Maximum += URLs.Count
-                        Dim p As SFileNumbers = SFileNumbers.Default(ConcatFile.Name)
-                        ConcatFile = SFile.IndexReindex(ConcatFile,,, p, EDP.ReturnValue)
-                        Dim i%
-                        Dim dFile As SFile = cache2.RootDirectory
-                        dFile.Extension = "ts"
-                        Using w As New DownloadObjects.WebClient2(Responser)
-                            For i = 0 To URLs.Count - 1
-                                If progressExists Then Progress.Perform()
-                                Token.ThrowIfCancellationRequested()
-                                dFile.Name = $"ConPart_{i}"
-                                w.DownloadFile(URLs(i), dFile)
-                                cache2.AddFile(dFile, True)
-                            Next
-                        End Using
-                        DestinationFile = FFMPEG.ConcatenateFiles(cache2, Settings.FfmpegFile.File, ConcatFile, Settings.CMDEncoding, p, EDP.ThrowException)
-                        Return DestinationFile
+            Using tmpPr As New PreProgress(Progress)
+                Try
+                    If URLs.ListExists Then
+                        Dim ConcatFile As SFile = DestinationFile
+                        If ConcatFile.Name.IsEmptyString Then ConcatFile.Name = "PlayListFile"
+                        ConcatFile.Extension = "mp4"
+                        Cache = New CacheKeeper($"{DestinationFile.PathWithSeparator}_{TempCacheFolderName}\")
+                        Cache.CacheDeleteError = CacheDeletionError(Cache)
+                        Dim cache2 As CacheKeeper = Cache.NewInstance
+                        If cache2.RootDirectory.Exists(SFO.Path) Then
+                            Dim progressExists As Boolean = Not Progress Is Nothing
+                            If progressExists Then
+                                If UsePreProgress Then
+                                    tmpPr.ChangeMax(URLs.Count)
+                                Else
+                                    Progress.Maximum += URLs.Count
+                                End If
+                            End If
+                            Dim p As SFileNumbers = SFileNumbers.Default(ConcatFile.Name)
+                            ConcatFile = SFile.IndexReindex(ConcatFile,,, p, EDP.ReturnValue)
+                            Dim i%
+                            Dim dFile As SFile = cache2.RootDirectory
+                            dFile.Extension = "ts"
+                            Using w As New DownloadObjects.WebClient2(Responser)
+                                For i = 0 To URLs.Count - 1
+                                    If progressExists Then
+                                        If UsePreProgress Then
+                                            tmpPr.Perform()
+                                        Else
+                                            Progress.Perform()
+                                        End If
+                                    End If
+                                    Token.ThrowIfCancellationRequested()
+                                    dFile.Name = $"ConPart_{i}"
+                                    w.DownloadFile(URLs(i), dFile)
+                                    cache2.AddFile(dFile, True)
+                                Next
+                            End Using
+                            DestinationFile = FFMPEG.ConcatenateFiles(cache2, Settings.FfmpegFile.File, ConcatFile, Settings.CMDEncoding, p, EDP.ThrowException)
+                            Return DestinationFile
+                        End If
                     End If
-                End If
-                Return Nothing
-            Finally
-                Cache.DisposeIfReady
-            End Try
+                    Return Nothing
+                Finally
+                    Cache.DisposeIfReady
+                End Try
+            End Using
         End Function
     End Class
 End Namespace

SCrawler/API/Base/SiteSettingsBase.vb

@@ -15,6 +15,13 @@ Namespace API.Base
         Friend ReadOnly Property Site As String Implements ISiteSettings.Site
         Friend Overridable ReadOnly Property Icon As Icon Implements ISiteSettings.Icon
         Friend Overridable ReadOnly Property Image As Image Implements ISiteSettings.Image
+        Protected _AllowUserAgentUpdate As Boolean = True
+        Protected _SubscriptionsAllowed As Boolean = False
+        Friend ReadOnly Property SubscriptionsAllowed As Boolean Implements ISiteSettings.SubscriptionsAllowed
+            Get
+                Return _SubscriptionsAllowed
+            End Get
+        End Property
         Private Property Logger As ILogProvider = LogConnector Implements ISiteSettings.Logger
         Friend Overridable ReadOnly Property Responser As Responser
         Friend ReadOnly Property CookiesNetscapeFile As SFile
@@ -62,7 +69,7 @@ Namespace API.Base
         Friend Overridable Sub BeginInit() Implements ISiteSettings.BeginInit
         End Sub
         Friend Overridable Sub EndInit() Implements ISiteSettings.EndInit
-            If Not DefaultUserAgent.IsEmptyString And Not Responser Is Nothing Then Responser.UserAgent = DefaultUserAgent
+            If _AllowUserAgentUpdate And Not DefaultUserAgent.IsEmptyString And Not Responser Is Nothing Then Responser.UserAgent = DefaultUserAgent
             If CheckNetscapeCookiesOnEndInit Then Update_SaveCookiesNetscape(, True)
         End Sub
 #End Region
@@ -82,6 +89,11 @@ Namespace API.Base
         Friend Overridable Sub Update() Implements ISiteSettings.Update
             If _SiteEditorFormOpened Then
                 If UseNetscapeCookies Then Update_SaveCookiesNetscape()
+                If Not Responser Is Nothing Then
+                    With Responser.Headers
+                        If .Count > 0 Then .ListDisposeRemove(Function(h) h.Value.IsEmptyString)
+                    End With
+                End If
                 DomainsApply()
             End If
             If Not Responser Is Nothing Then Responser.SaveSettings()
@@ -105,12 +117,30 @@ Namespace API.Base
 #End Region
 #End Region
 #Region "Before and After Download"
+        ''' <summary>
+        ''' PRE<br/>
+        ''' DownloadStarted<br/>
+        ''' <br/>
+        ''' BEFORE<br/>
+        ''' Available<br/>
+        ''' <br/>
+        ''' IN<br/>
+        ''' ReadyToDownload<br/>
+        ''' BeforeStartDownload<br/>
+        ''' AfterDownload<br/>
+        ''' <br/>
+        ''' AFTER<br/>
+        ''' DownloadDone
+        ''' </summary>
         Friend Overridable Sub DownloadStarted(ByVal What As Download) Implements ISiteSettings.DownloadStarted
         End Sub
+        ''' <inheritdoc cref="DownloadStarted(Download)"/>
         Friend Overridable Sub BeforeStartDownload(ByVal User As Object, ByVal What As Download) Implements ISiteSettings.BeforeStartDownload
         End Sub
+        ''' <inheritdoc cref="DownloadStarted(Download)"/>
         Friend Overridable Sub AfterDownload(ByVal User As Object, ByVal What As Download) Implements ISiteSettings.AfterDownload
         End Sub
+        ''' <inheritdoc cref="DownloadStarted(Download)"/>
         Friend Overridable Sub DownloadDone(ByVal What As Download) Implements ISiteSettings.DownloadDone
         End Sub
 #End Region
@@ -158,13 +188,13 @@ Namespace API.Base
         Friend Overridable Function BaseAuthExists() As Boolean
             Return True
         End Function
-        ''' <summary>JOB: leave or remove</summary>
         ''' <returns>Return BaseAuthExists()</returns>
+        ''' <inheritdoc cref="DownloadStarted(Download)"/>
         Friend Overridable Function Available(ByVal What As Download, ByVal Silent As Boolean) As Boolean Implements ISiteSettings.Available
             Return BaseAuthExists()
         End Function
-        ''' <summary>'DownloadData': before processing</summary>
         ''' <returns>True</returns>
+        ''' <inheritdoc cref="DownloadStarted(Download)"/>
         Friend Overridable Function ReadyToDownload(ByVal What As Download) As Boolean Implements ISiteSettings.ReadyToDownload
             Return True
         End Function

SCrawler/API/Base/Structures.vb

@@ -12,6 +12,13 @@ Imports PersonalUtilities.Functions.XML.Base
 Imports PersonalUtilities.Functions.RegularExpressions
 Namespace API.Base
     Friend Module Structures
+        Friend Enum SiteModes As Integer
+            User = 0
+            Search = 1
+            Tags = 2
+            Categories = 3
+            Pornstars = 4
+        End Enum
         Friend Structure UserMedia : Implements IUserMedia, IEquatable(Of UserMedia), IEContainerProvider
 #Region "XML Names"
             Friend Const Name_MediaNode As String = "MediaData"
@@ -182,6 +189,7 @@ Namespace API.Base
                     End With
                 End If
 
+                'TODO: UserMedia.SpecialFolder
                 SpecialFolder = e.Attribute(Name_SpecialFolder).Value
                 If Not SpecialFolder.IsEmptyString Then upath &= $"{SpecialFolder}\"
                 If vp.HasValue AndAlso vp.Value Then upath &= $"Video\"

SCrawler/API/Base/TokenBatch.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
+Imports System.Threading
+Imports PersonalUtilities.Tools
+Namespace API.Base
+    Friend Class TokenBatch : Inherits BatchExecutor
+        Protected ReadOnly Token As CancellationToken
+        Friend Sub New(ByVal _Token As CancellationToken)
+            MyBase.New(True)
+            Token = _Token
+        End Sub
+        Protected Overrides Async Sub OutputDataReceiver(ByVal Sender As Object, ByVal e As DataReceivedEventArgs)
+            MyBase.OutputDataReceiver(Sender, e)
+            Await Task.Run(Sub() If Token.IsCancellationRequested Then Kill())
+        End Sub
+        Protected Overrides Async Sub ErrorDataReceiver(ByVal Sender As Object, ByVal e As DataReceivedEventArgs)
+            MyBase.ErrorDataReceiver(Sender, e)
+            Await Task.Run(Sub() If Token.IsCancellationRequested Then Kill())
+        End Sub
+    End Class
+End Namespace

SCrawler/API/Base/UserDataBase.vb

@@ -13,6 +13,7 @@ Imports System.ComponentModel
 Imports System.Runtime.CompilerServices
 Imports SCrawler.Plugin
 Imports SCrawler.Plugin.Hosts
+Imports PersonalUtilities.Functions.Messaging
 Imports PersonalUtilities.Functions.XML
 Imports PersonalUtilities.Functions.XML.Objects
 Imports PersonalUtilities.Functions.RegularExpressions
@@ -51,6 +52,28 @@ Namespace API.Base
         Friend Sub RemoveUpdateHandlers()
             UserUpdatedEventHandlers.Clear()
         End Sub
+        Private ReadOnly UserDownloadStateChangedEventHandlers As List(Of UserDownloadStateChangedEventHandler)
+        Friend Custom Event UserDownloadStateChanged As UserDownloadStateChangedEventHandler
+            AddHandler(ByVal h As UserDownloadStateChangedEventHandler)
+                If Not UserDownloadStateChangedEventHandlers.Contains(h) Then UserDownloadStateChangedEventHandlers.Add(h)
+            End AddHandler
+            RemoveHandler(ByVal h As UserDownloadStateChangedEventHandler)
+                UserDownloadStateChangedEventHandlers.Remove(h)
+            End RemoveHandler
+            RaiseEvent(ByVal User As IUserData, ByVal IsDownloading As Boolean)
+                Try
+                    If UserDownloadStateChangedEventHandlers.Count > 0 Then
+                        For i% = 0 To UserDownloadStateChangedEventHandlers.Count - 1
+                            Try : UserDownloadStateChangedEventHandlers(i).Invoke(User, IsDownloading) : Catch : End Try
+                        Next
+                    End If
+                Catch
+                End Try
+            End RaiseEvent
+        End Event
+        Private Sub OnUserDownloadStateChanged(ByVal IsDownloading As Boolean)
+            RaiseEvent UserDownloadStateChanged(Me, IsDownloading)
+        End Sub
 #End Region
 #Region "Collection buttons"
         Private _CollectionButtonsExists As Boolean = False
@@ -58,6 +81,7 @@ Namespace API.Base
         Friend WithEvents BTT_CONTEXT_DOWN As ToolStripKeyMenuItem
         Friend WithEvents BTT_CONTEXT_EDIT As ToolStripMenuItem
         Friend WithEvents BTT_CONTEXT_DELETE As ToolStripMenuItem
+        Friend WithEvents BTT_CONTEXT_ERASE As ToolStripMenuItem
         Friend WithEvents BTT_CONTEXT_OPEN_PATH As ToolStripMenuItem
         Friend WithEvents BTT_CONTEXT_OPEN_SITE As ToolStripMenuItem
         Friend Sub CreateButtons()
@@ -75,6 +99,7 @@ Namespace API.Base
             BTT_CONTEXT_DOWN = New ToolStripKeyMenuItem(tn, i) With {.Name = tnn("DOWN"), .Tag = Me}
             BTT_CONTEXT_EDIT = New ToolStripMenuItem(tn, i) With {.Name = tnn("EDIT"), .Tag = Me}
             BTT_CONTEXT_DELETE = New ToolStripMenuItem(tn, i) With {.Name = tnn("DELETE"), .Tag = Me}
+            BTT_CONTEXT_ERASE = New ToolStripMenuItem(tn, i) With {.Name = tnn("ERASE"), .Tag = Me}
             BTT_CONTEXT_OPEN_PATH = New ToolStripMenuItem(tn, i) With {.Name = tnn("PATH"), .Tag = Me}
             BTT_CONTEXT_OPEN_SITE = New ToolStripMenuItem(tn, i) With {.Name = tnn("SITE"), .Tag = Me}
             UpdateButtonsColor()
@@ -91,7 +116,8 @@ Namespace API.Base
                 cb = MyColor.EditBack
                 cf = MyColor.EditFore
             End If
-            For Each b As ToolStripMenuItem In {BTT_CONTEXT_DOWN, BTT_CONTEXT_EDIT, BTT_CONTEXT_DELETE, BTT_CONTEXT_OPEN_PATH, BTT_CONTEXT_OPEN_SITE}
+            For Each b As ToolStripMenuItem In {BTT_CONTEXT_DOWN, BTT_CONTEXT_EDIT, BTT_CONTEXT_DELETE, BTT_CONTEXT_ERASE,
+                                                BTT_CONTEXT_OPEN_PATH, BTT_CONTEXT_OPEN_SITE}
                 If Not b Is Nothing Then b.BackColor = cb : b.ForeColor = cf
             Next
             If _UserInformationLoaded Then _CollectionButtonsColorsSet = True
@@ -111,12 +137,16 @@ Namespace API.Base
         Private Const Name_UserExists As String = "UserExists"
         Private Const Name_UserSuspended As String = "UserSuspended"
         Protected Const Name_FriendlyName As String = "FriendlyName"
-        Private Const Name_UserSiteName As String = "UserSiteName"
+        Protected Const Name_UserSiteName As String = "UserSiteName"
         Protected Const Name_UserID As String = "UserID"
-        Private Const Name_Description As String = "Description"
+        Protected Const Name_Options As String = "Options"
+        Protected Const Name_Description As String = "Description"
         Private Const Name_ParseUserMediaOnly As String = "ParseUserMediaOnly"
+        Private Const Name_IsSubscription As String = UserInfo.Name_IsSubscription
         Private Const Name_Temporary As String = "Temporary"
         Private Const Name_Favorite As String = "Favorite"
+        Private Const Name_BackColor As String = "BackColor"
+        Private Const Name_ForeColor As String = "ForeColor"
         Private Const Name_CreatedByChannel As String = "CreatedByChannel"
 
         Private Const Name_SeparateVideoFolder As String = "SeparateVideoFolder"
@@ -126,6 +156,7 @@ Namespace API.Base
         Private Const Name_ReadyForDownload As String = "ReadyForDownload"
         Private Const Name_DownloadImages As String = "DownloadImages"
         Private Const Name_DownloadVideos As String = "DownloadVideos"
+        Private Const Name_IconBannerDownloaded As String = "IconBannerDownloaded"
 
         Private Const Name_VideoCount As String = "VideoCount"
         Private Const Name_PicturesCount As String = "PicturesCount"
@@ -141,14 +172,25 @@ Namespace API.Base
 #Region "Declarations"
 #Region "Host, Site, Progress"
         Friend Property HOST As SettingsHost Implements IUserData.HOST
-        Friend ReadOnly Property Site As String Implements IContentProvider.Site
+        Friend ReadOnly Property Site As String Implements IUserData.Site
             Get
                 Return HOST.Name
             End Get
         End Property
+        Private _Progress As MyProgress
         Friend Property Progress As MyProgress
+            Get
+                Return _Progress
+            End Get
+            Set(ByVal p As MyProgress)
+                _Progress = p
+                If Not ProgressPre Is Nothing Then ProgressPre.Reset() : ProgressPre.Dispose()
+                ProgressPre = New PreProgress(_Progress)
+            End Set
+        End Property
+        Protected Property ProgressPre As PreProgress = Nothing
 #End Region
-#Region "User name, ID, exist, suspend"
+#Region "User name, ID, exist, suspend, options"
         Friend User As UserInfo
         Friend Property IsSavedPosts As Boolean Implements IPluginContentProvider.IsSavedPosts
         Private _UserExists As Boolean = True
@@ -178,14 +220,14 @@ Namespace API.Base
             Set(ByVal NewName As String)
             End Set
         End Property
-        Friend Overridable ReadOnly Property Name As String Implements IContentProvider.Name
+        Friend Overridable ReadOnly Property Name As String Implements IUserData.Name
             Get
                 Return User.Name
             End Get
         End Property
-        Friend Overridable Property ID As String = String.Empty Implements IContentProvider.ID, IPluginContentProvider.ID
+        Friend Overridable Property ID As String = String.Empty Implements IUserData.ID, IPluginContentProvider.ID
         Protected _FriendlyName As String = String.Empty
-        Friend Overridable Property FriendlyName As String Implements IContentProvider.FriendlyName
+        Friend Overridable Property FriendlyName As String Implements IUserData.FriendlyName
             Get
                 If Settings.UserSiteNameAsFriendly Then
                     Return _FriendlyName.IfNullOrEmpty(UserSiteName)
@@ -239,9 +281,15 @@ Namespace API.Base
                 Return UserModel = UsageModel.Virtual
             End Get
         End Property
+        Friend Property Options As String = String.Empty Implements IUserData.Options, IPluginContentProvider.Options
+        Friend Overridable ReadOnly Property FeedIsUser As Boolean
+            Get
+                Return True
+            End Get
+        End Property
 #End Region
 #Region "Description"
-        Friend Property UserDescription As String = String.Empty Implements IContentProvider.Description, IPluginContentProvider.UserDescription
+        Friend Property UserDescription As String = String.Empty Implements IUserData.Description, IPluginContentProvider.UserDescription
         Protected _DescriptionEveryTime As Boolean = False
         Protected _DescriptionChecked As Boolean = False
         Protected Function UserDescriptionNeedToUpdate() As Boolean
@@ -258,9 +306,9 @@ Namespace API.Base
             End If
         End Sub
 #End Region
-#Region "Favorite, Temporary"
+#Region "Favorite, Temporary, Colors"
         Protected _Favorite As Boolean = False
-        Friend Overridable Property Favorite As Boolean Implements IContentProvider.Favorite
+        Friend Overridable Property Favorite As Boolean Implements IUserData.Favorite
             Get
                 Return _Favorite
             End Get
@@ -270,7 +318,7 @@ Namespace API.Base
             End Set
         End Property
         Protected _Temporary As Boolean = False
-        Friend Overridable Property Temporary As Boolean Implements IContentProvider.Temporary
+        Friend Overridable Property Temporary As Boolean Implements IUserData.Temporary
             Get
                 Return _Temporary
             End Get
@@ -279,6 +327,24 @@ Namespace API.Base
                 If _Temporary Then _Favorite = False
             End Set
         End Property
+        Private _BackColor As Color? = Nothing
+        Friend Overridable Property BackColor As Color? Implements IUserData.BackColor
+            Get
+                Return _BackColor
+            End Get
+            Set(ByVal b As Color?)
+                _BackColor = b
+            End Set
+        End Property
+        Private _ForeColor As Color? = Nothing
+        Friend Overridable Property ForeColor As Color? Implements IUserData.ForeColor
+            Get
+                Return _ForeColor
+            End Get
+            Set(ByVal f As Color?)
+                _ForeColor = f
+            End Set
+        End Property
 #End Region
 #Region "Channel"
         Friend Property CreatedByChannel As Boolean = False
@@ -393,36 +459,122 @@ BlockNullPicture:
                 Return _IsCollection
             End Get
         End Property
-        Friend Overridable Property CollectionName As String Implements IUserData.CollectionName
+        Friend Overridable ReadOnly Property CollectionName As String Implements IUserData.CollectionName
             Get
                 Return User.CollectionName
             End Get
-            Set(ByVal NewCollection As String)
-                ChangeCollectionName(NewCollection, True)
-            End Set
+        End Property
+        Friend Overridable ReadOnly Property CollectionPath As SFile Implements IUserData.CollectionPath
+            Get
+                Return User.GetCollectionRootPath
+            End Get
         End Property
         Friend ReadOnly Property IncludedInCollection As Boolean Implements IUserData.IncludedInCollection
             Get
                 Return User.IncludedInCollection
             End Get
         End Property
-        Friend Overridable Sub ChangeCollectionName(ByVal NewName As String, ByVal UpdateSettings As Boolean)
-            Dim u As UserInfo = User
-            u.CollectionName = NewName
-            u.UpdateUserFile()
-            User = u
-            If UpdateSettings Then Settings.UpdateUsersList(User)
-        End Sub
         Friend Overridable ReadOnly Property Labels As List(Of String) Implements IUserData.Labels
+        Protected ReadOnly Property LabelsString As String
+            Get
+                Return Labels.ListToString("|", EDP.ReturnValue)
+            End Get
+        End Property
+        Friend Overridable ReadOnly Property SpecialLabels As IEnumerable(Of String)
+            Get
+                Return New String() {}
+            End Get
+        End Property
+        ''' <summary>
+        ''' 0 add<br/>
+        ''' 1 replace<br/>
+        ''' 2 remove
+        ''' </summary>
+        ''' <returns>true = w/special</returns>
+        Friend Shared Function UpdateLabelsKeepSpecial(ByVal Mode As Byte) As Boolean
+            Dim m As New MMessage("", "Update labels",, vbQuestion + vbYesNo) With {.DefaultButton = 0, .CancelButton = 0}
+            Select Case Mode
+                Case 0 : m.Text = "Do you want to exclude site-specific labels from adding?"
+                Case 1, 2 : m.Text = "Do you want to keep site-specific labels?"
+                Case Else : Return False
+            End Select
+            Return m.Show = vbYes
+        End Function
+        ''' <inheritdoc cref="UpdateLabelsKeepSpecial(Byte)"/>
+        Friend Shared Sub UpdateLabels(ByVal User As UserDataBase, ByVal NewLabels As IEnumerable(Of String), ByVal Mode As Byte, ByVal KeepSpecial As Boolean)
+            Try
+                If User.IsCollection Then
+                    With DirectCast(User, UserDataBind)
+                        If .Count > 0 Then .Collections.ForEach(Sub(u) UpdateLabels(u, NewLabels, Mode, KeepSpecial))
+                    End With
+                Else
+                    Dim nl As List(Of String)
+                    If NewLabels.ListExists Then nl = NewLabels.ToList Else nl = New List(Of String)
+
+                    Dim lex As List(Of String) = User.SpecialLabels.ToList
+                    If lex.ListExists Then
+                        If User.Labels.Count = 0 Or Not KeepSpecial Then
+                            lex.Clear()
+                        Else
+                            lex.ListDisposeRemove(Function(l) Not User.Labels.Contains(l))
+                        End If
+                    End If
+
+                    Select Case Mode
+                        Case 0 'add
+                            If KeepSpecial Then nl.ListAddList(lex, LNC)
+                            User.Labels.ListAddList(nl, LNC)
+                        Case 1 'replace
+                            If KeepSpecial Then
+                                nl.ListAddList(lex, LNC)
+                            Else
+                                nl.ListWithRemove(lex)
+                            End If
+                            User.Labels.Clear()
+                            User.Labels.ListAddList(nl, LNC)
+                        Case 2 'remove
+                            If KeepSpecial Then nl.ListWithRemove(lex)
+                            User.Labels.ListWithRemove(nl)
+                    End Select
+
+                    If User.Labels.Count > 0 Then User.Labels.Sort()
+                End If
+            Catch ex As Exception
+                ErrorsDescriber.Execute(EDP.SendToLog, ex, "[UserDataBase.UpdateLabels]")
+            End Try
+        End Sub
 #End Region
 #Region "Downloading"
         Protected _DataLoaded As Boolean = False
         Protected _DataParsed As Boolean = False
         Friend Property ParseUserMediaOnly As Boolean = False Implements IUserData.ParseUserMediaOnly, IPluginContentProvider.ParseUserMediaOnly
+        Friend Overridable ReadOnly Property IsSubscription As Boolean Implements IUserData.IsSubscription
+            Get
+                Return User.IsSubscription
+            End Get
+        End Property
+        Private Property IPluginContentProvider_IsSubscription As Boolean Implements IPluginContentProvider.IsSubscription
+            Get
+                Return IsSubscription
+            End Get
+            Set : End Set
+        End Property
         Friend Overridable Property ReadyForDownload As Boolean = True Implements IUserData.ReadyForDownload
         Friend Property DownloadImages As Boolean = True Implements IUserData.DownloadImages
         Friend Property DownloadVideos As Boolean = True Implements IUserData.DownloadVideos
         Friend Property DownloadMissingOnly As Boolean = False Implements IUserData.DownloadMissingOnly
+        Private _IconBannerDownloaded As Boolean = False
+        Friend WriteOnly Property IconBannerDownloaded As Boolean
+            Set(ByVal IsDownloaded As Boolean)
+                If Not _IconBannerDownloaded = IsDownloaded Then _ForceSaveUserInfo = True
+                _IconBannerDownloaded = IsDownloaded
+            End Set
+        End Property
+        Friend ReadOnly Property DownloadIconBanner As Boolean
+            Get
+                Return Not _IconBannerDownloaded Or Settings.UpdateUserIconBannerEveryTime
+            End Get
+        End Property
 #End Region
 #Region "Content"
         Protected ReadOnly _ContentList As List(Of UserMedia)
@@ -566,6 +718,8 @@ BlockNullPicture:
 #Region "Plugins Support"
         Protected Event ProgressChanged As IPluginContentProvider.ProgressChangedEventHandler Implements IPluginContentProvider.ProgressChanged
         Protected Event ProgressMaximumChanged As IPluginContentProvider.ProgressMaximumChangedEventHandler Implements IPluginContentProvider.ProgressMaximumChanged
+        Protected Event ProgressPreChanged As IPluginContentProvider.ProgressChangedEventHandler Implements IPluginContentProvider.ProgressPreChanged
+        Protected Event ProgressPreMaximumChanged As IPluginContentProvider.ProgressMaximumChangedEventHandler Implements IPluginContentProvider.ProgressPreMaximumChanged
         Private Property IPluginContentProvider_Settings As ISiteSettings Implements IPluginContentProvider.Settings
             Get
                 Return HOST.Source
@@ -610,7 +764,7 @@ BlockNullPicture:
         Friend ReadOnly Property LVIKey As String Implements IUserData.Key
             Get
                 If Not _IsCollection Then
-                    Return $"{Site.ToString.ToUpper}_{Name}"
+                    Return $"{IIf(IsSubscription, "SSSS", String.Empty)}{Site.ToString.ToUpper}_{Name}"
                 Else
                     Return $"CCCC_{CollectionName}"
                 End If
@@ -626,6 +780,8 @@ BlockNullPicture:
         Friend Overridable ReadOnly Property FitToAddParams As Boolean Implements IUserData.FitToAddParams
             Get
                 With Settings
+                    If IsSubscription And Not .MainFrameUsersShowSubscriptions Then Return False
+                    If Not IsSubscription And Not .MainFrameUsersShowDefaults Then Return False
                     If LastUpdated.HasValue And Not .ViewDateMode.Value = ShowingDates.Off Then
                         Dim f As Date = If(.ViewDateFrom.HasValue, .ViewDateFrom.Value.Date, Date.MinValue.Date)
                         Dim t As Date = If(.ViewDateTo.HasValue, .ViewDateTo.Value.Date, Date.MaxValue.Date)
@@ -679,6 +835,7 @@ BlockNullPicture:
             _TempPostsList = New List(Of String)
             Labels = New List(Of String)
             UserUpdatedEventHandlers = New List(Of IUserData.UserUpdatedEventHandler)
+            UserDownloadStateChangedEventHandlers = New List(Of UserDownloadStateChangedEventHandler)
             If InvokeImageHandler Then MainFrameObj.ImageHandler(Me)
         End Sub
         Friend Sub SetEnvironment(ByRef h As SettingsHost, ByVal u As UserInfo, ByVal _LoadUserInformation As Boolean,
@@ -727,24 +884,37 @@ BlockNullPicture:
                         UserExists = x.Value(Name_UserExists).FromXML(Of Boolean)(True)
                         UserSuspended = x.Value(Name_UserSuspended).FromXML(Of Boolean)(False)
                         ID = x.Value(Name_UserID)
+                        Options = x.Value(Name_Options)
                         _FriendlyName = x.Value(Name_FriendlyName)
                         UserSiteName = x.Value(Name_UserSiteName)
                         UserDescription = x.Value(Name_Description)
                         ParseUserMediaOnly = x.Value(Name_ParseUserMediaOnly).FromXML(Of Boolean)(False)
                         Temporary = x.Value(Name_Temporary).FromXML(Of Boolean)(False)
                         Favorite = x.Value(Name_Favorite).FromXML(Of Boolean)(False)
+
+                        If Not x.Value(Name_BackColor).IsEmptyString Then
+                            BackColor = AConvert(Of Color)(x.Value(Name_BackColor), Nothing, EDP.ReturnValue)
+                        Else
+                            BackColor = Nothing
+                        End If
+                        If Not x.Value(Name_ForeColor).IsEmptyString Then
+                            ForeColor = AConvert(Of Color)(x.Value(Name_ForeColor), Nothing, EDP.ReturnValue)
+                        Else
+                            ForeColor = Nothing
+                        End If
+
                         CreatedByChannel = x.Value(Name_CreatedByChannel).FromXML(Of Boolean)(False)
                         SeparateVideoFolder = AConvert(Of Boolean)(x.Value(Name_SeparateVideoFolder), AModes.Var, Nothing)
                         ReadyForDownload = x.Value(Name_ReadyForDownload).FromXML(Of Boolean)(True)
                         DownloadImages = x.Value(Name_DownloadImages).FromXML(Of Boolean)(True)
                         DownloadVideos = x.Value(Name_DownloadVideos).FromXML(Of Boolean)(True)
+                        _IconBannerDownloaded = x.Value(Name_IconBannerDownloaded).FromXML(Of Boolean)(False)
                         DownloadedVideos(True) = x.Value(Name_VideoCount).FromXML(Of Integer)(0)
                         DownloadedPictures(True) = x.Value(Name_PicturesCount).FromXML(Of Integer)(0)
                         LastUpdated = AConvert(Of Date)(x.Value(Name_LastUpdated), ADateTime.Formats.BaseDateTime, Nothing)
                         ScriptUse = x.Value(Name_ScriptUse).FromXML(Of Boolean)(False)
                         ScriptData = x.Value(Name_ScriptData)
                         DataMerging = x.Value(Name_Merged).FromXML(Of Boolean)(False)
-                        ChangeCollectionName(x.Value(Name_CollectionName), False)
                         Labels.ListAddList(x.Value(Name_LabelsName).StringToList(Of String, List(Of String))("|", EDP.ReturnValue), LAP.NotContainsOnly, LAP.ClearBeforeAdd)
                         LoadUserInformation_OptionalFields(x, True)
                     End Using
@@ -771,12 +941,18 @@ BlockNullPicture:
                     x.Add(Name_UserExists, UserExists.BoolToInteger)
                     x.Add(Name_UserSuspended, UserSuspended.BoolToInteger)
                     x.Add(Name_UserID, ID)
+                    x.Add(Name_Options, Options)
                     x.Add(Name_FriendlyName, _FriendlyName)
                     x.Add(Name_UserSiteName, UserSiteName)
                     x.Add(Name_Description, UserDescription)
                     x.Add(Name_ParseUserMediaOnly, ParseUserMediaOnly.BoolToInteger)
+                    x.Add(Name_IsSubscription, IsSubscription.BoolToInteger)
                     x.Add(Name_Temporary, Temporary.BoolToInteger)
                     x.Add(Name_Favorite, Favorite.BoolToInteger)
+
+                    x.Add(Name_BackColor, CStr(AConvert(Of String)(BackColor, String.Empty, EDP.ReturnValue)))
+                    x.Add(Name_ForeColor, CStr(AConvert(Of String)(ForeColor, String.Empty, EDP.ReturnValue)))
+
                     x.Add(Name_CreatedByChannel, CreatedByChannel.BoolToInteger)
                     If SeparateVideoFolder.HasValue Then
                         x.Add(Name_SeparateVideoFolder, SeparateVideoFolder.Value.BoolToInteger)
@@ -786,13 +962,14 @@ BlockNullPicture:
                     x.Add(Name_ReadyForDownload, ReadyForDownload.BoolToInteger)
                     x.Add(Name_DownloadImages, DownloadImages.BoolToInteger)
                     x.Add(Name_DownloadVideos, DownloadVideos.BoolToInteger)
+                    x.Add(Name_IconBannerDownloaded, _IconBannerDownloaded.BoolToInteger)
                     x.Add(Name_VideoCount, DownloadedVideos(True))
                     x.Add(Name_PicturesCount, DownloadedPictures(True))
                     x.Add(Name_LastUpdated, AConvert(Of String)(LastUpdated, ADateTime.Formats.BaseDateTime, String.Empty))
                     x.Add(Name_ScriptUse, ScriptUse.BoolToInteger)
                     x.Add(Name_ScriptData, ScriptData)
                     x.Add(Name_CollectionName, CollectionName)
-                    x.Add(Name_LabelsName, Labels.ListToString("|", EDP.ReturnValue))
+                    x.Add(Name_LabelsName, LabelsString)
                     x.Add(Name_Merged, DataMerging.BoolToInteger)
 
                     LoadUserInformation_OptionalFields(x, False)
@@ -839,7 +1016,7 @@ BlockNullPicture:
 #End Region
 #End Region
 #Region "Open site, folder"
-        Friend Overridable Sub OpenSite(Optional ByVal e As ErrorsDescriber = Nothing) Implements IContentProvider.OpenSite
+        Friend Overridable Sub OpenSite(Optional ByVal e As ErrorsDescriber = Nothing) Implements IUserData.OpenSite
             Try
                 Dim URL$ = HOST.Source.GetUserUrl(Me)
                 If Not URL.IsEmptyString Then Process.Start(URL)
@@ -899,6 +1076,13 @@ BlockNullPicture:
         End Function
 #End Region
 #Region "Download functions and options"
+        Private __DOWNLOAD_IN_PROGRESS As Boolean = False
+        Friend ReadOnly Property DownloadInProgress As Boolean
+            Get
+                Return __DOWNLOAD_IN_PROGRESS
+            End Get
+        End Property
+        Friend PersonalToken As CancellationToken
         Protected Responser As Responser
         Protected UseResponserClient As Boolean = False
         Protected UseClientTokens As Boolean = False
@@ -907,10 +1091,13 @@ BlockNullPicture:
         Private _DownloadInProgress As Boolean = False
         Private _EnvirUserExists As Boolean
         Private _EnvirUserSuspended As Boolean
+        Private _EnvirCreatedByChannel As Boolean
         Private _EnvirChanged As Boolean = False
         Private _PictureExists As Boolean
         Private _EnvirInvokeUserUpdated As Boolean = False
         Protected Sub EnvirDownloadSet()
+            PersonalToken = Nothing
+            ProgressPre.Reset()
             UpdateDataFiles()
             _DownloadInProgress = True
             _DescriptionChecked = False
@@ -919,13 +1106,14 @@ BlockNullPicture:
             _ForceSaveUserInfo = False
             _EnvirUserExists = UserExists
             _EnvirUserSuspended = UserSuspended
+            _EnvirCreatedByChannel = CreatedByChannel
             _EnvirChanged = False
+            _EnvirInvokeUserUpdated = False
             UserExists = True
             UserSuspended = False
             DownloadedPictures(False) = 0
             DownloadedVideos(False) = 0
             _PictureExists = Settings.ViewModeIsPicture AndAlso Not GetPicture(Of Image)(False) Is Nothing
-            _EnvirInvokeUserUpdated = False
         End Sub
         Private Sub EnvirChanged(ByVal NewValue As Object, <CallerMemberName> Optional ByVal Caller As String = Nothing)
             If _DownloadInProgress Then
@@ -936,7 +1124,9 @@ BlockNullPicture:
                 End Select
             End If
         End Sub
-        Friend Overridable Sub DownloadData(ByVal Token As CancellationToken) Implements IContentProvider.DownloadData
+        Friend Overridable Sub DownloadData(ByVal Token As CancellationToken) Implements IUserData.DownloadData
+            __DOWNLOAD_IN_PROGRESS = True
+            OnUserDownloadStateChanged(True)
             Dim Canceled As Boolean = False
             _ExternalCompatibilityToken = Token
             Try
@@ -952,20 +1142,22 @@ BlockNullPicture:
                 _TempMediaList.Clear()
                 _TempPostsList.Clear()
                 LatestData.Clear()
-                Dim __SaveData As Boolean = Not CreatedByChannel Or Not Settings.FromChannelDownloadTopUse
+                Dim __isChannelsSupport As Boolean = CreatedByChannel And Settings.FromChannelDownloadTopUse
 
                 LoadContentInformation()
 
                 If MyFilePosts.Exists Then _TempPostsList.ListAddList(File.ReadAllLines(MyFilePosts))
                 If _ContentList.Count > 0 Then _TempPostsList.ListAddList(_ContentList.Select(Function(u) u.Post.ID), LNC)
 
-                If Not DownloadMissingOnly Then
+                If Not DownloadMissingOnly Or IsSubscription Then
                     ThrowAny(Token)
                     DownloadDataF(Token)
+                    ProgressPre.Done()
                     ThrowAny(Token)
-                    If Settings.ReparseMissingInTheRoutine Then ReparseMissing(Token) : ThrowAny(Token)
+                    If Settings.ReparseMissingInTheRoutine Then ReparseMissing(Token) : ProgressPre.Done() : ThrowAny(Token)
                 Else
                     ReparseMissing(Token)
+                    ProgressPre.Done()
                 End If
 
                 If _TempMediaList.Count > 0 Then
@@ -976,22 +1168,40 @@ BlockNullPicture:
                 End If
 
                 ReparseVideo(Token)
+                ProgressPre.Done()
                 ThrowAny(Token)
 
-                If UseMD5Comparison Then ValidateMD5(Token) : ThrowAny(Token)
+                If UseMD5Comparison And Not IsSubscription Then ValidateMD5(Token) : ProgressPre.Done() : ThrowAny(Token)
+
+                If _TempPostsList.Count > 0 And Not DownloadMissingOnly And Not __isChannelsSupport Then
+                    If _TempPostsList.Count > 1000 Then _TempPostsList.ListAddList(_TempPostsList.ListTake(-2, 1000, EDP.ReturnValue).ListReverse, LAP.ClearBeforeAdd)
+                    TextSaver.SaveTextToFile(_TempPostsList.ListToString(Environment.NewLine), MyFilePosts, True,, EDP.None)
+                End If
 
-                If _TempPostsList.Count > 0 And Not DownloadMissingOnly And __SaveData Then _
-                   TextSaver.SaveTextToFile(_TempPostsList.ListToString(Environment.NewLine), MyFilePosts, True,, EDP.None)
                 _ContentNew.ListAddList(_TempMediaList, LAP.ClearBeforeAdd)
-                DownloadContent(Token)
-                ThrowIfDisposed()
+                If IsSubscription Then
+                    _ContentNew.ListAddList(_ContentNew.ListForEachCopy(Function(ByVal tmpC As UserMedia, ByVal ii As Integer) As UserMedia
+                                                                            tmpC.State = UStates.Downloaded
+                                                                            If tmpC.Type = UTypes.Picture Or tmpC.Type = UTypes.GIF Then
+                                                                                DownloadedPictures(False) += 1
+                                                                            Else
+                                                                                DownloadedVideos(False) += 1
+                                                                            End If
+                                                                            Return tmpC
+                                                                        End Function))
+                Else
+                    DownloadContent(Token)
+                    ThrowIfDisposed()
+                End If
 
-                If IncludeInTheFeed Then LatestData.ListAddList(_ContentNew.Where(_downContent), LNC)
+                CreatedByChannel = False
+
+                If IncludeInTheFeed Or IsSubscription Then LatestData.ListAddList(_ContentNew.Where(_downContent), LNC)
                 Dim mcb& = If(ContentMissingExists, _ContentList.LongCount(Function(c) MissingFinder(c)), 0)
                 _ContentList.ListAddList(_ContentNew.Where(Function(c) _downContent(c) Or MissingFinder(c)), LNC)
                 Dim mca& = If(ContentMissingExists, _ContentList.LongCount(Function(c) MissingFinder(c)), 0)
                 If DownloadedTotal(False) > 0 Or _EnvirChanged Or Not mcb = mca Or _ForceSaveUserData Then
-                    If __SaveData Then
+                    If Not __isChannelsSupport Then
                         LastUpdated = Now
                         RunScript()
                         DownloadedPictures(True) = SFile.GetFiles(MyFile.CutPath, "*.jpg|*.jpeg|*.png|*.gif|*.webm",, EDP.ReturnValue).Count
@@ -1004,23 +1214,32 @@ BlockNullPicture:
                         _ContentList.Clear()
                         CreatedByChannel = False
                     End If
-                    If Not UserExists Then ReadyForDownload = False
                     UpdateUserInformation()
                     If _CollectionButtonsExists AndAlso _EnvirChanged Then UpdateButtonsColor()
-                ElseIf _ForceSaveUserInfo Then
+                ElseIf _ForceSaveUserInfo Or __isChannelsSupport Or Not _EnvirCreatedByChannel = CreatedByChannel Then
                     UpdateUserInformation()
                 End If
                 ThrowIfDisposed()
                 If Not _PictureExists Or _EnvirInvokeUserUpdated Then OnUserUpdated()
-            Catch oex As OperationCanceledException When Token.IsCancellationRequested
+            Catch oex As OperationCanceledException When Token.IsCancellationRequested Or PersonalToken.IsCancellationRequested
                 MyMainLOG = $"{ToStringForLog()}: downloading canceled"
                 Canceled = True
+            Catch exit_ex As ExitException
+                If Not exit_ex.Silent Then
+                    If exit_ex.SimpleLogLine Then
+                        MyMainLOG = $"{ToStringForLog()}: downloading canceled (exit) ({exit_ex.Message})"
+                    Else
+                        ErrorsDescriber.Execute(EDP.SendToLog, exit_ex, $"{ToStringForLog()}: downloading canceled (exit)")
+                    End If
+                End If
+                Canceled = True
             Catch dex As ObjectDisposedException When Disposed
                 Canceled = True
             Catch ex As Exception
                 LogError(ex, "downloading data error")
                 HasError = True
             Finally
+                If Not UserExists Then MyMainLOG = $"User '{ToStringForLog()}' not found on the site"
                 If Not Responser Is Nothing Then Responser.Dispose() : Responser = Nothing
                 If Not Canceled Then _DataParsed = True
                 _ContentNew.Clear()
@@ -1031,6 +1250,9 @@ BlockNullPicture:
                 DownloadMissingOnly = False
                 _ForceSaveUserData = False
                 _ForceSaveUserInfo = False
+                ProgressPre.Done()
+                __DOWNLOAD_IN_PROGRESS = False
+                OnUserDownloadStateChanged(False)
             End Try
         End Sub
         Protected Sub UpdateDataFiles()
@@ -1053,6 +1275,13 @@ BlockNullPicture:
             End If
         End Sub
         Protected MustOverride Sub DownloadDataF(ByVal Token As CancellationToken)
+        Protected Function CreateCache() As CacheKeeper
+            Dim Cache As New CacheKeeper($"{DownloadContentDefault_GetRootDir()}\_tCache\")
+            Cache.CacheDeleteError = CacheDeletionError(Cache)
+            If Cache.RootDirectory.Exists(SFO.Path, False) Then Cache.RootDirectory.Delete(SFO.Path, SFODelete.DeletePermanently, EDP.ReturnValue)
+            Cache.Validate()
+            Return Cache
+        End Function
 #Region "DownloadSingleObject"
         Protected IsSingleObjectDownload As Boolean = False
         Friend Overridable Sub DownloadSingleObject(ByVal Data As YouTube.Objects.IYouTubeMediaContainer, ByVal Token As CancellationToken) Implements IUserData.DownloadSingleObject
@@ -1061,11 +1290,10 @@ BlockNullPicture:
                 Progress = Data.Progress
                 If Not Responser Is Nothing Then Responser.Dispose()
                 Responser = New Responser
-                If Not HOST Is Nothing AndAlso Not HOST.Responser Is Nothing Then Responser.Copy(HOST.Responser)
+                If Not HOST Is Nothing AndAlso HOST.Available(ISiteSettings.Download.SingleObject, True) AndAlso
+                   Not HOST.Responser Is Nothing Then Responser.Copy(HOST.Responser)
                 SeparateVideoFolder = False
                 IsSingleObjectDownload = True
-                UseInternalDownloadFileFunction_UseProgress = True
-                UseInternalM3U8Function_UseProgress = True
                 DownloadSingleObject_GetPosts(Data, Token)
                 DownloadSingleObject_CreateMedia(Data, Token)
                 DownloadSingleObject_Download(Data, Token)
@@ -1091,7 +1319,12 @@ BlockNullPicture:
                         DirectCast(Data, IDownloadableMedia).ThumbnailFile = _ContentNew(0).File
                     ElseIf Settings.STDownloader_TakeSnapshot And Settings.FfmpegFile.Exists And Not Settings.STDownloader_RemoveDownloadedAutomatically Then
                         Dim f As SFile = _ContentNew(0).File
-                        Dim ff As SFile = f
+                        Dim ff As SFile
+                        If Settings.STDownloader_SnapshotsKeepWithFiles Then
+                            ff = f
+                        Else
+                            ff = Settings.CacheSnapshots(Settings.STDownloader_SnapShotsCachePermamnent).NewFile
+                        End If
                         ff.Name &= "_thumb"
                         ff.Extension = "jpg"
                         f = Web.FFMPEG.TakeSnapshot(f, ff, Settings.FfmpegFile, TimeSpan.FromSeconds(1),,, EDP.LogMessageValue)
@@ -1157,15 +1390,17 @@ BlockNullPicture:
                                     ImgFormat = GetImageFormat(__data.File)
                                 End If
                                 If ImgFormat Is Nothing Then ImgFormat = Imaging.ImageFormat.Jpeg
-                                If IsUrl Then
-                                    hash = ByteArrayToString(GetMD5(SFile.GetBytesFromNet(__data.URL_BASE.IfNullOrEmpty(__data.URL), ErrMD5), ImgFormat, ErrMD5))
+                                If IsUrl And Not __isGif Then
+                                    hash = ByteArrayToString(GetMD5(SFile.GetBytesFromNet(__data.URL.IfNullOrEmpty(__data.URL_BASE), ErrMD5), ImgFormat, ErrMD5))
+                                ElseIf IsUrl And __isGif Then
+                                    hash = ByteArrayToString(GetMD5FromBytes(SFile.GetBytesFromNet(__data.URL.IfNullOrEmpty(__data.URL_BASE), ErrMD5), ErrMD5))
                                 Else
                                     hash = ByteArrayToString(GetMD5(SFile.GetBytes(__data.File, ErrMD5), ImgFormat, ErrMD5))
                                 End If
                                 If hash.IsEmptyString And Not __isGif Then
                                     If ImgFormat Is Imaging.ImageFormat.Jpeg Then ImgFormat = Imaging.ImageFormat.Png Else ImgFormat = Imaging.ImageFormat.Jpeg
                                     If IsUrl Then
-                                        hash = ByteArrayToString(GetMD5(SFile.GetBytesFromNet(__data.URL_BASE.IfNullOrEmpty(__data.URL), ErrMD5), ImgFormat, ErrMD5))
+                                        hash = ByteArrayToString(GetMD5(SFile.GetBytesFromNet(__data.URL.IfNullOrEmpty(__data.URL_BASE), ErrMD5), ImgFormat, ErrMD5))
                                     Else
                                         hash = ByteArrayToString(GetMD5(SFile.GetBytes(__data.File, ErrMD5), ImgFormat, ErrMD5))
                                     End If
@@ -1186,7 +1421,9 @@ BlockNullPicture:
                                 _ForceSaveUserInfo = True
                                 If existingFiles.Count > 0 Then
                                     Dim h$
+                                    ProgressPre.ChangeMax(existingFiles.Count)
                                     For i = existingFiles.Count - 1 To 0 Step -1
+                                        ProgressPre.Perform()
                                         h = __getMD5(New UserMedia With {.File = existingFiles(i)}, False)
                                         If Not h.IsEmptyString Then
                                             If hashList.ContainsKey(h) Then
@@ -1200,8 +1437,10 @@ BlockNullPicture:
                                     Next
                                 End If
                             End If
+                            ProgressPre.ChangeMax(_ContentList.Count)
                             For i = 0 To _ContentList.Count - 1
                                 data = _ContentList(i)
+                                ProgressPre.Perform()
                                 If (data.Type = UTypes.GIF Or data.Type = UTypes.Picture) Then
                                     If data.MD5.IsEmptyString Then
                                         ThrowAny(Token)
@@ -1215,8 +1454,10 @@ BlockNullPicture:
                                 End If
                             Next
                             If existingFiles.Count > 0 Then
+                                ProgressPre.ChangeMax(existingFiles.Count)
                                 For i = 0 To existingFiles.Count - 1
                                     f = existingFiles(i)
+                                    ProgressPre.Perform()
                                     data = New UserMedia(f.File) With {
                                         .State = UStates.Downloaded,
                                         .Type = IIf(f.Extension = "gif", UTypes.GIF, UTypes.Picture),
@@ -1238,7 +1479,9 @@ BlockNullPicture:
                         End With
                     End If
 
+                    ProgressPre.ChangeMax(_TempMediaList.Count)
                     For i = _TempMediaList.Count - 1 To 0 Step -1
+                        ProgressPre.Perform()
                         If limit > 0 And itemsCount >= limit Then
                             _TempMediaList.RemoveAt(i)
                         Else
@@ -1262,6 +1505,8 @@ BlockNullPicture:
             Catch iex As ArgumentOutOfRangeException When Disposed
             Catch ex As Exception
                 ProcessException(ex, Token, "ValidateMD5",, VALIDATE_MD5_ERROR)
+            Finally
+                ProgressPre.Done()
             End Try
         End Sub
 #End Region
@@ -1310,6 +1555,16 @@ BlockNullPicture:
                         Dim f As SFile
                         Dim v As UserMedia
                         Dim fileNumProvider As SFileNumbers = SFileNumbers.Default
+                        Dim __deleteFile As Action(Of SFile, String) = Sub(ByVal FileToDelete As SFile, ByVal FileUrl As String)
+                                                                           Try
+                                                                               If FileToDelete.Exists Then FileToDelete.Delete(,, EDP.ThrowException)
+                                                                           Catch file_io_ex As IOException
+                                                                               MyMainLOG = "File download aborted. You should download the following file again." & vbCr &
+                                                                                           $"File: {FileToDelete}{vbCr}URL: {FileUrl}"
+                                                                           Catch file_del_ex As Exception
+                                                                               ErrorsDescriber.Execute(EDP.SendToLog, file_del_ex)
+                                                                           End Try
+                                                                       End Sub
 
                         Using w As New OptionalWebClient(Me)
                             If vsf Then CSFileP($"{MyDir}\Video\").Exists(SFO.Path)
@@ -1368,6 +1623,7 @@ BlockNullPicture:
                                         If __isVideo Then fileNumProvider.FileName = f.Name : f = SFile.IndexReindex(f,,, fileNumProvider)
 
                                         __interrupt = False
+                                        If IsSingleObjectDownload Then f.Exists(SFO.Path, True)
                                         If v.Type = UTypes.m3u8 And UseInternalM3U8Function Then
                                             f = DownloadM3U8(v.URL, v, f, Token)
                                             If f.IsEmptyString Then Throw New Exception("M3U8 download failed")
@@ -1398,7 +1654,9 @@ BlockNullPicture:
                                         DownloadContentDefault_PostProcessing(v, f, Token)
                                         dCount += 1
                                     Catch woex As OperationCanceledException When Token.IsCancellationRequested
-                                        If f.Exists Then f.Delete()
+                                        'TODELETE: UserDataBase.DownloadContentDefault: remove file when 'OperationCanceledException'
+                                        'If f.Exists Then f.Delete(,, EDP.SendToLog)
+                                        __deleteFile.Invoke(f, v.URL_BASE)
                                         v.State = UStates.Missing
                                         v.Attempts += 1
                                         _ContentNew(i) = v
@@ -1434,13 +1692,11 @@ BlockNullPicture:
             End Try
         End Sub
         Protected UseInternalM3U8Function As Boolean = False
-        Protected UseInternalM3U8Function_UseProgress As Boolean = False
         Protected Overridable Function DownloadM3U8(ByVal URL As String, ByVal Media As UserMedia, ByVal DestinationFile As SFile,
                                                     ByVal Token As CancellationToken) As SFile
             Return Nothing
         End Function
         Protected UseInternalDownloadFileFunction As Boolean = False
-        Protected UseInternalDownloadFileFunction_UseProgress As Boolean = False
         Protected Overridable Function DownloadFile(ByVal URL As String, ByVal Media As UserMedia, ByVal DestinationFile As SFile,
                                                     ByVal Token As CancellationToken) As SFile
             Return Nothing
@@ -1464,8 +1720,10 @@ BlockNullPicture:
         Protected Function ProcessException(ByVal ex As Exception, ByVal Token As CancellationToken, ByVal Message As String,
                                             Optional ByVal RDE As Boolean = True, Optional ByVal EObj As Object = Nothing,
                                             Optional ByVal ThrowEx As Boolean = True) As Integer
-            If Not ((TypeOf ex Is OperationCanceledException And Token.IsCancellationRequested) Or
-                    (TypeOf ex Is ObjectDisposedException And Disposed)) Then
+            If TypeOf ex Is ExitException Then
+                Throw ex
+            ElseIf Not ((TypeOf ex Is OperationCanceledException And (Token.IsCancellationRequested Or PersonalToken.IsCancellationRequested)) Or
+                        (TypeOf ex Is ObjectDisposedException And Disposed)) Then
                 If RDE Then
                     Dim v% = DownloadingException(ex, Message, True, EObj)
                     If v = 0 Then LogError(ex, Message) : HasError = True
@@ -1524,7 +1782,67 @@ BlockNullPicture:
         End Sub
 #End Region
 #End Region
-#Region "Delete, Move, Merge, Copy"
+#Region "Erase, Delete, Move, Merge, Copy"
+        Friend Shared Function GetEraseMode(ByVal Users As IEnumerable(Of IUserData)) As IUserData.EraseMode
+            Dim mode As IUserData.EraseMode = IUserData.EraseMode.None
+            If Users.ListExists Then
+                Dim m As New MMessage("The data of the following users will be erased:" & vbCr & vbCr, "Erase data",
+                                      {New MsgBoxButton("History and Data", "All files (images and videos) will be deleted; download history will be deleted."),
+                                       New MsgBoxButton("Data", "All files (images and videos) will be deleted; download history will not be affected."),
+                                       New MsgBoxButton("History", "All files (images and videos) will not be affected; download history will be deleted."),
+                                       New MsgBoxButton("Cancel")
+                                      }, MsgBoxStyle.Exclamation) With {.ButtonsPerRow = 4}
+                Dim collectionsCount% = Users.Count(Function(u) u.IsCollection)
+                m.Text &= Users.ListToStringE(vbNewLine, MainFrameObj.GetUserListProvider(collectionsCount > 0))
+                m.Text &= vbCr.StringDup(2)
+                If collectionsCount > 0 Then
+                    If collectionsCount = 1 And Users.Count = 1 Then
+                        m.Text &= $"THIS USER IS A COLLECTION OF {DirectCast(Users(0), UserDataBind).Count} USERS. THE DATA WILL BE ERASED FOR ALL OF THEM."
+                    Else
+                        m.Text &= "ONE OR MORE USERS IN THE LIST IS A COLLECTION. THE DATA WILL BE ERASED FOR EACH USER OF EACH COLLECTION."
+                    End If
+                    m.Text &= vbCr.StringDup(2)
+                End If
+                m.Text &= "Are you sure you want to erase the data?"
+                Select Case m.Show
+                    Case 0 : mode = IUserData.EraseMode.Data + IUserData.EraseMode.History
+                    Case 1 : mode = IUserData.EraseMode.Data
+                    Case 2 : mode = IUserData.EraseMode.History
+                End Select
+            End If
+            Return mode
+        End Function
+        Friend Overridable Function EraseData(ByVal Mode As IUserData.EraseMode) As Boolean Implements IUserData.EraseData
+            Try
+                Dim result As Boolean = False
+                If Not Mode = IUserData.EraseMode.None And Not DataMerging Then
+                    Dim m() As IUserData.EraseMode = Mode.EnumExtract(Of IUserData.EraseMode)
+                    If m.ListExists Then
+                        Dim e As New ErrorsDescriber(EDP.ReturnValue)
+                        If m.Contains(IUserData.EraseMode.History) Then
+                            If MyFilePosts.Delete(SFO.File, SFODelete.DeleteToRecycleBin, e) Then result = True
+                            If MyFileData.Delete(SFO.File, SFODelete.DeleteToRecycleBin, e) Then result = True
+                            If result Then
+                                _TempPostsList.Clear()
+                                _TempMediaList.Clear()
+                                _ContentNew.Clear()
+                                _ContentList.Clear()
+                            End If
+                        End If
+                        If m.Contains(IUserData.EraseMode.Data) Then
+                            Dim files As List(Of SFile) = SFile.GetFiles(DownloadContentDefault_GetRootDir.CSFileP,, SearchOption.AllDirectories, e)
+                            If files.ListExists Then files.RemoveAll(Function(f) Not f.Extension.IsEmptyString AndAlso (f.Extension = "txt" Or f.Extension = "xml"))
+                            If files.ListExists Then files.ForEach(Sub(f) f.Delete(SFO.File, Settings.DeleteMode, e))
+                            LatestData.Clear()
+                            result = True
+                        End If
+                    End If
+                End If
+                Return result
+            Catch ex As Exception
+                Return ErrorsDescriber.Execute(EDP.SendToLog + EDP.ReturnValue, ex, $"EraseData({CInt(Mode)}): {ToStringForLog()}", False)
+            End Try
+        End Function
         Friend Overridable Function Delete(Optional ByVal Multiple As Boolean = False, Optional ByVal CollectionValue As Integer = -1) As Integer Implements IUserData.Delete
             Dim f As SFile = SFile.GetPath(MyFile.CutPath.Path)
             If f.Exists(SFO.Path, False) AndAlso (User.Merged OrElse f.Delete(SFO.Path, Settings.DeleteMode)) Then
@@ -1546,7 +1864,8 @@ BlockNullPicture:
             Try
                 Dim f As SFile
                 Dim v As Boolean = IsVirtual
-                If IncludedInCollection Then
+
+                If IncludedInCollection And __CollectionName.IsEmptyString And __SpecialCollectionPath.IsEmptyString Then
                     Settings.Users.Add(Me)
                     Removed = False
                     User.CollectionName = String.Empty
@@ -1579,7 +1898,8 @@ BlockNullPicture:
                         f.Delete(SFO.Path, Settings.DeleteMode, EDP.ThrowException)
                     End If
                     f.CutPath.Exists(SFO.Path)
-                    Directory.Move(UserBefore.File.CutPath(, EDP.ThrowException).Path, f.Path)
+                    SFile.Move(UserBefore.File.CutPath(, EDP.ThrowException), f, SFO.Path,,
+                               SFODelete.EmptyOnly + SFODelete.DeleteToRecycleBin + SFODelete.OnCancelThrowException, EDP.ThrowException)
                     If Not ScriptData.IsEmptyString AndAlso ScriptData.Contains(UserBefore.File.PathNoSeparator) Then _
                        ScriptData = ScriptData.Replace(UserBefore.File.PathNoSeparator, MyFile.PathNoSeparator)
                 End If
@@ -1717,10 +2037,11 @@ BlockNullPicture:
         ''' <exception cref="ObjectDisposedException"></exception>
         Friend Overridable Overloads Sub ThrowAny(ByVal Token As CancellationToken)
             Token.ThrowIfCancellationRequested()
+            PersonalToken.ThrowIfCancellationRequested()
             ThrowIfDisposed()
         End Sub
 #End Region
-        Protected Function ToStringForLog() As String
+        Friend Function ToStringForLog() As String
             Return $"{IIf(IncludedInCollection, $"[{CollectionName}] - ", String.Empty)}[{Site}] - {Name}"
         End Function
         Public Overrides Function ToString() As String
@@ -1752,6 +2073,21 @@ BlockNullPicture:
         End Sub
         Private Sub BTT_CONTEXT_DELETE_Click(sender As Object, e As EventArgs) Handles BTT_CONTEXT_DELETE.Click
         End Sub
+        Private Sub BTT_CONTEXT_ERASE_Click(sender As Object, e As EventArgs) Handles BTT_CONTEXT_ERASE.Click
+            Const msgTitle$ = "Erase data"
+            Try
+                Dim m As IUserData.EraseMode = GetEraseMode({Me})
+                If Not m = IUserData.EraseMode.None Then
+                    If EraseData(m) Then
+                        MsgBoxE({"User data has been erased.", msgTitle})
+                    Else
+                        MsgBoxE({"User data has not been erased.", msgTitle}, vbExclamation)
+                    End If
+                End If
+            Catch ex As Exception
+                ErrorsDescriber.Execute(EDP.LogMessageValue, ex, msgTitle)
+            End Try
+        End Sub
         Private Sub BTT_CONTEXT_OPEN_PATH_Click(sender As Object, e As EventArgs) Handles BTT_CONTEXT_OPEN_PATH.Click
             OpenFolder()
         End Sub
@@ -1798,10 +2134,12 @@ BlockNullPicture:
                     LatestData.Clear()
                     _TempMediaList.Clear()
                     _TempPostsList.Clear()
+                    If Not ProgressPre Is Nothing Then ProgressPre.Reset() : ProgressPre.Dispose()
                     If Not Responser Is Nothing Then Responser.Dispose()
                     If Not BTT_CONTEXT_DOWN Is Nothing Then BTT_CONTEXT_DOWN.Dispose()
                     If Not BTT_CONTEXT_EDIT Is Nothing Then BTT_CONTEXT_EDIT.Dispose()
                     If Not BTT_CONTEXT_DELETE Is Nothing Then BTT_CONTEXT_DELETE.Dispose()
+                    If Not BTT_CONTEXT_ERASE Is Nothing Then BTT_CONTEXT_ERASE.Dispose()
                     If Not BTT_CONTEXT_OPEN_PATH Is Nothing Then BTT_CONTEXT_OPEN_PATH.Dispose()
                     If Not BTT_CONTEXT_OPEN_SITE Is Nothing Then BTT_CONTEXT_OPEN_SITE.Dispose()
                     UserUpdatedEventHandlers.Clear()
@@ -1819,85 +2157,4 @@ BlockNullPicture:
         End Sub
 #End Region
     End Class
-#Region "Base interfaces"
-    Friend Interface IContentProvider
-        ReadOnly Property Site As String
-        ReadOnly Property Name As String
-        Property ID As String
-        Property FriendlyName As String
-        Property Description As String
-        Property Favorite As Boolean
-        Property Temporary As Boolean
-        Sub OpenSite(Optional ByVal e As ErrorsDescriber = Nothing)
-        Sub DownloadData(ByVal Token As CancellationToken)
-        Sub DownloadSingleObject(ByVal Data As YouTube.Objects.IYouTubeMediaContainer, ByVal Token As CancellationToken)
-    End Interface
-    Friend Interface IUserData : Inherits IContentProvider, IComparable(Of UserDataBase), IComparable, IEquatable(Of UserDataBase), IIndexable, IDisposable
-        Event UserUpdated(ByVal User As IUserData)
-        Property ParseUserMediaOnly As Boolean
-#Region "Images"
-        Function GetPicture() As Image
-        Sub SetPicture(ByVal f As SFile)
-#End Region
-#Region "Collection support"
-        ReadOnly Property IsCollection As Boolean
-        Property CollectionName As String
-        ReadOnly Property IncludedInCollection As Boolean
-        ReadOnly Property UserModel As UsageModel
-        ReadOnly Property CollectionModel As UsageModel
-        ReadOnly Property IsVirtual As Boolean
-        ReadOnly Property Labels As List(Of String)
-#End Region
-        Property Exists As Boolean
-        Property Suspended As Boolean
-        Property ReadyForDownload As Boolean
-        Property HOST As SettingsHost
-        Property [File] As SFile
-        Property FileExists As Boolean
-        Property DownloadedPictures(ByVal Total As Boolean) As Integer
-        Property DownloadedVideos(ByVal Total As Boolean) As Integer
-        ReadOnly Property DownloadedTotal(Optional ByVal Total As Boolean = True) As Integer
-        ReadOnly Property DownloadedInformation As String
-        Property HasError As Boolean
-        ReadOnly Property FitToAddParams As Boolean
-        ReadOnly Property Key As String
-        Property DownloadImages As Boolean
-        Property DownloadVideos As Boolean
-        Property DownloadMissingOnly As Boolean
-        Property ScriptUse As Boolean
-        Property ScriptData As String
-        Function GetLVI(ByVal Destination As ListView) As ListViewItem
-        Function GetLVIGroup(ByVal Destination As ListView) As ListViewGroup
-        Sub LoadUserInformation()
-        Sub UpdateUserInformation()
-        ''' <summary>
-        ''' 0 - Nothing removed<br/>
-        ''' 1 - User removed<br/>
-        ''' 2 - Collection removed<br/>
-        ''' 3 - Collection split
-        ''' </summary>
-        Function Delete(Optional ByVal Multiple As Boolean = False, Optional ByVal CollectionValue As Integer = -1) As Integer
-        Function MoveFiles(ByVal CollectionName As String, ByVal SpecialCollectionPath As SFile) As Boolean
-        Function CopyFiles(ByVal DestinationPath As SFile, Optional ByVal e As ErrorsDescriber = Nothing) As Boolean
-        Sub OpenFolder()
-        Property DownloadTopCount As Integer?
-        Property DownloadDateFrom As Date?
-        Property DownloadDateTo As Date?
-        Sub SetEnvironment(ByRef h As SettingsHost, ByVal u As UserInfo, ByVal _LoadUserInformation As Boolean,
-                           Optional ByVal AttachUserInfo As Boolean = True)
-        ReadOnly Property Disposed As Boolean
-    End Interface
-    Friend Interface IChannelLimits
-        Property AutoGetLimits As Boolean
-        Property DownloadLimitCount As Integer?
-        Property DownloadLimitPost As String
-        Property DownloadLimitDate As Date?
-        Overloads Sub SetLimit(Optional ByVal Post As String = "", Optional ByVal Count As Integer? = Nothing, Optional ByVal [Date] As Date? = Nothing)
-        Overloads Sub SetLimit(ByVal Source As IChannelLimits)
-    End Interface
-    Friend Interface IChannelData : Inherits IContentProvider, IChannelLimits
-        Property SkipExistsUsers As Boolean
-        Property SaveToCache As Boolean
-    End Interface
-#End Region
 End Namespace

SCrawler/API/BaseObjects/InternalSettingsForm.vb

@@ -154,7 +154,8 @@ Namespace API.Base
                     Dim tmpObj As Object
 
                     members = GetObjectMembers(MyObject, Function(m) (m.MemberType = MemberTypes.Field Or m.MemberType = MemberTypes.Property) AndAlso
-                                                                     Not m.GetCustomAttribute(Of PSettingAttribute) Is Nothing)
+                                                                     Not m.GetCustomAttribute(Of PSettingAttribute) Is Nothing,, True,
+                                                                     New FComparer(Of MemberInfo)(Function(mm1, mm2) mm1.Name = mm2.Name))
                     providersMembersSettings = GetObjectMembers(MySettingsInstance, providersPredicate)
                     providersMembersObj = GetObjectMembers(MyObject, providersPredicate)
 

SCrawler/API/Instagram/Declarations.vb

@@ -46,6 +46,7 @@ Namespace API.Instagram
                 If Not token.IsEmptyString Then Destination.Headers.Add(SiteSettings.Header_CSRF_TOKEN, token)
                 If Not isInternal Then
                     Destination.Cookies.Update(Source.Cookies, CookieKeeper.UpdateModes.ReplaceByNameAll, False, EDP.SendToLog)
+                    Destination.Cookies.Update(EDP.SendToLog)
                     Destination.SaveSettings()
                 End If
             End If

SCrawler/API/Instagram/SiteSettings.vb

@@ -70,33 +70,54 @@ Namespace API.Instagram
         End Class
 #End Region
 #Region "Authorization properties"
-        <PropertyOption(ControlText:="Hash", ControlToolTip:="Instagram session hash for tagged posts", IsAuth:=True), PXML("InstaHash"), ControlNumber(0)>
-        Friend ReadOnly Property HashTagged As PropertyValue
-        <PropertyOption(ControlText:="x-csrftoken", IsAuth:=True, AllowNull:=False), ControlNumber(2)>
-        Friend ReadOnly Property CSRF_TOKEN As PropertyValue
-        <PropertyOption(ControlText:="x-ig-app-id", IsAuth:=True, AllowNull:=False), ControlNumber(3)>
-        Friend Property IG_APP_ID As PropertyValue
-        <PropertyOption(ControlText:="x-ig-www-claim", IsAuth:=True, AllowNull:=True), ControlNumber(4)>
-        Friend Property IG_WWW_CLAIM As PropertyValue
-        Friend Overrides Function BaseAuthExists() As Boolean
-            Return Responser.CookiesExists And ACheck(IG_APP_ID.Value) And ACheck(CSRF_TOKEN.Value)
-        End Function
         Private Const Header_IG_APP_ID As String = "x-ig-app-id"
         Friend Const Header_IG_WWW_CLAIM As String = "x-ig-www-claim"
         Friend Const Header_CSRF_TOKEN As String = "x-csrftoken"
+        Private Const Header_ASBD_ID As String = "X-Asbd-Id"
+        Private Const Header_Browser As String = "Sec-Ch-Ua"
+        Private Const Header_BrowserExt As String = "Sec-Ch-Ua-Full-Version-List"
+        Private Const Header_Platform As String = "Sec-Ch-Ua-Platform-Version"
+        <PropertyOption(ControlText:="Hash", ControlToolTip:="Instagram session hash for tagged posts", IsAuth:=True), PXML("InstaHash"), ControlNumber(0)>
+        Friend ReadOnly Property HashTagged As PropertyValue
+        <PropertyOption(ControlText:="x-csrftoken", IsAuth:=True, AllowNull:=False), ControlNumber(2)>
+        Friend ReadOnly Property HH_CSRF_TOKEN As PropertyValue
+        <PropertyOption(ControlText:="x-ig-app-id", IsAuth:=True, AllowNull:=False), ControlNumber(3)>
+        Friend Property HH_IG_APP_ID As PropertyValue
+        <PropertyOption(ControlText:="x-asbd-id", IsAuth:=True, AllowNull:=True), ControlNumber(4)>
+        Friend Property HH_ASBD_ID As PropertyValue
+        <PropertyOption(ControlText:="x-ig-www-claim", IsAuth:=True, AllowNull:=True), ControlNumber(5)>
+        Friend Property HH_IG_WWW_CLAIM As PropertyValue
+        <PropertyOption(ControlText:="sec-ch-ua", IsAuth:=True, AllowNull:=True), ControlNumber(6)>
+        Private Property HH_BROWSER As PropertyValue
+        <PropertyOption(ControlText:="sec-ch-ua-full", ControlToolTip:="sec-ch-ua-full-version-list", IsAuth:=True, AllowNull:=True), ControlNumber(7)>
+        Private Property HH_BROWSER_EXT As PropertyValue
+        <PropertyOption(ControlText:="sec-ch-ua-platform-ver", ControlToolTip:="sec-ch-ua-platform-version", IsAuth:=True, AllowNull:=True), ControlNumber(8)>
+        Private Property HH_PLATFORM As PropertyValue
+        <PropertyOption(ControlText:="UserAgent", IsAuth:=True, AllowNull:=True), ControlNumber(9)>
+        Private Property HH_USER_AGENT As PropertyValue
+        Friend Overrides Function BaseAuthExists() As Boolean
+            Return Responser.CookiesExists And ACheck(HH_IG_APP_ID.Value) And ACheck(HH_CSRF_TOKEN.Value)
+        End Function
         Private _FieldsChangerSuspended As Boolean = False
         Private Sub ChangeResponserFields(ByVal PropName As String, ByVal Value As Object)
             If Not _FieldsChangerSuspended And Not PropName.IsEmptyString Then
                 Dim f$ = String.Empty
+                Dim isUserAgent As Boolean = False
                 Select Case PropName
-                    Case NameOf(IG_APP_ID) : f = Header_IG_APP_ID
-                    Case NameOf(IG_WWW_CLAIM) : f = Header_IG_WWW_CLAIM
-                    Case NameOf(CSRF_TOKEN) : f = Header_CSRF_TOKEN
+                    Case NameOf(HH_IG_APP_ID) : f = Header_IG_APP_ID
+                    Case NameOf(HH_ASBD_ID) : f = Header_ASBD_ID
+                    Case NameOf(HH_IG_WWW_CLAIM) : f = Header_IG_WWW_CLAIM
+                    Case NameOf(HH_CSRF_TOKEN) : f = Header_CSRF_TOKEN
+                    Case NameOf(HH_BROWSER) : f = Header_Browser
+                    Case NameOf(HH_BROWSER_EXT) : f = Header_BrowserExt
+                    Case NameOf(HH_PLATFORM) : f = Header_Platform
+                    Case NameOf(HH_USER_AGENT) : isUserAgent = True
                 End Select
                 If Not f.IsEmptyString Then
                     Responser.Headers.Remove(f)
                     If Not CStr(Value).IsEmptyString Then Responser.Headers.Add(f, CStr(Value))
-                    Responser.SaveSettings()
+                ElseIf isUserAgent Then
+                    Responser.UserAgent = CStr(Value)
                 End If
             End If
         End Sub
@@ -192,13 +213,33 @@ Namespace API.Instagram
             Dim app_id$ = String.Empty
             Dim www_claim$ = String.Empty
             Dim token$ = String.Empty
+            Dim asbd$ = String.Empty
+            Dim browser$ = String.Empty
+            Dim browserExt$ = String.Empty
+            Dim platform$ = String.Empty
+            Dim useragent$ = String.Empty
 
             With Responser
-                If .Headers.Count > 0 Then
-                    token = .Headers.Value(Header_CSRF_TOKEN)
-                    app_id = .Headers.Value(Header_IG_APP_ID)
-                    www_claim = .Headers.Value(Header_IG_WWW_CLAIM)
-                End If
+                .Accept = "*/*"
+                useragent = .UserAgent
+                With .Headers
+                    If .Count > 0 Then
+                        token = .Value(Header_CSRF_TOKEN)
+                        app_id = .Value(Header_IG_APP_ID)
+                        www_claim = .Value(Header_IG_WWW_CLAIM)
+                        asbd = .Value(Header_ASBD_ID)
+                        browser = .Value(Header_Browser)
+                        browserExt = .Value(Header_BrowserExt)
+                        platform = .Value(Header_Platform)
+                    End If
+                    .Add("Dnt", 1)
+                    .Add("Sec-Ch-Ua-Mobile", "?0")
+                    .Add("Sec-Ch-Ua-Platform", """Windows""")
+                    .Add("Sec-Fetch-Dest", "empty")
+                    .Add("Sec-Fetch-Mode", "cors")
+                    .Add("Sec-Fetch-Site", "same-origin")
+                    .Add("X-Requested-With", "XMLHttpRequest")
+                End With
                 .CookiesExtractMode = Responser.CookiesExtractModes.Response
                 .CookiesUpdateMode = CookieKeeper.UpdateModes.ReplaceByNameAll
                 .CookiesExtractedAutoSave = False
@@ -207,9 +248,14 @@ Namespace API.Instagram
             Dim n() As String = {SettingsCLS.Name_Node_Sites, Site.ToString}
 
             HashTagged = New PropertyValue(String.Empty, GetType(String))
-            CSRF_TOKEN = New PropertyValue(token, GetType(String), Sub(v) ChangeResponserFields(NameOf(CSRF_TOKEN), v))
-            IG_APP_ID = New PropertyValue(app_id, GetType(String), Sub(v) ChangeResponserFields(NameOf(IG_APP_ID), v))
-            IG_WWW_CLAIM = New PropertyValue(www_claim.IfNullOrEmpty(0), GetType(String), Sub(v) ChangeResponserFields(NameOf(IG_WWW_CLAIM), v))
+            HH_CSRF_TOKEN = New PropertyValue(token, GetType(String), Sub(v) ChangeResponserFields(NameOf(HH_CSRF_TOKEN), v))
+            HH_IG_APP_ID = New PropertyValue(app_id, GetType(String), Sub(v) ChangeResponserFields(NameOf(HH_IG_APP_ID), v))
+            HH_ASBD_ID = New PropertyValue(asbd, GetType(String), Sub(v) ChangeResponserFields(NameOf(HH_ASBD_ID), v))
+            HH_IG_WWW_CLAIM = New PropertyValue(www_claim.IfNullOrEmpty(0), GetType(String), Sub(v) ChangeResponserFields(NameOf(HH_IG_WWW_CLAIM), v))
+            HH_BROWSER = New PropertyValue(browser, GetType(String), Sub(v) ChangeResponserFields(NameOf(HH_BROWSER), v))
+            HH_BROWSER_EXT = New PropertyValue(browserExt, GetType(String), Sub(v) ChangeResponserFields(NameOf(HH_BROWSER_EXT), v))
+            HH_PLATFORM = New PropertyValue(platform, GetType(String), Sub(v) ChangeResponserFields(NameOf(HH_PLATFORM), v))
+            HH_USER_AGENT = New PropertyValue(useragent, GetType(String), Sub(v) ChangeResponserFields(NameOf(HH_USER_AGENT), v))
 
             DownloadTimeline = New PropertyValue(True)
             DownloadStories = New PropertyValue(True)
@@ -235,6 +281,7 @@ Namespace API.Instagram
             LastRequestsCountLabel = New PropertyValue(LastRequestsCountLabelStr.Invoke(LastRequestsCount.Value))
             AddHandler LastRequestsCount.ValueChanged, Sub(sender, e) LastRequestsCountLabel.Value = LastRequestsCountLabelStr.Invoke(DirectCast(sender, XMLValue(Of Integer)).ValueF.Value)
 
+            _AllowUserAgentUpdate = False
             UrlPatternUser = "https://www.instagram.com/{0}/"
             UserRegex = RParams.DMS("[htps:/]{7,8}.*?instagram.com/([^/]+)", 1)
             ImageVideoContains = "instagram.com"
@@ -275,7 +322,7 @@ Namespace API.Instagram
         Private _NextTagged As Boolean = True
         Friend Overrides Sub DownloadStarted(ByVal What As Download)
             ActiveJobs += 1
-            If LastDownloadDate.Value.AddMinutes(120) < Now Or Not ACheck(IG_WWW_CLAIM.Value) Then IG_WWW_CLAIM.Value = "0"
+            If LastDownloadDate.Value.AddMinutes(120) < Now Or Not ACheck(HH_IG_WWW_CLAIM.Value) Then HH_IG_WWW_CLAIM.Value = "0"
         End Sub
         Friend Overrides Sub BeforeStartDownload(ByVal User As Object, ByVal What As Download)
             With DirectCast(User, UserData)
@@ -299,8 +346,8 @@ Namespace API.Instagram
                 LastDownloadDate.Value = Now
                 LastRequestsCount.Value = .RequestsCount
                 _FieldsChangerSuspended = True
-                IG_WWW_CLAIM.Value = Responser.Headers.Value(Header_IG_WWW_CLAIM)
-                CSRF_TOKEN.Value = Responser.Headers.Value(Header_CSRF_TOKEN)
+                HH_IG_WWW_CLAIM.Value = Responser.Headers.Value(Header_IG_WWW_CLAIM)
+                HH_CSRF_TOKEN.Value = Responser.Headers.Value(Header_CSRF_TOKEN)
                 _FieldsChangerSuspended = False
             End With
         End Sub

SCrawler/API/Instagram/UserData.vb

@@ -26,6 +26,7 @@ Namespace API.Instagram
         Private Const Name_GetStories As String = "GetStories"
         Private Const Name_GetTagged As String = "GetTaggedData"
         Private Const Name_TaggedChecked As String = "TaggedChecked"
+        Private Const Name_NameTrue As String = "NameTrue"
 #End Region
 #Region "Declarations"
         Private Structure PostKV : Implements IEContainerProvider
@@ -75,6 +76,13 @@ Namespace API.Instagram
         Friend Property GetTimeline As Boolean = True
         Friend Property GetStories As Boolean
         Friend Property GetTaggedData As Boolean
+        Private _NameTrue As String = String.Empty
+        Private ReadOnly Property NameTrue As String
+            Get
+                Return _NameTrue.IfNullOrEmpty(Name)
+            End Get
+        End Property
+        Private UserNameRequested As Boolean = False
 #End Region
 #Region "Exchange options"
         Friend Overrides Function ExchangeOptionsGet() As Object
@@ -96,21 +104,25 @@ Namespace API.Instagram
             PostsToReparse = New List(Of PostKV)
         End Sub
         Protected Overrides Sub LoadUserInformation_OptionalFields(ByRef Container As XmlFile, ByVal Loading As Boolean)
-            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)
-            End If
+            With Container
+                If Loading Then
+                    LastCursor = .Value(Name_LastCursor)
+                    FirstLoadingDone = .Value(Name_FirstLoadingDone).FromXML(Of Boolean)(False)
+                    GetTimeline = .Value(Name_GetTimeline).FromXML(Of Boolean)(CBool(MySiteSettings.GetTimeline.Value))
+                    GetStories = .Value(Name_GetStories).FromXML(Of Boolean)(CBool(MySiteSettings.GetStories.Value))
+                    GetTaggedData = .Value(Name_GetTagged).FromXML(Of Boolean)(CBool(MySiteSettings.GetTagged.Value))
+                    TaggedChecked = .Value(Name_TaggedChecked).FromXML(Of Boolean)(False)
+                    _NameTrue = .Value(Name_NameTrue)
+                Else
+                    .Add(Name_LastCursor, LastCursor)
+                    .Add(Name_FirstLoadingDone, FirstLoadingDone.BoolToInteger)
+                    .Add(Name_GetTimeline, GetTimeline.BoolToInteger)
+                    .Add(Name_GetStories, GetStories.BoolToInteger)
+                    .Add(Name_GetTagged, GetTaggedData.BoolToInteger)
+                    .Add(Name_TaggedChecked, TaggedChecked.BoolToInteger)
+                    .Add(Name_NameTrue, _NameTrue)
+                End If
+            End With
         End Sub
 #End Region
 #Region "Download data"
@@ -195,6 +207,7 @@ Namespace API.Instagram
         End Function
         Private _DownloadingInProgress As Boolean = False
         Protected Overrides Sub DownloadDataF(ByVal Token As CancellationToken)
+            UserNameRequested = False
             Dim s As Sections = Sections.Timeline
             Dim errorFound As Boolean = False
             Try
@@ -207,19 +220,21 @@ Namespace API.Instagram
                 If dt.Invoke And Not LastCursor.IsEmptyString Then
                     s = IIf(IsSavedPosts, Sections.SavedPosts, Sections.Timeline)
                     DownloadData(LastCursor, s, Token)
+                    ProgressPre.Done()
                     ThrowAny(Token)
                     If Not HasError Then FirstLoadingDone = True
                 End If
                 If dt.Invoke And Not HasError Then
                     s = IIf(IsSavedPosts, Sections.SavedPosts, Sections.Timeline)
                     DownloadData(String.Empty, s, Token)
+                    ProgressPre.Done()
                     ThrowAny(Token)
                     If Not HasError Then FirstLoadingDone = True
                 End If
                 If FirstLoadingDone Then LastCursor = String.Empty
                 If Not IsSavedPosts AndAlso MySiteSettings.BaseAuthExists() Then
-                    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)
+                    If CBool(MySiteSettings.DownloadStories.Value) And GetStories Then s = Sections.Stories : DownloadData(String.Empty, s, Token) : ProgressPre.Done()
+                    If CBool(MySiteSettings.DownloadTagged.Value) And ACheck(MySiteSettings.HashTagged.Value) And GetTaggedData Then s = Sections.Tagged : DownloadData(String.Empty, s, Token) : ProgressPre.Done()
                 End If
                 If WaitNotificationMode = WNM.SkipTemp Or WaitNotificationMode = WNM.SkipCurrent Then WaitNotificationMode = WNM.Notify
             Catch eex As ExitException
@@ -229,9 +244,24 @@ Namespace API.Instagram
             Finally
                 E560Thrown = False
                 UpdateResponser()
+                ValidateExtension()
                 If Not errorFound Then LoadSavePostsKV(False)
             End Try
         End Sub
+        Private Sub ValidateExtension()
+            Try
+                Const heic$ = "heic"
+                If _TempMediaList.Count > 0 AndAlso _TempMediaList.Exists(Function(mm) mm.File.Extension = heic) Then
+                    Dim m As UserMedia
+                    For i% = 0 To _TempMediaList.Count - 1
+                        m = _TempMediaList(i)
+                        If m.Type = UTypes.Picture AndAlso Not m.File.Extension.IsEmptyString AndAlso m.File.Extension = heic Then _
+                           m.File.Extension = "jpg" : _TempMediaList(i) = m
+                    Next
+                End If
+            Catch ex As Exception
+            End Try
+        End Sub
         Private Sub UpdateResponser()
             Try
                 If _DownloadingInProgress AndAlso Not Responser Is Nothing AndAlso Not Responser.Disposed Then
@@ -396,13 +426,13 @@ Namespace API.Instagram
                         'Check environment
                         If Not IsSavedPosts Then
                             If ID.IsEmptyString Then GetUserId()
-                            If ID.IsEmptyString Then Throw New ArgumentException("User ID is not detected", "ID")
+                            If ID.IsEmptyString Then Throw New Plugin.ExitException("can't get user ID")
                         End If
 
                         'Create query
                         Select Case Section
                             Case Sections.Timeline
-                                URL = $"https://www.instagram.com/api/v1/feed/user/{Name}/username/?count=50" &
+                                URL = $"https://www.instagram.com/api/v1/feed/user/{NameTrue}/username/?count=50" &
                                         If(Cursor.IsEmptyString, String.Empty, $"&max_id={Cursor}")
                                 ENode = Nothing
                             Case Sections.SavedPosts
@@ -470,7 +500,9 @@ Namespace API.Instagram
                                                     HasNextPage = False
                                                 End If
                                                 If If(.Item("edges")?.Count, 0) > 0 Then
+                                                    ProgressPre.ChangeMax(.Item("edges").Count)
                                                     For Each nn In .Item("edges")
+                                                        ProgressPre.Perform()
                                                         PostIDKV = New PostKV(Section)
                                                         If nn.Count > 0 AndAlso nn(0).Count > 0 Then
                                                             With nn(0)
@@ -527,6 +559,7 @@ Namespace API.Instagram
             Dim URL$ = String.Empty
             Dim dValue% = 1
             Dim _Index% = 0
+            If PostsToReparse.Count > 0 Then ProgressPre.ChangeMax(PostsToReparse.Count)
             Try
                 Do While dValue = 1
                     ThrowAny(Token)
@@ -538,7 +571,9 @@ Namespace API.Instagram
                         Dim j As EContainer, jj As EContainer
                         If PostsToReparse.Count > 0 And _Index <= PostsToReparse.Count - 1 Then
                             Dim e As New ErrorsDescriber(EDP.ThrowException)
+                            If Index > 0 Then ProgressPre.ChangeMax(1)
                             For i% = _Index To PostsToReparse.Count - 1
+                                ProgressPre.Perform()
                                 _Index = i
                                 URL = $"https://www.instagram.com/api/v1/media/{PostsToReparse(i).ID}/info/"
                                 ThrowAny(Token)
@@ -611,7 +646,9 @@ Namespace API.Instagram
                         Case Else : SpecFolder = String.Empty
                     End Select
                 End If
+                ProgressPre.ChangeMax(Items.Count)
                 For Each nn In Items
+                    ProgressPre.Perform()
                     With nn
                         PostIDKV = New PostKV(.Value("code"), .Value("id"), Section)
                         Pinned = .Contains("timeline_pinned_user_ids")
@@ -742,16 +779,18 @@ Namespace API.Instagram
             End Try
         End Sub
 #End Region
-#Region "GetUserId"
+#Region "GetUserId, GetUserName"
         Private Sub GetUserId()
             Dim __idFound As Boolean = False
             Try
-                Dim r$ = Responser.GetResponse($"https://i.instagram.com/api/v1/users/web_profile_info/?username={Name}",, EDP.ThrowException)
+                RequestsCount += 1
+                Dim r$ = Responser.GetResponse($"https://i.instagram.com/api/v1/users/web_profile_info/?username={NameTrue}",, EDP.ThrowException)
                 If Not r.IsEmptyString Then
                     Using j As EContainer = JsonDocument.Parse(r)
                         If Not j Is Nothing AndAlso j.Contains({"data", "user"}) Then
                             With j({"data", "user"})
                                 ID = .Value("id")
+                                _ForceSaveUserData = True
                                 __idFound = True
                                 UserSiteNameUpdate(.Value("full_name"))
                                 Dim descr$ = .Value("biography")
@@ -776,11 +815,43 @@ Namespace API.Instagram
                     If Responser.StatusCode = HttpStatusCode.NotFound Or Responser.StatusCode = HttpStatusCode.BadRequest Then
                         Throw ex
                     Else
-                        LogError(ex, "get Instagram user id")
+                        LogError(ex, "get Instagram user ID")
                     End If
                 End If
             End Try
         End Sub
+        Private Function GetUserNameById() As Boolean
+            UserNameRequested = True
+            Try
+                If Not ID.IsEmptyString Then
+                    RequestsCount += 1
+                    Dim r$ = Responser.GetResponse($"https://i.instagram.com/api/v1/users/{ID}/info/",, EDP.ReturnValue)
+                    If Not r.IsEmptyString Then
+                        Using j As EContainer = JsonDocument.Parse(r, EDP.ReturnValue)
+                            If j.ListExists Then
+                                Dim newName$ = j.Value({"user"}, "username")
+                                If Not newName.IsEmptyString Then
+                                    Dim oldName$ = NameTrue
+                                    If Not newName = oldName Then
+                                        MyMainLOG = $"{ToStringForLog()}: username changed from '{oldName}' to '{newName}'"
+                                        _NameTrue = newName
+                                        Dim descr$ = $"Username changed from '{oldName}' to '{newName}' ({Now.ToStringDate(ADateTime.Formats.BaseDateTime)})!"
+                                        descr.StringAppendLine(UserDescription)
+                                        UserDescription = descr
+                                        _ForceSaveUserData = True
+                                    End If
+                                    Return True
+                                End If
+                            End If
+                        End Using
+                    End If
+                End If
+                Return False
+            Catch ex As Exception
+                LogError(ex, "get Instagram user name by ID")
+                Return False
+            End Try
+        End Function
 #End Region
 #Region "Pinned stories"
         Private Sub GetStoriesData(ByRef StoriesList As List(Of String), ByVal Token As CancellationToken)
@@ -799,7 +870,9 @@ Namespace API.Instagram
                     If Not r.IsEmptyString Then
                         Using j As EContainer = JsonDocument.Parse(r).XmlIfNothing
                             If j.Contains("reels") Then
+                                ProgressPre.ChangeMax(j("reels").Count)
                                 For Each jj In j("reels")
+                                    ProgressPre.Perform()
                                     i += 1
                                     sFolder = jj.Value("title").StringRemoveWinForbiddenSymbols
                                     storyID = jj.Value("id").Replace("highlight:", String.Empty)
@@ -861,7 +934,7 @@ Namespace API.Instagram
         Protected Overrides Function DownloadingException(ByVal ex As Exception, ByVal Message As String, Optional ByVal FromPE As Boolean = False,
                                                           Optional ByVal s As Object = Nothing) As Integer
             If Responser.StatusCode = HttpStatusCode.NotFound Then
-                UserExists = False
+                If Not UserNameRequested AndAlso GetUserNameById() Then Return 1 Else UserExists = False
             ElseIf Responser.StatusCode = HttpStatusCode.BadRequest Then
                 HasError = True
                 MyMainLOG = $"Instagram credentials have expired [{CInt(Responser.StatusCode)}]: {ToStringForLog()} [{s}]"
@@ -880,7 +953,7 @@ Namespace API.Instagram
             ElseIf Responser.StatusCode = 560 Then
                 MySiteSettings.SkipUntilNextSession = True
             Else
-                MyMainLOG = $"Instagram hash requested [{CInt(Responser.StatusCode)}]: {ToString()} [{s}]"
+                MyMainLOG = $"Something is wrong. Your credentials may have expired [{CInt(Responser.StatusCode)}]: {ToString()} [{s}]"
                 DisableSection(s)
                 If Not FromPE Then LogError(ex, Message) : HasError = True
                 Return 0

SCrawler/API/LPSG/Declarations.vb

@@ -19,7 +19,10 @@ Namespace API.LPSG
         Friend ReadOnly Property NextPageRegex As RParams = RParams.DMS("<link rel=""next"" href=""(.+?/page-(\d+))""", 2)
         Private Const FileUrlRegexDefault As String = "([^/]+?)(jpg|jpeg|gif|png|webm)"
         Private ReadOnly InputFReplacer As New ErrorsDescriber(EDP.ReturnValue)
-        Private ReadOnly InputForbidRemover As Func(Of String, String) = Function(Input) If(Input.IsEmptyString, Input, Input.StringRemoveWinForbiddenSymbols(, InputFReplacer))
+        Private ReadOnly InputForbidRemover As Func(Of String, String) = Function(Input) If(Input.IsEmptyString,
+                                                                                            Input,
+                                                                                            Input.StringRemoveWinForbiddenSymbols(, InputFReplacer)).
+                                                                                            IfNullOrEmpty($"{Settings.Cache.NewFile.Name}.file")
         Private ReadOnly FileRegEx As RParams = RParams.DMS(FileUrlRegexDefault, 0, RegexReturn.ListByMatch, InputFReplacer)
 #Disable Warning IDE0060
         Friend Function FileRegExF(ByVal Input As String, ByVal Index As Integer) As String
@@ -28,7 +31,8 @@ Namespace API.LPSG
                 Dim l As List(Of String) = RegexReplace(Input, FileRegEx)
                 If l.ListExists(3) Then
                     Dim ext$ = l(2)
-                    Dim f$ = l(1).StringTrim("-", ".")
+                    Dim f$ = l(1).StringTrim("-", ".").StringRemoveWinForbiddenSymbols
+                    If f.IsEmptyString Then f = Settings.Cache.NewFile.Name
                     Input = $"{f}.{ext}"
                 End If
             End If

SCrawler/API/LPSG/UserData.vb

@@ -73,7 +73,9 @@ Namespace API.LPSG
                 Dim r As Func(Of String, Integer, String)
                 Dim indx% = 0
                 Dim ude As New ErrorsDescriber(EDP.ReturnValue)
+                ProgressPre.ChangeMax(l.Count)
                 For Each url$ In l
+                    ProgressPre.Perform()
                     If Not url.IsEmptyString Then u = SymbolsConverter.Decode(url, {Converters.HTML, Converters.ASCII}, ude) Else u = String.Empty
                     If Not u.IsEmptyString Then
                         exists = Not IsEmptyString(RegexReplace(u, FileExistsRegEx))

SCrawler/API/Mastodon/EditorExchangeOptions.vb

@@ -0,0 +1,24 @@
+' 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
+Namespace API.Mastodon
+    Friend Class EditorExchangeOptions : Inherits Twitter.EditorExchangeOptions
+        <PSetting(Address:=SettingAddress.None)> Friend Overrides Property MediaModelAllowNonUserTweets As Boolean
+        <PSetting(Address:=SettingAddress.None)> Friend Overrides Property DownloadModelMedia As Boolean
+        <PSetting(Address:=SettingAddress.None)> Friend Overrides Property DownloadModelProfile As Boolean
+        <PSetting(Address:=SettingAddress.None)> Friend Overrides Property DownloadModelSearch As Boolean
+        <PSetting(Address:=SettingAddress.None)> Friend Overrides Property DownloadModelForceApply As Boolean
+        Friend Sub New(ByVal s As SiteSettings)
+            MyBase.New(s)
+        End Sub
+        Friend Sub New(ByVal u As UserData)
+            MyBase.New(u)
+        End Sub
+    End Class
+End Namespace

SCrawler/API/Mastodon/SiteSettings.vb

@@ -13,7 +13,7 @@ Imports PersonalUtilities.Functions.XML
 Imports PersonalUtilities.Functions.RegularExpressions
 Imports PersonalUtilities.Tools.Web.Clients
 Imports PersonalUtilities.Tools.Web.Documents.JSON
-Imports TS = SCrawler.API.Twitter.SiteSettings
+Imports DN = SCrawler.API.Base.DeclaredNames
 Namespace API.Mastodon
     <Manifest(MastodonSiteKey), SavedPosts, SpecialForm(True), SpecialForm(False)>
     Friend Class SiteSettings : Inherits SiteSettingsBase
@@ -46,8 +46,8 @@ Namespace API.Mastodon
             If Not PropName.IsEmptyString Then
                 Dim f$ = String.Empty
                 Select Case PropName
-                    Case NameOf(Auth) : f = TS.Header_Authorization
-                    Case NameOf(Token) : f = TS.Header_Token
+                    Case NameOf(Auth) : f = DN.Header_Authorization
+                    Case NameOf(Token) : f = DN.Header_CSRFToken
                 End Select
                 If Not f.IsEmptyString Then
                     Responser.Headers.Remove(f)
@@ -58,15 +58,15 @@ Namespace API.Mastodon
         End Sub
 #End Region
 #Region "Other properties"
-        <PropertyOption(IsAuth:=False, ControlText:=TS.GifsDownload_Text), PXML>
+        <PropertyOption(IsAuth:=False, ControlText:=DN.GifsDownloadCaption), PXML>
         Friend ReadOnly Property GifsDownload As PropertyValue
-        <PropertyOption(IsAuth:=False, ControlText:=TS.GifsSpecialFolder_Text, ControlToolTip:=TS.GifsSpecialFolder_ToolTip), PXML>
+        <PropertyOption(IsAuth:=False, ControlText:=DN.GifsSpecialFolderCaption, ControlToolTip:=DN.GifsSpecialFolderToolTip), PXML>
         Friend ReadOnly Property GifsSpecialFolder As PropertyValue
-        <PropertyOption(IsAuth:=False, ControlText:=TS.GifsPrefix_Text, ControlToolTip:=TS.GifsPrefix_ToolTip), PXML>
+        <PropertyOption(IsAuth:=False, ControlText:=DN.GifsPrefixCaption, ControlToolTip:=DN.GifsPrefixToolTip), PXML>
         Friend ReadOnly Property GifsPrefix As PropertyValue
         <Provider(NameOf(GifsSpecialFolder), Interaction:=True), Provider(NameOf(GifsPrefix), Interaction:=True)>
         Private ReadOnly Property GifStringChecker As IFormatProvider
-        <PropertyOption(IsAuth:=False, ControlText:=TS.UseMD5Comparison_Text, ControlToolTip:=TS.UseMD5Comparison_ToolTip), PXML>
+        <PropertyOption(IsAuth:=False, ControlText:=DN.UseMD5ComparisonCaption, ControlToolTip:=DN.UseMD5ComparisonToolTip), PXML>
         Friend ReadOnly Property UseMD5Comparison As PropertyValue
         <PropertyOption(IsAuth:=False, ControlText:="User related to my domain",
                         ControlToolTip:="Open user profiles and user posts through my domain."), PXML>
@@ -82,13 +82,13 @@ Namespace API.Mastodon
             Domains.DestinationProp = SiteDomains
             DomainsLastUpdateDate = New PropertyValue(Now.AddYears(-1))
 
-            Auth = New PropertyValue(Responser.Headers.Value(TS.Header_Authorization), GetType(String), Sub(v) ChangeResponserFields(NameOf(Auth), v))
-            Token = New PropertyValue(Responser.Headers.Value(TS.Header_Token), GetType(String), Sub(v) ChangeResponserFields(NameOf(Token), v))
+            Auth = New PropertyValue(Responser.Headers.Value(DN.Header_Authorization), GetType(String), Sub(v) ChangeResponserFields(NameOf(Auth), v))
+            Token = New PropertyValue(Responser.Headers.Value(DN.Header_CSRFToken), GetType(String), Sub(v) ChangeResponserFields(NameOf(Token), v))
 
             GifsDownload = New PropertyValue(True)
             GifsSpecialFolder = New PropertyValue(String.Empty, GetType(String))
             GifsPrefix = New PropertyValue("GIF_")
-            GifStringChecker = New TS.GifStringProvider
+            GifStringChecker = New API.Twitter.SiteSettings.GifStringProvider
             UseMD5Comparison = New PropertyValue(False)
             MyDomain = New PropertyValue(String.Empty, GetType(String))
             UserRelatedToMyDomain = New PropertyValue(False)
@@ -124,15 +124,24 @@ Namespace API.Mastodon
             If _SiteEditorFormOpened Then
                 Dim tf$ = GifsSpecialFolder.Value
                 If Not tf.IsEmptyString Then tf = tf.StringTrim("\") : GifsSpecialFolder.Value = tf
+                Dim md$ = AConvert(Of String)(MyDomain.Value, String.Empty)
+                If Not md.IsEmptyString AndAlso Not Domains.Domains.Contains(md) AndAlso Not Domains.DomainsTemp.Contains(md) Then
+                    If Domains.Changed Then
+                        Domains.DomainsTemp.Add(md)
+                    Else
+                        Domains.Domains.Add(md)
+                        Domains.Save()
+                    End If
+                End If
             End If
             MyBase.Update()
         End Sub
 #End Region
 #Region "UserOptions"
         Friend Overrides Sub UserOptions(ByRef Options As Object, ByVal OpenForm As Boolean)
-            If Options Is Nothing OrElse (Not TypeOf Options Is Twitter.EditorExchangeOptions OrElse
-                                          Not DirectCast(Options, Twitter.EditorExchangeOptions).SiteKey = MastodonSiteKey) Then _
-               Options = New Twitter.EditorExchangeOptions(Me) With {.SiteKey = MastodonSiteKey}
+            If Options Is Nothing OrElse (Not TypeOf Options Is EditorExchangeOptions OrElse
+                                          Not DirectCast(Options, EditorExchangeOptions).SiteKey = MastodonSiteKey) Then _
+               Options = New EditorExchangeOptions(Me) With {.SiteKey = MastodonSiteKey}
             If OpenForm Then
                 Using f As New InternalSettingsForm(Options, Me, False) : f.ShowDialog() : End Using
             End If

SCrawler/API/Mastodon/UserData.vb

@@ -13,6 +13,7 @@ Imports PersonalUtilities.Functions.XML
 Imports PersonalUtilities.Functions.RegularExpressions
 Imports PersonalUtilities.Tools.Web.Documents.JSON
 Imports UTypes = SCrawler.API.Base.UserMedia.Types
+Imports UStates = SCrawler.API.Base.UserMedia.States
 Namespace API.Mastodon
     Friend Class UserData : Inherits Twitter.UserData
 #Region "XML names"
@@ -54,8 +55,8 @@ Namespace API.Mastodon
                 If setDef Then MyCredentials = New Credentials With {.Domain = UserDomain, .Bearer = MySettings.Auth.Value, .Csrf = MySettings.Token.Value}
             End With
             With MyCredentials
-                Responser.Headers.Add(Twitter.SiteSettings.Header_Authorization, .Bearer)
-                Responser.Headers.Add(Twitter.SiteSettings.Header_Token, .Csrf)
+                Responser.Headers.Add(DeclaredNames.Header_Authorization, .Bearer)
+                Responser.Headers.Add(DeclaredNames.Header_CSRFToken, .Csrf)
             End With
         End Sub
 #End Region
@@ -120,7 +121,9 @@ Namespace API.Mastodon
                 If Not r.IsEmptyString Then
                     Using j As EContainer = JsonDocument.Parse(r)
                         If If(j?.Count, 0) > 0 Then
+                            ProgressPre.ChangeMax(j.Count)
                             For Each jj As EContainer In j
+                                ProgressPre.Perform()
                                 With jj
                                     If Not IsSavedPosts And POST.IsEmptyString And Not .Item("account") Is Nothing Then
                                         With .Item("account")
@@ -134,11 +137,14 @@ Namespace API.Mastodon
                                                                                                   If __imgFile.Extension.IsEmptyString Then __imgFile.Extension = "jpg"
                                                                                                   __imgFile.Path = MyFile.CutPath.Path
                                                                                                   If Not __imgFile.Exists Then GetWebFile(img, __imgFile, EDP.None)
+                                                                                                  If __imgFile.Exists Then IconBannerDownloaded = True
                                                                                               End If
                                                                                           End If
                                                                                       End Sub
-                                                __getImage.Invoke(.Value("header").IfNullOrEmpty(.Value("header_static")))
-                                                __getImage.Invoke(.Value("avatar").IfNullOrEmpty(.Value("avatar_static")))
+                                                If DownloadIconBanner Then
+                                                    __getImage.Invoke(.Value("header").IfNullOrEmpty(.Value("header_static")))
+                                                    __getImage.Invoke(.Value("avatar").IfNullOrEmpty(.Value("avatar_static")))
+                                                End If
                                             End If
                                         End With
                                     End If
@@ -166,7 +172,7 @@ Namespace API.Mastodon
                                         If If(.Item("media_attachments")?.Count, 0) > 0 Then
                                             s = .Item("media_attachments")
                                         Else
-                                            s = .Item({"reblog", "account"}, "media_attachments")
+                                            s = .Item({"reblog"}, "media_attachments")
                                         End If
                                         If s.ListExists Then
                                             For Each ss In s : ObtainMedia(ss, PostID, PostDate) : Next
@@ -233,8 +239,45 @@ Namespace API.Mastodon
             Return $"https://{Domain}/api/v1/statuses/" & "{0}"
         End Function
         Protected Overrides Sub ReparseMissing(ByVal Token As CancellationToken)
-            SinglePostUrl = GetSinglePostPattern(MyCredentials.Domain)
-            MyBase.ReparseMissing(Token)
+            Dim rList As New List(Of Integer)
+            Dim URL$ = String.Empty
+            Try
+                If ContentMissingExists Then
+                    Dim SinglePostUrl$ = GetSinglePostPattern(MyCredentials.Domain)
+                    Dim m As UserMedia
+                    Dim r$, PostDate$
+                    Dim j As EContainer
+                    ProgressPre.ChangeMax(_ContentList.Count)
+                    For i% = 0 To _ContentList.Count - 1
+                        ProgressPre.Perform()
+                        If _ContentList(i).State = UStates.Missing Then
+                            m = _ContentList(i)
+                            If Not m.Post.ID.IsEmptyString Then
+                                ThrowAny(Token)
+                                URL = String.Format(SinglePostUrl, m.Post.ID)
+                                r = Responser.GetResponse(URL,, EDP.ReturnValue)
+                                If Not r.IsEmptyString Then
+                                    j = JsonDocument.Parse(r)
+                                    If Not j Is Nothing Then
+                                        PostDate = String.Empty
+                                        If j.Contains("created_at") Then PostDate = j("created_at").Value Else PostDate = String.Empty
+                                        ObtainMedia(j, m.Post.ID, PostDate, m.URL_BASE)
+                                        rList.Add(i)
+                                        j.Dispose()
+                                    End If
+                                End If
+                            End If
+                        End If
+                    Next
+                End If
+            Catch ex As Exception
+                ProcessException(ex, Token, $"ReparseMissing error [{URL}]")
+            Finally
+                If rList.Count > 0 Then
+                    For i% = rList.Count - 1 To 0 Step -1 : _ContentList.RemoveAt(rList(i)) : Next
+                    rList.Clear()
+                End If
+            End Try
         End Sub
 #End Region
 #Region "DownloadSingleObject"
@@ -268,7 +311,7 @@ Namespace API.Mastodon
                 If Responser.Status = Net.WebExceptionStatus.NameResolutionFailure Then
                     MyMainLOG = $"User domain ({UserDomain}) not found: {ToStringForLog()}"
                     Return 1
-                ElseIf Responser.StatusCode = Net.HttpStatusCode.NotFound Then
+                ElseIf Responser.StatusCode = Net.HttpStatusCode.NotFound Or Responser.StatusCode = Net.HttpStatusCode.Forbidden Then
                     UserExists = False
                     Return 1
                 ElseIf Responser.StatusCode = Net.HttpStatusCode.Unauthorized Then

SCrawler/API/OnlyFans/Declarations.vb

@@ -0,0 +1,15 @@
+' 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 PersonalUtilities.Functions.RegularExpressions
+Namespace API.OnlyFans
+    Friend Module Declarations
+        Friend ReadOnly DateProvider As New ADateTime("O")
+        Friend ReadOnly RegExPostID As RParams = RParams.DM("(?<=onlyfans\.com/)(\d+)", 0, EDP.ReturnValue)
+    End Module
+End Namespace

SCrawler/API/OnlyFans/SiteSettings.vb

@@ -0,0 +1,197 @@
+' 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.API.Base
+Imports SCrawler.Plugin
+Imports SCrawler.Plugin.Attributes
+Imports PersonalUtilities.Forms
+Imports PersonalUtilities.Tools.Web.Clients
+Imports PersonalUtilities.Tools.Web.Cookies
+Imports PersonalUtilities.Functions.RegularExpressions
+Namespace API.OnlyFans
+    <Manifest("AndyProgram_OnlyFans"), SavedPosts, SpecialForm(False), SeparatedTasks(1)>
+    Friend Class SiteSettings : Inherits SiteSettingsBase
+#Region "Icon"
+        Friend Overrides ReadOnly Property Icon As Icon
+            Get
+                Return My.Resources.SiteResources.OnlyFansIcon_32
+            End Get
+        End Property
+        Friend Overrides ReadOnly Property Image As Image
+            Get
+                Return My.Resources.SiteResources.OnlyFansPic_32
+            End Get
+        End Property
+#End Region
+#Region "Declarations"
+#Region "Options"
+        <PropertyOption(ControlText:="Download highlights", ControlToolTip:="Download profile highlights if they exists"), PXML>
+        Friend Property DownloadHighlights As PropertyValue
+        <PropertyOption(ControlText:="Download chat", ControlToolTip:="Download unlocked chat media"), PXML>
+        Friend Property DownloadChatMedia As PropertyValue
+#End Region
+#Region "Headers"
+        Private Const HeaderBrowser As String = "sec-ch-ua"
+        Private Const HeaderUserID As String = "User-Id"
+        Private Const HeaderXBC As String = "X-Bc"
+        Private Const HeaderAppToken As String = "App-Token"
+        <PropertyOption(ControlText:=HeaderUserID, AllowNull:=False)>
+        Friend ReadOnly Property HH_USER_ID As PropertyValue
+        <PropertyOption(ControlText:=HeaderXBC, AllowNull:=False)>
+        Private ReadOnly Property HH_X_BC As PropertyValue
+        <PropertyOption(ControlText:=HeaderAppToken, AllowNull:=False)>
+        Private ReadOnly Property HH_APP_TOKEN As PropertyValue
+        <PropertyOption(ControlText:=HeaderBrowser, ControlToolTip:="Can be null", AllowNull:=True)>
+        Private ReadOnly Property HH_BROWSER As PropertyValue
+        <PropertyOption(AllowNull:=False)>
+        Private ReadOnly Property UserAgent As PropertyValue
+        Private Sub UpdateHeader(ByVal PropertyName As String, ByVal Value As String)
+            Dim hName$ = String.Empty
+            Dim isUserAgent As Boolean = False
+            Select Case PropertyName
+                Case NameOf(HH_USER_ID) : hName = HeaderUserID
+                Case NameOf(HH_X_BC) : hName = HeaderXBC
+                Case NameOf(HH_APP_TOKEN) : hName = HeaderAppToken
+                Case NameOf(HH_BROWSER) : hName = HeaderBrowser
+                Case NameOf(UserAgent) : isUserAgent = True
+            End Select
+            If Not hName.IsEmptyString Then
+                Responser.Headers.Add(hName, Value)
+            ElseIf isUserAgent Then
+                Responser.UserAgent = Value
+            End If
+        End Sub
+#End Region
+#Region "Rules"
+        <PXML("LastDateUpdated")> Private ReadOnly Property LastDateUpdated_XML As PropertyValue
+        Friend Property LastDateUpdated As Date
+            Get
+                Return LastDateUpdated_XML.Value
+            End Get
+            Set(ByVal d As Date)
+                LastDateUpdated_XML.Value = d
+            End Set
+        End Property
+        <PropertyOption(ControlText:="Use old authorization rules",
+                        ControlToolTip:="Use old dynamic rules (from 'DATAHOARDERS') or new ones (from 'DIGITALCRIMINALS')." & vbCr &
+                                        "Change this value only if you know what you are doing."), PXML>
+        Friend ReadOnly Property UseOldAuthRules As PropertyValue
+        <PropertyOption(ControlText:="Dynamic rules update", ControlToolTip:="'Dynamic rules' update interval (minutes). Default: 1440", LeftOffset:=110), PXML>
+        Friend ReadOnly Property DynamicRulesUpdateInterval As PropertyValue
+        <Provider(NameOf(DynamicRulesUpdateInterval), FieldsChecker:=True)>
+        Private ReadOnly Property DynamicRulesUpdateIntervalProvider As IFormatProvider
+        <PropertyOption(ControlText:="Dynamic rules",
+                        ControlToolTip:="Overwrite 'Dynamic rules' with this URL" & vbCr &
+                                        "Change this value only if you know what you are doing."), PXML>
+        Friend ReadOnly Property DynamicRules As PropertyValue
+#End Region
+#End Region
+#Region "Initializer"
+        Friend Sub New()
+            MyBase.New("OnlyFans", ".onlyfans.com")
+
+            With Responser
+                .Accept = "application/json, text/plain, */*"
+                .AutomaticDecompression = Net.DecompressionMethods.GZip
+                .CookiesExtractMode = Responser.CookiesExtractModes.Any
+                .CookiesExtractedAutoSave = False
+                .CookiesUpdateMode = CookieKeeper.UpdateModes.Disabled
+                .Cookies.ChangedAllowInternalDrop = False
+                .Cookies.Changed = False
+                With .Headers
+                    .Add(HttpHeaderCollection.GetSpecialHeader(MyHeaderTypes.SecChUaPlatform))
+                    .Add(HttpHeaderCollection.GetSpecialHeader(MyHeaderTypes.SecChUaMobile))
+                    .Add(HttpHeaderCollection.GetSpecialHeader(MyHeaderTypes.SecFetchDest))
+                    .Add(HttpHeaderCollection.GetSpecialHeader(MyHeaderTypes.SecFetchMode))
+                    .Add(HttpHeaderCollection.GetSpecialHeader(MyHeaderTypes.SecFetchSite))
+                    .Add(HttpHeaderCollection.GetSpecialHeader(MyHeaderTypes.DHT))
+                    .Add(HttpHeaderCollection.GetSpecialHeader(MyHeaderTypes.Authority, "onlyfans.com"))
+                    .Add(HttpHeaderCollection.GetSpecialHeader(MyHeaderTypes.AcceptEncoding))
+                    HH_USER_ID = New PropertyValue(.Value(HeaderUserID), GetType(String), Sub(v) UpdateHeader(NameOf(HH_USER_ID), v))
+                    HH_X_BC = New PropertyValue(.Value(HeaderXBC), GetType(String), Sub(v) UpdateHeader(NameOf(HH_X_BC), v))
+                    HH_APP_TOKEN = New PropertyValue(.Value(HeaderAppToken), GetType(String), Sub(v) UpdateHeader(NameOf(HH_APP_TOKEN), v))
+                    HH_BROWSER = New PropertyValue(.Value(HeaderBrowser), GetType(String), Sub(v) UpdateHeader(NameOf(HH_BROWSER), v))
+                End With
+                UserAgent = New PropertyValue(IIf(.UserAgentExists, .UserAgent, String.Empty), GetType(String), Sub(v) UpdateHeader(NameOf(UserAgent), v))
+            End With
+
+            DownloadHighlights = New PropertyValue(True)
+            DownloadChatMedia = New PropertyValue(True)
+
+            LastDateUpdated_XML = New PropertyValue(Now.AddYears(-1), GetType(Date))
+            UseOldAuthRules = New PropertyValue(False)
+            DynamicRulesUpdateInterval = New PropertyValue(60 * 24)
+            DynamicRulesUpdateIntervalProvider = New FieldsCheckerProviderSimple(Function(v) IIf(AConvert(Of Integer)(v, 0) > 0, v, Nothing),
+                                                                                 "The value of [{0}] field must be greater than 0")
+            DynamicRules = New PropertyValue(String.Empty, GetType(String))
+            UserRegex = RParams.DMS("onlyfans.com/([\w\._]+)", 1, EDP.ReturnValue)
+            UrlPatternUser = "https://onlyfans.com/{0}"
+            ImageVideoContains = "onlyfans.com"
+        End Sub
+#End Region
+#Region "GetInstance"
+        Friend Overrides Function GetInstance(ByVal What As ISiteSettings.Download) As IPluginContentProvider
+            Return New UserData
+        End Function
+#End Region
+#Region "Update"
+        Friend Overrides Sub Update()
+            If _SiteEditorFormOpened Then Responser.Cookies.Changed = False
+            MyBase.Update()
+        End Sub
+#End Region
+#Region "Download"
+        Friend Overrides Function BaseAuthExists() As Boolean
+            Return Responser.CookiesExists And {HH_USER_ID, HH_X_BC, HH_APP_TOKEN, UserAgent}.All(Function(v) ACheck(v.Value))
+        End Function
+        Friend Overrides Function ReadyToDownload(ByVal What As ISiteSettings.Download) As Boolean
+            Return BaseAuthExists() And Not SessionAborted
+        End Function
+        Friend Property SessionAborted As Boolean = False
+        Friend Overrides Sub AfterDownload(ByVal User As Object, ByVal What As ISiteSettings.Download)
+            Responser.Cookies.Update(DirectCast(User, UserData).CCookie)
+        End Sub
+        Friend Overrides Sub DownloadDone(ByVal What As ISiteSettings.Download)
+            MyBase.DownloadDone(What)
+            SessionAborted = False
+            If Responser.Cookies.Changed Then Responser.SaveCookies() : Responser.Cookies.Changed = False
+        End Sub
+#End Region
+#Region "GetUserUrl, GetUserPostUrl, UserOptions"
+        Friend Overrides Function GetUserUrl(ByVal User As IPluginContentProvider) As String
+            Return String.Format(UrlPatternUser, If(User.ID.IsEmptyString, User.Name, $"u{User.ID}"))
+        End Function
+        Friend Overrides Function GetUserPostUrl(ByVal User As UserDataBase, ByVal Media As UserMedia) As String
+            If Not Media.Post.ID.IsEmptyString Then
+                Dim post$() = Media.Post.ID.Split("_")
+                Dim p$ = String.Empty
+                If post.ListExists Then
+                    If post(0) = UserData.A_MESSAGE Then
+                        If Not User.ID.IsEmptyString Then Return $"https://onlyfans.com/my/chats/chat/{User.ID}/"
+                    ElseIf Not post(0) = UserData.A_HIGHLIGHT Then
+                        p = post(0)
+                    End If
+                End If
+                If p.IsEmptyString Then
+                    Return GetUserUrl(User)
+                Else
+                    Return String.Format("https://onlyfans.com/{0}/{1}", p, If(User.ID.IsEmptyString, User.Name, $"u{User.ID}"))
+                End If
+            Else
+                Return String.Empty
+            End If
+        End Function
+        Friend Overrides Sub UserOptions(ByRef Options As Object, ByVal OpenForm As Boolean)
+            If Options Is Nothing OrElse Not TypeOf Options Is UserExchangeOptions Then Options = New UserExchangeOptions(Me)
+            If OpenForm Then
+                Using f As New InternalSettingsForm(Options, Me, False) : f.ShowDialog() : End Using
+            End If
+        End Sub
+#End Region
+    End Class
+End Namespace

SCrawler/API/OnlyFans/UserData.vb

@@ -0,0 +1,552 @@
+' 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 System.Threading
+Imports SCrawler.API.Base
+Imports SCrawler.API.YouTube.Objects
+Imports PersonalUtilities.Functions.XML
+Imports PersonalUtilities.Functions.RegularExpressions
+Imports PersonalUtilities.Tools.Web.Clients
+Imports PersonalUtilities.Tools.Web.Clients.EventArguments
+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
+Namespace API.OnlyFans
+    Friend Class UserData : Inherits UserDataBase
+#Region "XML names"
+        Private Const Name_MediaDownloadHighlights As String = "DownloadHighlights"
+        Private Const Name_MediaDownloadChatMedia As String = "DownloadChatMedia"
+#End Region
+#Region "Declarations"
+        Friend Property CCookie As CookieKeeper = Nothing
+        Private Const HeaderSign As String = "Sign"
+        Private Const HeaderTime As String = "Time"
+        Private ReadOnly HighlightsList As List(Of String)
+        Friend Property MediaDownloadHighlights As Boolean = True
+        Friend Property MediaDownloadChatMedia As Boolean = True
+        Private ReadOnly Property MySettings As SiteSettings
+            Get
+                Return HOST.Source
+            End Get
+        End Property
+#End Region
+#Region "Load"
+        Protected Overrides Sub LoadUserInformation_OptionalFields(ByRef Container As XmlFile, ByVal Loading As Boolean)
+            With Container
+                If Loading Then
+                    MediaDownloadHighlights = .Value(Name_MediaDownloadHighlights).FromXML(Of Boolean)(True)
+                    MediaDownloadChatMedia = .Value(Name_MediaDownloadChatMedia).FromXML(Of Boolean)(True)
+                Else
+                    .Add(Name_MediaDownloadHighlights, MediaDownloadHighlights.BoolToInteger)
+                    .Add(Name_MediaDownloadChatMedia, MediaDownloadChatMedia.BoolToInteger)
+                End If
+            End With
+        End Sub
+#End Region
+#Region "Exchange"
+        Friend Overrides Function ExchangeOptionsGet() As Object
+            Return New UserExchangeOptions(Me)
+        End Function
+        Friend Overrides Sub ExchangeOptionsSet(ByVal Obj As Object)
+            If Not Obj Is Nothing AndAlso TypeOf Obj Is UserExchangeOptions Then
+                With DirectCast(Obj, UserExchangeOptions)
+                    MediaDownloadHighlights = .DownloadHighlights
+                    MediaDownloadChatMedia = .DownloadChatMedia
+                End With
+            End If
+        End Sub
+#End Region
+#Region "Initializer"
+        Friend Sub New()
+            HighlightsList = New List(Of String)
+        End Sub
+#End Region
+#Region "Download functions"
+        Protected Overrides Sub DownloadDataF(ByVal Token As CancellationToken)
+            If Not MySettings.SessionAborted Then
+                If Not CCookie Is Nothing Then CCookie.Dispose()
+                CCookie = Responser.Cookies.Copy
+                Responser.Cookies.Clear()
+                AddHandler Responser.ResponseReceived, AddressOf OnResponseReceived
+                UpdateCookieHeader()
+                DownloadTimeline(IIf(IsSavedPosts, 0, String.Empty), Token)
+                If Not IsSavedPosts Then
+                    If MediaDownloadHighlights Then DownloadHighlights(Token)
+                    If MediaDownloadChatMedia Then DownloadChatMedia(0, Token)
+                End If
+            End If
+        End Sub
+        Private Sub OnResponseReceived(ByVal Sender As Object, ByVal e As WebDataResponse)
+            If e.CookiesExists Then
+                CCookie.Update(e.Cookies, CookieKeeper.UpdateModes.ReplaceByNameAll,, EDP.ReturnValue)
+                UpdateCookieHeader()
+            End If
+        End Sub
+        Private Sub UpdateCookieHeader()
+            Responser.Headers.Add("Cookie", CCookie.ToString(False))
+        End Sub
+        Friend Const A_HIGHLIGHT As String = "HL"
+        Friend Const A_MESSAGE As String = "MSG"
+        Private Const BaseUrlPattern As String = "https://onlyfans.com{0}"
+#Region "Download timeline"
+        Private Overloads Sub DownloadTimeline(ByVal Cursor As String, ByVal Token As CancellationToken)
+            Dim url$ = String.Empty
+            Dim _complete As Boolean = True
+            Do
+                Try
+                    Dim tmpCursor$ = String.Empty
+                    Dim hasMore As Boolean = False
+                    Dim path$ = String.Empty
+                    Dim postDate$, postID$
+                    Dim n As EContainer
+                    Dim mediaList As List(Of UserMedia)
+                    Dim mediaResult As Boolean
+
+                    If IsSavedPosts Then
+                        path = $"/api2/v2/posts/bookmarks/all/?format=infinite&limit=10&offset={Cursor}"
+                    Else
+                        If ID.IsEmptyString Then GetUserID()
+                        If ID.IsEmptyString Then Throw New ArgumentNullException("ID", "Unable to get user ID")
+
+                        path = $"/api2/v2/users/{ID}/posts/medias?limit=50&order=publish_date_desc&skip_users=all&format=infinite&counters=1"
+                        If Not Cursor.IsEmptyString Then path &= $"&counters=0&beforePublishTime={Cursor}" Else path &= "&counters=1"
+                    End If
+
+                    If UpdateSignature(path) Then
+                        url = String.Format(BaseUrlPattern, path)
+                        ThrowAny(Token)
+
+                        Dim r$ = Responser.GetResponse(url)
+                        If Not r.IsEmptyString Then
+                            Using j As EContainer = JsonDocument.Parse(r)
+                                If j.ListExists Then
+                                    If IsSavedPosts Then
+                                        hasMore = j.Value("hasMore").FromXML(Of Boolean)(False)
+                                    Else
+                                        tmpCursor = j.Value("tailMarker")
+                                        hasMore = Not tmpCursor.IsEmptyString
+                                    End If
+                                    With j("list")
+                                        If .ListExists Then
+                                            ProgressPre.ChangeMax(.Count)
+                                            For Each n In .Self
+                                                ProgressPre.Perform()
+                                                postID = n.Value("id")
+                                                postDate = n.Value("postedAt")
+
+                                                If Not _TempPostsList.Contains(postID) Then
+                                                    _TempPostsList.Add(postID)
+                                                Else
+                                                    Exit Sub
+                                                End If
+
+                                                Select Case MyBase.CheckDatesLimit(postDate, DateProvider)
+                                                    Case DateResult.Skip : Continue For
+                                                    Case DateResult.Exit : Exit Sub
+                                                End Select
+
+                                                mediaResult = False
+                                                mediaList = TryCreateMedia(n, postID, postDate, mediaResult)
+                                                If mediaResult Then _TempMediaList.ListAddList(mediaList, LNC)
+                                            Next
+                                        Else
+                                            hasMore = False
+                                        End If
+                                    End With
+                                End If
+                            End Using
+                        End If
+                    End If
+
+                    If hasMore Then
+                        If IsSavedPosts Then tmpCursor = CInt(Cursor.IfNullOrEmpty(0)) + 10
+                        DownloadTimeline(tmpCursor, Token)
+                    End If
+                Catch ex As Exception
+                    _complete = Not ProcessException(ex, Token, $"data downloading error [{url}]") = 2
+                End Try
+            Loop While Not _complete
+        End Sub
+#End Region
+#Region "Download highlights"
+        Private Overloads Sub DownloadHighlights(ByVal Token As CancellationToken)
+            HighlightsList.Clear()
+            DownloadHighlights(0, Token)
+            If HighlightsList.Count > 0 Then HighlightsList.ForEach(Sub(hl) DownloadHighlightMedia(hl, Token))
+        End Sub
+        Private Overloads Sub DownloadHighlights(ByVal Cursor As Integer, ByVal Token As CancellationToken)
+            Dim url$ = String.Empty
+            Dim _complete As Boolean = True
+            Do
+                Try
+                    Dim hasMore As Boolean = False
+                    Dim path$ = $"/api2/v2/users/{ID}/stories/highlights?limit=5&offset={Cursor}"
+                    If UpdateSignature(path) Then
+                        url = String.Format(BaseUrlPattern, path)
+                        ThrowAny(Token)
+                        Dim r$ = Responser.GetResponse(url)
+                        If Not r.IsEmptyString Then
+                            Using j As EContainer = JsonDocument.Parse(r)
+                                If j.ListExists Then
+                                    hasMore = j.Value("hasMore").FromXML(Of Boolean)(False)
+                                    With j("list")
+                                        If .ListExists Then
+                                            HighlightsList.AddRange(.Select(Function(e) e.Value("id")))
+                                        Else
+                                            hasMore = False
+                                        End If
+                                    End With
+                                End If
+                            End Using
+                        End If
+                    End If
+                    If hasMore Then DownloadHighlights(Cursor + 5, Token)
+                Catch ex As Exception
+                    _complete = Not ProcessException(ex, Token, $"highlights downloading error [{url}]") = 2
+                End Try
+            Loop While Not _complete
+        End Sub
+        Private Sub DownloadHighlightMedia(ByVal HLID As String, ByVal Token As CancellationToken)
+            Dim url$ = String.Empty
+            Dim _complete As Boolean = True
+            Do
+                Try
+                    Dim specFolder$, postID$, postDate$
+                    Dim media As List(Of UserMedia)
+                    Dim result As Boolean
+                    Dim path$ = $"/api2/v2/stories/highlights/{HLID}"
+                    If UpdateSignature(path) Then
+                        url = String.Format(BaseUrlPattern, path)
+                        ThrowAny(Token)
+                        Dim r$ = Responser.GetResponse(url)
+                        If Not r.IsEmptyString Then
+                            Using j As EContainer = JsonDocument.Parse(r)
+                                If j.ListExists Then
+                                    specFolder = j.Value("title").StringRemoveWinForbiddenSymbols.IfNullOrEmpty(HLID)
+                                    specFolder &= "*"
+                                    With j("stories")
+                                        If .ListExists Then
+                                            ProgressPre.ChangeMax(.Count)
+                                            For Each m As EContainer In .Self
+                                                ProgressPre.Perform()
+                                                postID = $"{A_HIGHLIGHT}_{HLID}_{m.Value("id")}"
+                                                postDate = m.Value("createdAt")
+                                                If Not _TempPostsList.Contains(postID) Then
+                                                    _TempPostsList.Add(postID)
+                                                Else
+                                                    Exit Sub
+                                                End If
+                                                result = False
+                                                media = TryCreateMedia(m, postID, postDate, result, True, specFolder)
+                                                If result Then _TempMediaList.ListAddList(media, LNC)
+                                            Next
+                                        End If
+                                    End With
+                                End If
+                            End Using
+                        End If
+                    End If
+                Catch ex As Exception
+                    _complete = Not ProcessException(ex, Token, $"highlights downloading error [{url}]") = 2
+                End Try
+            Loop While Not _complete
+        End Sub
+#End Region
+#Region "Download chat media"
+        Private Sub DownloadChatMedia(ByVal Cursor As Integer, ByVal Token As CancellationToken)
+            Dim url$ = String.Empty
+            Dim _complete As Boolean = True
+            Do
+                Try
+                    Dim hasMore As Boolean = False
+                    Dim postID$, postDate$
+                    Dim media As List(Of UserMedia)
+                    Dim result As Boolean
+                    Dim path$ = $"/api2/v2/chats/{ID}/media/?opened=1&limit=20&skip_users=all"
+                    If Cursor > 0 Then path &= $"&offset={Cursor}"
+                    If UpdateSignature(path) Then
+                        url = String.Format(BaseUrlPattern, path)
+                        ThrowAny(Token)
+                        Dim r$ = Responser.GetResponse(url)
+                        If Not r.IsEmptyString Then
+                            Using j As EContainer = JsonDocument.Parse(r)
+                                If j.ListExists Then
+                                    hasMore = j.Value("hasMore").FromXML(Of Boolean)(False)
+                                    With j("list")
+                                        If .ListExists Then
+                                            For Each m As EContainer In .Self
+                                                postID = $"{A_MESSAGE}_{m.Value("id")}"
+                                                postDate = m.Value("createdAt")
+                                                If Not _TempPostsList.Contains(postID) Then
+                                                    _TempPostsList.Add(postID)
+                                                Else
+                                                    Exit Sub
+                                                End If
+                                                result = False
+                                                media = TryCreateMedia(m, postID, postDate, result,, "Chats*")
+                                                If result Then _TempMediaList.ListAddList(media, LNC)
+                                            Next
+                                        End If
+                                    End With
+                                End If
+                            End Using
+                        End If
+                    End If
+                    If hasMore Then DownloadChatMedia(Cursor + 20, Token)
+                Catch ex As Exception
+                    _complete = Not ProcessException(ex, Token, $"chats downloading error [{url}]") = 2
+                End Try
+            Loop While Not _complete
+        End Sub
+#End Region
+        Private Function TryCreateMedia(ByVal n As EContainer, ByVal PostID As String, Optional ByVal PostDate As String = Nothing,
+                                        Optional ByRef Result As Boolean = False, Optional ByVal IsHL As Boolean = False,
+                                        Optional ByVal SpecFolder As String = Nothing) As List(Of UserMedia)
+            Dim postUrl$, ext$
+            Dim t As UTypes
+            Dim mList As New List(Of UserMedia)
+            Result = False
+            With n("media")
+                If .ListExists Then
+                    For Each m In .Self
+                        If IsHL Then
+                            postUrl = m.Value({"files", "source"}, "url")
+                        Else
+                            postUrl = m.Value({"source"}, "source").IfNullOrEmpty(m.Value("full"))
+                        End If
+                        Select Case m.Value("type")
+                            Case "photo" : t = UTypes.Picture : ext = "jpg"
+                            Case "video" : t = UTypes.Video : ext = "mp4"
+                            Case Else : t = UTypes.Undefined : ext = String.Empty
+                        End Select
+                        If Not t = UTypes.Undefined And Not postUrl.IsEmptyString Then
+                            Dim media As New UserMedia(postUrl, t) With {
+                                .Post = New UserPost(PostID, AConvert(Of Date)(PostDate, DateProvider, Nothing)),
+                                .SpecialFolder = SpecFolder
+                            }
+                            media.File.Extension = ext
+                            Result = True
+                            mList.Add(media)
+                        End If
+                    Next
+                End If
+            End With
+            Return mList
+        End Function
+        Private Sub GetUserID()
+            Const brTag$ = "<br />"
+            Dim path$ = $"/api2/v2/users/{Name}"
+            Dim url$ = String.Format(BaseUrlPattern, path)
+            Try
+                If ID.IsEmptyString AndAlso UpdateSignature(path) Then
+                    Dim r$ = Responser.GetResponse(url)
+                    If Not r.IsEmptyString Then
+                        Using j As EContainer = JsonDocument.Parse(r)
+                            If j.ListExists Then
+                                ID = j.Value("id")
+                                If Not ID.IsEmptyString Then _ForceSaveUserInfo = True
+                                UserSiteNameUpdate(j.Value("name"))
+                                Dim descr$ = j.Value("about")
+                                If Not descr.IsEmptyString Then descr = descr.Replace(brTag, String.Empty)
+                                UserDescriptionUpdate(descr)
+                                Dim a As Action(Of String) = Sub(ByVal address As String)
+                                                                 If Not address.IsEmptyString Then
+                                                                     Dim f As SFile = address
+                                                                     f.Separator = "\"
+                                                                     f.Path = DownloadContentDefault_GetRootDir()
+                                                                     If Not f.Exists Then GetWebFile(address, f, EDP.None)
+                                                                 End If
+                                                             End Sub
+                                a.Invoke(j.Value("avatar"))
+                                a.Invoke(j.Value("header"))
+                            End If
+                        End Using
+                    End If
+                End If
+            Catch ex As Exception
+                ProcessException(ex, Nothing, $"user info parsing error [{url}]")
+            End Try
+        End Sub
+        Protected Overrides Sub ReparseMissing(ByVal Token As CancellationToken)
+            Const PathPattern$ = "/api2/v2/posts/{0}?skip_users=all"
+            Dim rList As New List(Of Integer)
+            Dim URL$ = String.Empty
+            Try
+                If ContentMissingExists Then
+                    Dim m As UserMedia
+                    Dim mList As List(Of UserMedia)
+                    Dim mediaResult As Boolean
+                    Dim r$, path$, postDate$
+                    Dim j As EContainer
+                    ProgressPre.ChangeMax(_ContentList.Count)
+                    For i% = 0 To _ContentList.Count - 1
+                        ProgressPre.Perform()
+                        If _ContentList(i).State = UStates.Missing Then
+                            m = _ContentList(i)
+                            If Not m.Post.ID.IsEmptyString Then
+                                ThrowAny(Token)
+                                path = String.Format(PathPattern, m.Post.ID)
+                                If UpdateSignature(path) Then
+                                    URL = String.Format(BaseUrlPattern, path)
+                                    r = Responser.GetResponse(URL,, EDP.ReturnValue)
+                                    If Not r.IsEmptyString Then
+                                        j = JsonDocument.Parse(r)
+                                        If Not j Is Nothing Then
+                                            postDate = j.Value("postedAt")
+                                            mediaResult = False
+                                            mList = TryCreateMedia(j, m.Post.ID, postDate, mediaResult)
+                                            If mediaResult Then
+                                                _TempMediaList.ListAddList(mList, LNC)
+                                                rList.Add(i)
+                                                mList.Clear()
+                                            End If
+                                            j.Dispose()
+                                        End If
+                                    End If
+                                End If
+                            End If
+                        End If
+                    Next
+                End If
+            Catch ex As Exception
+                ProcessException(ex, Token, $"ReparseMissing error [{URL}]")
+            Finally
+                If rList.Count > 0 Then
+                    For i% = rList.Count - 1 To 0 Step -1 : _ContentList.RemoveAt(rList(i)) : Next
+                    rList.Clear()
+                End If
+            End Try
+        End Sub
+#End Region
+#Region "DownloadSingleObject"
+        Protected Overrides Sub DownloadSingleObject_GetPosts(ByVal Data As IYouTubeMediaContainer, ByVal Token As CancellationToken)
+            Dim postID$ = RegexReplace(Data.URL, RegExPostID)
+            If Not postID.IsEmptyString Then _ContentList.Add(New UserMedia With {.Post = postID, .State = UStates.Missing}) : ReparseMissing(Token)
+        End Sub
+#End Region
+#Region "Auth"
+        Private ReadOnly Property AuthFile As SFile
+            Get
+                Dim f As SFile = MySettings.Responser.File
+                f.Name &= "_Auth"
+                f.Extension = "json"
+                Return f
+            End Get
+        End Property
+        Private Function UpdateSignature(ByVal Path As String, Optional ByVal ForceUpdateAuth As Boolean = False) As Boolean
+            Try
+                If UpdateAuthFile(ForceUpdateAuth) Then
+                    Const nullMsg$ = "The auth parameter is null"
+                    Dim j As EContainer = JsonDocument.Parse(AuthFile.GetText)
+                    Dim pattern$ = j.Value("format")
+                    If pattern.IsEmptyString Then Throw New ArgumentNullException("format", nullMsg)
+                    pattern = pattern.Replace("{}", "{0}").Replace("{:x}", "{1:x}")
+
+                    Dim li%() = j("checksum_indexes").Select(Function(e) CInt(e(0).Value)).ToArray
+
+                    If Not li.ListExists Then Throw New ArgumentNullException("checksum_indexes", nullMsg)
+                    If j.Value("static_param").IsEmptyString Then Throw New ArgumentNullException("static_param", nullMsg)
+                    If j.Value("checksum_constant").IsEmptyString Then Throw New ArgumentNullException("checksum_constant", nullMsg)
+
+                    Dim t$ = ADateTime.ConvertToUnix64(Now.ToUniversalTime).ToString
+                    Dim h$ = String.Join(vbLf, j.Value("static_param"), t, Path, MySettings.HH_USER_ID.Value.ToString)
+
+                    Dim hash$ = GetHashSha1(h)
+                    Dim hashBytes() As Byte = System.Text.Encoding.ASCII.GetBytes(hash)
+                    Dim hashSum% = li.Sum(Function(i) hashBytes(i)) + CInt(j.Value("checksum_constant"))
+                    Dim sign$ = String.Format(pattern, hash, Math.Abs(hashSum))
+
+                    '#If DEBUG Then
+                    'Debug.WriteLine(sign)
+                    'Debug.WriteLine(t)
+                    '#End If
+
+                    Responser.Headers.Add(HeaderSign, sign)
+                    Responser.Headers.Add(HeaderTime, t)
+
+                    j.Dispose()
+                    Return True
+                Else
+                    Return False
+                End If
+            Catch ex As Exception
+                Return ErrorsDescriber.Execute(EDP.SendToLog + EDP.ReturnValue, ex, $"{ToStringForLog()}: UpdateSignature", False)
+            End Try
+        End Function
+        Private Function UpdateAuthFile(ByVal Force As Boolean) As Boolean
+            Const urlOld$ = "https://raw.githubusercontent.com/DATAHOARDERS/dynamic-rules/main/onlyfans.json"
+            Const urlNew$ = "https://raw.githubusercontent.com/DIGITALCRIMINALS/dynamic-rules/main/onlyfans.json"
+            Try
+                If MySettings.LastDateUpdated.AddMinutes(CInt(MySettings.DynamicRulesUpdateInterval.Value)) < Now Or Not AuthFile.Exists Or Force Then
+                    Dim r$ = GetWebString(If(ACheck(Of String)(MySettings.DynamicRules.Value),
+                                             CStr(MySettings.DynamicRules.Value),
+                                             IIf(MySettings.UseOldAuthRules.Value, urlOld, urlNew)),, EDP.ReturnValue)
+                    If Not r.IsEmptyString Then
+                        Using j As EContainer = JsonDocument.Parse(r, EDP.ReturnValue)
+                            If j.ListExists Then
+                                If Not j.Value("format").IsEmptyString And j("checksum_indexes").ListExists And
+                                   Not j.Value("static_param").IsEmptyString And Not j.Value("checksum_constant").IsEmptyString Then _
+                                   TextSaver.SaveTextToFile(r, AuthFile, True, False, EDP.ThrowException) : MySettings.LastDateUpdated = Now
+                            End If
+                        End Using
+                    End If
+                End If
+                Return AuthFile.Exists
+            Catch ex As Exception
+                Return ErrorsDescriber.Execute(EDP.SendToLog + EDP.ReturnValue, ex, $"{ToStringForLog()}: UpdateAuthFile", False)
+            End Try
+        End Function
+        Private Function GetHashSha1(ByVal Input As String) As String
+            Dim s As New Security.Cryptography.SHA1CryptoServiceProvider
+            Dim inputBytes() As Byte = System.Text.Encoding.UTF8.GetBytes(Input)
+            Dim hashBytes() As Byte = s.ComputeHash(inputBytes)
+            s.Dispose()
+            Dim result As String = String.Empty
+            For Each b As Byte In hashBytes : result &= b.ToString("x2") : Next
+            Return result
+        End Function
+#End Region
+#Region "DownloadContent"
+        Protected Overrides Sub DownloadContent(ByVal Token As CancellationToken)
+            DownloadContentDefault(Token)
+        End Sub
+#End Region
+#Region "DownloadingException"
+        Private _DownloadingException_AuthFileUpdate As Boolean = False
+        Protected Overrides Function DownloadingException(ByVal ex As Exception, ByVal Message As String, Optional ByVal FromPE As Boolean = False,
+                                                          Optional ByVal EObj As Object = Nothing) As Integer
+            If Responser.StatusCode = Net.HttpStatusCode.BadRequest Then
+                If Not _DownloadingException_AuthFileUpdate AndAlso UpdateAuthFile(True) Then
+                    _DownloadingException_AuthFileUpdate = True
+                    Return 2
+                Else
+                    MySettings.SessionAborted = True
+                    MyMainLOG = $"{ToStringForLog()}: OnlyFans credentials expired"
+                    Return 1
+                End If
+            ElseIf Responser.StatusCode = Net.HttpStatusCode.NotFound Then
+                UserExists = False
+                Return 1
+            ElseIf Responser.StatusCode = Net.HttpStatusCode.GatewayTimeout Or Responser.StatusCode = 429 Then
+                If Responser.StatusCode = 429 Then MyMainLOG = $"[429] OnlyFans too many requests ({ToStringForLog()})"
+                MySettings.SessionAborted = True
+                Return 1
+            Else
+                Return 0
+            End If
+        End Function
+#End Region
+#Region "IDisposable Support"
+        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+            If Not disposedValue And disposing Then CCookie.DisposeIfReady(False) : CCookie = Nothing : HighlightsList.Clear()
+            MyBase.Dispose(disposing)
+        End Sub
+#End Region
+    End Class
+End Namespace

SCrawler/API/OnlyFans/UserExchangeOptions.vb

@@ -0,0 +1,28 @@
+' 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
+Namespace API.OnlyFans
+    Friend Class UserExchangeOptions
+        <PSetting(NameOf(SiteSettings.DownloadHighlights), NameOf(MySettings))>
+        Friend Property DownloadHighlights As Boolean
+        <PSetting(NameOf(SiteSettings.DownloadChatMedia), NameOf(MySettings))>
+        Friend Property DownloadChatMedia As Boolean
+        Private ReadOnly MySettings As SiteSettings
+        Friend Sub New(ByVal u As UserData)
+            DownloadHighlights = u.MediaDownloadHighlights
+            DownloadChatMedia = u.MediaDownloadChatMedia
+            MySettings = u.HOST.Source
+        End Sub
+        Friend Sub New(ByVal s As SiteSettings)
+            DownloadHighlights = s.DownloadHighlights.Value
+            DownloadChatMedia = s.DownloadChatMedia.Value
+            MySettings = s
+        End Sub
+    End Class
+End Namespace

SCrawler/API/PathPlugin/UserData.vb

@@ -12,7 +12,7 @@ Namespace API.PathPlugin
         Private Const DOWNLOAD_ERROR As String = "The path plugin only provides user paths."
         Friend Overrides Property UserExists As Boolean
             Get
-                Return FileExists
+                Return DownloadContentDefault_GetRootDir.CSFileP.Exists(SFO.Path, False)
             End Get
             Set(ByVal e As Boolean)
                 MyBase.UserExists = e

SCrawler/API/Pinterest/SiteSettings.vb

@@ -25,25 +25,12 @@ Namespace API.Pinterest
                 Return My.Resources.SiteResources.PinterestPic_48
             End Get
         End Property
-        Private Class ConcurrentDownloadsValidator : Inherits FieldsCheckerProviderBase
-            Public Overrides 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
-                Dim v% = AConvert(Of Integer)(Value, -1)
-                Dim defV% = Settings.MaxUsersJobsCount
-                If v.ValueBetween(1, defV) Then
-                    Return Value
-                Else
-                    ErrorMessage = $"The number of concurrent downloads must be greater than 0 and equal to or less than {defV} (global limit)."
-                    HasError = True
-                    Return Nothing
-                End If
-            End Function
-        End Class
-        <Provider(NameOf(ConcurrentDownloads), FieldsChecker:=True)>
-        Private ReadOnly Property ConcurrentDownloadsProvider As IFormatProvider
-        <PXML, PropertyOption(ControlText:="Concurrent downloads", ControlToolTip:="The number of concurrent downloads.", LeftOffset:=120), TaskCounter>
+        <PropertyOption(ControlText:=DeclaredNames.ConcurrentDownloadsCaption,
+                        ControlToolTip:=DeclaredNames.ConcurrentDownloadsToolTip, AllowNull:=False, LeftOffset:=120), PXML, TaskCounter>
         Friend ReadOnly Property ConcurrentDownloads As PropertyValue
-        <PXML, PropertyOption(ControlText:="Saved posts user", ControlToolTip:="Personal profile username")>
+        <Provider(NameOf(ConcurrentDownloads), FieldsChecker:=True)>
+        Private ReadOnly Property MyConcurrentDownloadsProvider As IFormatProvider
+        <PropertyOption(ControlText:=DeclaredNames.SavedPostsUserNameCaption, ControlToolTip:=DeclaredNames.SavedPostsUserNameToolTip), PXML>
         Friend ReadOnly Property SavedPostsUserName As PropertyValue
 #End Region
 #Region "Initializer"
@@ -51,7 +38,7 @@ Namespace API.Pinterest
             MyBase.New("Pinterest", "pinterest.com")
             SavedPostsUserName = New PropertyValue(String.Empty, GetType(String))
             ConcurrentDownloads = New PropertyValue(1)
-            ConcurrentDownloadsProvider = New ConcurrentDownloadsValidator
+            MyConcurrentDownloadsProvider = New ConcurrentDownloadsProvider
             CheckNetscapeCookiesOnEndInit = True
             UseNetscapeCookies = True
             UserRegex = RParams.DMS("https?://w{0,3}.?[^/]*?.?pinterest.com/([^/]+)/?(?(_)|([^/]*))", 0, RegexReturn.ListByMatch, EDP.ReturnValue)
@@ -62,8 +49,7 @@ Namespace API.Pinterest
             Return New UserData
         End Function
         Friend Overrides Function Available(ByVal What As ISiteSettings.Download, ByVal Silent As Boolean) As Boolean
-            Return Settings.GalleryDLFile.Exists And (Not What = ISiteSettings.Download.SavedPosts OrElse
-                                                     (Responser.CookiesExists And ACheck(SavedPostsUserName.Value)))
+            Return Settings.GalleryDLFile.Exists And (Not What = ISiteSettings.Download.SavedPosts OrElse ACheck(SavedPostsUserName.Value))
         End Function
 #End Region
 #Region "IsMyUser, IsMyImageVideo, GetUserUrl, GetUserPostUrl"

SCrawler/API/Pinterest/UserData.vb

@@ -38,6 +38,12 @@ Namespace API.Pinterest
         Friend Property TrueUserName As String
         Friend Property TrueBoardName As String
         Friend Property IsUser As Boolean
+        Private Const BoardLabelName As String = "Board"
+        Friend Overrides ReadOnly Property SpecialLabels As IEnumerable(Of String)
+            Get
+                Return {UserLabelName, BoardLabelName}
+            End Get
+        End Property
 #End Region
 #Region "Load"
         Private Function ReconfUserName() As Boolean
@@ -48,12 +54,12 @@ Namespace API.Pinterest
                     IsUser = True
                     If n.Length > 1 Then TrueBoardName = n(1) : IsUser = False
                     If Not IsSavedPosts And Not IsSingleObjectDownload Then
-                        Dim l$ = IIf(IsUser, UserLabelName, "Board")
+                        Dim l$ = IIf(IsUser, UserLabelName, BoardLabelName)
                         Settings.Labels.Add(l)
                         Labels.ListAddValue(l, LNC)
                         Labels.Sort()
+                        Return True
                     End If
-                    Return True
                 End If
             End If
             Return False
@@ -66,7 +72,7 @@ Namespace API.Pinterest
                     IsUser = .Value(Name_IsUser).FromXML(Of Boolean)(False)
                     ReconfUserName()
                 Else
-                    If ReconfUserName() Then .Value(Name_LabelsName) = Labels.ListToString("|", EDP.ReturnValue)
+                    If ReconfUserName() Then .Value(Name_LabelsName) = LabelsString
                     .Add(Name_TrueUserName, TrueUserName)
                     .Add(Name_TrueBoardName, TrueBoardName)
                     .Add(Name_IsUser, IsUser.BoolToInteger)
@@ -113,6 +119,8 @@ Namespace API.Pinterest
                 End If
             Catch ex As Exception
                 ProcessException(ex, Token, $"data downloading error [{URL}]")
+            Finally
+                ProgressPre.Done()
             End Try
         End Sub
 #End Region
@@ -126,10 +134,12 @@ Namespace API.Pinterest
                 Dim j As EContainer, jj As EContainer
                 Dim rootNode$() = {"resource_response", "data"}
                 Dim jErr As New ErrorsDescriber(EDP.SendToLog + EDP.ReturnValue)
-                Dim urls As List(Of String) = GetDataFromGalleryDL(URL, True)
+                Dim urls As List(Of String) = GetDataFromGalleryDL(URL, True, Token)
                 If urls.ListExists Then urls.RemoveAll(Function(__url) Not __url.Contains("BoardsResource/get/"))
                 If urls.ListExists Then
+                    ProgressPre.ChangeMax(urls.Count)
                     For Each URL In urls
+                        ProgressPre.Perform()
                         ThrowAny(Token)
                         r = Responser.GetResponse(URL,, EDP.ReturnValue)
                         If Not r.IsEmptyString Then
@@ -173,17 +183,21 @@ Namespace API.Pinterest
                 Dim images As List(Of Sizes)
                 Dim imgSelector As Func(Of EContainer, Sizes) = Function(img) New Sizes(img.Value("width"), img.Value("url"))
                 Dim fullData As Predicate(Of EContainer) = Function(e) e.Count > 5
-                Dim l As List(Of String) = GetDataFromGalleryDL(Board.URL, False)
+                Dim l As List(Of String) = GetDataFromGalleryDL(Board.URL, False, Token)
                 If l.ListExists Then l.RemoveAll(Function(ll) Not ll.Contains("BoardFeedResource/get/"))
                 If l.ListExists Then
+                    ProgressPre.ChangeMax(l.Count)
                     For Each bUrl In l
+                        ProgressPre.Perform()
                         ThrowAny(Token)
                         r = Responser.GetResponse(bUrl,, EDP.ReturnValue)
                         If Not r.IsEmptyString Then
                             j = JsonDocument.Parse(r, jErr)
                             If Not j Is Nothing Then
                                 If If(j(rootNode)?.Count, 0) > 0 Then
+                                    ProgressPre.ChangeMax(j(rootNode).Count)
                                     For Each jj In j(rootNode)
+                                        ProgressPre.Perform()
                                         With jj
                                             If .Contains("images") Then
                                                 images = .Item("images").Select(imgSelector).ToList
@@ -245,8 +259,8 @@ Namespace API.Pinterest
         Private Class GDLBatch : Inherits GDL.GDLBatch
             Private ReadOnly Property Source As UserData
             Private ReadOnly IsBoardsRequested As Boolean
-            Friend Sub New(ByRef s As UserData, ByVal IsBoardsRequested As Boolean)
-                MyBase.New
+            Friend Sub New(ByRef s As UserData, ByVal IsBoardsRequested As Boolean, ByVal _Token As CancellationToken)
+                MyBase.New(_Token)
                 Source = s
                 Me.IsBoardsRequested = IsBoardsRequested
             End Sub
@@ -261,22 +275,24 @@ Namespace API.Pinterest
             Protected Overrides Async Function Validate(ByVal Value As String) As Task
                 If IsBoardsRequested Then
                     If ErrorOutputData.Count > 0 Then
-                        If Await Task.Run(Of Boolean)(Function() ErrorOutputData.Exists(Function(ee) Not ee.IsEmptyString AndAlso
-                                                                                                     ee.StartsWith(UrlTextStart))) Then Kill(EDP.None)
+                        If Await Task.Run(Of Boolean)(Function() Token.IsCancellationRequested OrElse
+                                                                 ErrorOutputData.Exists(Function(ee) Not ee.IsEmptyString AndAlso
+                                                                                                     ee.StartsWith(UrlTextStart))) Then Kill()
                     End If
                 Else
-                    If Await Task.Run(Of Boolean)(Function() Not Value.IsEmptyString AndAlso
-                                                             Source._TempPostsList.Exists(Function(v) Value.Contains(v))) Then Kill(EDP.None)
+                    If Await Task.Run(Of Boolean)(Function() Token.IsCancellationRequested OrElse
+                                                             (Not Value.IsEmptyString AndAlso
+                                                             Source._TempPostsList.Exists(Function(v) Value.Contains(v)))) Then Kill()
                 End If
             End Function
         End Class
-        Private Function GetDataFromGalleryDL(ByVal URL As String, ByVal IsBoardsRequested As Boolean) As List(Of String)
+        Private Function GetDataFromGalleryDL(ByVal URL As String, ByVal IsBoardsRequested As Boolean, ByVal Token As CancellationToken) As List(Of String)
             Dim command$ = $"gallery-dl --verbose --simulate "
             Try
                 If Not URL.IsEmptyString Then
                     If MySettings.CookiesNetscapeFile.Exists Then command &= $"--cookies ""{MySettings.CookiesNetscapeFile}"" "
                     command &= URL
-                    Using batch As New GDLBatch(Me, IsBoardsRequested)
+                    Using batch As New GDLBatch(Me, IsBoardsRequested, Token)
                         Return GetUrlsFromGalleryDl(batch, command)
                     End Using
                 End If

SCrawler/API/PornHub/Declarations.vb

@@ -6,6 +6,7 @@
 '
 ' This program is distributed in the hope that it will be useful,
 ' but WITHOUT ANY WARRANTY
+Imports System.Text.RegularExpressions
 Imports PersonalUtilities.Functions.RegularExpressions
 Namespace API.PornHub
     Friend Module Declarations
@@ -13,19 +14,18 @@ Namespace API.PornHub
         Private ReadOnly UnicodeHexConverter As Func(Of String, String) = Function(Input) SymbolsConverter.UnicodeHex.Decode(Input, EDP.ReturnValue)
 #End Region
 #Region "Declarations video"
-        Friend ReadOnly RegexVideo_FlashVarsBlock As RParams = RParams.DM("(?<=flashvars_\['[nN]ext[vV]ideo'\];[\r\n]*?)(.+?)(?=;flashvars_\d+?)", 0, EDP.ReturnValue)
+        Friend ReadOnly RegexVideo_FlashVarsBlocks As RParams = RParams.DM("(?<=(flashvars_\['[nN]ext[vV]ideo'\]|flashvars_\d+[^ ]+? = media_\d+?);[\r\n]*?)(.+?)(?=;flashvars_\d+?)",
+                                                                           0, RegexReturn.List, EDP.ReturnValue)
         Friend ReadOnly RegexVideo_FlashVars_Vars As RParams = RParams.DM("var ([\w\d]{10,})=("".+?)(?=(;|\Z))", 0, RegexReturn.List)
         Friend ReadOnly RegexVideo_FlashVars_Compiler As RParams = RParams.DM("(?<=\*/)([\w\d\S]{10,})", 0, RegexReturn.List)
-        Friend ReadOnly RegexVideo_Video_All As RParams = RParams.DM("div class=""thumbnail-info-wrapper clearfix.+?[\r\n\s]*?\<span class=""title.+?[\r\n\s]*?\<a href=""([^""]+?)""[\s]+?title=""([^""]*?)""",
-                                                                     0, RegexReturn.List, EDP.ReturnValue, UnicodeHexConverter)
-        Friend ReadOnly RegexVideo_Video_Wrong As RParams = RParams.DM("div class=""thumbnail-info-wrapper clearfix.+?[\r\n\s]*?\<span class=""title.+?[\r\n\s]*?\<a href=""([^""]+?)""[\s]+?title=""([^""]*?)""[\w\W\s\r\n]+?(?=\<div class=""videoUploaderBlock)",
-                                                                       0, RegexReturn.List, EDP.ReturnValue, UnicodeHexConverter)
-        Private ReadOnly RegexVideo_Video_Wrong_Option As RParams = RParams.DM("div class=""thumbnail-info-wrapper clearfix.+?[\r\n\s]*?\<span class=""title.+?[\r\n\s]*?\<a href=""([^""]+?)""[\s]+?title=""([^""]*?)""[\w\W\s\r\n]+?", 0, RegexReturn.ListByMatch)
-        Friend ReadOnly RegexVideo_Video_Wrong_Fields As RField() = {New RField(New RFieldOption(1, RegexVideo_Video_Wrong_Option)), New RField(New RFieldOption(2, RegexVideo_Video_Wrong_Option))}
+        Friend ReadOnly RegexVideo_FlashVars_UrlResolution As RParams = RParams.DMS("/(\d+)[^/]+\.mp4", 1, EDP.ReturnValue)
+        Friend ReadOnly RegexUserVideos As RParams = RParams.DM("(\<li class=""pcVideoListItem)((?:(?!/li\>).)*?)(\<div.class=.private-vid-title((?:(?!/li\>).)*?)|)(\<a.href=.([^""]+?)"".title=.([^""]*?)"")(((?:(?!/li\>).)+?)(\<div class=.videoUploaderBlock)|)((?:(?!/li\>).)*?)(\</li\>)",
+                                                                0, RegexOptions.Singleline, RegexReturn.List, EDP.ReturnValue, UnicodeHexConverter)
         Friend ReadOnly RegexVideo_Video_VideoKey As RParams = RParams.DMS("viewkey=([\w\d]+)", 1, EDP.ReturnValue)
         Friend ReadOnly RegexVideoPageTitle As RParams = RParams.DMS("meta (property|name)=""[^:]+?:title"" content=""([^""]+)""", 2, EDP.ReturnValue)
 #End Region
 #Region "Declarations M3U8"
+        Friend ReadOnly Regex_M3U8_FilesList As RParams = RParams.DM("RESOLUTION=\d+x(\d+).*?[\r\n]*?(.+?m3u8.*)", 0, RegexReturn.List, EDP.ReturnValue)
         Friend ReadOnly Regex_M3U8_FirstFileRegEx As RParams = RParams.DM(".+?m3u8.*", 0)
         Friend ReadOnly Regex_M3U8_FileUrl As RParams = RParams.DMS("((https://([^/]+)/.+?)([^/]+?m3u8))(.*)", 2, EDP.ReturnValue)
 #End Region

SCrawler/API/PornHub/M3U8.vb

@@ -16,11 +16,19 @@ Namespace API.PornHub
     Friend NotInheritable Class M3U8
         Private Sub New()
         End Sub
-        Private Shared Function GetUrlsList(ByVal URL As String, ByVal Responser As Responser) As List(Of String)
+        Private Shared Function GetUrlsList(ByVal URL As String, ByVal Responser As Responser, ByVal DownloadUHD As Boolean) As List(Of String)
             Dim appender$ = RegexReplace(URL, Regex_M3U8_FileUrl)
             Dim r$ = Responser.GetResponse(URL)
             If Not r.IsEmptyString Then
-                Dim file$ = RegexReplace(r, Regex_M3U8_FirstFileRegEx)
+                Dim files As List(Of Sizes) = RegexFields(Of Sizes)(r, {Regex_M3U8_FilesList}, {1, 2}, EDP.ReturnValue)
+                Dim file$
+                If files.ListExists Then files.RemoveAll(Function(f) f.Value = 0 Or (Not DownloadUHD And f.Value > 1080))
+                If files.ListExists Then
+                    files.Sort()
+                    file = files(0).Data
+                Else
+                    file = RegexReplace(r, Regex_M3U8_FirstFileRegEx)
+                End If
                 If Not file.IsEmptyString Then
                     Dim NewUrl$ = M3U8Base.CreateUrl(appender, file)
                     If Not NewUrl.IsEmptyString Then
@@ -37,9 +45,9 @@ Namespace API.PornHub
             End If
             Return Nothing
         End Function
-        Friend Shared Function Download(ByVal URL As String, ByVal Responser As Responser, ByVal Destination As SFile,
-                                        ByVal Token As CancellationToken, ByVal Progress As MyProgress) As SFile
-            Return M3U8Base.Download(GetUrlsList(URL, Responser), Destination, Responser, Token, Progress)
+        Friend Shared Function Download(ByVal URL As String, ByVal Responser As Responser, ByVal Destination As SFile, ByVal DownloadUHD As Boolean,
+                                        ByVal Token As CancellationToken, ByVal Progress As MyProgress, ByVal UsePreProgress As Boolean) As SFile
+            Return M3U8Base.Download(GetUrlsList(URL, Responser, DownloadUHD), Destination, Responser, Token, Progress, UsePreProgress)
         End Function
     End Class
 End Namespace