mirror of
https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git
synced 2024-11-10 18:25:05 +01:00
6b41f2571b
fix funimation hardsub dfxp issue fix download count wrong fix unicode characters added version checker in about via github releases
73 lines
3.9 KiB
VB.net
73 lines
3.9 KiB
VB.net
Option Strict On
|
|
|
|
Imports System.IO
|
|
Imports Gecko
|
|
Imports System.Environment
|
|
Imports Microsoft.Win32
|
|
Namespace My
|
|
|
|
' The following events are available for MyApplication:
|
|
'
|
|
' Startup: Raised when the application starts, before the startup form is created.
|
|
' Shutdown: Raised after all application forms are closed. This event is not raised if the application terminates abnormally.
|
|
' UnhandledException: Raised if the application encounters an unhandled exception.
|
|
' StartupNextInstance: Raised when launching a single-instance application and the application is already active.
|
|
' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
|
|
Partial Friend Class MyApplication
|
|
Dim UseFirefoxProfile As Boolean = False
|
|
Protected Overrides Function OnStartup(ByVal eventArgs As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) As Boolean
|
|
Dim ProfileDirectory As String = Path.Combine(GetFolderPath(SpecialFolder.ApplicationData), "Mozilla", "Firefox", "Profiles", "CRD")
|
|
If UseFirefoxProfile = True Then
|
|
Dim di As New System.IO.DirectoryInfo(Path.Combine(GetFolderPath(SpecialFolder.ApplicationData), "Mozilla", "Firefox", "Profiles"))
|
|
Try
|
|
For Each fi As System.IO.DirectoryInfo In di.EnumerateDirectories("*.*", System.IO.SearchOption.TopDirectoryOnly)
|
|
Dim TempPath As String = Path.Combine(GetFolderPath(SpecialFolder.ApplicationData), "Mozilla", "Firefox", "Profiles", fi.Name)
|
|
ProfileDirectory = TempPath
|
|
Next
|
|
Catch ex As Exception
|
|
End Try
|
|
End If
|
|
'MsgBox(ProfileDirectory)
|
|
If Not Directory.Exists(ProfileDirectory) Then
|
|
Directory.CreateDirectory(ProfileDirectory)
|
|
End If
|
|
Try
|
|
|
|
|
|
Dim sUserAgent As String = "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:81.0) Gecko/20100101 Firefox/81.0"
|
|
'sUserAgent = "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.157 Safari/537.36"
|
|
Xpcom.Initialize("Firefox")
|
|
'MsgBox(Xpcom.XulRunnerVersion)
|
|
Xpcom.ProfileDirectory = ProfileDirectory
|
|
'Dim File As nsIFile = CType(Xpcom.NewNativeLocalFile("E:\addon\"), nsIFile)
|
|
'File.Append(New nsAString("manifest.json"))
|
|
'Xpcom.ComponentRegistrar.AutoRegister(File)
|
|
|
|
'Dim Dir As String =
|
|
GeckoPreferences.User("general.useragent.override") = sUserAgent
|
|
'Xpcom.Initialize("C:\Program Files\Mozilla Firefox")
|
|
GeckoPreferences.Default("browser.cache.disk.enable") = False
|
|
GeckoPreferences.Default("network.cookie.thirdparty.sessionOnly") = False
|
|
'GeckoPreferences.Default("extensions.blocklist.enabled") = False
|
|
GeckoPreferences.Default("Services.sync.prefs.sync.privacy.clearOnShutdown.cookies") = False
|
|
GeckoPreferences.Default("plugin.state.flash") = 0
|
|
GeckoPreferences.Default("zoom.maxPercent") = 100
|
|
GeckoPreferences.Default("zoom.minPercent") = 100
|
|
GeckoPreferences.Default("layers.geometry.d3d11.enabled") = False
|
|
'GeckoPreferences.Default("network.proxy.http") = "51.159.26.44"
|
|
'GeckoPreferences.Default("network.proxy.http_port") = 3128
|
|
'GeckoPreferences.Default("network.proxy.ssl") = "51.159.26.44"
|
|
'GeckoPreferences.Default("network.proxy.ssl_port") = 3128
|
|
'GeckoPreferences.Default("network.proxy.type") = 1
|
|
|
|
|
|
Return True
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString)
|
|
Return False
|
|
End Try
|
|
|
|
End Function
|
|
End Class
|
|
End Namespace
|