' Copyright (C) 2023 Andy https://github.com/AAndyProgram

Imports System.IO

Imports System.Net

Imports System.Threading

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

Imports PersonalUtilities.Forms.Toolbars

Imports PersonalUtilities.Tools

Imports PersonalUtilities.Tools.Web.Clients

Imports PersonalUtilities.Tools.ImageRenderer

Imports UStates = SCrawler.API.Base.UserMedia.States

Imports UTypes = SCrawler.API.Base.UserMedia.Types

Imports CookieUpdateModes = PersonalUtilities.Tools.Web.Cookies.CookieKeeper.UpdateModes

Namespace API.Base

Friend MustInherit Class UserDataBase : Implements IUserData, IPluginContentProvider, IThrower

Friend Const UserFileAppender As String = "User"

Friend Const PostTextSpecialFolderDefault As String = "txt"

#Region "Events"

Private ReadOnly UserUpdatedEventHandlers As List(Of IUserData.UserUpdatedEventHandler)

Friend Custom Event UserUpdated As IUserData.UserUpdatedEventHandler Implements IUserData.UserUpdated

AddHandler(ByVal e As IUserData.UserUpdatedEventHandler)

If Not UserUpdatedEventHandlers.Contains(e) Then UserUpdatedEventHandlers.Add(e)

End AddHandler

RemoveHandler(ByVal e As IUserData.UserUpdatedEventHandler)

If UserUpdatedEventHandlers.Contains(e) Then UserUpdatedEventHandlers.Remove(e)

End RemoveHandler

RaiseEvent(ByVal User As IUserData)

Try

If UserUpdatedEventHandlers.Count > 0 Then

For i% = 0 To UserUpdatedEventHandlers.Count - 1

Try : UserUpdatedEventHandlers(i).Invoke(User) : Catch : End Try

Next

End If

Catch

End Try

End RaiseEvent

End Event

Protected Sub OnUserUpdated()

RaiseEvent UserUpdated(Me)

End Sub

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

Private _CollectionButtonsColorsSet As Boolean = False

Friend WithEvents BTT_CONTEXT_DOWN As ToolStripKeyMenuItem

Friend WithEvents BTT_CONTEXT_DOWN_LIMIT As ToolStripKeyMenuItem

Friend WithEvents BTT_CONTEXT_DOWN_DATE 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()

Dim tn$ = $"[{Site}] - {Name}"

Dim _tn$ = $"{Site}{Name}"

Dim tnn As Func(Of String, String) = Function(Input) $"{Input}{_tn}"

Dim i As Image = Nothing

With HOST.Source

If Not .Icon Is Nothing Then

i = .Icon.ToBitmap

ElseIf Not .Image Is Nothing Then

i = .Image

End If

End With

BTT_CONTEXT_DOWN = New ToolStripKeyMenuItem(tn, i) With {.Name = tnn("DOWN"), .Tag = Me}

BTT_CONTEXT_DOWN_LIMIT = New ToolStripKeyMenuItem(tn, i) With {.Name = tnn("DOWN_LIMIT"), .Tag = Me}

BTT_CONTEXT_DOWN_DATE = New ToolStripKeyMenuItem(tn, i) With {.Name = tnn("DOWN_DATE"), .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()

_CollectionButtonsExists = True

If _UserInformationLoaded Then _CollectionButtonsColorsSet = True

End Sub

Private Sub UpdateButtonsColor()

Dim cb As Color = SystemColors.Control

Dim cf As Color = SystemColors.ControlText

If Not UserExists Then

cb = MyColor.DeleteBack

cf = MyColor.DeleteFore

ElseIf UserSuspended Then

cb = MyColor.EditBack

cf = MyColor.EditFore

End If

For Each b As ToolStripMenuItem In {BTT_CONTEXT_DOWN, BTT_CONTEXT_DOWN_LIMIT, BTT_CONTEXT_DOWN_DATE,

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

End Sub

#End Region

#Region "XML Declarations"

Private Const Name_Site As String = UserInfo.Name_Site

Private Const Name_Plugin As String = UserInfo.Name_Plugin

Private Const Name_AccountName As String = UserInfo.Name_AccountName

Protected Const Name_IsChannel As String = "IsChannel"

Friend Const Name_UserName As String = "UserName"

Private Const Name_Model_User As String = UserInfo.Name_Model_User

Private Const Name_Model_Collection As String = UserInfo.Name_Model_Collection

Private Const Name_Merged As String = UserInfo.Name_Merged

Private Const Name_SpecialPath As String = UserInfo.Name_SpecialPath

Private Const Name_SpecialCollectionPath As String = UserInfo.Name_SpecialCollectionPath

Private Const Name_UserExists As String = "UserExists"

Private Const Name_UserSuspended As String = "UserSuspended"

Protected Const Name_FriendlyName As String = "FriendlyName"

Protected Const Name_UserSiteName As String = "UserSiteName"

Protected Const Name_UserID As String = "UserID"

Protected Const Name_Options As String = "Options"

Protected Const Name_Description As String = "Description"

Protected 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_DownloadText As String = "DownloadText"

Private Const Name_DownloadTextPosts As String = "DownloadTextPosts"

Private Const Name_DownloadTextSpecialFolder As String = "DownloadTextSpecialFolder"

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"

Private Const Name_CollectionName As String = UserInfo.Name_Collection

Friend Const Name_LabelsName As String = "Labels"

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"

Private Const Name_TextCount As String = "TextCount"

Private Const Name_LastUpdated As String = "LastUpdated"

Private Const Name_ScriptUse As String = "ScriptUse"

Private Const Name_ScriptData As String = "ScriptData"

Protected Const Name_UseMD5Comparison As String = "UseMD5Comparison"

Protected Const Name_RemoveExistingDuplicates As String = "RemoveExistingDuplicates"

Protected Const Name_StartMD5Checked As String = "StartMD5Checked"

#Region "Additional names"

Protected Const Name_SiteMode As String = "SiteMode"

Protected Const Name_TrueName As String = "TrueName"

'TODELETE Name_TrueName2

<Obsolete> Protected Const Name_TrueName2 As String = "NameTrue"

Protected Const Name_Arguments As String = "Arguments"

#End Region

#End Region

#Region "Declarations"

#Region "Host, Site, Progress"

Friend Property HostCollection As SettingsHostCollection

Private Function HostObtainCollection() As Boolean

If HostCollection Is Nothing Then

Dim k$ = If(_HOST?.Key, _HostKey)

If Not k.IsEmptyString Then HostCollection = Settings(k)

End If

Return Not HostCollection Is Nothing

End Function

Private _HOST As SettingsHost

Private _HostKey As String = String.Empty

Private _HostObtained As Boolean = False

Friend Property HOST As SettingsHost Implements IUserData.HOST

Get

If _HostObtained Or HostStatic Then

Return _HOST

ElseIf HostObtainCollection() Then

_HOST = HostCollection(AccountName)

_HostObtained = Not _HOST Is Nothing

Return _HOST

Else

Return Nothing

End If

End Get

Set(ByVal h As SettingsHost)

_HOST = h

If Not h Is Nothing Then _HostKey = h.Key

End Set

End Property

Friend Sub ResetHost()

_HostObtained = False

End Sub

Friend Property HostStatic As Boolean = False Implements IUserData.HostStatic

Private _AccountName As String = String.Empty

Friend Overridable Property AccountName As String Implements IUserData.AccountName, IPluginContentProvider.AccountName

Get

Return _AccountName.IfNullOrEmpty(User.AccountName)

End Get

Set(ByVal name As String)

If Not _AccountName = name Then ResetHost()

_AccountName = name

End Set

End Property

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, options"

Friend User As UserInfo

Private _IsSavedPosts As Boolean = False

Friend Property IsSavedPosts As Boolean Implements IPluginContentProvider.IsSavedPosts

Get

Return _IsSavedPosts

End Get

Set(ByVal __IsSavedPosts As Boolean)

_IsSavedPosts = __IsSavedPosts

If _IsSavedPosts Then

DownloadText = True

DownloadTextPosts = True

DownloadTextSpecialFolder = True

End If

End Set

End Property

Private _UserExists As Boolean = True

Friend Overridable Property UserExists As Boolean Implements IUserData.Exists, IPluginContentProvider.UserExists

Get

Return _UserExists

End Get

Set(ByVal _UserExists As Boolean)

If Not Me._UserExists = _UserExists Then EnvirChanged(_UserExists)

Me._UserExists = _UserExists

End Set

End Property

Private _UserSuspended As Boolean = False

Friend Overridable Property UserSuspended As Boolean Implements IUserData.Suspended, IPluginContentProvider.UserSuspended

Get

Return _UserSuspended

End Get

Set(ByVal _UserSuspended As Boolean)

If Not Me._UserSuspended = _UserSuspended Then EnvirChanged(_UserSuspended)

Me._UserSuspended = _UserSuspended

End Set

End Property

Private Property IPluginContentProvider_Name As String Implements IPluginContentProvider.Name

Get

Return Name

End Get

Set(ByVal NewName As String)

End Set

End Property

Friend Overridable ReadOnly Property Name As String Implements IUserData.Name

Get

Return User.Name

End Get

End Property

Private _NameTrue As String = String.Empty

Friend Overridable Overloads Property NameTrue As String Implements IUserData.NameTrue, IPluginContentProvider.NameTrue

Get

Return NameTrue(False)

End Get

Set(ByVal NewName As String)

If Not _NameTrue = NewName Then EnvirChanged(NewName)

_NameTrue = NewName

End Set

End Property

Friend Overloads ReadOnly Property NameTrue(ByVal Exact As Boolean) As String

Get

Return If(Exact, _NameTrue, _NameTrue.IfNullOrEmpty(Name))

End Get

End Property

Private _ID As String = String.Empty

Friend Property ID As String Implements IUserData.ID, IPluginContentProvider.ID

Get

Return _ID

End Get

Set(ByVal NewId As String)

If Not _ID = NewId Then EnvirChanged(NewId)

_ID = NewId

End Set

End Property

Protected _FriendlyName As String = String.Empty

Friend Overridable Property FriendlyName As String Implements IUserData.FriendlyName

Get

If Settings.UserSiteNameAsFriendly Then

Return _FriendlyName.IfNullOrEmpty(UserSiteName)

Else

Return _FriendlyName

End If

End Get

Set(ByVal n As String)

_FriendlyName = n

End Set

End Property

Friend ReadOnly Property FriendlyNameOrig As String

Get

Return _FriendlyName

End Get

End Property

Friend ReadOnly Property FriendlyNameIsSiteName As Boolean

Get

If Settings.UserSiteNameAsFriendly Then

Return Not FriendlyName.IsEmptyString And Not _FriendlyName = UserSiteName And FriendlyName = UserSiteName

Else

Return False

End If

End Get

End Property

Private _UserSiteName As String = String.Empty

Friend Property UserSiteName As String

Get

Return _UserSiteName

End Get

Set(ByVal _UserSiteName As String)

If Not Me._UserSiteName = _UserSiteName Then EnvirChanged(_UserSiteName)

Me._UserSiteName = _UserSiteName

End Set

End Property

Protected Sub UserSiteNameUpdate(ByVal NewName As String, Optional ByVal Force As Boolean = False)

If Not NewName.IsEmptyString And (UserSiteName.IsEmptyString Or Settings.UpdateUserSiteNameEveryTime Or Force) Then UserSiteName = NewName

End Sub

Friend ReadOnly Property UserModel As UsageModel Implements IUserData.UserModel

Get

Return User.UserModel

End Get

End Property

Friend Overridable ReadOnly Property CollectionModel As UsageModel Implements IUserData.CollectionModel

Get

Return User.CollectionModel

End Get

End Property

Friend Overridable ReadOnly Property IsVirtual As Boolean Implements IUserData.IsVirtual

Get

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 IUserData.Description, IPluginContentProvider.UserDescription

Protected _DescriptionEveryTime As Boolean = False

Protected _DescriptionChecked As Boolean = False

Protected Function UserDescriptionNeedToUpdate() As Boolean

Return (UserDescription.IsEmptyString Or _DescriptionEveryTime) And Not _DescriptionChecked

End Function

Protected Sub UserDescriptionUpdate(ByVal Descr As String, Optional ByVal Force As Boolean = False,

Optional ByVal InsertFirst As Boolean = False, Optional ByVal AppendDate As Boolean = False)

If UserDescriptionNeedToUpdate() Or Force Then

If AppendDate Then Descr = $"{Now.ToStringDateDef}: {Descr}"

If UserDescription.IsEmptyString Then

UserDescription = Descr

_ForceSaveUserInfo = True

ElseIf Not UserDescription.Contains(Descr) Then

If InsertFirst Then

UserDescription = $"{Descr}{vbNewLine}{UserDescription}"

Else

UserDescription &= $"{vbNewLine}----{vbNewLine}{Descr}"

End If

_ForceSaveUserInfo = True

End If

_DescriptionChecked = True

End If

End Sub

#End Region

#Region "Favorite, Temporary, Colors"

Protected _Favorite As Boolean = False

Friend Overridable Property Favorite As Boolean Implements IUserData.Favorite

Get

Return _Favorite

End Get

Set(ByVal Fav As Boolean)

_Favorite = Fav

If _Favorite Then _Temporary = False

End Set

End Property

Protected _Temporary As Boolean = False

Friend Overridable Property Temporary As Boolean Implements IUserData.Temporary

Get

Return _Temporary

End Get

Set(ByVal Temp As Boolean)

_Temporary = Temp

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

#End Region

#Region "Images"

Friend Overridable Function GetUserPicture() As Image Implements IUserData.GetPicture

If Settings.ViewModeIsPicture Then

Return GetPicture(Of Image)()

Else

Return Nothing

End If

End Function

Friend Function GetUserPictureToastAddress() As SFile

Return GetPicture(Of SFile)(False, True)

End Function

Friend Overridable Sub SetPicture(ByVal f As SFile) Implements IUserData.SetPicture

Try

If f.Exists Then UserImage.NewUserPicture(f, MyFile)

Catch

End Try

End Sub

Protected Function GetNullPicture(ByVal MaxHeigh As XMLValue(Of Integer)) As Bitmap

Return New Bitmap(CInt(DivideWithZeroChecking(MaxHeigh.Value, 100) * 75), MaxHeigh.Value)

End Function

Friend Function GetPicture(Of T)(Optional ByVal ReturnNullImageOnNothing As Boolean = True, Optional ByVal GetToast As Boolean = False) As T

Dim rsfile As Boolean = GetType(T) Is GetType(SFile)

Dim f As SFile = Nothing

Dim p As UserImage = Nothing

Dim DelPath As Boolean = True

On Error GoTo BlockPictureScan

f = SFile.GetPath($"{MyFile.PathWithSeparator}Pictures")

If f.Exists(SFO.Path, False) Then

Dim PicList As List(Of SFile) = SFile.GetFiles(f, $"{UserImage.ImagePrefix}*.jpg")

If PicList.ListExists Then

PicList.Sort()

Dim l As SFile, s As SFile

l = PicList.Find(Function(ff) ff.Name.Contains(UserImage.ImagePostfix_Large))

If Not l.IsEmptyString Then PicList.Remove(l)

s = PicList.Find(Function(ff) ff.Name.Contains(UserImage.ImagePostfix_Small))

If Not s.IsEmptyString Then PicList.Remove(s)

If PicList.Count > 0 Then

p = New UserImage(PicList.First, l, s, MyFile)

GoTo BlockReturn

Else

f.Delete(SFO.Path, Settings.DeleteMode, EDP.None)

DelPath = False

End If

End If

End If

On Error GoTo BlockDeletePictureFolder

Dim NewPicFile As SFile = SFile.GetFiles(MyFile.CutPath, "*.jpg|*.jpeg|*.png",,

New ErrorsDescriber(EDP.ReturnValue) With {

.ReturnValue = New List(Of SFile),

.ReturnValueExists = True}).FirstOrDefault

If NewPicFile.Exists Then p = UserImage.NewUserPicture(NewPicFile, MyFile,, True) : GoTo BlockReturn

On Error GoTo BlockReturn

If DelPath Then

f = SFile.GetPath($"{MyFile.PathWithSeparator}Pictures")

If f.Exists(SFO.Path, False) Then f.Delete(SFO.Path, Settings.DeleteMode)

End If

On Error GoTo BlockNullPicture

If Not p Is Nothing Then

Dim i As Image = Nothing

Dim a As SFile = Nothing

If rsfile Then

If GetToast Then

a = p.Large.Address

Else

a = p.Address

End If

Else

Select Case Settings.ViewMode.Value

Case View.LargeIcon : i = p.Large.OriginalImage.Clone

Case View.SmallIcon : i = p.Small.OriginalImage.Clone

End Select

End If

p.Dispose()

If rsfile Then Return CObj(a) Else Return CObj(i)

End If

If ReturnNullImageOnNothing Then

Select Case Settings.ViewMode.Value

Case View.LargeIcon : Return CObj(GetNullPicture(Settings.MaxLargeImageHeight))

Case View.SmallIcon : Return CObj(GetNullPicture(Settings.MaxSmallImageHeight))

End Select

End If

Return Nothing

End Function

#End Region

#Region "Separate folder"

Friend Property SeparateVideoFolder As Boolean?

Protected ReadOnly Property SeparateVideoFolderF As Boolean

Get

Return If(SeparateVideoFolder, Settings.SeparateVideoFolder.Value)

End Get

End Property

#End Region

#Region "Collections"

Protected _IsCollection As Boolean = False

Protected Friend ReadOnly Property IsCollection As Boolean Implements IUserData.IsCollection

Get

Return _IsCollection

End Get

End Property

Friend Overridable ReadOnly Property CollectionName As String Implements IUserData.CollectionName

Get

Return User.CollectionName

End Get

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 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

Friend Overridable ReadOnly Property IsUser As Boolean Implements IUserData.IsUser

Get

Return True

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 Overridable Property DownloadText As Boolean = False

Friend Overridable Property DownloadTextPosts As Boolean = False

Friend Overridable Property DownloadTextSpecialFolder As Boolean = True

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)

Protected ReadOnly _ContentNew As List(Of UserMedia)

Friend ReadOnly Property LatestData As List(Of UserMedia)

Protected ReadOnly MissingFinder As Predicate(Of UserMedia) = Function(c) c.State = UStates.Missing

Friend ReadOnly Property ContentMissing As List(Of UserMedia)

Get

If _ContentList.Count > 0 Then

Return _ContentList.Where(Function(c) MissingFinder(c)).ListIfNothing

Else

Return New List(Of UserMedia)

End If

End Get

End Property

Friend Overridable ReadOnly Property ContentMissingExists As Boolean

Get

Return _ContentList.Exists(MissingFinder)

End Get

End Property

Friend Sub RemoveMedia(ByVal m As UserMedia, ByVal State As UStates?)

Dim i% = If(State.HasValue, _ContentList.FindIndex(Function(mm) mm.State = State.Value And mm.Equals(m)), _ContentList.IndexOf(m))

If i >= 0 Then _ContentList.RemoveAt(i)

End Sub

Protected ReadOnly _TempMediaList As List(Of UserMedia)

Protected ReadOnly _TempPostsList As List(Of String)

Private ReadOnly _MD5List As List(Of String)

Friend Function GetLastImageAddress() As SFile

If _ContentList.Count > 0 Then

Return _ContentList.LastOrDefault(Function(c) c.Type = UTypes.Picture And Not c.File.IsEmptyString And Not c.File.Extension = "gif").File

Else

Return Nothing

End If

End Function

#End Region

#Region "Files"

Friend Overridable Property MyFile As SFile Implements IUserData.File

Get

If IsSavedPosts Then

Return MyFileSettings

Else

Return User.File

End If

End Get

Set(ByVal f As SFile)

User.File = f

Settings.UpdateUsersList(User)

End Set

End Property

Protected MyFileSettings As SFile

Protected MyFileData As SFile

Protected MyFilePosts As SFile

Private MyMD5File As SFile

Friend Overridable Property FileExists As Boolean = False Implements IUserData.FileExists

Friend Overridable Property DataMerging As Boolean

Get

Return User.Merged

End Get

Set(ByVal IsMerged As Boolean)

If Not User.Merged = IsMerged Then

User.Merged = IsMerged

User.UpdateUserFile()

Settings.UpdateUsersList(User)

End If

End Set

End Property

#End Region

#Region "Information, counters, error, update date"

Friend Overridable Property LastUpdated As Date?

Friend Overridable Property HasError As Boolean = False Implements IUserData.HasError

Private _DownloadedPicturesTotal As Integer = 0

Private _DownloadedPicturesSession As Integer = 0

Friend Property DownloadedPictures(ByVal Total As Boolean) As Integer Implements IUserData.DownloadedPictures

Get

Return IIf(Total, _DownloadedPicturesTotal, _DownloadedPicturesSession)

End Get

Set(ByVal NewValue As Integer)

If Total Then

_DownloadedPicturesTotal = NewValue

Else

_DownloadedPicturesSession = NewValue

End If

End Set

End Property

Private _DownloadedVideosTotal As Integer = 0

Private _DownloadedVideosSession As Integer = 0

Friend Property DownloadedVideos(ByVal Total As Boolean) As Integer Implements IUserData.DownloadedVideos

Get

Return IIf(Total, _DownloadedVideosTotal, _DownloadedVideosSession)

End Get

Set(ByVal NewValue As Integer)

If Total Then

_DownloadedVideosTotal = NewValue

Else

_DownloadedVideosSession = NewValue

End If

End Set

End Property

Private _DownloadedTextsTotal As Integer = 0

Private _DownloadedTextsSession As Integer = 0

Friend Property DownloadedTexts(ByVal Total As Boolean) As Integer Implements IUserData.DownloadedTexts

Get

Return IIf(Total, _DownloadedTextsTotal, _DownloadedTextsSession)

End Get

Set(ByVal NewValue As Integer)

If Total Then

_DownloadedTextsTotal = NewValue

Else

_DownloadedTextsSession = NewValue

End If

End Set

End Property

Friend Overridable ReadOnly Property DownloadedTotal(Optional ByVal Total As Boolean = True) As Integer Implements IUserData.DownloadedTotal

Get

Return DownloadedPictures(Total) + DownloadedVideos(Total) + DownloadedTexts(Total)

End Get

End Property

Friend ReadOnly Property DownloadedInformation As String Implements IUserData.DownloadedInformation

Get

Dim luv$ = String.Empty

If LastUpdated.HasValue Then luv = $"{LastUpdated.Value.ToStringDate(ADateTime.Formats.BaseDateTime)}: "

Return $"{luv}{Name} [{Site}]{IIf(HasError, " (with errors)", String.Empty)}: P - {DownloadedPictures(False)}; V - {DownloadedVideos(False)}" &

$" (P - {DownloadedPictures(True)}; V - {DownloadedVideos(True)})"

End Get

End Property

Friend Overridable Function GetUserInformation() As String

Dim OutStr$ = $"User: {Name} (site: {Site}"

If IncludedInCollection Then

OutStr &= $"; collection: {CollectionName}"

If CollectionModel = UsageModel.Default And UserModel = UsageModel.Virtual Then OutStr &= "; virtual"

End If

OutStr &= ")"

OutStr.StringAppendLine($"Labels: {Labels.ListToString}")

OutStr.StringAppendLine($"Path: {MyFile.CutPath.Path}")

OutStr.StringAppendLine($"Total downloaded ({DownloadedTotal(True).NumToString(ANumbers.Formats.Number, 3)}):")

OutStr.StringAppendLine($"Pictures: {DownloadedPictures(True).NumToString(ANumbers.Formats.Number, 3)}")

OutStr.StringAppendLine($"Videos: {DownloadedVideos(True).NumToString(ANumbers.Formats.Number, 3)}")

If Not UserDescription.IsEmptyString Then

OutStr.StringAppendLine(String.Empty)

OutStr.StringAppendLine(UserDescription)

End If

OutStr.StringAppendLine(String.Empty)

OutStr.StringAppendLine($"Last updated at: {AConvert(Of String)(LastUpdated, ADateTime.Formats.BaseDateTime, "not yet")}")

If _DataParsed Then

OutStr.StringAppendLine("Downloaded now:")

OutStr.StringAppendLine($"Pictures: {DownloadedTotal(False).NumToString(ANumbers.Formats.Number, 3)}")

OutStr.StringAppendLine($"Videos: {DownloadedVideos(False).NumToString(ANumbers.Formats.Number, 3)}")

End If

Return OutStr

End Function

#End Region

#Region "Script"

Friend Overridable Property ScriptUse As Boolean = False Implements IUserData.ScriptUse

Friend Overridable Property ScriptData As String Implements IUserData.ScriptData

#End Region

#End Region

#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

End Get

Set(ByVal s As ISiteSettings)

End Set

End Property

Private Property IPluginContentProvider_Thrower As IThrower Implements IPluginContentProvider.Thrower

Private Property IPluginContentProvider_LogProvider As ILogProvider Implements IPluginContentProvider.LogProvider

Friend Property ExternalPlugin As IPluginContentProvider

Private Property IPluginContentProvider_ExistingContentList As List(Of IUserMedia) Implements IPluginContentProvider.ExistingContentList

Private Property IPluginContentProvider_TempPostsList As List(Of String) Implements IPluginContentProvider.TempPostsList

Private Property IPluginContentProvider_TempMediaList As List(Of IUserMedia) Implements IPluginContentProvider.TempMediaList

Private Property IPluginContentProvider_SeparateVideoFolder As Boolean Implements IPluginContentProvider.SeparateVideoFolder

Private Property IPluginContentProvider_DataPath As String Implements IPluginContentProvider.DataPath

Private Sub IPluginContentProvider_XmlFieldsSet(ByVal Fields As List(Of KeyValuePair(Of String, String))) Implements IPluginContentProvider.XmlFieldsSet

End Sub

Private Function IPluginContentProvider_XmlFieldsGet() As List(Of KeyValuePair(Of String, String)) Implements IPluginContentProvider.XmlFieldsGet

Return Nothing

End Function

Private Sub IPluginContentProvider_GetMedia(ByVal Token As CancellationToken) Implements IPluginContentProvider.GetMedia

End Sub

Private Sub IPluginContentProvider_Download(ByVal Token As CancellationToken) Implements IPluginContentProvider.Download

End Sub

Private Sub IPluginContentProvider_DownloadSingleObject(ByVal Data As IDownloadableMedia, ByVal Token As CancellationToken) Implements IPluginContentProvider.DownloadSingleObject

End Sub

Friend Overridable Function ExchangeOptionsGet() As Object Implements IPluginContentProvider.ExchangeOptionsGet

Return Nothing

End Function

Friend Overridable Sub ExchangeOptionsSet(ByVal Obj As Object) Implements IPluginContentProvider.ExchangeOptionsSet

End Sub

#End Region

#Region "IIndexable Support"

Friend Property Index As Integer = 0 Implements IIndexable.Index

Private Function SetIndex(ByVal Obj As Object, ByVal Index As Integer) As Object Implements IIndexable.SetIndex

DirectCast(Obj, UserDataBase).Index = Index

Return Obj

End Function

#End Region

#Region "LVI"

Friend ReadOnly Property LVIKey As String Implements IUserData.Key

Get

If Not _IsCollection Then

Return $"{IIf(IsSubscription, "SSSS", String.Empty)}{Site.ToString.ToUpper}_{Name}"

Else

Return $"CCCC_{CollectionName}"

End If

End Get

End Property

Friend Function GetLVI(ByVal Destination As ListView) As ListViewItem Implements IUserData.GetLVI

If Settings.ViewModeIsPicture Then

Return ListImagesLoader.ApplyLVIColor(Me, New ListViewItem(ToString(), LVIKey, GetLVIGroup(Destination)) With {.Name = LVIKey, .Tag = LVIKey}, True)

Else

Return ListImagesLoader.ApplyLVIColor(Me, New ListViewItem(ToString(), GetLVIGroup(Destination)) With {.Name = LVIKey, .Tag = LVIKey}, True)

End If

End Function

Friend Function GetLVIGroup(ByVal Destination As ListView) As ListViewGroup Implements IUserData.GetLVIGroup

Try

With Settings

If Not .ShowAllUsers.Value AndAlso (.AdvancedFilter.Labels.Count > 0 Or .AdvancedFilter.LabelsNo) AndAlso Not .ShowGroupsInsteadLabels Then

If Labels.Count > 0 And .AdvancedFilter.Labels.Count > 0 Then

For i% = 0 To Labels.Count - 1

If .AdvancedFilter.Labels.Contains(Labels(i)) Then Return Destination.Groups.Item(Labels(i))

Next

End If

ElseIf Settings.GroupUsers Then

Return Destination.Groups.Item(GetLviGroupName(HOST, Temporary, Favorite, IsCollection))

End If

End With

Return Destination.Groups.Item(LabelsKeeper.NoLabeledName)

Catch ex As Exception

Return Destination.Groups.Item(LabelsKeeper.NoLabeledName)

End Try

End Function