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

2025.3.17.0

Browse Source 
API.SiteSettingsBase: fix incorrect class initializer
API.UserDataBase: add all objects to xml (STD)
API.Facebook: fix downloading reels from noname profiles
API.Pinterest: remove 'UserOptions' overrides (SiteSettings); add 'PwsHeader' to 'GetBoards'
API.PornHub: fix 'UpdateUserOptions' function ('NameTrue')
API.Threads: fix 'pinned' posts
API.TikTok: add photos download
This commit is contained in:
Andy
2025-03-17 16:23:41 +03:00
parent 2f838929cc
commit fff63d0a9f
13 changed files with 307 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
SCrawler/API/ThreadsNet/UserData.vb
View File

@@ -128,10 +128,13 @@ Namespace API.ThreadsNet
If IsSavedPosts Then
Return False
Else
If MaxLastDownDate.HasValue Then
Dim d As Date? = AConvert(Of Date)(Items(Index).ItemF(DefaultParser_ElemNode_Default).Value("taken_at"), UnixDate32Provider, Nothing)
If d.HasValue Then Return d.Value < MaxLastDownDate.Value
End If
With Items(Index).ItemF(DefaultParser_ElemNode)
Return .Value({"text_post_app_info", "pinned_post_info"}, "is_pinned_to_profile").FromXML(Of Boolean)(False)
If MaxLastDownDate.HasValue Then
Dim d As Date? = AConvert(Of Date)(.Value("taken_at"), UnixDate32Provider, Nothing)
If d.HasValue Then Return d.Value <= MaxLastDownDate.Value
End If
End With
Return Not FirstLoadingDone
End If
Catch ex As Exception