[poli-smen]

Сообщение от nano_bot

Здравствуйте! Мне нужно кликнуть по всем <div class="click_div" ></div> на странице, этих блоков может быть около 100 на странице! Как это сделать? Или можно кликать по блокам div без веббровсера?

Примерно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Divs: IHTMLElementCollection;
  Elem: IHTMLElement;
  i: Integer;
begin
  Divs := (WebBrowser1.Document as IHTMLDocument2).all.tags('DIV') as IHTMLElementCollection;
  for i := 0 to Divs.length - 1 do
  begin
    Elem := Divs.item(i, 0) as IHTMLElement;
    if pos(' click_div ', ' ' + AnsiLowerCase(Elem.className) + ' ') > 0 then Elem.click;
  end;
end;