mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-14 15:52:18 +00:00
2023.8.6.0
Plugins.Attributes: add 'DependentFields' attribute Plugins.IPluginContentProvider: add 'Options' and 'IsSubscription' properties Plugins.ISiteSettings: add 'SubscriptionsAllowed' property Plugins.ExchangeOptions: add 'Options' field Plugins.Attributes.PropertyUpdater: replace 'Dependencies' with 'Arguments' YT: add 'OutputPathAskForName' and 'OutputPathAutoAddPaths' properties; add the ability to store download locations; add 'DownloadLocation' and 'DownloadLocationsCollection' objects YT.IDownloaderSettings: add 'OutputPathAskForName' and 'OutputPathAutoAddPaths' properties YT.Downloader: fixed bug with re-saving elements when loading a video list; fixed bug when files were not deleted when clicking on the delete button; fixed a bug that caused the video to redownload; download job removes elements at wrong indexes; added skipping of downloaded elements in the job; fixed a bug, pending option did not change after download complete YT.YouTubeMediaContainerBase: add '_MediaStateOnLoad' field and 'NeedToSave' function; update the 'Save' function to prevent saving a file when a download is complete and the file has already been saved; update code for new yt-dlp version Fixed cache deletion errors Add user queue Add global locations API.Base.SiteSettingsBase: implement 'SubscriptionsAllowed' property; remove request headers with null values on save; add '_AllowUserAgentUpdate' parameter API.Base.Structures: add 'SiteModes' enum API.Base.UserDataBase: add 'Erase' button; implement 'Options' and 'IsSubscription' properties; add 'SpecialLabels' property; update 'LVIKey'; update 'FitToAddParams' function; add 'EraseData' function; user colors; Not UserExists notification, UserQueue support API.Base: add 'DeclaredNames' API.Instagram: remove default values for headers; disable updating UserAgent from global; check for a new username for non-existent users API.Mastodon: bypass new inherited twitter options; update names and headers API.OnlyFans: make 'HH_BROWSER' property nullable; remove 'HH_BROWSER' from required; fix username bug (dots); handling of 504 and 429 errors; add 'DownloadHighlights' and 'DownloadChatMedia' options; add 'UserExchangeOptions'; fixed incorrect error handler API.PathPlugin: fixed incorrect detection of path existence API.Pinterest: add 'SpecialLabels' API.PornHub: add new video regex; remove old regex; added 'DownloadUploaded', 'DownloadTagged', 'DownloadPrivate' and 'DownloadFavorite' properties to 'SiteSettings', 'UserData' and 'UserExchangeOptions'; update regex to define user; added downloading search queries; update 'GetUserUrl' function; hide unnecessary 'RegexFieldsTextBecameNullException' errors; add subscriptions API.Reddit: add 'SpecialLabels'; add bearer token and its refresh interval; add OAuth; add additional options API.RedGifs: add 'DependentFields' for 'Token' API.ThisVid: add 'DownloadFavourite' option; add downloading search queries, tags, categories; add 'SpecialLabels'; add subscriptions; updating cookies issue API.TikTok: rewrite algorithms API.Twitter: add 'UseAppropriateModel', 'UseNewEndPointSearch', 'UseNewEndPointProfiles', 'AbortOnLimit', 'DownloadAlreadyParsed', 'MediaModelAllowNonUserTweets' properties; remove old commented code; remove 'TwitterPic_400' and replace with 'TwitterIcon_32.ToBitmap'; add 'DownloadModelForceApply' user option; update environment to GDL 1.25.8; fixed gifs downloading; fix typo in 'ReparseMissing'; update names API.UserDataBind: prevent adding site-specific labels when adding to a collection API.Xhamster: add downloading search queries, tags, categories; add 'SpecialLabels'; add additional nodes for channels; add subscriptions API.XVIDEOS: add downloading search queries, tags, categories; add 'SpecialLabels'; add subscriptions; changed users creation method; add subscriptions API.YouTube: add subscriptions AutoDownloader: add new group subscription options; update predicates; fixed excluded labels and sites in default mode; update notifications; add an additional skip options, add 'Force start' option DownloadedInfoForm: add subscriptions; fixed size/location bug; hide unnecessary error (refill) Feed: add subscriptions; update filters; add 'Ctrl+G' shortcut FeedMedia: add subscriptions; fixed 'webm' bug; add title for subscription media; add site icon to post; user colors; always using 'FriendlyName' instead of 'UserName' if it exists DownloadGroup, GroupDefaults, GroupParameters: add subscription and 'UsersCount' options MissingPostsForm: add 'BTT_DELETE_ALL' VideoDownloaderForm, DownloaderUrlForm, DownloaderUrlsArrForm: add download locations support VideoDownloaderForm: add subscriptions support GlobalSettingsForm: add new properties UserCreatorForm: add subscriptions; add 'Options' support (of 'ExchangeOptions'); user colors ListImagesLoader: add subscription colors; user colors MainFrame: add subscriptions; add filters by subscription and user; update predicates NuGet: update 'LibVLCSharp', 'LibVLCSharp.WinForms', 'VideoLAN.LibVLC.Windows' DownloadableMediaHost: update 'Save' function PropertyValueHost: fix 'CaptionWidth' bug; add 'Dependents' SettingsHost: add 'Dependents' UserDataHost: add 'Options' and 'IsSubscription' properties SettingsCLS: implement new 'IDownloaderSettings' properties; add 'CacheSnapshots'; add 'DownloadLocations'; add new properties UserInfo, UserFinder: add subscriptions UserSearchForm: fixed search by name bug
This commit is contained in:
Andy
238
SCrawler.YouTube/Editors/BugReporterForm.vb
Normal file
238
SCrawler.YouTube/Editors/BugReporterForm.vb
Normal file
@@ -0,0 +1,238 @@
|
||||
' 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.Bots
|
||||
Imports PersonalUtilities.Tools
|
||||
Imports PersonalUtilities.Forms
|
||||
Imports PersonalUtilities.Forms.Controls.Base
|
||||
Imports PersonalUtilities.Functions.XML
|
||||
Imports PersonalUtilities.Functions.Messaging
|
||||
Imports BStyle = PersonalUtilities.Bots.IBot.Styles
|
||||
Imports ADB = PersonalUtilities.Forms.Controls.Base.ActionButton.DefaultButtons
|
||||
Namespace Editors
|
||||
Public Class BugReporterForm
|
||||
#Region "Declarations"
|
||||
Private Const MsgTitle As String = "Bug report"
|
||||
Private ReadOnly MyView As FormView
|
||||
Private ReadOnly MyFieldsChecker As FieldsChecker
|
||||
Private MyProgramInfo As String
|
||||
Private MyProgramInfoPopulated As Boolean = False
|
||||
Private ReadOnly MyProgramText As String
|
||||
Private ReadOnly MyCurrentVersion As Version
|
||||
Private ReadOnly MyIsYouTube As Boolean
|
||||
Private ReadOnly MyEnvirData As DownloadObjects.STDownloader.IDownloaderSettings
|
||||
Private ReadOnly MyAdditText As String
|
||||
Private ReadOnly MyCache As CacheKeeper
|
||||
#End Region
|
||||
#Region "Initializer"
|
||||
Public Sub New(ByVal Cache As CacheKeeper, ByVal DesignXML As EContainer, ByVal ProgramText As String, ByVal CurrentVersion As Version, ByVal IsYouTube As Boolean,
|
||||
ByVal EnvirData As DownloadObjects.STDownloader.IDownloaderSettings, Optional ByVal AdditText As String = Nothing)
|
||||
InitializeComponent()
|
||||
MyView = New FormView(Me, DesignXML)
|
||||
MyFieldsChecker = New FieldsChecker
|
||||
MyCache = Cache
|
||||
MyProgramText = ProgramText
|
||||
MyCurrentVersion = CurrentVersion
|
||||
MyIsYouTube = IsYouTube
|
||||
MyEnvirData = EnvirData
|
||||
MyAdditText = AdditText
|
||||
Icon = ImageRenderer.GetIcon(My.Resources.MailPic_16, EDP.ReturnValue)
|
||||
End Sub
|
||||
#End Region
|
||||
#Region "Form handlers"
|
||||
Private Async Sub BugReporterForm_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
MyView.Import()
|
||||
MyView.SetFormSize()
|
||||
With MyFieldsChecker
|
||||
.AddControl(Of String)(TXT_DESCR, TXT_DESCR.GroupBoxText)
|
||||
.EndLoaderOperations()
|
||||
End With
|
||||
TXT_LOG.Text = MyMainLOG
|
||||
Await Task.Run(Sub()
|
||||
MyProgramInfo = ProgramInfo.GetProgramText(MyProgramText.IfNullOrEmpty(IIf(MyIsYouTube, "YouTube downloader", "SCrawler")),
|
||||
MyCurrentVersion, MyIsYouTube, MyEnvirData, MyAdditText)
|
||||
MyProgramInfoPopulated = True
|
||||
End Sub)
|
||||
End Sub
|
||||
Private Sub BugReporterForm_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
||||
MyView.Dispose()
|
||||
MyFieldsChecker.Dispose()
|
||||
End Sub
|
||||
#End Region
|
||||
#Region "Message"
|
||||
Private Sub WaitLoadingDone()
|
||||
While Not MyProgramInfoPopulated : Threading.Thread.Sleep(100) : End While
|
||||
End Sub
|
||||
Private Function CreateMessage(ByVal ForGitHub As Boolean, Optional ByVal ForDiscord As Boolean = False) As Object
|
||||
Try
|
||||
Dim nl$ = vbNewLine.StringDup(2)
|
||||
Dim data As New List(Of BotMessage)
|
||||
Dim t$ = String.Empty
|
||||
Dim discordAppendNl As Action = Sub() data.Add(New BotMessage(vbNewLine))
|
||||
Dim appendNewLine As Action = Sub() If ForDiscord Then data.Add(New BotMessage(nl)) Else t &= nl
|
||||
Dim ghBold As Func(Of String, Object) = Function(ByVal input As String) As Object
|
||||
If ForDiscord Then
|
||||
Return New BotMessage(input, BStyle.Bold)
|
||||
Else
|
||||
Return String.Format("{1}{0}{1}", input, IIf(ForGitHub, "**", ""))
|
||||
End If
|
||||
End Function
|
||||
Dim appendData As Action(Of Object) = Sub(ByVal input As Object)
|
||||
If ForDiscord Then
|
||||
discordAppendNl.Invoke
|
||||
data.Add(If(TypeOf input Is BotMessage, input, New BotMessage(input.ToString)))
|
||||
Else
|
||||
t.StringAppendLine(input)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
appendData(ghBold("Describe the bug"))
|
||||
appendData(TXT_DESCR.Text)
|
||||
If Not TXT_URL_PROFILE.IsEmptyString Then appendData($"Profile URL: {TXT_URL_PROFILE.Text}")
|
||||
If Not TXT_URL_POST.IsEmptyString Then appendData($"Post URL: {TXT_URL_POST.Text}")
|
||||
If Not TXT_REPRODUCE.IsEmptyString Then
|
||||
appendNewLine.Invoke
|
||||
appendData(ghBold("To Reproduce"))
|
||||
appendData(TXT_REPRODUCE.Text)
|
||||
End If
|
||||
If Not TXT_EXPECT.IsEmptyString Then
|
||||
appendNewLine.Invoke
|
||||
appendData(ghBold("Expected behavior"))
|
||||
appendData(TXT_EXPECT.Text)
|
||||
End If
|
||||
If Not TXT_LOG.IsEmptyString Then
|
||||
appendNewLine.Invoke
|
||||
If ForDiscord Then
|
||||
data.Add(New BotMessage(TXT_LOG.Text, BStyle.Code))
|
||||
ElseIf ForGitHub Then
|
||||
appendData($"<details><summary>Log data</summary><pre>{TXT_LOG.Text}</pre></details>")
|
||||
Else
|
||||
appendData(ghBold("LOG"))
|
||||
appendData(TXT_LOG.Text)
|
||||
End If
|
||||
End If
|
||||
|
||||
WaitLoadingDone()
|
||||
appendNewLine.Invoke
|
||||
appendData(ghBold("Release information:"))
|
||||
appendData(MyProgramInfo)
|
||||
|
||||
Return If(ForDiscord, data, t)
|
||||
Catch ex As Exception
|
||||
Return ErrorsDescriber.Execute(EDP.SendToLog + EDP.ReturnValue, ex, "[BugReporterForm.CreateMessage]")
|
||||
End Try
|
||||
End Function
|
||||
Private Function ValidateFields(Optional ByVal SimpleMode As Boolean = False) As Boolean
|
||||
If MyFieldsChecker.AllParamsOK Then
|
||||
Dim opts$ = String.Empty
|
||||
If TXT_URL_PROFILE.IsEmptyString Then opts.StringAppend("profile URL")
|
||||
If TXT_URL_POST.IsEmptyString Then opts.StringAppend("post URL")
|
||||
If TXT_LOG.Text.IsEmptyString Then opts.StringAppend("LOG")
|
||||
Return opts.IsEmptyString OrElse SimpleMode OrElse
|
||||
MsgBoxE({$"You haven't completed the following fields: {opts}.{vbCr}Are you sure you want to skip them?",
|
||||
MsgTitle}, vbExclamation,,, {"Process", "Cancel"}) = 0
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
#End Region
|
||||
#Region "Buttons"
|
||||
Private Sub BTT_ANON_Click(sender As Object, e As EventArgs) Handles BTT_ANON.Click
|
||||
Try
|
||||
If ValidateFields(True) Then
|
||||
Dim files As List(Of SFile) = Nothing
|
||||
If TXT_FILES.Lines.ListExists Then files.ListAddList(TXT_FILES.Lines, LAP.NotContainsOnly)
|
||||
Dim msgs As New List(Of BotMessage)
|
||||
Dim isSimple As Boolean = False
|
||||
Dim aMsg$ = String.Empty
|
||||
Select Case MsgBoxE(New MMessage("Do you want to send a simple message or report a bug?", MsgTitle,
|
||||
{New MsgBoxButton("Nice", "Say something nice to the developer." & vbCr &
|
||||
"You can also attach cat picture :-)" & vbCr &
|
||||
$"The message will be sent from the '{TXT_DESCR.GroupBoxText}' field."),
|
||||
New MsgBoxButton("Simple", $"The developer will only receive the message from the '{TXT_DESCR.GroupBoxText}' field."),
|
||||
New MsgBoxButton("Bug report", "The developer will receive a full bug report."),
|
||||
"Cancel"}, vbQuestion) With {.ButtonsPerRow = 4, .DefaultButton = 2, .CancelButton = 3}).Index
|
||||
Case 0 : msgs.Add(TXT_DESCR.Text) : aMsg = $"{vbCr}Thank you very much. I'm very grateful for your messages. You are awesome!"
|
||||
Case 1 : isSimple = True : msgs.Add(TXT_DESCR.Text)
|
||||
Case 2 : msgs = CreateMessage(False, True)
|
||||
Case Else : Exit Sub
|
||||
End Select
|
||||
If msgs.ListExists Then
|
||||
Dim nErr As New ErrorsDescriber(EDP.None)
|
||||
Using d As New DiscordBot With {.Credential = DiscordWebHook, .User = "Anonymous user"}
|
||||
d.SendMessage(New BotMessage(msgs.ToArray), EDP.ThrowException)
|
||||
If isSimple Then WaitLoadingDone() : d.SendMessage(MyProgramInfo, nErr)
|
||||
If files.ListExists Then files.ForEach(Sub(ff) d.SendFile(BotMessage.FromFile(ff),, nErr))
|
||||
End Using
|
||||
msgs.Clear()
|
||||
MsgBoxE({$"Your message has been sent to the developer.{aMsg}", MsgTitle})
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBoxE({"Something is wrong. Your message has not been sent to the developer.", MsgTitle}, vbCritical)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub BTT_EMAIL_Click(sender As Object, e As EventArgs) Handles BTT_EMAIL.Click
|
||||
If ValidateFields() Then
|
||||
Dim msg$ = CreateMessage(False)
|
||||
Dim cmd$ = "START mailto:""andyprogram@proton.me?to=andyprogram@proton.me&subject=Application%%20bug%%20report"""
|
||||
BufferText = msg
|
||||
MsgBoxE({"The message has been copied to your clipboard. Click OK and paste this message into the window that opens.", MsgTitle})
|
||||
Using b As New BatchExecutor
|
||||
b.FileExchanger = MyCache.NewInstance(Of BatchFileExchanger)
|
||||
b.Execute(cmd)
|
||||
End Using
|
||||
End If
|
||||
End Sub
|
||||
Private Sub BTT_GITHUB_Click(sender As Object, e As EventArgs) Handles BTT_GITHUB.Click
|
||||
If ValidateFields() Then
|
||||
Dim msg$ = CreateMessage(True)
|
||||
BufferText = msg
|
||||
MsgBoxE({"The message has been copied to your clipboard. Create a new issue on GitHub and paste this message.", MsgTitle})
|
||||
Try : Process.Start("https://github.com/AAndyProgram/SCrawler/issues/new?assignees=&labels=&projects=&template=custom.md&title=") : Catch : End Try
|
||||
End If
|
||||
End Sub
|
||||
Private Sub BTT_COPY_Click(sender As Object, e As EventArgs) Handles BTT_COPY.Click
|
||||
If ValidateFields() Then
|
||||
Dim msg$ = CreateMessage(MsgBoxE({"Will you post this message on GitHub?", MsgTitle}, vbQuestion + vbYesNo) = vbYes)
|
||||
BufferText = msg
|
||||
MsgBoxE({"The message has been copied to your clipboard.", MsgTitle})
|
||||
End If
|
||||
End Sub
|
||||
Private Sub BTT_CANCEL_Click(sender As Object, e As EventArgs) Handles BTT_CANCEL.Click
|
||||
DialogResult = DialogResult.Cancel
|
||||
Close()
|
||||
End Sub
|
||||
#End Region
|
||||
#Region "Logs"
|
||||
Private Sub TXT_LOG_ActionOnButtonClick(ByVal Sender As Object, ByVal e As ActionButtonEventArgs) Handles TXT_LOG.ActionOnButtonClick
|
||||
If e.DefaultButton = ADB.Open Then
|
||||
Dim files As List(Of SFile) = SFile.SelectFiles("LOGs\",, "Select log files", "Log files|*.txt|All files|*.*", EDP.ReturnValue)
|
||||
If files.ListExists Then
|
||||
Dim t$
|
||||
For Each file As SFile In files
|
||||
t = file.GetText
|
||||
If Not t.IsEmptyString Then _
|
||||
TXT_LOG.Text = $"{TXT_LOG.Text}{If(TXT_LOG.Text.IsEmptyString, String.Empty, vbNewLine.StringDup(2))}{file.Name}{vbNewLine}{t}"
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub TXT_FILES_ActionOnButtonClick(ByVal Sender As Object, ByVal e As ActionButtonEventArgs) Handles TXT_FILES.ActionOnButtonClick
|
||||
Try
|
||||
If e.DefaultButton = ADB.Add Then
|
||||
Dim f As List(Of SFile) = SFile.SelectFiles(,, "Select files to be sent", "Images|*.jpg;*.jpeg;*.png;*.webp;*.webm;*.gif|All files|*.*", EDP.ReturnValue)
|
||||
If f.ListExists Then TXT_FILES.Lines = ListAddList(Nothing, TXT_FILES.Lines.Concat(f.Select(Function(ff) ff.ToString)),
|
||||
LAP.NotContainsOnly, EDP.ReturnValue).ToArray
|
||||
End If
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
#End Region
|
||||
End Class
|
||||
End Namespace
|
||||
Reference in New Issue
Block a user