![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте! Мне нужно кликнуть по всем <div class="click_div" ></div> на странице, этих блоков может быть около 100 на странице! Как это сделать? Или можно кликать по блокам div без веббровсера?
|
#2
|
||||
|
||||
![]() Цитата:
Код:
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; |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
nano_bot (19.12.2013)
|
#3
|
|||
|
|||
![]() poli-smen, спасибо, попробую - отпишусь!
|
#4
|
|||
|
|||
![]() poli-smen, спасибо, помог ваш код!
|