Как сделать автоматическое нажатье по ссылке в окне браузера?

[Katerina1993]

Написала программу для открытия страниц браузера. В боковой панели сделала вывод информации о dom-элементах. Чтобы открыть ссылку нужно по ней щелкнуть. Если навести мышкой и посмотреть в панели то атрибут id равняется test. Gif пример работы программы ниже.

Подскажите можно как-нибудь по id найти в документе html и заставить нажать по ссылке автоматически.

В своей программе я подключаю дополнительные файлы.

Цитата

WBFuncs – для процедуры WB_Navigate.
MSHTML – для интерфейса IHTMLElement.

Для работы использую компонент WebBrowser.

Код полностью (исходники: Прикреплённый файлExampleSource.zip (70,61 Кбайт, скачиваний: 13) )

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, ComCtrls, ExtCtrls, WBFuncs;
 
type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    PageControl: TPageControl;
    Panel1: TPanel;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    PageControl1: TPageControl;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    GroupBox1: TGroupBox;
    edSearchAndHighlight: TEdit;
    Button2: TButton;
    PnlElementInfo1: TPanel;
    PnlHandle: TPanel;
    edElementTag: TEdit;
    Label1: TLabel;
    Panel3: TPanel;
    edElementId: TEdit;
    Label2: TLabel;
    Panel4: TPanel;
    edElementinnerHTML: TEdit;
    Label3: TLabel;
    Timer1: TTimer;
    Panel5: TPanel;
    edElementclassName: TEdit;
    Label4: TLabel;
    Panel6: TPanel;
    edElementinnerText: TEdit;
    Label5: TLabel;
    Panel7: TPanel;
    edElementhref: TEdit;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    FPrevBrowser: TWebbrowser;
  public
    { Public declarations }
    function GetCurrentWB: TWebbrowser;
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses
  MSHTML;
 
{$R *.dfm}
 
function TForm1.GetCurrentWB: TWebbrowser;
begin
  Result := nil;
  with PageControl do
    if ActivePage.ControlCount > 0 then
    begin
      if ActivePage.Controls[0] is TWebbrowser then
      begin
        Result := (TWebbrowser(ActivePage.Controls[0]));
      end else
        Result := FPrevBrowser;
    end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
    WB_Navigate(GetCurrentWB, 'http://mysite1.su');
 
    WB_SetFocus(GetCurrentWB);
 
end;
 
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  MausPos: TPoint;
  Element: IHTMLElement;
  imgElement: IHTMLIMGElement;
  scrElement: IHTMLLinkElement;
  x, y: Integer;
  Doc: IHTMLDocument2;
  CurrentWB: TWebbrowser;
begin
 
    CurrentWB := GetCurrentWB;
    if Assigned(CurrentWB) then
    begin
       Doc := CurrentWB.Document as IHTMLDocument2;
        if Assigned(doc) then
        begin
          GetCursorPos(MausPos);
          mauspos := CurrentWB.ScreenToClient(mauspos);
          x := MausPos.x;
          y := MausPos.y;
 
          Element := GetElementAtPos(doc, x, y);
 
          if Assigned(Element) then
          begin
             edElementTag.Text := Element.tagName;
             edElementId.Text := Element.id;
             edElementinnerHTML.Text := Element.innerHTML;
             edElementclassName.Text := Element.className;
             edElementinnerText.Text := Element.innerText;
             Element.QueryInterface(IHTMLIMGElement, imgElement);
             if assigned(imgElement) then
              edElementhref.Text := imgElement.href;
             Element.QueryInterface(IHTMLLinkElement, scrElement);
             if assigned(scrElement) then
              edElementhref.Text := scrElement.href;
          end;
 
        end;
  
 
  end;
end;
 
end.

Исходники приложила. Там сама программа и сайт который я использую для тестирования.

Сообщение отредактировано: Katerina1993 - 26.01.24, 16:49

[macomics]

Вам это нужно?

const
  constInvalidHTML = 'Invalid HTML document';
  constInvalidHTMLStructure = constInvalidHTML + ' structure';
 
// aDocument = WebBrowser.Document, ID = строка ID, iNum = номер вхождения элемента в документ с таким ID (начинаются с 1)
function GetElementById(const aDocument: IDispatch; const ID: String; iNum: LongInt): IDispatch;
var
  Doc: IHTMLDocument2;
  Body: IHTMLElement2;
  Tags: IHTMLElementCollection;
  Tag: IHTMLElement;
  i, c, Count: LongInt;
begin
  Result := nil;
  if iNum < 1 then Exit;
  if Supports(aDocument, IHTMLDocument2, Doc) then begin
    if Supports(Doc.body, IHTMLElement2, Body) then begin
      Tags := Body.getElementsByTagName('*');
      Count := Tags.length;
      c := 0;
      for i := 0 to Count - 1 do begin
        Tag := Tags.item(i, EmptyParam) as IHTMLElement;
        if AnsiSameText(Tag.id, ID) then inc(c);
        if c = iNum then begin
          Result := Tag;
          break;
        end;
      end;
    end else raise Exception.Create(constInvalidHTMLStructure + '!');
  end else raise Exception.Create(constInvalidHTML + '!');
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
  Elem: IHTMLElement;
begin
  try
    Elem := GetElementById(WebBrowser1.Document, 'myid', 1) as IHTMLElement;
    if Assigned(Elem) then begin
// Делаем с элементом что хотим
    end;
  except
// Ошибки поиска элементов
  end;
end;

Сообщение отредактировано: macomics - 26.01.24, 22:40

[Katerina1993]

А вот здесь, что указываем. Вместо звездочки.

Tags := Body.getElementsByTagName('*');

[macomics]

Цитата Katerina1993 @ 26.01.24, 19:23

А вот здесь, что указываем. Вместо звездочки.

Ничего. Используйте как есть. '*' получает все тэги из body в document. Или можете передать её через параметры и тогда можно будет искать не просто по id но еще и конкретный тэг (например, только ссылки, указав там 'a' или только блочные тэги, указав 'div').

Сообщение отредактировано: macomics - 26.01.24, 19:40

[Katerina1993]

Просто у меня появляется ошибка, когда я открываю веб-страницу и при нажатии кнопки, где активируется элемент в dom. Пример:

Цитата

Access violation at adress 43CFCDAA in module 'mshtml.dll'

Вот скриншот ошибки.
Прикреплённый файлScreenshot_1.jpg (112,74 Кбайт, скачиваний: 30)
Когда я нажимаю OK выделяется эта строка, я решила что с ней что-то не так и нужно в скобках изменить параметр.
Прикреплённый файлScreenshot_2.jpg (99,61 Кбайт, скачиваний: 31)

Сообщение отредактировано: Katerina1993 - 26.01.24, 21:47

[macomics]

Вот так всегда, когда набираешь код в браузере по памяти и не проверяешь.

const
  constInvalidHTML = 'Invalid HTML document';
  constInvalidHTMLStructure = constInvalidHTML + ' structure';
 
// aDocument = WebBrowser.Document, ID = строка ID, iNum = номер вхождения элемента в документ с таким ID (начинаются с 1)
function GetElementById(const aDocument: IDispatch; const ID: String; iNum: LongInt = 1; const tagName: WideString = '*'): IDispatch;
var
  Doc: IHTMLDocument2;
  Body: IHTMLElement2;
  Tags: IHTMLElementCollection;
  Tag: IHTMLElement;
  i, c, Count: LongInt;
begin
  Result := nil;
  if iNum < 1 then Exit;
  if Supports(aDocument, IHTMLDocument2, Doc) then begin
    if Supports(Doc.body, IHTMLElement2, Body) then begin
      Tags := Body.getElementsByTagName(tagName);
      Count := Tags.length;
      c := 0;
      for i := 0 to Count - 1 do begin
        Tag := Tags.item(i, EmptyParam) as IHTMLElement;
        if AnsiSameText(Tag.id, ID) then inc(c);
        if c = iNum then begin
          Result := Tag;
          break;
        end;
      end;
    end else raise Exception.Create(constInvalidHTMLStructure + '!');
  end else raise Exception.Create(constInvalidHTML + '!');
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
  Elem: IHTMLElement;
begin
  try
    Elem := GetElementById(WebBrowser1.Document, 'element_id', 1, 'a') as IHTMLElement; // Поиск только среди ссылок
    if Assigned(Elem) then begin
// Делаем с элементом что хотим
    end;
  except
// Ошибки поиска элементов
  end;
end;

Вот исправленный. Я вместо Doc.body передавал Doc и не поправил GUID интерфейса после копирования.

Сообщение отредактировано: macomics - 26.01.24, 22:45

[Katerina1993]

Вот в этой строке:

Elem := GetElementById(WebBrowser1.Document, 'element_id', 1, 'a') as IHTMLElement;

Вместо element_id нужно использовать значения атрибута ссылки? У меня например test.

[macomics]

Да. У вас в примере туда надо передать 'test'. Можно так же модифицировать код для поиска элементов без атрибута id.

const
  constInvalidHTML = 'Invalid HTML document';
  constInvalidHTMLStructure = constInvalidHTML + ' structure';
 
// aDocument = WebBrowser.Document, ID = строка ID, iNum = номер вхождения элемента в документ с таким ID (начинаются с 1)
function GetElementByIndexIdAndTagName(const aDocument: IDispatch; iNum: LongInt = 1; const sID: String = '*'; const sTagName: WideString = '*'): IDispatch;
  function AnyID(const s1: String; const s2: String): Boolean; begin Result := True; end;
var
  Doc: IHTMLDocument2;
  Body: IHTMLElement2;
  Tags: IHTMLElementCollection;
  Tag: IHTMLElement;
  i, c, Count: LongInt;
  comp: function (const s1: String; const s2: String): Boolean;
begin
  Result := nil;
  if iNum < 1 then Exit;
  if (sID <> '*') and (sID <> '') then comp := @AnsiSameText else comp := @AnyID;
  if Supports(aDocument, IHTMLDocument2, Doc) then begin
    if Supports(Doc.body, IHTMLElement2, Body) then begin
      Tags := Body.getElementsByTagName(sTagName);
      Count := Tags.length;
      c := 0;
      for i := 0 to Count - 1 do begin
        Tag := Tags.item(i, EmptyParam) as IHTMLElement;
        if comp(Tag.id, sID) then inc(c);
        if c = iNum then begin
          Result := Tag;
          break;
        end;
      end;
    end else raise Exception.Create(constInvalidHTMLStructure + '!');
  end else raise Exception.Create(constInvalidHTML + '!');
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
  Elem: IHTMLElement;
begin
  try
    Elem := GetElementByIndexIdAndTagName(WebBrowser1.Document, 1, 'test', 'a') as IHTMLElement; // Поиск первой только среди ссылок с id="test" (по тэгу и id)
    if Assigned(Elem) then begin
// Делаем с элементом что хотим
    end;
  except
// Ошибки поиска элементов
  end;
  try
    Elem := GetElementByIndexIdAndTagName(WebBrowser1.Document, 10) as IHTMLElement; // Поиск по индексу десятого элемента в документе (только по индексу)
    if Assigned(Elem) then begin
// Делаем с элементом что хотим
    end;
  except
// Ошибки поиска элементов
  end;
  try
    Elem := GetElementByIndexIdAndTagName(WebBrowser1.Document, 2, 'myid') as IHTMLElement; // Поиск второго элемента с id="myid" (по индексу и id)
    if Assigned(Elem) then begin
// Делаем с элементом что хотим
    end;
  except
// Ошибки поиска элементов
  end;
  try
    Elem := GetElementByIndexIdAndTagName(WebBrowser1.Document, 3, '', 'div') as IHTMLElement; // Поиск третьего блочного элемента (<div>...</div>) (по индексу и тэге)
    if Assigned(Elem) then begin
// Делаем с элементом что хотим
    end;
  except
// Ошибки поиска элементов
  end;
end;

[Katerina1993]

Комментарий в условие

Цитата

// Делаем с элементом что хотим

Все таки, что нужно сделать, чтобы был переход по ссылке и открылась форма?

[macomics]

Например

procedure TForm1.Button3Click(Sender: TObject);
var
  Elem: IHTMLElement;
begin
  try
    Elem := GetElementByIndexIdAndTagName(WebBrowser1.Document, 1, 'test', 'a') as IHTMLElement; // Поиск первой только среди ссылок с id="test" (по тэгу и id)
    if Assigned(Elem) then begin
// Делаем с элементом что хотим
      Elem.click; // Кликнуть по ссылке (выполнить OnClick или переход по href)
    end;
  except
// Ошибки поиска элементов
  end;
end;

[Katerina1993]

macomics, в 8 посту несколько примеров, как искать по блоку, id и по индексу, а как по классу.

Сделала заполнение полей.

procedure TForm1.Button4Click(Sender: TObject);
var
  Elem: IHTMLElement;
begin
  try
 
    Elem := GetElementById(WebBrowser1.Document, 'title', 1, 'input') as IHTMLElement; // Поиск только среди ссылок
    if Assigned(Elem) then begin
       Elem.innerText:='Название';
 
    end;
    Elem := GetElementById(WebBrowser1.Document, 'message', 1, 'textarea') as IHTMLElement; // Поиск только среди ссылок
    if Assigned(Elem) then begin
        Elem.innerHTML:='Тестовое описание'
    end;
  except
 
  end;
end;

А вот в кнопке у меня только класс прописан, пример на картинке.
Прикреплённый файлimg1.jpg (34,51 Кбайт, скачиваний: 30)
Еще интерсно как можно на одну кнопку button4 повесить и заполнение полей и отправку?

[macomics]

Цитата Katerina1993 @ 27.01.24, 14:36

Еще интерсно как можно на одну кнопку button4 повесить и заполнение полей и отправку?

Смотря какую кнопку вы имеете ввиду. Если кнопку на странице, тогда просто измените её тип с submit на button и добавьте обработчик onClick. На JavaScript в обработчике нажатия добавляете заполнение полей формы, а в конце вызываете submit для формы

function clickOnButton(e) {
  const f = e.target.form; // Получаем форму, на которой находится кнопка
  e.preventDefault(); // Прерываем цепочку передачи сообщений к нижерасположенным элементам
  f.title.value = "Hello world"; // Заполняем поля формы (заголовок)
  f.textbox.innerText = "Autofilled by click!"; // и текстовое поле тоже (не забудьте у textarea добавить name="textbox")
  f.submit(); // Отправка формы
}
const formButton = document.querySelector(".submitButton");
if (formButton) {
  formButton.addEventListener("click", clickOnButton);
}

Если надо заполнить поля формы перед отправкой при нажатии на кнопке Delphi, тогда придется найти каждое поле формы отдельно и установить его соответствующие атрибуты.

Если вы хотите, чтобы я вам заполнил поля на форме Delphi для найденного элемента, тогда это будет так (не забудьте выключить таймер)

procedure TForm1.Button3Click(Sender: TObject);
var
  Elem: IHTMLElement;
begin
  try
    Elem := GetElementByIndexIdAndTagName(WebBrowser1.Document, 1, 'test', 'a') as IHTMLElement; // Поиск первой только среди ссылок с id="test" (по тэгу и id)
    if Assigned(Elem) then begin
// Делаем с элементом что хотим
      edElementTag.Text := WideCharToString(@Elem.tagName[1]);
      edElementId.Text := WideCharToString(@Elem.id[1]);
      edElementinnerHTML.Text := WideCharToString(@Elem.innerHTML[1]);
      edElementclassName.Text := WideCharToString(@Elem.className[1]);
      edElementinnerText.Text := WideCharToString(@Elem.innerText[1]);
 
      Elem.click; // Кликнуть по ссылке (выполнить OnClick или переход по href)
    end;
  except
// Ошибки поиска элементов
  end;
end;

Если же надо выполнять поиск по названию класса, тогда можно написать похожую функцию

const
  constInvalidHTML = 'Invalid HTML document';
  constInvalidHTMLStructure = constInvalidHTML + ' structure';
 
// aDocument = WebBrowser.Document, iNum = номер вхождения элемента в документ с таким ID (начинаются с 1), sClassName = строка ID, sTagName = имя тэга у элемента
function GetElementByIndexClassNameAndTagName(const aDocument: IDispatch; iNum: LongInt = 1; const sClassName: String = '*'; const sTagName: WideString = '*'): IDispatch;
  function AnyID(const s1: String; const s2: String): Boolean; begin Result := True; end;
var
  Doc: IHTMLDocument2;
  Body: IHTMLElement2;
  Tags: IHTMLElementCollection;
  Tag: IHTMLElement;
  i, c, Count: LongInt;
  comp: function (const s1: String; const s2: String): Boolean;
begin
  Result := nil;
  if iNum < 1 then Exit;
  if (sClassName <> '*') and (sClassName <> '') then comp := @AnsiSameText else comp := @AnyID;
  if Supports(aDocument, IHTMLDocument2, Doc) then begin
    if Supports(Doc.body, IHTMLElement2, Body) then begin
      Tags := Body.getElementsByTagName(sTagName);
      Count := Tags.length;
      c := 0;
      for i := 0 to Count - 1 do begin
        Tag := Tags.item(i, EmptyParam) as IHTMLElement;
        if comp(Tag.className, sClassName) then inc(c);
        if c = iNum then begin
          Result := Tag;
          break;
        end;
      end;
    end else raise Exception.Create(constInvalidHTMLStructure + '!');
  end else raise Exception.Create(constInvalidHTML + '!');
end;

Добавлено 27.01.24, 15:50
И еще

Цитата Katerina1993 @ 27.01.24, 14:36

Сделала заполнение полей.

procedure TForm1.Button4Click(Sender: TObject);
var
  Elem: IHTMLElement;
begin
  try
 
    Elem := GetElementById(WebBrowser1.Document, 'title', 1, 'input') as IHTMLElement; // Поиск только среди ссылок
    if Assigned(Elem) then begin
       Elem.innerText:='Название';
 
    end;
    Elem := GetElementById(WebBrowser1.Document, 'message', 1, 'textarea') as IHTMLElement; // Поиск только среди ссылок
    if Assigned(Elem) then begin
        Elem.innerHTML:='Тестовое описание'
    end;
  except
 
  end;
end;

А вот в кнопке у меня только класс прописан, пример на картинке.

Текст для input задается не как innerText или innerHTML, а в поле value!

Elem.value := 'Отправить сообщение';

Сообщение отредактировано: macomics - 27.01.24, 15:50

[Katerina1993]

Цитата

Текст для input задается не как innerText или innerHTML, а в поле value!

У меня почему-то выдает сообщение об ошибке.

Прикреплённый файлErr1.png (23,56 Кбайт, скачиваний: 36)

[macomics]

Значит оно доступно не напрямую, а через getAttribute/setAttribute

      Text := Elem.getAttribute('value', 0);
      Caption := WideCharToString(@Text[1]);
      Elem.setAttribute('value', 'Send text!', 0);

Сообщение отредактировано: macomics - 27.01.24, 16:36

[Katerina1993]

Работает, только первые две строчки не пойму для чего getAttribute и WideCharToString? Мне удалось запусить только через Elem.setAttribute.

[macomics]

Цитата Katerina1993 @ 27.01.24, 17:11

Работает, только первые две строчки не пойму для чего getAttribute и WideCharToString? Мне удалось запусить только через Elem.setAttribute.

Первые две строчки это получение. Необходима дополнительная переменная типа WideString перед преобразованием кодировок. Свойство Caption у формы требует для установки строку в кодировке ANSI, а из интерфейса будет получен OleVariant. Присвоение его к строке нужного типа автоматически преобразует данные в строку WideString. А вот дальше из WideString надо руками преобразовать текст в ANSI путем вызова WideCharToString. Но в качестве параметра этой функции нужна строка типа PWideChar. Преобразовать сразу из OleVariant в PWideChar не так просто. Гораздо проще использовать дополнительную переменную, которая уже будет содержать исходные данные для перекодировки в ANSI. И уже в заголовке формы строка будет отображена в правильной кодировке символов.

И третья строка изменяет значение свойства value на 'Send text!'. Но помните, что там тоже используются не String, а WideString и требуется соблюдать и преобразовывать кодировку текста.

[Katerina1993]

Ошибку выдает, на строке где Caption.

var
  Elem: IHTMLElement;
  Text: OleVariant;
  Caption : WideString;
 
.....
 
 
 Text := Elem.getAttribute('value', 0);
 Caption := WideCharToString(@Text[1]);

Цитата

[Error] Unit1.pas(232): Variable required

Сообщение отредактировано: Katerina1993 - 27.01.24, 21:29

[macomics]

Так где вы это вызываете. Если вне метода основного окна программы, тогда используйте Form1.Caption

[Katerina1993]

В процедуре вызываю:

procedure TForm1.Button4Click(Sender: TObject);
var
  Elem: IHTMLElement;
  Text: OleVariant;
  Caption : WideString;
begin
  try
 
    Elem := GetElementById(WebBrowser1.Document, 'title', 1, 'input') as IHTMLElement; // Поиск только среди ссылок
    if Assigned(Elem) then begin
        Text := Elem.getAttribute('value', 0);
        Caption := WideCharToString(@Text[1]);
 
    end;
 
 
  except
 
  end;
end;

[macomics]

Тогда зачем вам там переменная Caption?

procedure TForm1.Button4Click(Sender: TObject);
var
  Elem: IHTMLElement;
  Text: WideString;
begin
  try
 
    Elem := GetElementById(WebBrowser1.Document, 'title', 1, 'input') as IHTMLElement; // Поиск только среди ссылок
    if Assigned(Elem) then begin
        Text := Elem.getAttribute('value', 0);
        Caption := WideCharToString(@Text[1]);
 
    end;
 
 
  except
 
  end;
end;

[macomics]

Еще замечание по поиску элементов по классу. Я этого не делал, но значение className у элемента будет содержать не имя класса, а список классов через разделитель. Необходимо перечислять все классы при поиске или сделать разделение className на соответствующие классы и искать среди них. Как один из вариантов функцию можно организовать так

const
  constInvalidHTML = 'Invalid HTML document';
  constInvalidHTMLStructure = constInvalidHTML + ' structure';
 
// Функция поиска элемента на странице с учетом тэга, индекса и имени идентификатора (id) или класса (className)
// aDocument = WebBrowser.Document,
// iNum = номер вхождения элемента в документ с таким ID (начинаются с 1),
// sClassNameOrID = строка с именем класса начинающимся с точки
//                  или строка с id (не должна начинаться с точки),
// sTagName = имя тэга у элемента
function QueryElement(const aDocument: IDispatch; iNum: LongInt = 1;
                      const sClassNameOrID: String = '';
                      const sTagName: WideString = ''): IDispatch;
  function AnyID(const s1: String; const s2: String): Boolean; begin Result := True; end;
  function min(a, b: LongInt): LongInt; inline; begin if a < b then Result := a else Result := b; end;
  function PosDef(const aPattern: WideString; const aText: WideString; iDefault: LongInt): LongInt;
    begin Result := Pos(aPattern, aText); if Result = 0 then Result := iDefault; end;
const
  aTabChar: WideString = ' ';
  aSpaceChar: WideString = #9;
var
  Doc: IHTMLDocument2;
  Body: IHTMLElement2;
  Tags: IHTMLElementCollection;
  Tag: IHTMLElement;
  c, i, l, n, Count: LongInt;
  f, m: Boolean;
  w, s: WideString;
  comp: function (const s1: String; const s2: String): Boolean;
begin
  f := False;
  Result := nil;
  if iNum < 1 then Exit;
  if (sClassNameOrID <> '*') and (sClassNameOrID <> '') then begin
    comp := @AnsiSameText;
    f := sClassNameOrID[1] = '.';
  end else comp := @AnyID;
  if Supports(aDocument, IHTMLDocument2, Doc) then begin
    if Supports(Doc.body, IHTMLElement2, Body) then begin
      if sTagName = ''
        then Tags := Body.getElementByTagName('*')
        else Tags := Body.getElementsByTagName(sTagName);
      Count := Tags.length;
      c := 0;
      for i := 0 to Count - 1 do begin
        Tag := Tags.item(i, EmptyParam) as IHTMLElement;
        if f then begin // Если ищем по имени класса, тогда надо вручную
// разбить строку className на составляющие и сравнивать имя класса отдельно для каждого класса у элемента
          m := False; // Флаг совпадения одного из классов
          w := Tag.className; // сохраняем значение в локальную переменную для изменения
          l := Length(w); // можно не буду описывать тривиальные действия
          while l > 0 do begin // цикл достижения конца строки (в строке не осталось имен классов)
            inc(l); // можно не буду описывать тривиальные действия
            // нахождение позиции ближайшего к началу строки разделителя имен классов
            n := min(PosDef(aSpaceChar, w, l), PosDef(aTabChar, w, l));
            s := '.' + Copy(w, 1, n - 1); // копирование очередного имени класса в отдельную переменную
            // пропуск всех символов разделителей между именами (вместо этого можно воспользоваться trim после Delete, но так лучше)
            while (n < l) and ((w[n] = aSpaceChar) or (w[n] = aTabChar)) do inc(n);
            Delete(w, 1, n - 1); // Убираем из строки className очередное имя класса со всеми последующими разделителями
            l := Length(w); // можно не буду описывать тривиальные действия
            if comp(s, sClassNameOrID) then begin // Сравнение имен классов с именем в параметре
              m := True; // При совпадении устанавливаем флаг ...
              break; // ... и прерываем цикл по именам классов
            end;
          end;
          if m then inc(c); // Если флаг установлен, тогда совпадение найдено и просто увеличиваем счетчик совпадений
        end else if comp(Tag.id, sClassNameOrID) then inc(c); // тоже самое, но для id
        if c = iNum then begin // Счетчик совпадений равен индексу элемента из параметра
          Result := Tag; // Возвращаем этот элемент как найденный...
          break; // ... и прерываем цикл по элементам
        end;
      end;
    end else raise Exception.Create(constInvalidHTMLStructure + '!');
  end else raise Exception.Create(constInvalidHTML + '!');
end;

Вот как-то так. Но проверьте код. Я опять печатал в браузере. Могут быть очепятки или не исправленные имена переменных. Пройдите по шагам для лучшего представления о происходящем.
Я оставил комментарии в коде. Надеюсь они помогут вам исправить ошибки (особенно проверьте индексы).

Добавлено 28.01.24, 12:02
Ну и примеры поиска элементов с её помощью

procedure TForm1.Button4Click(Sender: TObject);
var
  Elem: IHTMLElement;
  Text: WideString;
begin
  try
 
    Elem := QueryElement(WebBrowser1.Document, 'title', 1) as IHTMLElement; // Поиск первого среди всех на странице по id
    if Assigned(Elem) then begin
        Text := Elem.getAttribute('value', 0);
        Caption := WideCharToString(@Text[1]);
    end;
    Elem := QueryElement(WebBrowser1.Document, '.submitbutton', 1) as IHTMLElement; // Поиск первого среди всех на странице по className
    if Assigned(Elem) then begin
        Text := Elem.getAttribute('value', 0);
        Caption := WideCharToString(@Text[1]);
    end;
    Elem := QueryElement(WebBrowser1.Document, 'title', 5) as IHTMLElement; // Поиск пятого элемента среди всех на странице по id и индексу
    if Assigned(Elem) then begin
        Text := Elem.getAttribute('value', 0);
        Caption := WideCharToString(@Text[1]);
    end;
    Elem := QueryElement(WebBrowser1.Document, '.submitbutton', 3) as IHTMLElement; // Поиск третьего элемента по className и индексу
    if Assigned(Elem) then begin
        Text := Elem.getAttribute('value', 0);
        Caption := WideCharToString(@Text[1]);
    end;
 
 
    Elem := QueryElement(WebBrowser1.Document, 'title', 1, 'input') as IHTMLElement; // Поиск только среди input по id
    if Assigned(Elem) then begin
        Text := Elem.getAttribute('value', 0);
        Caption := WideCharToString(@Text[1]);
    end;
    Elem := QueryElement(WebBrowser1.Document, '.submitbutton', 1, 'input') as IHTMLElement; // Поиск только среди input по className
    if Assigned(Elem) then begin
        Text := Elem.getAttribute('value', 0);
        Caption := WideCharToString(@Text[1]);
    end;
    Elem := QueryElement(WebBrowser1.Document, 'title', 2, 'input') as IHTMLElement; // Поиск второго элемента только среди input по id и индексу
    if Assigned(Elem) then begin
        Text := Elem.getAttribute('value', 0);
        Caption := WideCharToString(@Text[1]);
    end;
    Elem := QueryElement(WebBrowser1.Document, '.submitbutton', 4, 'input') as IHTMLElement; // Поиск четвертого элемента только среди input по className и индексу
    if Assigned(Elem) then begin
        Text := Elem.getAttribute('value', 0);
        Caption := WideCharToString(@Text[1]);
    end;
 
 
    Elem := QueryElement(WebBrowser1.Document, '') as IHTMLElement; // Поиск первого элемента на странице по индексу (неявно)
    if Assigned(Elem) then begin
        Text := Elem.getAttribute('value', 0);
        Caption := WideCharToString(@Text[1]);
    end;
    Elem := QueryElement(WebBrowser1.Document, '*', 1) as IHTMLElement; // Поиск первого элемента на странице по индексу (явно)
    if Assigned(Elem) then begin
        Text := Elem.getAttribute('value', 0);
        Caption := WideCharToString(@Text[1]);
    end;
    Elem := QueryElement(WebBrowser1.Document, '', 3, '*') as IHTMLElement; // Поиск третьего элемента на странице по индексу (явно и с указанием маски тэгов)
    if Assigned(Elem) then begin
        Text := Elem.getAttribute('value', 0);
        Caption := WideCharToString(@Text[1]);
    end;
    Elem := QueryElement(WebBrowser1.Document, '*', 4, 'input') as IHTMLElement; // Поиск четвертого элемента только среди input по индексу
    if Assigned(Elem) then begin
        Text := Elem.getAttribute('value', 0);
        Caption := WideCharToString(@Text[1]);
    end;
 
 
  except
 
  end;
end;

Сообщение отредактировано: macomics - 28.01.24, 12:04

[Katerina1993]

macomics, Inline поддерживается начиная с delphi 2005, а у меня Delphi 7.

[macomics]

Цитата Katerina1993 @ 28.01.24, 20:39

macomics, Inline поддерживается начиная с delphi 2005, а у меня Delphi 7.

Это не критично, если она будет не inline (просто уберите этот модификатор, я по привычке его использовал). У меня так вообще Lazarus на Linux и адаптировать под Delphi 7 c Internet Explorer бывает сложно.

Сообщение отредактировано: macomics - 28.01.24, 21:41