找不到站点时禁用警告框 Gecko Fx VB
Disable Alert boxes when site not found Gecko Fx VB
我一直在四处寻找,似乎找不到与此相关的任何内容。基本上我制作了一个使用 gecko webbrowser 的无窗口应用程序。问题是,如果我尝试浏览到一个不存在的站点。示例:www.gets.commmss,它会显示一个警告框,上面写着 www.gets.commmss could not be found. Please check the name and try again.
我不想显示这个,因为我使用 navigated
和 NavigationError
处理程序自己处理这些错误。问题是,我似乎无法禁用这个恼人的警告框!非常感谢任何想法。
我使用的geckofx版本是:GeckoFX v33.0.9.0
我正在使用 visual studio 2012,它是一个 windows 表单应用程序。
截图:
这必须通过某些应用程序完成,因为我认为这不是 javascript 事情?
您需要覆盖 PromptService.Alert()。以下代码适用于 GeckoFX 45:
public class NoPromptService : PromptService
{
public override void Alert(string dialogTitle, string text)
{
Debug.WriteLine(text);
}
}
然后 运行 在初始化 GeckoFX 之后:
PromptFactory.PromptServiceCreator = () => new NoPromptService();
那里得到了这个
VB.net GeckoFx 禁用警报
Dim MyPath = My.Computer.FileSystem.CurrentDirectory
Public Sub New()
Xpcom.Initialize(MyPath + "\xulrunner")
' This call is required by the designer.
InitializeComponent()
Xpcom.ProfileDirectory = MyPath + "\profile"
Gecko.PromptFactory.PromptServiceCreator = AddressOf PromptServiceCreator
End Sub
Function PromptServiceCreator()
Dim val As New NoPromptService()
Return val
End Function
Public Class NoPromptService
Inherits PromptService
Public Overrides Sub Alert(ByVal dialogTitle As String, ByVal text As String)
Debug.WriteLine(text)
End Sub
End Class
我一直在四处寻找,似乎找不到与此相关的任何内容。基本上我制作了一个使用 gecko webbrowser 的无窗口应用程序。问题是,如果我尝试浏览到一个不存在的站点。示例:www.gets.commmss,它会显示一个警告框,上面写着 www.gets.commmss could not be found. Please check the name and try again.
我不想显示这个,因为我使用 navigated
和 NavigationError
处理程序自己处理这些错误。问题是,我似乎无法禁用这个恼人的警告框!非常感谢任何想法。
我使用的geckofx版本是:GeckoFX v33.0.9.0
我正在使用 visual studio 2012,它是一个 windows 表单应用程序。
截图:
这必须通过某些应用程序完成,因为我认为这不是 javascript 事情?
您需要覆盖 PromptService.Alert()。以下代码适用于 GeckoFX 45:
public class NoPromptService : PromptService
{
public override void Alert(string dialogTitle, string text)
{
Debug.WriteLine(text);
}
}
然后 运行 在初始化 GeckoFX 之后:
PromptFactory.PromptServiceCreator = () => new NoPromptService();
那里得到了这个
VB.net GeckoFx 禁用警报
Dim MyPath = My.Computer.FileSystem.CurrentDirectory
Public Sub New()
Xpcom.Initialize(MyPath + "\xulrunner")
' This call is required by the designer.
InitializeComponent()
Xpcom.ProfileDirectory = MyPath + "\profile"
Gecko.PromptFactory.PromptServiceCreator = AddressOf PromptServiceCreator
End Sub
Function PromptServiceCreator()
Dim val As New NoPromptService()
Return val
End Function
Public Class NoPromptService
Inherits PromptService
Public Overrides Sub Alert(ByVal dialogTitle As String, ByVal text As String)
Debug.WriteLine(text)
End Sub
End Class