mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-15 00:02:17 +00:00
2022.10.18.0
Moved UserMedia xml initialization to the structure itself Added download with feed skip Added silent mode (temporary disabling notifications) Added additional Instagram protection Excluding users whose profiles do not exist from downloading with groups and AutoDownloader Feed: delete file bugs; reorder data after file deletion; video playback bugs SiteSettingsForm: enable 'OK' button when editing cookies Fixed collection users ban Settings: disabling ffmpeg missing notification; advanced notification management Added 'ToolStripKeyMenuItem' control Plugins: deprecated XVIDEOS and LPSG plugin libraries; moved them to SCrawler. Updated license PluginProvider: added 'BeginEdit' and 'EndEdit' function to ISiteSettings; changed GetSpecialData (ISiteSettings) return type to IEnumerable PluginsEnvironment: removed 'IsMyClass' attribute MainFrame: grouped all download buttons into one menu; reorganized code; removed 'F2' hotkey AutoDownloader: added advanced pause options; added buttons to tray icon and AutoDownloader form MissingPosts: finished; activated functions that were disabled; added download functions to UserData classes UserDataBase: ability to use responser; ability to download m3u8; extended 'DownloadingException' with optional argument 'EObj'; user index in collection (button tag) changed to user instance; extended information with user labels; updated 'ProcessException' function Replaced download buttons with 'KeyClick' control Replaced FDatePickerForm with my library's form Collections: Deleting multiple collections - disabled confirmation; ban each user in collection
This commit is contained in:
Andy
166
SCrawler/UserSearchForm.vb
Normal file
166
SCrawler/UserSearchForm.vb
Normal file
@@ -0,0 +1,166 @@
|
||||
' 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.Forms
|
||||
Imports SCrawler.API
|
||||
Imports SCrawler.API.Base
|
||||
Friend Class UserSearchForm
|
||||
Private ReadOnly MyView As FormView
|
||||
Private ReadOnly Results As List(Of SearchResult)
|
||||
Private ReadOnly RLP As New ListAddParams(LAP.NotContainsOnly)
|
||||
Private _UFInit As Boolean = True
|
||||
Private Structure SearchResult : Implements IComparable(Of SearchResult)
|
||||
Friend Enum Modes : URL : Name : Description : Label : End Enum
|
||||
Friend ReadOnly Key As String
|
||||
Friend ReadOnly Text As String
|
||||
Friend ReadOnly IsCollection As Boolean
|
||||
Friend ReadOnly Mode As Modes
|
||||
Friend Sub New(ByVal User As IUserData, ByVal Mode As Modes)
|
||||
Key = User.Key
|
||||
IsCollection = User.IsCollection
|
||||
Text = $"[{IIf(IsCollection, "C", "U")}] "
|
||||
If IsCollection Then
|
||||
Text &= $"[{User.CollectionName}] "
|
||||
Else
|
||||
If User.IncludedInCollection Then Text &= $"[{User.CollectionName}] "
|
||||
Text &= $"[{User.Site}] [{User.Name}]"
|
||||
End If
|
||||
Me.Mode = Mode
|
||||
End Sub
|
||||
Private Function CompareTo(ByVal Other As SearchResult) As Integer Implements IComparable(Of SearchResult).CompareTo
|
||||
If CInt(Mode).CompareTo(CInt(Other.Mode)) = 0 Then
|
||||
Return IsCollection.CompareTo(Other.IsCollection)
|
||||
Else
|
||||
Return CInt(Mode).CompareTo(CInt(Other.Mode)) = 0
|
||||
End If
|
||||
End Function
|
||||
Public Overrides Function Equals(ByVal Obj As Object) As Boolean
|
||||
With DirectCast(Obj, SearchResult) : Return Key = .Key And Mode = .Mode : End With
|
||||
End Function
|
||||
End Structure
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
Results = New List(Of SearchResult)
|
||||
MyView = New FormView(Me)
|
||||
MyView.Import(Settings.Design)
|
||||
End Sub
|
||||
Private Sub UserSearchForm_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
MyView.SetFormSize()
|
||||
CH_SEARCH_IN_NAME.Checked = Settings.SearchInName
|
||||
CH_SEARCH_IN_DESCR.Checked = Settings.SearchInDescription
|
||||
CH_SEARCH_IN_LABEL.Checked = Settings.SearchInLabel
|
||||
_UFInit = False
|
||||
End Sub
|
||||
Private Sub UserSearchForm_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
||||
e.Cancel = True
|
||||
Hide()
|
||||
End Sub
|
||||
Private Sub UserSearchForm_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
|
||||
If e.KeyCode = Keys.Escape Then Hide() : e.Handled = True
|
||||
End Sub
|
||||
Private Sub UserSearchForm_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
|
||||
Results.Clear()
|
||||
End Sub
|
||||
Private Sub TXT_SEARCH_TextChanged(sender As Object, e As EventArgs) Handles TXT_SEARCH.TextChanged
|
||||
SearchUser()
|
||||
End Sub
|
||||
Private Sub TXT_SEARCH_KeyDown(sender As Object, e As KeyEventArgs) Handles TXT_SEARCH.KeyDown
|
||||
If e.KeyCode = Keys.Enter And Not e.Shift Then SearchUser() : e.Handled = True
|
||||
End Sub
|
||||
Private Sub LIST_SEARCH_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles LIST_SEARCH.MouseDoubleClick
|
||||
FocusUser()
|
||||
End Sub
|
||||
Private Sub LIST_SEARCH_KeyDown(sender As Object, e As KeyEventArgs) Handles LIST_SEARCH.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then FocusUser() : e.Handled = True
|
||||
End Sub
|
||||
Private Sub CH_SEARCH_IN_NAME_CheckedChanged(sender As Object, e As EventArgs) Handles CH_SEARCH_IN_NAME.CheckedChanged
|
||||
If Not _UFInit Then Settings.SearchInName.Value = CH_SEARCH_IN_NAME.Checked
|
||||
End Sub
|
||||
Private Sub CH_SEARCH_IN_DESCR_CheckedChanged(sender As Object, e As EventArgs) Handles CH_SEARCH_IN_DESCR.CheckedChanged
|
||||
If Not _UFInit Then Settings.SearchInDescription.Value = CH_SEARCH_IN_DESCR.Checked
|
||||
End Sub
|
||||
Private Sub CH_SEARCH_IN_LABEL_CheckedChanged(sender As Object, e As EventArgs) Handles CH_SEARCH_IN_LABEL.CheckedChanged
|
||||
If Not _UFInit Then Settings.SearchInLabel.Value = CH_SEARCH_IN_LABEL.Checked
|
||||
End Sub
|
||||
Private Sub SearchUser()
|
||||
Try
|
||||
LIST_SEARCH.BeginUpdate()
|
||||
ControlInvokeFast(LIST_SEARCH, Sub() LIST_SEARCH.Items.Clear())
|
||||
Results.Clear()
|
||||
Dim t$ = TXT_SEARCH.Text.Trim
|
||||
With Settings
|
||||
If Not t.IsEmptyString And .Users.Count > 0 Then
|
||||
Dim i%
|
||||
Dim s As Plugin.ExchangeOptions = Nothing
|
||||
Dim cu As Boolean = False
|
||||
Dim __descr As Boolean = CH_SEARCH_IN_DESCR.Checked
|
||||
Dim __name As Boolean = CH_SEARCH_IN_NAME.Checked
|
||||
Dim __lbl As Boolean = CH_SEARCH_IN_LABEL.Checked
|
||||
Dim _CheckUrl As Action(Of IUserData) = Sub(ByVal u As IUserData)
|
||||
If cu AndAlso ((u.Site = s.SiteName Or u.HOST.Key = s.HostKey) And u.Name.ToLower = s.UserName) Then _
|
||||
Results.ListAddValue(New SearchResult(u, SearchResult.Modes.URL), RLP)
|
||||
End Sub
|
||||
Dim _CheckDescr As Action(Of IUserData) = Sub(ByVal u As IUserData)
|
||||
If __descr AndAlso Not u.Description.IsEmptyString AndAlso
|
||||
u.Description.Contains(t) Then _
|
||||
Results.ListAddValue(New SearchResult(u, SearchResult.Modes.Description), RLP)
|
||||
End Sub
|
||||
Dim _LabelPredicate As Predicate(Of String) = Function(l) l.ToLower.Contains(t)
|
||||
Dim _CheckLabels As Action(Of IUserData) = Sub(ByVal u As IUserData)
|
||||
If __lbl AndAlso u.Labels.ListExists AndAlso u.Labels.Exists(_LabelPredicate) Then _
|
||||
Results.ListAddValue(New SearchResult(u, SearchResult.Modes.Label), RLP)
|
||||
End Sub
|
||||
|
||||
If t.Length >= 4 AndAlso t.StartsWith("http") Then
|
||||
For Each p In Settings.Plugins
|
||||
s = p.Settings.IsMyUser(t)
|
||||
If Not s.UserName.IsEmptyString Then Exit For
|
||||
Next
|
||||
End If
|
||||
cu = Not s.UserName.IsEmptyString
|
||||
t = t.ToLower
|
||||
|
||||
For Each user As IUserData In .Users
|
||||
If __name AndAlso user.Name.ToLower.Contains(t) Then Results.ListAddValue(New SearchResult(user, SearchResult.Modes.Name), RLP)
|
||||
If user.IsCollection Then
|
||||
With DirectCast(user, UserDataBind)
|
||||
If .Count > 0 Then
|
||||
For i = 0 To .Count - 1
|
||||
If __name AndAlso .Item(i).Name.ToLower = t Then Results.ListAddValue(New SearchResult(.Item(i), SearchResult.Modes.Name), RLP)
|
||||
_CheckUrl(.Item(i))
|
||||
_CheckDescr(.Item(i))
|
||||
_CheckLabels(.Item(i))
|
||||
Next
|
||||
End If
|
||||
End With
|
||||
Else
|
||||
_CheckUrl(user)
|
||||
_CheckDescr(user)
|
||||
_CheckLabels(user)
|
||||
End If
|
||||
Next
|
||||
If Results.Count > 0 Then
|
||||
Results.Sort()
|
||||
ControlInvokeFast(LIST_SEARCH, Sub() Results.ForEach(Sub(d) LIST_SEARCH.Items.Add(d.Text)))
|
||||
End If
|
||||
End If
|
||||
End With
|
||||
Catch aex As ArgumentOutOfRangeException
|
||||
Catch ex As Exception
|
||||
ErrorsDescriber.Execute(EDP.SendInLog, ex, $"[UserSearchForm.SearchUser({TXT_SEARCH.Text})]")
|
||||
Finally
|
||||
LIST_SEARCH.EndUpdate()
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub FocusUser()
|
||||
Dim i% = LIST_SEARCH.SelectedIndex
|
||||
If i.ValueBetween(0, Results.Count - 1) Then MainFrameObj.FocusUser(Results(i).Key, True)
|
||||
If Not CH_LEAVE_OPEN.Checked Then Hide()
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user