window.open这样javascript基本上都会被弹出窗口拦截程序过滤掉，但是点击<a href="你的页面" target=_blank>xxxxlink</a>这样的连接
后不会被过滤，
你写个程序在打开的网页中去自动click一下这个连接行不行？

自动click的程序如下：
procedure TFrmNative.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
CurWebrowser: IWebBrowser;
TopWebBrowser: IWebBrowser;
Document: OleVariant;
WindowName: string;
doc: IHtmlDocument2;
all, html, item, source: variant;
links, RightLink: OleVariant;
uri: string;
i, RightId, J: integer;
begin
CurWebrowser := pDisp as IWebBrowser;
TopWebBrowser := (Sender as TWebBrowser).DefaultInterface;
if CurWebrowser = TopWebBrowser then
begin
//ShowMessage('Complete document was loaded')
end
else
begin
Document := CurWebrowser.Document;
WindowName := Document.ParentWindow.Name;
//ShowMessage(Format('Frame "%s" was loaded', [WindowName]));
end;
begin
if (NeedClick) then
begin
try
doc := (CurWebrowser.document) as ihtmldocument2;
all := doc.all;
html := all.tags('html');
item := html.item(0, varempty);
source := item.outerHTML;
links := doc.links;
for i := 0 to Integer(links.length) - 1 do
begin
if (NeedClick) then
begin
uri := links.item(i).outerHtml; //获取索引元素的HTML
if (Pos('某些内容', Uri) > 0) then
begin
links.item(I).focus;
links.item(I).click;
NeedClick := False;
end;
end;
end;
except
end;
end;
end;
end;