WebBrowser里网页根据文字判断来点击链接

uses  ActiveX, ComObj, MSHTML;

根据连接文字点击连接-    一般情况下的连接

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      //判断连接文字包含内容

begin

Wbr.Navigate(item.href);

end;

end;

end;

使用的时候,要点击包含"联系"这两个字的链接

HTMLClinkByText('联系',WebBrowser1);

----------------------------------------------------------------------------------------------

Iframe 里面的连接点击

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); //文字和相应的连接

//根据上面那个Pos判断  item.InnerText  里包含你要点击的内容

//然后  Webbrowser1.Navigate(item.href);  ................................

end;

end;

end;