![]() |
|
|
Регистрация | << Правила форума >> | 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)
|