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

2023.2.5.0

Browse Source 
Update to library environment
GlobalSettings: add UserAgent
Gfycat: fix RedGifs urls issue
This commit is contained in:
Andy
2023-02-05 20:58:02 +03:00
parent f5e68a7032
commit 290b5c4586
23 changed files with 252 additions and 133 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
SCrawler/API/Gfycat/Envir.vb
View File

@@ -17,7 +17,18 @@ Namespace API.Gfycat
Try
Dim r$
Using w As New WebClient : r = w.DownloadString(URL) : End Using
If Not r.IsEmptyString Then Return RegexReplace(r, RParams.DMS("contentUrl.:.(http.?://[^""]+?\.mp4)", 1)) Else Return String.Empty
If Not r.IsEmptyString Then
Dim _url$ = RegexReplace(r, RParams.DMS("contentUrl.:.(http.?://[^""]+?\.mp4)", 1, EDP.ReturnValue))
If Not _url.IsEmptyString Then
If _url.Contains("redgifs.com") Then
_url = RegexReplace(_url, RParams.DMS("([^/-]+)[-\w]*\.mp4", 1, EDP.ReturnValue))
If Not _url.IsEmptyString Then Return $"https://www.redgifs.com/watch/{_url}"
Else
Return _url
End If
End If
End If
Return String.Empty
Catch ex As Exception
Dim e As EDP = EDP.ReturnValue
If TypeOf ex Is WebException Then