Delphi Webbrowser无Name及ID时自动点击按钮

Delphi Webbrowser无Name及ID时自动点击按钮

procedure TForm1.Button1Click(Sender: TObject);
var
    i:integer;
begin
    for i:=0 to wb1.OleObject.document.getElementsByTagName('a').length-1 do
    begin
    if wb1.OleObject.document.getElementsByTagName('a').item(i).innerhtml='唯一关键字1' then
    begin
      memo1.Lines.Add(wb1.OleObject.document.getElementsByTagName('a').item(i+1).innerhtml);
      if wb1.OleObject.document.getElementsByTagName('a').item(i+1).innerhtml<>'唯一关键字2'then
      wb1.OleObject.document.getElementsByTagName('a').item(i+1).click;
    end;
    if wb1.OleObject.document.getElementsByTagName('a').item(i).innerhtml='唯一关键字2' then
    begin
      memo1.Lines.Add(wb1.OleObject.document.getElementsByTagName('a').item(i-1).innerhtml);
      if wb1.OleObject.document.getElementsByTagName('a').item(i-1).innerhtml<>'唯一关键字1'then
        begin
          wb1.OleObject.document.getElementsByTagName('a').item(i-1).click;
          break;
        end;
     end;
  end;
end;

以上代码基本实现了无name和无id的自动点击。