模拟点击框架网页内无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时,得到了我要的效果。