uses ActiveX, ComObj, MSHTML;
根據(jù)連接文字點(diǎn)擊連接- 一般情況下的連接
Procedure HTMLClinkByText(text:string;Wbr:TWebBrowser);
var
doc:IHTMLDocument2;
len,I:integer;
item:OleVariant;
all:IHTMLElementCollection;
begin
doc:=Wbr.Document as IHTMLDocument2;
all:=doc.Get_links;
len:=all.length;
for I:=0 to len-1 do
begin
item:=all.item(I,varempty);
if pos (text,item.InnerText)>0 then //判斷連接文字包含內(nèi)容
begin
Wbr.Navigate(item.href);
end;
end;
end;
使用的時(shí)候,要點(diǎn)擊包含"聯(lián)系"這兩個(gè)字的鏈接
HTMLClinkByText('聯(lián)系',WebBrowser1);
----------------------------------------------------------------------------------------------
Iframe 里面的連接點(diǎn)擊
function GetFrame(FrameNo: Integer): IWebbrowser2;
var
OleContainer: IOleContainer;
enum: IEnumUnknown;
unk: IUnknown;
Fetched: PLongint;
begin
while Webbrowser1.ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;
if Assigned(Webbrowser1.document) then
begin
Fetched := nil;
OleContainer := Webbrowser1.Document as IOleContainer;
OleContainer.EnumObjects(OLECONTF_EMBEDDINGS, Enum);
Enum.Skip(FrameNo);
Enum.Next(1, Unk, Fetched);
Result := Unk as IWebbrowser2;
end
else
Result := nil;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
doc,frm:IHTMLDocument2;
iw:IWebbrowser2;
i,j,len: integer;
all:IHTMLElementCollection;
item:OleVariant;
begin
doc:=Webbrowser1.Document as IHTMLDocument2;
for i:=0 to doc.frames.length-1 do
begin
iw:=GetFrame(i);
frm:=iw.Document as IHTMLDocument2;
all:=frm.Get_links;
len:=all.length;
for j:=0 to len-1 do
begin
item:=all.item(j,varempty);
ListBox1.Items.Add(item.InnerText+' ~ '+item.href); //文字和相應(yīng)的連接
//根據(jù)上面那個(gè)Pos判斷 item.InnerText 里包含你要點(diǎn)擊的內(nèi)容
//然后 Webbrowser1.Navigate(item.href); ................................
end;
end;
end;
