WebBrowser里网页根据文字判断来点击链接 无Name及ID时

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;