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("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