2026.11.8.0

API.PornHub: fix subscriptions
API.Reddit: fix channels (change to OAuth); add the 'UserExists' and 'UserSuspended' options to the user settings form; update 'IRedditView'

Changelog.md

@@ -2,13 +2,33 @@
 - [ffmpeg](https://github.com/AAndyProgram/SCrawler/wiki/Settings#ffmpeg)
   - x64 version - [release](https://github.com/GyanD/codexffmpeg/releases/tag/5.1.2); [zip](https://github.com/GyanD/codexffmpeg/releases/download/5.1.2/ffmpeg-5.1.2-full_build.zip); **version `5.1.2-full_build-www.gyan.dev`**
   - x86 version - [release](https://github.com/yt-dlp/FFmpeg-Builds/releases/tag/autobuild-2022-11-30-12-57); [zip](https://github.com/yt-dlp/FFmpeg-Builds/releases/download/autobuild-2022-11-30-12-57/ffmpeg-N-109274-gd7a5f068c2-win32-gpl.zip); **version `N-109457-geeb280f351-20221226`**
-- [Gallery-dl](https://github.com/AAndyProgram/SCrawler/wiki/Settings#gallery-dl) - **1.32.18**
+- [Gallery-dl](https://github.com/AAndyProgram/SCrawler/wiki/Settings#gallery-dl) - **1.32.19**
-- [YT-DLP](https://github.com/AAndyProgram/SCrawler/wiki/Settings#yt-dlp) - **2026.10.21**
+- [YT-DLP](https://github.com/AAndyProgram/SCrawler/wiki/Settings#yt-dlp) - **2026.10.26**
 - [Deno](https://github.com/AAndyProgram/SCrawler/wiki/Settings#deno) - latest *(`2.0.0` or higher)*
 - [OF-Scraper](https://github.com/AAndyProgram/SCrawler/wiki/Settings#of-scraper) - **3.12.9** ([release](https://github.com/datawhores/OF-Scraper/releases/tag/3.12.9))
 
 # 2026
 
+## 2026.11.8.0
+
+*2026-11-08*
+
+- Updated
+  - gallery-dl up to version **1.32.19**
+- Fixed
+  - Sites:
+    - PornHub: subscriptions don't load photos
+    - **Reddit: channels are not downloading**
+
+## 2026.10.29.0
+
+*2026-10-29*
+
+- Updated
+  - yt-dlp up to version **2026.10.26**
+- Fixed
+  - **Instagram: user stories are not downloading**
+
 ## 2026.10.26.0
 
 *2026-10-26*

SCrawler/API/Instagram/UserData.GQL.vb

@@ -45,7 +45,7 @@ Namespace API.Instagram
         Private Const GQL_Highlights_FbFriendlyName As String = "PolarisProfileStoryHighlightsTrayContentQuery"
         Private Const GQL_Highlights_FbFriendlyName_Second As String = "PolarisStoriesV3HighlightsPageQuery"
 
-        Private Const GQL_UserStories_DocId As String = "25231722019806941"
+        Private Const GQL_UserStories_DocId As String = "29170422829314651" '"25231722019806941"
         Private Const GQL_UserStories_FbFriendlyName As String = "PolarisStoriesV3ReelPageStandaloneQuery"
 
         Private Const GQL_Timeline_DocId As String = "7268577773270422" '"34579740524958711" '"7268577773270422"
@@ -246,7 +246,7 @@ Namespace API.Instagram
             UpdateTokens(Not ValidateBaseTokens())
             '"{" & $"""user_id"":""{ID}""" & "}"
             Dim vars$ = String.Format(GQL_URL_PATTERN_VARS, GQL_UserStories_DocId, Token_lsd, Token_dtsg_Var, GQL_UserStories_FbFriendlyName,
-                                      SymbolsConverter.ASCII.EncodeSymbolsOnly("{" & $"""reel_ids_arr"":[""{ID}""]" & "}"))
+                                      SymbolsConverter.ASCII.EncodeSymbolsOnly("{" & $"""reel_ids_arr"":[""{ID}""],""__relay_internal__pv__PolarisCommunityNoteStoriesLabelEnabledrelayprovider"":true" & "}"))
             UpdateRequestNumber()
             ChangeResponserMode(True)
             UpdateHeadersGQL(GQL_UserStories_FbFriendlyName)

SCrawler/API/PornHub/UserData.vb

@@ -428,7 +428,7 @@ Namespace API.PornHub
                             'Debug.WriteLineIf(l.Count > 0, l.Select(Function(ll) ll.Title).ListToString(vbNewLine))
                             If prevPostsFound And Not pageRepeatSet And Not newPostsFound Then pageRepeatSet = True : _PageVideosRepeat += 1
                             If prevPostsFound And newPostsFound And pageRepeatSet Then _PageVideosRepeat -= 1
-                            If l.Count > 0 Then _TempMediaList.ListAddList(l.Select(Function(uv) uv.ToUserMedia(specFolder, useYtdlp)))
+                            If l.Count > 0 Then _TempMediaList.ListAddList(l.Select(Function(uv) uv.ToUserMedia(specFolder, useYtdlp And Not IsSubscription)))
                             SessionPosts.ListAddList(newLastPageIDs, LNC)
                             newLastPageIDs.Clear()
 

SCrawler/API/Reddit/Channel.vb

@@ -91,20 +91,12 @@ Namespace API.Reddit
         Friend Property DownloadText As Boolean = False Implements IRedditView.DownloadText
         Friend Property DownloadTextPosts As Boolean = False Implements IRedditView.DownloadTextPosts
         Friend Property DownloadTextSpecialFolder As Boolean = False Implements IRedditView.DownloadTextSpecialFolder
+        Friend Property UserExists As Boolean Implements IRedditView.UserExists
+        Friend Property UserSuspended As Boolean Implements IRedditView.UserSuspended
         Friend Property RedGifsAccount As String = String.Empty Implements IRedditView.RedGifsAccount
         Friend Property RedditAccount As String = String.Empty Implements IRedditView.RedditAccount
         Friend Sub SetView(ByVal Options As IRedditView) Implements IRedditView.SetView
-            If Not Options Is Nothing Then
+            RedditViewExchange.SetView(Me, Options)
-                With Options
-                    ViewMode = .ViewMode
-                    ViewPeriod = .ViewPeriod
-                    DownloadText = .DownloadText
-                    DownloadTextPosts = .DownloadTextPosts
-                    DownloadTextSpecialFolder = .DownloadTextSpecialFolder
-                    RedditAccount = .RedditAccount
-                    RedGifsAccount = .RedGifsAccount
-                End With
-            End If
         End Sub
 #Region "Statistics support"
         Private ReadOnly CountOfAddedUsers As List(Of Integer)

SCrawler/API/Reddit/IRedditView.vb

@@ -28,6 +28,8 @@ Namespace API.Reddit
         Property DownloadText As Boolean
         Property DownloadTextPosts As Boolean
         Property DownloadTextSpecialFolder As Boolean
+        Property UserExists As Boolean
+        Property UserSuspended As Boolean
         Property RedGifsAccount As String
         Property RedditAccount As String
         Sub SetView(ByVal Options As IRedditView)
@@ -42,6 +44,8 @@ Namespace API.Reddit
         Friend Overrides Property DownloadText As Boolean Implements IRedditView.DownloadText
         Friend Overrides Property DownloadTextPosts As Boolean Implements IRedditView.DownloadTextPosts
         Friend Overrides Property DownloadTextSpecialFolder As Boolean Implements IRedditView.DownloadTextSpecialFolder
+        Friend Overrides Property UserExists As Boolean Implements IRedditView.UserExists
+        Friend Overrides Property UserSuspended As Boolean Implements IRedditView.UserSuspended
         Friend Property RedGifsAccount As String Implements IRedditView.RedGifsAccount
         Friend Property RedditAccount As String Implements IRedditView.RedditAccount
         Friend Sub New(ByVal Options As IRedditView)
@@ -54,16 +58,19 @@ Namespace API.Reddit
             _ApplyBase_Name = False
         End Sub
         Friend Sub SetView(ByVal Options As IRedditView) Implements IRedditView.SetView
-            If Not Options Is Nothing Then
+            SetView(Me, Options)
-                With Options
+        End Sub
-                    ViewMode = .ViewMode
+        Friend Shared Sub SetView(ByVal Dest As IRedditView, ByVal Source As IRedditView)
-                    ViewPeriod = .ViewPeriod
+            If Not Dest Is Nothing And Not Source Is Nothing Then
-                    DownloadText = .DownloadText
+                Dest.ViewMode = Source.ViewMode
-                    DownloadTextPosts = .DownloadTextPosts
+                Dest.ViewPeriod = Source.ViewPeriod
-                    DownloadTextSpecialFolder = .DownloadTextSpecialFolder
+                Dest.DownloadText = Source.DownloadText
-                    RedGifsAccount = .RedGifsAccount
+                Dest.DownloadTextPosts = Source.DownloadTextPosts
-                    RedditAccount = .RedditAccount
+                Dest.DownloadTextSpecialFolder = Source.DownloadTextSpecialFolder
-                End With
+                Dest.UserExists = Source.UserExists
+                Dest.UserSuspended = Source.UserSuspended
+                Dest.RedGifsAccount = Source.RedGifsAccount
+                Dest.RedditAccount = Source.RedditAccount
             End If
         End Sub
     End Class

SCrawler/API/Reddit/RedditViewSettingsForm.Designer.vb

@@ -27,10 +27,11 @@ Namespace API.Reddit
             Dim TP_VIEW_MODE As System.Windows.Forms.TableLayoutPanel
             Dim LBL_VIEW_MODE As System.Windows.Forms.Label
             Dim LBL_PERIOD As System.Windows.Forms.Label
-            Dim ActionButton3 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(RedditViewSettingsForm))
-            Dim ActionButton4 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 TP_TEXT As System.Windows.Forms.TableLayoutPanel
+            Dim TP_USER_ES As System.Windows.Forms.TableLayoutPanel
             Me.TP_MAIN = New System.Windows.Forms.TableLayoutPanel()
             Me.OPT_VIEW_MODE_NEW = New System.Windows.Forms.RadioButton()
             Me.OPT_VIEW_MODE_HOT = New System.Windows.Forms.RadioButton()
@@ -48,13 +49,16 @@ Namespace API.Reddit
             Me.CMB_REDDIT_ACC = New PersonalUtilities.Forms.Controls.ComboBoxExtended()
             Me.CH_TXT_DOWN_TXT = New System.Windows.Forms.CheckBox()
             Me.CH_TXT_DOWN_POSTS = New System.Windows.Forms.CheckBox()
-            Me.TT_MAIN = New System.Windows.Forms.ToolTip(Me.components)
             Me.CH_TXT_DOWN_SPEC_FOLDER = New System.Windows.Forms.CheckBox()
+            Me.CH_USER_EXISTS = New System.Windows.Forms.CheckBox()
+            Me.CH_USER_SUSPENDED = New System.Windows.Forms.CheckBox()
+            Me.TT_MAIN = New System.Windows.Forms.ToolTip(Me.components)
             CONTAINER_MAIN = New System.Windows.Forms.ToolStripContainer()
             TP_VIEW_MODE = New System.Windows.Forms.TableLayoutPanel()
             LBL_VIEW_MODE = New System.Windows.Forms.Label()
             LBL_PERIOD = New System.Windows.Forms.Label()
             TP_TEXT = New System.Windows.Forms.TableLayoutPanel()
+            TP_USER_ES = New System.Windows.Forms.TableLayoutPanel()
             CONTAINER_MAIN.ContentPanel.SuspendLayout()
             CONTAINER_MAIN.SuspendLayout()
             Me.TP_MAIN.SuspendLayout()
@@ -63,6 +67,7 @@ Namespace API.Reddit
             CType(Me.CMB_REDGIFS_ACC, System.ComponentModel.ISupportInitialize).BeginInit()
             CType(Me.CMB_REDDIT_ACC, System.ComponentModel.ISupportInitialize).BeginInit()
             TP_TEXT.SuspendLayout()
+            TP_USER_ES.SuspendLayout()
             Me.SuspendLayout()
             '
             'CONTAINER_MAIN
@@ -71,13 +76,13 @@ Namespace API.Reddit
             'CONTAINER_MAIN.ContentPanel
             '
             CONTAINER_MAIN.ContentPanel.Controls.Add(Me.TP_MAIN)
-            CONTAINER_MAIN.ContentPanel.Size = New System.Drawing.Size(477, 222)
+            CONTAINER_MAIN.ContentPanel.Size = New System.Drawing.Size(477, 247)
             CONTAINER_MAIN.Dock = System.Windows.Forms.DockStyle.Fill
             CONTAINER_MAIN.LeftToolStripPanelVisible = False
             CONTAINER_MAIN.Location = New System.Drawing.Point(0, 0)
             CONTAINER_MAIN.Name = "CONTAINER_MAIN"
             CONTAINER_MAIN.RightToolStripPanelVisible = False
-            CONTAINER_MAIN.Size = New System.Drawing.Size(477, 222)
+            CONTAINER_MAIN.Size = New System.Drawing.Size(477, 247)
             CONTAINER_MAIN.TabIndex = 0
             CONTAINER_MAIN.TopToolStripPanelVisible = False
             '
@@ -88,20 +93,22 @@ Namespace API.Reddit
             Me.TP_MAIN.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
             Me.TP_MAIN.Controls.Add(TP_VIEW_MODE, 0, 0)
             Me.TP_MAIN.Controls.Add(Me.TP_PERIOD, 0, 1)
-            Me.TP_MAIN.Controls.Add(Me.CMB_REDGIFS_ACC, 0, 4)
+            Me.TP_MAIN.Controls.Add(Me.CMB_REDGIFS_ACC, 0, 5)
-            Me.TP_MAIN.Controls.Add(Me.CMB_REDDIT_ACC, 0, 3)
+            Me.TP_MAIN.Controls.Add(Me.CMB_REDDIT_ACC, 0, 4)
             Me.TP_MAIN.Controls.Add(TP_TEXT, 0, 2)
+            Me.TP_MAIN.Controls.Add(TP_USER_ES, 0, 3)
             Me.TP_MAIN.Dock = System.Windows.Forms.DockStyle.Fill
             Me.TP_MAIN.Location = New System.Drawing.Point(0, 0)
             Me.TP_MAIN.Name = "TP_MAIN"
-            Me.TP_MAIN.RowCount = 6
+            Me.TP_MAIN.RowCount = 7
             Me.TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 56.0!))
             Me.TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 56.0!))
             Me.TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
+            Me.TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
             Me.TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
             Me.TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
             Me.TP_MAIN.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
-            Me.TP_MAIN.Size = New System.Drawing.Size(477, 222)
+            Me.TP_MAIN.Size = New System.Drawing.Size(477, 247)
             Me.TP_MAIN.TabIndex = 0
             '
             'TP_VIEW_MODE
@@ -220,7 +227,7 @@ Namespace API.Reddit
             Me.TP_PERIOD.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
             Me.TP_PERIOD.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
             Me.TP_PERIOD.Size = New System.Drawing.Size(475, 56)
-            Me.TP_PERIOD.TabIndex = 2
+            Me.TP_PERIOD.TabIndex = 1
             '
             'LBL_PERIOD
             '
@@ -307,38 +314,38 @@ Namespace API.Reddit
             '
             'CMB_REDGIFS_ACC
             '
-            ActionButton3.BackgroundImage = CType(resources.GetObject("ActionButton3.BackgroundImage"), System.Drawing.Image)
+            ActionButton7.BackgroundImage = CType(resources.GetObject("ActionButton7.BackgroundImage"), System.Drawing.Image)
-            ActionButton3.Name = "ArrowDown"
+            ActionButton7.Name = "ArrowDown"
-            ActionButton3.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.ArrowDown
+            ActionButton7.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.ArrowDown
-            Me.CMB_REDGIFS_ACC.Buttons.Add(ActionButton3)
+            Me.CMB_REDGIFS_ACC.Buttons.Add(ActionButton7)
             Me.CMB_REDGIFS_ACC.CaptionMode = PersonalUtilities.Forms.Controls.Base.ICaptionControl.Modes.Label
             Me.CMB_REDGIFS_ACC.CaptionSizeType = System.Windows.Forms.SizeType.Percent
             Me.CMB_REDGIFS_ACC.CaptionText = "RedGifs account"
             Me.CMB_REDGIFS_ACC.CaptionVisible = True
             Me.CMB_REDGIFS_ACC.CaptionWidth = 26.0R
             Me.CMB_REDGIFS_ACC.Dock = System.Windows.Forms.DockStyle.Fill
-            Me.CMB_REDGIFS_ACC.Location = New System.Drawing.Point(4, 173)
+            Me.CMB_REDGIFS_ACC.Location = New System.Drawing.Point(4, 199)
             Me.CMB_REDGIFS_ACC.Name = "CMB_REDGIFS_ACC"
             Me.CMB_REDGIFS_ACC.Size = New System.Drawing.Size(469, 22)
-            Me.CMB_REDGIFS_ACC.TabIndex = 4
+            Me.CMB_REDGIFS_ACC.TabIndex = 5
             Me.CMB_REDGIFS_ACC.TextBoxBorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
             '
             'CMB_REDDIT_ACC
             '
-            ActionButton4.BackgroundImage = CType(resources.GetObject("ActionButton4.BackgroundImage"), System.Drawing.Image)
+            ActionButton8.BackgroundImage = CType(resources.GetObject("ActionButton8.BackgroundImage"), System.Drawing.Image)
-            ActionButton4.Name = "ArrowDown"
+            ActionButton8.Name = "ArrowDown"
-            ActionButton4.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.ArrowDown
+            ActionButton8.Tag = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons.ArrowDown
-            Me.CMB_REDDIT_ACC.Buttons.Add(ActionButton4)
+            Me.CMB_REDDIT_ACC.Buttons.Add(ActionButton8)
             Me.CMB_REDDIT_ACC.CaptionMode = PersonalUtilities.Forms.Controls.Base.ICaptionControl.Modes.Label
             Me.CMB_REDDIT_ACC.CaptionSizeType = System.Windows.Forms.SizeType.Percent
             Me.CMB_REDDIT_ACC.CaptionText = "Reddit account"
             Me.CMB_REDDIT_ACC.CaptionVisible = True
             Me.CMB_REDDIT_ACC.CaptionWidth = 26.0R
             Me.CMB_REDDIT_ACC.Dock = System.Windows.Forms.DockStyle.Fill
-            Me.CMB_REDDIT_ACC.Location = New System.Drawing.Point(4, 144)
+            Me.CMB_REDDIT_ACC.Location = New System.Drawing.Point(4, 170)
             Me.CMB_REDDIT_ACC.Name = "CMB_REDDIT_ACC"
             Me.CMB_REDDIT_ACC.Size = New System.Drawing.Size(469, 22)
-            Me.CMB_REDDIT_ACC.TabIndex = 3
+            Me.CMB_REDDIT_ACC.TabIndex = 4
             Me.CMB_REDDIT_ACC.TextBoxBorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
             '
             'TP_TEXT
@@ -357,7 +364,7 @@ Namespace API.Reddit
             TP_TEXT.RowCount = 1
             TP_TEXT.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
             TP_TEXT.Size = New System.Drawing.Size(475, 25)
-            TP_TEXT.TabIndex = 5
+            TP_TEXT.TabIndex = 2
             '
             'CH_TXT_DOWN_TXT
             '
@@ -395,19 +402,58 @@ Namespace API.Reddit
             Me.TT_MAIN.SetToolTip(Me.CH_TXT_DOWN_SPEC_FOLDER, "If checked, text files will be saved to a separate folder")
             Me.CH_TXT_DOWN_SPEC_FOLDER.UseVisualStyleBackColor = True
             '
+            'TP_USER_ES
+            '
+            TP_USER_ES.ColumnCount = 2
+            TP_USER_ES.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+            TP_USER_ES.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+            TP_USER_ES.Controls.Add(Me.CH_USER_EXISTS, 0, 0)
+            TP_USER_ES.Controls.Add(Me.CH_USER_SUSPENDED, 1, 0)
+            TP_USER_ES.Dock = System.Windows.Forms.DockStyle.Fill
+            TP_USER_ES.Location = New System.Drawing.Point(1, 141)
+            TP_USER_ES.Margin = New System.Windows.Forms.Padding(0)
+            TP_USER_ES.Name = "TP_USER_ES"
+            TP_USER_ES.RowCount = 1
+            TP_USER_ES.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+            TP_USER_ES.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
+            TP_USER_ES.Size = New System.Drawing.Size(475, 25)
+            TP_USER_ES.TabIndex = 3
+            '
+            'CH_USER_EXISTS
+            '
+            Me.CH_USER_EXISTS.AutoSize = True
+            Me.CH_USER_EXISTS.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.CH_USER_EXISTS.Location = New System.Drawing.Point(3, 3)
+            Me.CH_USER_EXISTS.Name = "CH_USER_EXISTS"
+            Me.CH_USER_EXISTS.Size = New System.Drawing.Size(231, 19)
+            Me.CH_USER_EXISTS.TabIndex = 0
+            Me.CH_USER_EXISTS.Text = "User exists"
+            Me.CH_USER_EXISTS.UseVisualStyleBackColor = True
+            '
+            'CH_USER_SUSPENDED
+            '
+            Me.CH_USER_SUSPENDED.AutoSize = True
+            Me.CH_USER_SUSPENDED.Dock = System.Windows.Forms.DockStyle.Fill
+            Me.CH_USER_SUSPENDED.Location = New System.Drawing.Point(240, 3)
+            Me.CH_USER_SUSPENDED.Name = "CH_USER_SUSPENDED"
+            Me.CH_USER_SUSPENDED.Size = New System.Drawing.Size(232, 19)
+            Me.CH_USER_SUSPENDED.TabIndex = 1
+            Me.CH_USER_SUSPENDED.Text = "User suspended"
+            Me.CH_USER_SUSPENDED.UseVisualStyleBackColor = True
+            '
             'RedditViewSettingsForm
             '
             Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
             Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-            Me.ClientSize = New System.Drawing.Size(477, 222)
+            Me.ClientSize = New System.Drawing.Size(477, 247)
             Me.Controls.Add(CONTAINER_MAIN)
             Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
             Me.Icon = Global.SCrawler.My.Resources.SiteResources.RedditIcon_128
             Me.KeyPreview = True
             Me.MaximizeBox = False
-            Me.MaximumSize = New System.Drawing.Size(493, 261)
+            Me.MaximumSize = New System.Drawing.Size(493, 286)
             Me.MinimizeBox = False
-            Me.MinimumSize = New System.Drawing.Size(493, 261)
+            Me.MinimumSize = New System.Drawing.Size(493, 286)
             Me.Name = "RedditViewSettingsForm"
             Me.ShowInTaskbar = False
             Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
@@ -424,6 +470,8 @@ Namespace API.Reddit
             CType(Me.CMB_REDDIT_ACC, System.ComponentModel.ISupportInitialize).EndInit()
             TP_TEXT.ResumeLayout(False)
             TP_TEXT.PerformLayout()
+            TP_USER_ES.ResumeLayout(False)
+            TP_USER_ES.PerformLayout()
             Me.ResumeLayout(False)
 
         End Sub
@@ -446,5 +494,7 @@ Namespace API.Reddit
         Private WithEvents TT_MAIN As ToolTip
         Private WithEvents CH_TXT_DOWN_POSTS As CheckBox
         Private WithEvents CH_TXT_DOWN_SPEC_FOLDER As CheckBox
+        Private WithEvents CH_USER_EXISTS As CheckBox
+        Private WithEvents CH_USER_SUSPENDED As CheckBox
     End Class
 End Namespace

SCrawler/API/Reddit/RedditViewSettingsForm.resx

@@ -130,7 +130,7 @@
     <value>False</value>
   </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="ActionButton3.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>
         iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAE0xJREFUeF7t
         3X2MZWddB/BZSkspUFsoXZidOc/vnOfsTmGgARaaBgK2VkFBsIAEgkAQsX8QNJFEq39oMMEoSDREElOB
@@ -218,7 +218,7 @@
         AAAAAAAAAAAAYIj+H5YGIizEb/aEAAAAAElFTkSuQmCC
 </value>
   </data>
-  <data name="ActionButton4.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>
         iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAE0xJREFUeF7t
         3X2MZWddB/BZSkspUFsoXZidOc/vnOfsTmGgARaaBgK2VkFBsIAEgkAQsX8QNJFEq39oMMEoSDREElOB
@@ -309,11 +309,8 @@
   <metadata name="TP_TEXT.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">
+  <metadata name="TP_USER_ES.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>17, 17</value>
+    <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>
   <metadata name="LBL_VIEW_MODE.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>False</value>
@@ -321,4 +318,10 @@
   <metadata name="LBL_PERIOD.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>
+  <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>
 </root>

SCrawler/API/Reddit/RedditViewSettingsForm.vb

@@ -56,11 +56,14 @@ Namespace API.Reddit
                     CH_TXT_DOWN_POSTS.Checked = MyOptions.DownloadTextPosts
                     CH_TXT_DOWN_SPEC_FOLDER.Checked = MyOptions.DownloadTextSpecialFolder
 
+                    CH_USER_EXISTS.Checked = MyOptions.UserExists
+                    CH_USER_SUSPENDED.Checked = MyOptions.UserSuspended
+
                     PopulateCMB(Settings(RedditSiteKey), CMB_REDDIT_ACC, MyOptions.RedditAccount)
                     PopulateCMB(Settings(RedGifs.RedGifsSiteKey), CMB_REDGIFS_ACC, MyOptions.RedGifsAccount)
                     If IsUserSettings Then
                         TP_MAIN.Controls.Remove(CMB_REDDIT_ACC)
-                        TP_MAIN.RowStyles(3).Height = 0
+                        TP_MAIN.RowStyles(4).Height = 0
                         TP_MAIN.Refresh()
                         Dim s As Size = Size
                         s.Height -= 28
@@ -121,6 +124,8 @@ Namespace API.Reddit
                 .DownloadText = CH_TXT_DOWN_TXT.Checked
                 .DownloadTextPosts = CH_TXT_DOWN_POSTS.Checked
                 .DownloadTextSpecialFolder = CH_TXT_DOWN_SPEC_FOLDER.Checked
+                .UserExists = CH_USER_EXISTS.Checked
+                .UserSuspended = CH_USER_SUSPENDED.Checked
                 .RedGifsAccount = CMB_REDGIFS_ACC.Text
                 If Not IsUserSettings Then .RedditAccount = CMB_REDDIT_ACC.Text
             End With

SCrawler/API/Reddit/UserData.vb

@@ -128,16 +128,8 @@ Namespace API.Reddit
         Friend Property ViewPeriod As CPeriod Implements IRedditView.ViewPeriod
         Friend Sub SetView(ByVal Options As IRedditView) Implements IRedditView.SetView
             If Not Options Is Nothing Then
-                With Options
+                RedditViewExchange.SetView(Me, Options)
-                    ViewMode = .ViewMode
+                If TypeOf Options Is RedditViewExchange Then DirectCast(Options, RedditViewExchange).Apply(Me)
-                    ViewPeriod = .ViewPeriod
-                    DownloadText = .DownloadText
-                    DownloadTextPosts = .DownloadTextPosts
-                    DownloadTextSpecialFolder = .DownloadTextSpecialFolder
-                    RedGifsAccount = .RedGifsAccount
-                    RedditAccount = .RedditAccount
-                    If TypeOf Options Is RedditViewExchange Then DirectCast(Options, RedditViewExchange).Apply(Me)
-                End With
             End If
         End Sub
         Private ReadOnly Property View As String
@@ -168,8 +160,45 @@ Namespace API.Reddit
             End Get
         End Property
         Friend Overrides Property DownloadText As Boolean Implements IRedditView.DownloadText
+            Get
+                Return MyBase.DownloadText
+            End Get
+            Set(ByVal d As Boolean)
+                MyBase.DownloadText = d
+            End Set
+        End Property
         Friend Overrides Property DownloadTextPosts As Boolean Implements IRedditView.DownloadTextPosts
+            Get
+                Return MyBase.DownloadTextPosts
+            End Get
+            Set(ByVal d As Boolean)
+                MyBase.DownloadTextPosts = d
+            End Set
+        End Property
         Friend Overrides Property DownloadTextSpecialFolder As Boolean Implements IRedditView.DownloadTextSpecialFolder
+            Get
+                Return MyBase.DownloadTextSpecialFolder
+            End Get
+            Set(ByVal d As Boolean)
+                MyBase.DownloadTextSpecialFolder = d
+            End Set
+        End Property
+        Friend Overrides Property UserExists As Boolean Implements IRedditView.UserExists
+            Get
+                Return MyBase.UserExists
+            End Get
+            Set(ByVal e As Boolean)
+                MyBase.UserExists = e
+            End Set
+        End Property
+        Friend Overrides Property UserSuspended As Boolean Implements IRedditView.UserSuspended
+            Get
+                Return MyBase.UserSuspended
+            End Get
+            Set(ByVal s As Boolean)
+                MyBase.UserSuspended = s
+            End Set
+        End Property
 #End Region
 #Region "Initializer"
         Friend Sub New()
@@ -451,6 +480,8 @@ Namespace API.Reddit
                     If IsSavedPosts Then
                         URL = $"https://www.reddit.com/user/{NameTrue}/saved.json?after={POST}"
                         If Not POST.IsEmptyString Then Thread.Sleep(savedPostsSleepTimer)
+                    ElseIf MySiteSettings.CredentialsExists Then
+                        URL = $"https://oauth.reddit.com/r/{NameTrue}/{View}.json?allow_quarantined=true&allow_over18=1&include=identity&after={POST}&dist=25&sort={View}&t={Period}&layout=classic"
                     Else
                         URL = $"https://reddit.com/r/{NameTrue}/{View}.json?allow_quarantined=true&allow_over18=1&include=identity&after={POST}&dist=25&sort={View}&t={Period}&layout=classic"
                     End If

SCrawler/My Project/AssemblyInfo.vb

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