|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как нажать такую кнопку в webbrowser
Код:
<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)
|
#7
|
|||
|
|||
Цитата:
Ставь спасибо за спасибо! Помог?Ставь спасибо!Увидел пост? Поставь спасибо! |
#8
|
|||
|
|||
а вот с такой кнопкой не пашет
Код:
<div style="position:absolute; margin-left: 6px; margin-top: 5px;"> <a href="http://vk.com/club43631626" style="text-decoration:none;" target="_blank" onclick="slideUpDiv_130910();"> <div class="universalButton_blue" style="width: 100px; "> <p style="font-size: 13px; color: #FFFFFF; text-shadow: 0px 1px 2px #2a7398;">Подписаться</p> </div> </a> </div> Код:
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; Ставь спасибо за спасибо! Помог?Ставь спасибо!Увидел пост? Поставь спасибо! |
#9
|
||||
|
||||
Цитата:
|
#10
|
|||
|
|||
Код:
А ты разве не видишь, что это не кнопка? Ставь спасибо за спасибо! Помог?Ставь спасибо!Увидел пост? Поставь спасибо! |
#11
|
|||
|
|||
все разобрался,всем спс)
Ставь спасибо за спасибо! Помог?Ставь спасибо!Увидел пост? Поставь спасибо! |