测试程序:
http://www.138soft.com/iedemo.exe
代码:
1:WBBeforeNavigate2事件
if RadioButton2.Checked then
if (Pos(UpperCase('www.163.com'),UpperCase(URL))>0) or(Pos(UpperCase('www.163.com'),UpperCase(NewURL))>0) then Cancel:=True;
2:URLChange事件
var
Flags: OleVariant;
begin
if RadioButton1.Checked then
if Pos(UpperCase('www.163.com'),UpperCase(URL))>0 then
Browser.Navigate('http://www.138soft.com',Flags,Flags,Flags,Flags);
end;
