模拟点击TWebBrowser按钮链接问题

Question

首先,这个页面不能点右键查看网页源文件,所以无法得知按钮名称;
其次,这个链接不知是按钮链接还是文字链接,总之上面显示"刷新(秒数)",其中秒数为倒数时间,一到0就会刷新.
再次,当页面刷新时,并不是Reload整个页面,而时只更新页面部分数据.
我想问,如何得到这个链接按钮并模拟点击它.
本人菜鸟,请贴些实用源码..谢谢.

Answer 1

试试用枚举好了。
procedure TForm1.Button1Click(Sender: TObject);
var
o:Olevariant;
i,n:integer;
s_buffer:string;
begin
s_buffer:='';
n:=WebBrowser1.OleObject.document.all.Length;
for i:=0 to n-1 do
begin
 o   :=   WebBrowser1.OleObject.document.all.item(i);
  try
    s_buffer:=o.innertext;
    if s_buffer='链接文字' then o.click;
  except  end;
end;
end;

Answer 2

给你一个网参考一下:http://8ahsdv.5166.info/