mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-15 00:02:17 +00:00
290b5c4586
Update to library environment GlobalSettings: add UserAgent Gfycat: fix RedGifs urls issue
37 lines
1.5 KiB
VB.net
37 lines
1.5 KiB
VB.net
' Copyright (C) 2023 Andy https://github.com/AAndyProgram
|
|
' 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 SCrawler.Plugin
|
|
Imports SCrawler.Plugin.Attributes
|
|
Imports PersonalUtilities.Functions.RegularExpressions
|
|
Namespace API.LPSG
|
|
<Manifest("AndyProgram_LPSG")>
|
|
Friend Class SiteSettings : Inherits Base.SiteSettingsBase
|
|
Friend Overrides ReadOnly Property Icon As Icon
|
|
Get
|
|
Return My.Resources.SiteResources.LPSGIcon_48
|
|
End Get
|
|
End Property
|
|
Friend Overrides ReadOnly Property Image As Image
|
|
Get
|
|
Return My.Resources.SiteResources.LPSGPic_32
|
|
End Get
|
|
End Property
|
|
Friend Sub New()
|
|
MyBase.New("LPSG", "www.lpsg.com")
|
|
UrlPatternUser = "https://www.lpsg.com/threads/{0}/"
|
|
UserRegex = RParams.DMS(".+?lpsg.com/threads/([^/]+)", 1)
|
|
End Sub
|
|
Friend Overrides Function GetInstance(ByVal What As ISiteSettings.Download) As IPluginContentProvider
|
|
Return New UserData
|
|
End Function
|
|
Friend Overrides Function Available(ByVal What As ISiteSettings.Download, ByVal Silent As Boolean) As Boolean
|
|
Return Responser.CookiesExists
|
|
End Function
|
|
End Class
|
|
End Namespace |