2023.08.10.0

Add JFF

Update groups
Add advanced filter
Add advanced download
Disable 'ShowInTaskbar' on several forms
API.Base.M3U8: add external cache support
API.Base.UserDataBase: update token names
Feed.FeedMedia: add clone icon
UserCreatorForm: fix bug collection labels not showing
MainFrame: update 'DownloadSiteFull' function
UserSearchForm: move focus to textbox on form is open

SCrawler/API/JustForFans/SiteSettings.vb

@@ -0,0 +1,89 @@
+' 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.Tools.Web.Clients
+Imports PersonalUtilities.Tools.Web.Cookies
+Imports PersonalUtilities.Functions.RegularExpressions
+Namespace API.JustForFans
+    <Manifest("AndyProgram_JustForFans"), SavedPosts, SeparatedTasks(1)>
+    Friend Class SiteSettings : Inherits SiteSettingsBase
+        Friend Overrides ReadOnly Property Icon As Icon
+            Get
+                Return My.Resources.SiteResources.JFFIcon_64
+            End Get
+        End Property
+        Friend Overrides ReadOnly Property Image As Image
+            Get
+                Return My.Resources.SiteResources.JFFPic_76
+            End Get
+        End Property
+        Friend Const UserHash4_CookieName As String = "userhash4"
+        <PropertyOption(ControlText:="User ID", AllowNull:=False), PXML>
+        Friend ReadOnly Property UserID As PropertyValue
+        <PropertyOption, PXML>
+        Friend ReadOnly Property UserHash4 As PropertyValue
+        <PropertyOption(ControlText:="Accept", ControlToolTip:="Header 'Accept'"), PXML>
+        Friend ReadOnly Property HeaderAccept As PropertyValue
+        <PropertyOption, PXML>
+        Friend ReadOnly Property UserAgent As PropertyValue
+        Private Sub UpdateHeader(ByVal HeaderName As String, ByVal HeaderValue As String)
+            Select Case HeaderName
+                Case NameOf(HeaderAccept) : If HeaderValue.IsEmptyString Then Responser.Accept = Nothing Else Responser.Accept = HeaderValue
+                Case NameOf(UserAgent) : If Not HeaderValue.IsEmptyString Then Responser.UserAgent = HeaderValue
+            End Select
+        End Sub
+        Friend Sub New()
+            MyBase.New("JustForFans", "justfor.fans")
+
+            With Responser
+                .CookiesExtractMode = Responser.CookiesExtractModes.Any
+                .CookiesUpdateMode = CookieKeeper.UpdateModes.ReplaceByNameAll
+                .CookiesExtractedAutoSave = False
+                .Cookies.ChangedAllowInternalDrop = False
+                .Cookies.Changed = False
+            End With
+
+            UserID = New PropertyValue(String.Empty, GetType(String))
+            UserHash4 = New PropertyValue(String.Empty, GetType(String))
+            HeaderAccept = New PropertyValue(Responser.Accept.Value, GetType(String), Sub(v) UpdateHeader(NameOf(HeaderAccept), v))
+            UserAgent = New PropertyValue(Responser.UserAgent, GetType(String), Sub(v) UpdateHeader(NameOf(UserAgent), v))
+
+            _AllowUserAgentUpdate = False
+            UserRegex = RParams.DMS("https://justfor.fans/([^/\?]+)", 1, EDP.ReturnValue)
+            UrlPatternUser = "https://justfor.fans/{0}"
+            ImageVideoContains = "justfor.fans"
+        End Sub
+        Friend Overrides Function GetInstance(ByVal What As ISiteSettings.Download) As IPluginContentProvider
+            Return New UserData
+        End Function
+        Friend Overrides Sub Update()
+            If _SiteEditorFormOpened Then UpdateUserHash4()
+            MyBase.Update()
+        End Sub
+        Private Sub UpdateUserHash4()
+            If Responser.CookiesExists Then
+                Dim hv_current$ = UserHash4.Value
+                Dim hv_cookie$ = If(Responser.Cookies.FirstOrDefault(Function(cc) cc.Name.ToLower = UserHash4_CookieName)?.Value, String.Empty)
+                If Not hv_cookie.IsEmptyString And Not hv_cookie = hv_current And Responser.Cookies.Changed Then UserHash4.Value = hv_cookie
+            End If
+        End Sub
+        Friend Sub UpdateResponser(ByVal Source As Responser)
+            If Source.Cookies.Changed Then
+                Responser.Cookies.Update(Source.Cookies)
+                UpdateUserHash4()
+                If Responser.Cookies.Changed Then Responser.SaveCookies() : Responser.Cookies.Changed = False
+            End If
+        End Sub
+        Friend Overrides Function Available(ByVal What As ISiteSettings.Download, ByVal Silent As Boolean) As Boolean
+            Return Responser.CookiesExists And ACheck(UserID.Value) And ACheck(UserHash4.Value)
+        End Function
+    End Class
+End Namespace