2022.7.7.0

Brushed the code in some classes
Extended PropertyOption attribute
Removed AuthNullException
Moved ExitException to UserData class
Removed Instagram HashUpdateRequired and its environment
Changed Reddit response status code check
Twitter images bug
Added Scheduler, task startup delay, webp to jpg
Fixed Stop button bug
Minor changes

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

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

SCrawler.Plugin.XVIDEOS/SettingsForm.Designer.vb

@@ -25,14 +25,9 @@ Partial Public Class SettingsForm : Inherits System.Windows.Forms.Form
         Dim CONTAINER_MAIN As System.Windows.Forms.ToolStripContainer
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(SettingsForm))
         Me.LIST_DOMAINS = New System.Windows.Forms.ListBox()
-        Me.ToolbarTOP = New System.Windows.Forms.ToolStrip()
-        Me.BTT_ADD = New System.Windows.Forms.ToolStripButton()
-        Me.BTT_DELETE = New System.Windows.Forms.ToolStripButton()
         CONTAINER_MAIN = New System.Windows.Forms.ToolStripContainer()
         CONTAINER_MAIN.ContentPanel.SuspendLayout()
-        CONTAINER_MAIN.TopToolStripPanel.SuspendLayout()
         CONTAINER_MAIN.SuspendLayout()
-        Me.ToolbarTOP.SuspendLayout()
         Me.SuspendLayout()
         '
         'CONTAINER_MAIN
@@ -41,7 +36,7 @@ Partial Public Class SettingsForm : Inherits System.Windows.Forms.Form
         'CONTAINER_MAIN.ContentPanel
         '
         CONTAINER_MAIN.ContentPanel.Controls.Add(Me.LIST_DOMAINS)
-        CONTAINER_MAIN.ContentPanel.Size = New System.Drawing.Size(384, 266)
+        CONTAINER_MAIN.ContentPanel.Size = New System.Drawing.Size(384, 291)
         CONTAINER_MAIN.Dock = System.Windows.Forms.DockStyle.Fill
         CONTAINER_MAIN.LeftToolStripPanelVisible = False
         CONTAINER_MAIN.Location = New System.Drawing.Point(0, 0)
@@ -50,52 +45,15 @@ Partial Public Class SettingsForm : Inherits System.Windows.Forms.Form
         CONTAINER_MAIN.Size = New System.Drawing.Size(384, 291)
         CONTAINER_MAIN.TabIndex = 0
         '
-        'CONTAINER_MAIN.TopToolStripPanel
-        '
-        CONTAINER_MAIN.TopToolStripPanel.Controls.Add(Me.ToolbarTOP)
-        '
         'LIST_DOMAINS
         '
         Me.LIST_DOMAINS.Dock = System.Windows.Forms.DockStyle.Fill
         Me.LIST_DOMAINS.FormattingEnabled = True
         Me.LIST_DOMAINS.Location = New System.Drawing.Point(0, 0)
         Me.LIST_DOMAINS.Name = "LIST_DOMAINS"
-        Me.LIST_DOMAINS.Size = New System.Drawing.Size(384, 266)
+        Me.LIST_DOMAINS.Size = New System.Drawing.Size(384, 291)
         Me.LIST_DOMAINS.TabIndex = 0
         '
-        'ToolbarTOP
-        '
-        Me.ToolbarTOP.Dock = System.Windows.Forms.DockStyle.None
-        Me.ToolbarTOP.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
-        Me.ToolbarTOP.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BTT_ADD, Me.BTT_DELETE})
-        Me.ToolbarTOP.Location = New System.Drawing.Point(0, 0)
-        Me.ToolbarTOP.Name = "ToolbarTOP"
-        Me.ToolbarTOP.Size = New System.Drawing.Size(384, 25)
-        Me.ToolbarTOP.Stretch = True
-        Me.ToolbarTOP.TabIndex = 0
-        '
-        'BTT_ADD
-        '
-        Me.BTT_ADD.AutoToolTip = False
-        Me.BTT_ADD.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.BTT_ADD.ForeColor = System.Drawing.Color.DarkGreen
-        Me.BTT_ADD.Image = CType(resources.GetObject("BTT_ADD.Image"), System.Drawing.Image)
-        Me.BTT_ADD.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.BTT_ADD.Name = "BTT_ADD"
-        Me.BTT_ADD.Size = New System.Drawing.Size(49, 22)
-        Me.BTT_ADD.Text = "Add"
-        '
-        'BTT_DELETE
-        '
-        Me.BTT_DELETE.AutoToolTip = False
-        Me.BTT_DELETE.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.BTT_DELETE.ForeColor = System.Drawing.Color.Maroon
-        Me.BTT_DELETE.Image = CType(resources.GetObject("BTT_DELETE.Image"), System.Drawing.Image)
-        Me.BTT_DELETE.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.BTT_DELETE.Name = "BTT_DELETE"
-        Me.BTT_DELETE.Size = New System.Drawing.Size(60, 22)
-        Me.BTT_DELETE.Text = "Delete"
-        '
         'SettingsForm
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -112,18 +70,11 @@ Partial Public Class SettingsForm : Inherits System.Windows.Forms.Form
         Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
         Me.Text = "Settings"
         CONTAINER_MAIN.ContentPanel.ResumeLayout(False)
-        CONTAINER_MAIN.TopToolStripPanel.ResumeLayout(False)
-        CONTAINER_MAIN.TopToolStripPanel.PerformLayout()
         CONTAINER_MAIN.ResumeLayout(False)
         CONTAINER_MAIN.PerformLayout()
-        Me.ToolbarTOP.ResumeLayout(False)
-        Me.ToolbarTOP.PerformLayout()
         Me.ResumeLayout(False)
 
     End Sub
 
     Private WithEvents LIST_DOMAINS As Windows.Forms.ListBox
-    Private WithEvents ToolbarTOP As Windows.Forms.ToolStrip
-    Private WithEvents BTT_ADD As Windows.Forms.ToolStripButton
-    Private WithEvents BTT_DELETE As Windows.Forms.ToolStripButton
 End Class

SCrawler.Plugin.XVIDEOS/SettingsForm.resx

@@ -120,60 +120,7 @@
   <metadata name="CONTAINER_MAIN.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>False</value>
   </metadata>
-  <metadata name="ToolbarTOP.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="BTT_ADD.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAN+SURBVEhLrZVZSFRRGMdvKa6oE5Y1bpTtRY2pJYk3ayyd
-        xgrvaDXlQotLKVqSo7QR2QIREUX0EgUSET1V9NTyYBHt6ZTOqNPY7DomWNbriX/fuYzkg2jY/eAPM5zD
-        //+d7/7OvcJkFXIlqDX0ahDGE18LbJt6cSOtWWTaDhGbPonQdZEsIrY7cuWQwLapFzfZ9FlkES8ERL8W
-        EPteQMLHYFR69coFUNcs5o2AWe+nYW5HKFK7otHkL1IuoKBbZLzzFHMo0qwxWN8zG2eHSpULkGxalmIO
-        w2qrCvm2eJr/AlwZrlIuYN9XHcuwqKC3JWC3czGqXKm4OVKvXMARTyHTfUlEmWspatxp9D8Ld0ZM/xYw
-        EeejMnkMv0tdS1DnzkBzv4jT/jy0fm/EzLvhE0p9P7JV7jB3lHHiu6BHhMGmRbkjH3WebTjq245z/nL6
-        nYFjvnVo8efjzKAOrcONuD1skoNuDNfj8lAFWgZL0OQrphEWoMa1E+oHkZADuHn0K2L8rYDEjhBoCENO
-        itSXgr2u5TjkycTx/g1koMP5Qb0ccHogj8xEVLlTsaNvIXJ750BjiUZSewhU5LPTIv0N4J1zc76osUTR
-        ZjWKAuaHvZk44dPijF9HAXk4OaCFyZdNzyIde5zLUGifh5yeOKzoikJ8RzBU7wSE06Us+jQmoMAqIpnM
-        U6mDXJtaxrDSrUGDdw2O9a/HCTI96suByZuNw57VqKa1MtcybLXPxTo6qWzeHgx+Gbn5tCcCpHdjAnbZ
-        NmKtNZYwTESJYwnq6WE2EinNZMhNj3izZDXQqKppJJymLfZkZHfHYWlnJNQfghBFIw5rEyA8Jj2ggJdj
-        Ag769cw0ZGAtP8rYhZH97NLPanbpVxW7/PMAu/atlnSQzNeg0qWB0bkIensSmj3lqHUaf1d4ilipU2LG
-        LxIzWCUmfSZ9JL2VmBzAMR0PsVHxTbeGmlmleyWMjoXYTKfMpNPWuI3y2oTimE5WfOP1bw1sBz2X/N4E
-        pNONnm8Oxx6HQTYJbJt6cZOLAzUsrzdeftHxt2kskbLbFpjx/xY3OeWtYKssMUgkUmYQzvzbUDzK+f8W
-        N6l3lbCk9lCoCMOI5wKCnhIlZgUD9tkNjJuHUefTOYaPKOCNggEl3RILp84FukDCQ9I9CnihYEBxpySP
-        hNiWL5DURnqmVACxzI3G1aScC8If1IGynvf45pQAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="BTT_DELETE.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAVFSURBVEhLjZVrTJNXGMcLQmdHO6Sdt6ygAyYgN+1bS+uE
-        4ASlxVfSUkFkRMyouILinShGYzTRKCZL9mH7sH3YMj+YzUSXZXNeQOcEFkFhysbVQWlL6dsLvMwtWaBn
-        /1OKl1A2nuSX8p7znP/z5znnPa+ARntubkRjXNxnd5Ys6b2xbNmn+XL5WxgO80/+T/SoVOo/YmLu9S9d
-        +uhqfLwRQxEgxD9J44nZLH6Qm/tNT20tGbh4kTw9dMh3Q6NpyJBI3sF0+FRW8OhimHX2kpJB/vx5Ml5f
-        TwaKitwfJyZWxURGRmF6qkhDXNwn3QcOkKenTpGBkyeJFcmWI0fIdbX6XppEsgIpQYv0aTTvQdzCX7hA
-        eKzl6+rI+IkTpJdlPd/K5R8hRQrCBHdkMisVh3MyeOwYsSJp+OxZYq2t9d1QqX5OlUgSkPhKEbRlo724
-        2EqdU/FxiPOHD5NxGPOWlZHGxYs7kaYGEsGt6OhLvRUVZAAFLMB69CixY8HImTPEjnbdVqubU8TiRCT7
-        i/QoFBuHi4qsY+fOER5mxmGKx7rx/fvJ6O7dpEGl4splsq+RqgNSgWH58mXXlcp7/Tt3+oaQZAPDcDOC
-        PXGhZc6DB8kdFFktFic9ZJhcm9FoHzt92t8SHo55tJevqSFjEL+rUrkTRKIvIWwCaYBuuCCckckSUaTZ
-        smMHse/ZQxzV1WRk3z7CoZiH/jfV1b4WjaZjsKDAyh8/7nfMY45HLl9VNSWuVLqTRKJL0KsAyQHxUOAP
-        4WqpNOlHhaJpqLTU56isJE7gMpuJGwJeFPPu3UvG4HaMCuOZx7NfHO1t0mg86WIxFafOV4L54MVRDYRQ
-        JZWuvJWe3mzfupU4y8uJC3hMJuKFw1EUHMUGjhYUEO/69cSr0RA3aMrI8K6WSC5j/S5AnYvADPHpEK6J
-        ikpuSEtrtrHshHvbNuLSaomLYQgnlxNOIiFceDjh5s0jI2Kx73ZsrEcdFUU3tBKkgNfBrOLT4W/Xg/T0
-        9mEIOqgYcAIq7CcsjPzOMH8bExO/R/6HIBXMSdwf9rIys33dOotDJJopDuiYNT5+opFl+5OiowuwJBLM
-        TdxrMh3kNmzgHHA/m7gNDAJLcjJ5VFjYuX3t2lVY+p/Xij9cJlMdt2mTyxERMUPcid7TdlHxAdAbGkqe
-        gO5Vq3zthYW/GdVq2qbZi3h27TrG5eW5gzl3ymRkKC/vH3tCgo+K9wTE20ATeMwwk+1GY+f22YrgKNZx
-        Wq3HIRb7hV9py6JFpEun+/N0VlZL2+bNw5akJPIYoq3gPvgJNIL2NWsmW43Gjg1pafSCfHHVuysqajmd
-        zoNjN1N84ULSk5//rIphbiG1Oi8l5f1Ovb6/C72fFm8AN8F10KpSTbYUFrZ9wbJ044UgROA2GKwjCxYE
-        dU7FKxWKm0g0A7qR0n3Z2e92GAx9Hampz8V/AN+Ba6A9K2ui1WDoRu5yIBQ4jcYud0xMUOdmhrmNpKqA
-        +PSXSrg/J0eNje1rS031vSx+JSSEtGZmTtxlWRvyckGUoKW0tGSYZV0uiL7k/K89wcWnQ1iTnZ2Bje3F
-        C0muBsRxbUxe1mqHdCtWfI6cqQKI+TeLio5bt2zxONVqX49O96xGqWzA+Gzi0yE0ZWYqaDtase4XjWby
-        ilZre0MkqsecHky1CBHCxMZGPjQYvnqq1zsv5+Tg9IXWYJwBYjpPk2YJ4bXi4g9+1ett91mW0yYk0G+B
-        AcgBPa7P19I/FgAlyA/8zvX1fw3Qo0lPzmbwNgj6ws0D1DH9WNNf+jyXoCbo/f9mAFowYEwg+Bc5Ntw7
-        FHW1qQAAAABJRU5ErkJggg==
-</value>
-  </data>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAUAEBAAAAEAIABoBAAAVgAAABgYAAABACAAiAkAAL4EAAAgIAAAAQAIAKgIAABGDgAAMDAAAAEA

SCrawler.Plugin.XVIDEOS/SettingsForm.vb

@@ -8,18 +8,19 @@
 ' but WITHOUT ANY WARRANTY
 Imports PersonalUtilities.Forms.Toolbars
 Imports PersonalUtilities.Forms
-Public Class SettingsForm : Implements IOkCancelToolbar
-    Private ReadOnly MyDefs As DefaultFormProps
+Public Class SettingsForm
+    Private WithEvents MyDefs As DefaultFormOptions
     Private ReadOnly Property Settings As SiteSettings
-    Friend Sub New(ByRef s As SiteSettings)
+    Friend Sub New(ByRef s As SiteSettings, ByRef Design As XML.XmlFile)
         InitializeComponent()
-        MyDefs = New DefaultFormProps
         Settings = s
+        MyDefs = New DefaultFormOptions(Me, Design)
     End Sub
     Private Sub SettingsForm_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
             With MyDefs
-                .MyViewInitialize(Me, Settings.Design, True)
+                .MyViewInitialize(True)
+                .AddEditToolbar({EditToolbar.ControlItem.Add, EditToolbar.ControlItem.Delete})
                 .AddOkCancelToolbar()
                 If Settings.Domains.Count > 0 Then Settings.Domains.ForEach(Sub(d) LIST_DOMAINS.Items.Add(d))
                 .EndLoaderOperations()
@@ -28,7 +29,7 @@ Public Class SettingsForm : Implements IOkCancelToolbar
             MyDefs.InvokeLoaderError(ex)
         End Try
     End Sub
-    Private Sub OK() Implements IOkCancelToolbar.OK
+    Private Sub MyDefs_ButtonOkClick() Handles MyDefs.ButtonOkClick
         Settings.Domains.Clear()
         With LIST_DOMAINS
             If .Items.Count > 0 Then
@@ -38,10 +39,7 @@ Public Class SettingsForm : Implements IOkCancelToolbar
         Settings.UpdateDomains()
         MyDefs.CloseForm()
     End Sub
-    Private Sub Cancel() Implements IOkCancelToolbar.Cancel
-        MyDefs.CloseForm(Windows.Forms.DialogResult.Cancel)
-    End Sub
-    Private Sub BTT_ADD_Click(sender As Object, e As EventArgs) Handles BTT_ADD.Click
+    Private Sub MyDefs_ButtonAddClick() Handles MyDefs.ButtonAddClick
         Dim nd$ = InputBoxE("Enter a new domain using the pattern [xvideos.com]:", "New domain")
         If Not nd.IsEmptyString Then
             If Not LIST_DOMAINS.Items.Contains(nd) Then
@@ -51,7 +49,7 @@ Public Class SettingsForm : Implements IOkCancelToolbar
             End If
         End If
     End Sub
-    Private Sub BTT_DELETE_Click(sender As Object, e As EventArgs) Handles BTT_DELETE.Click
+    Private Sub MyDefs_ButtonDeleteClick() Handles MyDefs.ButtonDeleteClickE
         If _LatestSelected.ValueBetween(0, LIST_DOMAINS.Items.Count - 1) Then
             Dim n$ = LIST_DOMAINS.Items(_LatestSelected)
             If MsgBoxE({$"Are you sure you want to delete the [{n}] domain?",

SCrawler.Plugin.XVIDEOS/SiteSettings.vb

@@ -41,7 +41,6 @@ Public Class SiteSettings : Implements ISiteSettings
     Public ReadOnly Property Responser As Response
     Private Const DomainsDefault As String = "xvideos.com|xnxx.com"
     Private _Initialized As Boolean = False
-    Friend Design As XmlFile
     Public Sub New()
         Responser = New Response($"Settings\Responser_{Site}.xml")
         With Responser
@@ -109,10 +108,8 @@ Public Class SiteSettings : Implements ISiteSettings
     Public Sub Reset() Implements ISiteSettings.Reset
     End Sub
     Public Sub OpenSettingsForm() Implements ISiteSettings.OpenSettingsForm
-        Using f As New SettingsForm(Me)
-            Design = New XmlFile("Settings\Design_XVIDEOS.xml")
-            f.ShowDialog()
-            Design.Dispose()
+        Using Design As New XmlFile("Settings\Design_XVIDEOS.xml")
+            Using f As New SettingsForm(Me, Design) : f.ShowDialog() : End Using
         End Using
     End Sub
     Public Sub UserOptions(ByRef Options As Object, ByVal OpenForm As Boolean) Implements ISiteSettings.UserOptions