![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
Код:
<div class="button_blue button_wide"><button onclick="Groups.enter(this, 56789, '084fde59db712eab9f')">Вступить в группу</button></div> как нажать в браузере? |
|
#3
|
|||
|
|||
|
не то это
![]() |
|
#4
|
||||
|
||||
|
Цитата:
Сделать "щелчёк" по элементу в TWebWrowser (в том числе и по кнопке): Код:
IHTMLElement.click |
|
#5
|
|||
|
|||
|
Цитата:
это кнопка вступления в группу в вк |
|
#6
|
||||
|
||||
|
Цитата:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Doc: IHTMLDocument2;
Buttons: IHTMLElementCollection;
Button: IHTMLElement;
i: Integer;
begin
Doc := WebBrowser1.Document as IHTMLDocument2;
Buttons := Doc.all.tags('BUTTON') as IHTMLElementCollection;
for i := 0 to Buttons.length - 1 do
begin
Button := Buttons.item(i, EmptyParam) as IHTMLElement;
if AnsiSameText(Trim(Button.innerText), 'Вступить в группу') then
begin
Button.click;
Break;
end;
end;
end; |
| Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
scroyler (07.10.2012)
| ||