我正在使用Webbrowser控件导航到具有JavaScript卸载事件的网站。当我尝试导航到其他地方时,会出现一个弹出窗口,提示我是否要“停留在页面上”或“离开页面”。如果继续尝试导航,则会抛出COMException。如何防止此类弹出窗口出现在Web浏览器中?

编辑:
准备导航到另一个网页时,如何禁用Javascript?

最佳答案

您可以执行以下操作(Delphi代码):

var
  WrkIHTMLWindow2: IHTMLWindow2;
  WrkIHTMLWindow2Disp: IHTMLWindow2Disp;
begin
  WrkIHTMLWindow2 := IHTMLDocument2Disp(WrkIWebBrowser2.Document).parentWindow;
  if WrkIHTMLWindow2.QueryInterface(IHTMLWindow2Disp, WrkIHTMLWindow2Disp) = S_OK then
    if not VarIsNull(WrkIHTMLWindow2Disp.onbeforeunload) then
      WrkIHTMLWindow2Disp.onbeforeunload := NULL;

09-30 09:04