模拟点击框架网页内无id无name的按钮



模拟点击框架网页内无id无name的按钮

一、在一个框架网页里有这样三个按钮

二、在IE开发者模式下查看

三、用一般的方法无法点击，用下面的方法查看

procedure TForm1.Button13Click(Sender:TObject);

var

i:Integer;

begin

 

for i := 1 Towebbrowser1.oleobject.document.frames.item(0).Document.All.length - 1 do begin

 

Memo1.Lines.Add(IntToStr(i)+''+webbrowser1.oleobject.document.frames.item(0).Document.all.item(i).innertext);

 

end;

 

end;

得到下面的答案

上面的165，166，167，168都是增加，怎么办？

用下面的方法

i:=StrToInt(Edit10.text);

 webbrowser1.oleobject.document.frames.item(0).Document.all.item(i).Click;

  Edit10.Text:=IntToStr(i+1);

当i的值为168时，得到了我要的效果。