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

Fixes

Browse Source 
Fixed typo
Added label icon to context menu
Fixed PornHub bug
Added 'Object' to IUserMedia
This commit is contained in:
Andy
2022-12-24 15:18:04 +03:00
parent bdc7321331
commit f0686bbc8e
11 changed files with 52 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
SCrawler/Download/Automation/AutoDownloader.vb
View File

@@ -471,18 +471,25 @@ Namespace DownloadObjects
Dim DownloadedUsersCount% = 0
Dim simple As Boolean = ShowSimpleNotification And ShowNotifications
Dim notify As Action = Sub()
With Downloader.Downloaded
If ShowNotifications And .Count > 0 Then .ForEach(Sub(ByVal u As IUserData)
If Keys.Contains(u.Key) Then
If simple Then
DownloadedUsersCount += 1
Else
ShowNotification(u)
End If
Keys.Remove(u.Key)
End If
End Sub)
End With
Try
With Downloader.Downloaded
If ShowNotifications And .Count > 0 Then
For indx% = 0 To .Count - 1
With .Item(indx)
If Keys.Contains(.Key) Then
If simple Then
DownloadedUsersCount += 1
Else
ShowNotification(.Self)
End If
Keys.Remove(.Key)
End If
End With
Next
End If
End With
Catch n_ex As Exception
End Try
End Sub
Select Case Mode
Case Modes.All