mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-14 15:52:18 +00:00
e0dc66e0da
Brushed the code in some classes Extended PropertyOption attribute Removed AuthNullException Moved ExitException to UserData class Removed Instagram HashUpdateRequired and its environment Changed Reddit response status code check Twitter images bug Added Scheduler, task startup delay, webp to jpg Fixed Stop button bug Minor changes
70 lines
2.9 KiB
VB.net
70 lines
2.9 KiB
VB.net
' Copyright (C) 2022 Andy
|
|
' 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 PersonalUtilities.Forms.Toolbars
|
|
Imports PersonalUtilities.Forms
|
|
Public Class SettingsForm
|
|
Private WithEvents MyDefs As DefaultFormOptions
|
|
Private ReadOnly Property Settings As SiteSettings
|
|
Friend Sub New(ByRef s As SiteSettings, ByRef Design As XML.XmlFile)
|
|
InitializeComponent()
|
|
Settings = s
|
|
MyDefs = New DefaultFormOptions(Me, Design)
|
|
End Sub
|
|
Private Sub SettingsForm_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Try
|
|
With MyDefs
|
|
.MyViewInitialize(True)
|
|
.AddEditToolbar({EditToolbar.ControlItem.Add, EditToolbar.ControlItem.Delete})
|
|
.AddOkCancelToolbar()
|
|
If Settings.Domains.Count > 0 Then Settings.Domains.ForEach(Sub(d) LIST_DOMAINS.Items.Add(d))
|
|
.EndLoaderOperations()
|
|
End With
|
|
Catch ex As Exception
|
|
MyDefs.InvokeLoaderError(ex)
|
|
End Try
|
|
End Sub
|
|
Private Sub MyDefs_ButtonOkClick() Handles MyDefs.ButtonOkClick
|
|
Settings.Domains.Clear()
|
|
With LIST_DOMAINS
|
|
If .Items.Count > 0 Then
|
|
For Each i In .Items : Settings.Domains.Add(i.ToString) : Next
|
|
End If
|
|
End With
|
|
Settings.UpdateDomains()
|
|
MyDefs.CloseForm()
|
|
End Sub
|
|
Private Sub MyDefs_ButtonAddClick() Handles MyDefs.ButtonAddClick
|
|
Dim nd$ = InputBoxE("Enter a new domain using the pattern [xvideos.com]:", "New domain")
|
|
If Not nd.IsEmptyString Then
|
|
If Not LIST_DOMAINS.Items.Contains(nd) Then
|
|
LIST_DOMAINS.Items.Add(nd)
|
|
Else
|
|
MsgBoxE($"The domain [{nd}] already added")
|
|
End If
|
|
End If
|
|
End Sub
|
|
Private Sub MyDefs_ButtonDeleteClick() Handles MyDefs.ButtonDeleteClickE
|
|
If _LatestSelected.ValueBetween(0, LIST_DOMAINS.Items.Count - 1) Then
|
|
Dim n$ = LIST_DOMAINS.Items(_LatestSelected)
|
|
If MsgBoxE({$"Are you sure you want to delete the [{n}] domain?",
|
|
"Removing domains"}, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
|
LIST_DOMAINS.Items.RemoveAt(_LatestSelected)
|
|
MsgBoxE($"Domain [{n}] removed")
|
|
Else
|
|
MsgBoxE("Operation canceled")
|
|
End If
|
|
Else
|
|
MsgBoxE("No domain selected", vbExclamation)
|
|
End If
|
|
End Sub
|
|
Private _LatestSelected As Integer = -1
|
|
Private Sub LIST_DOMENS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles LIST_DOMAINS.SelectedIndexChanged
|
|
_LatestSelected = LIST_DOMAINS.SelectedIndex
|
|
End Sub
|
|
End Class |