1,184
社区成员
发帖
与我相关
我的任务
分享
uses
msHtml;
var
doc2: Ihtmldocument2;
I: Integer;
url: string;
begin
doc2 := WEbbrowser1.OleObject.Document as iHtmlDocument2;
for I := 0 to doc2.links.length - 1 do
begin
url := (doc2.links.item(I, 0) as IhtmlAnchorElement).href;
if lowercase(url) = 'http://www.baidu.com' then
begin
(doc2.links.item(I, 0) as IhtmlAnchorElement).click;
break;
end;
end;
end;