geonu/SCrawler
1
0
Fork 0
mirror of https://github.com/AAndyProgram/SCrawler.git synced 2026-03-15 08:12:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

1.0.0.1

Browse Source 
Added: limited downloads, remove active downloads, simulation tasks management, copy channel image, x86
Removed reparse function
Fixed some errors, typo and Reddit parsing algo
This commit is contained in:
Andy
2021-12-09 18:36:22 +03:00
parent 6979ca018e
commit c7dc0eca7d
23 changed files with 642 additions and 277 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
SCrawler/MainMod.vb
View File

@@ -74,7 +74,7 @@ Friend Module MainMod
x.Attribute(Name_Collection).Value, x.Attribute(Name_Merged).Value.FromXML(Of Boolean)(False))
IsChannel = x.Attribute(Name_IsChannel).Value.FromXML(Of Boolean)(False)
End Sub
Friend Sub New(ByVal c As API.Reddit.Channel)
Friend Sub New(ByVal c As Reddit.Channel)
Name = c.Name
Site = Sites.Reddit
File = c.File
@@ -245,23 +245,6 @@ Friend Module MainMod
Return ErrorsDescriber.Execute(e, ex, "Downloading video by URL error", False)
End Try
End Function
Friend Sub CheckForReparse()
Try
Dim p As Func(Of IUserData, Boolean) = Function(u) u.DataForReparseExists
With Settings.Users
If .Count > 0 AndAlso .Exists(Function(u) p.Invoke(u)) Then
If MsgBox("Some users contain not parsed data" & vbCr &
"Do you want to start trying to download?",
MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton1,
"Not parsed data found") = MsgBoxResult.Yes Then
Downloader.AddRange(.Where(p).SelectMany(Function(u) If(u.IsCollection, DirectCast(u, UserDataBind).Collections.Where(p), {u})), True)
End If
End If
End With
Catch ex As Exception
ErrorsDescriber.Execute(EDP.SendInLog, ex, "CheckForReparse")
End Try
End Sub
Friend Structure UserBan
Friend ReadOnly Name As String
Friend ReadOnly Reason As String