还是 问 TWebBrowser中如何屏蔽javascript的弹出窗口?

搜索了能搜索的以前文章  
  有  
  方法1   修改window.alert  
  方法2   修改this_form.rs.value  
  方法3   实现IDocHostSHowUI::OnShowMessage  
  方法4   设置Silent属性  
  参考http://www.euromind.com/iedelphi/embeddedwb/onshowmessage.htm  
  http://www.euromind.com/iedelphi/embeddedwb/tips.htm  
   
  我试了  
  方法4   silent=true,好像不能屏蔽  
  方法1和方法2还是不知道怎么做  
  方法3是要装其他的,还是不用了  
   
  还有一种方法是   通过timer和findwindow来关闭,可以用,但是timer的interval如果太长了还是会跳出来在关闭,太短了浪费资源  
  procedure   TForm1.Timer1Timer(Sender:   TObject);  
  var  
          H,hc:   HWND;  
   
  begin  
        h   :=   findwindow(nil,   'Microsoft   Internet   Explorer');        
      if   H   >   0   then  
          begin  
                  hc   :=   FindWindowEx(h,0,'Button','确定');  
                  SendMessage(hc,   BM_CLICK,   0,   0);  
                  Timer1.Enabled   :=   False;  
          end;  
  end;  
   
  请问各位高手:有没有可以直接屏蔽的?  
  方法1   修改window.alert  
  方法2   修改this_form.rs.value  
  能不能说详细一点啊? 问题点数：100、回复次数：4Top

1 楼demonwin（红蓝天）回复于 2005-11-21 00:48:56 得分 0

还有个问题：  
  能否截取  
  javascript弹出窗口的信息呢？  
  怎么做？Top

2 楼jiangsheng（蒋晟.Net[MVP]）回复于 2005-11-21 01:22:35 得分 100

实现IDocHostSHowUI::OnShowMessage就可以  
  Delphi不行的话，用C++封装  
  http://www.codeproject.com/atl/vbmhwb.aspTop

3 楼demonwinwin（节日快乐）回复于 2005-11-21 10:39:44 得分 0

不用这个  
  IDocHostSHowUI::OnShowMessage  
  可以吗？Top

4 楼demonwin（红蓝天）回复于 2005-11-22 13:15:16 得分 0

自己顶Top

相关问题

• 屏蔽
• 修改
• onshowmessage
• idochostshowui
• 方法
• hc
• timer
• www

• 帖主：demonwin
• jiangsheng

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载