使用AutoJSContext和GeckoFX 29.0 VB.NET时的Xpcom错误

Question

我在AutoJSContext中使用了AutoJSContext 29.0，当我启动我的应用程序时，它会给出以下错误：

Xpcom.Initialize must be called before using of any xulrunner/gecko-fx services

我知道在调用AutoJS之前必须初始化Xpcom，但是在我的代码中，XPcom(xullrunner)是在名为"GeckoFxError“的子程序之前初始化的

Sub New()
        InitializeComponent()

        Gecko.Xpcom.Initialize(Environment.CurrentDirectory + "/xulrunner")
        Gecko.GeckoPreferences.Default("extensions.blocklist.enabled") = False
        Timer1.Enabled = True
    End Sub
    Sub New1()
        Dim _memoryService = Xpcom.GetService(Of nsIMemory)("@mozilla.org/xpcom/memory-service;1")
        _memoryService.HeapMinimize(False)
    End Sub

    Private Sub GeckoFXerror(sender As Object, e As Gecko.JavascriptErrorEventArgs) Handles GeckoWebBrowser1.JavascriptError
        Dim text As String = "window.alert = function(){};"
        Dim text2 As String = "window.confirm = function(){};"
        Dim text3 As String = "window.open = function(){};"
        Dim text4 As String = "window.prompt = function(){};"
        Using context As AutoJSContext = New AutoJSContext(GeckoWebBrowser1.Window.JSContext)
            Dim result As String = ""
            context.EvaluateScript(text, result)
        End Using
        Using context As AutoJSContext = New AutoJSContext(GeckoWebBrowser1.Window.JSContext)
            Dim result As String = ""
            context.EvaluateScript(text2, result)
        End Using
        Using context As AutoJSContext = New AutoJSContext(GeckoWebBrowser1.Window.JSContext)
            Dim result As String = ""
            context.EvaluateScript(text3, result)
        End Using
        Using context As AutoJSContext = New AutoJSContext(GeckoWebBrowser1.Window.JSContext)
            Dim result As String = ""
            context.EvaluateScript(text4, result)
        End Using
    End Sub

谢谢你的帮助，我认为这很容易解决，但我已经一个多小时没有找到任何解决办法了

Answer 1

将您的Gecko.Xpcom.Initialize(Environment.CurrentDirectory + "/xulrunner")放在调用InitializeComponent()之前，它应该可以工作。