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

最新推荐文章于 2019-02-11 04:03:46 发布

转载最新推荐文章于 2019-02-11 04:03:46 发布 · 1.5k 阅读

本文介绍了一种使用 Delphi 的 WebBrowser 控件在没有 Name 和 ID 的情况下实现自动点击网页元素的方法。通过查找特定的 HTML 标签并根据其内容进行条件判断，可以定位到目标元素并触发点击事件。

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;