一个关于BHO的问题? ( 积分: 30 )

  • 主题发起人 主题发起人 doglive
  • 开始时间 开始时间
D

doglive

Unregistered / Unconfirmed
GUEST, unregistred user!
请教一个很有意思的问题:
我用BHO禁止一个网站,,在BeforeNavigate2处理中,如果发现要禁止浏览的网站,就把它连接到空白页,,,代码如下:
procedure TIxplorermonit.DoBeforeNavigate2(const pDisp: IDispatch;
var URL,
Flags, TargetFrameName, PostData, Headers: OleVariant;
var Cancel: WordBool);
begin

Cancel := true ;
if Url='http://www.baidu.com/' then

begin

URL:='about:blank';
(pDisp as IWebBrowser2).Navigate2(URL,Flags,TargetFrameName,PostData,Headers);
end
Cancel := false ;
end;

当启动浏览器后,,输入百度可以成功禁止,,但是通过google搜索到百度后,点击百度却可以正常进入,,,这个是怎么回事情啊
 
应该加个POS函数判断http://www.baidu.com/子字符串是否在URL中,
因为通过GOOGLE搜索后链接地址有可能多出一些参数。
 
已经判断出来了应该禁止,,但是(pDisp as IWebBrowser2).Navigate2(URL,Flags,TargetFrameName,PostData,Headers);
好象没有起作用,,我在这句前面加上showmessage('已经执行');能够成功打印出消息
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
706
import
I
I
回复
0
查看
618
import
I
后退
顶部