Нажатие кнопки Webbrowser

@romka1608 · Регистрация: 22.08.2013

Author24 — интернет-сервис помощи студентам

Как реализовать код?

По нажатию button1 нажимаеться кнопка вконтакте (Webbrowser1) 'Подписаться', но если такой кнопки нету,то нажимаеться 'Вступить в группу'

@Милт · 22.08.2013, 15:19

ты получать код страницы умеешь?

@romka1608 · 22.08.2013, 15:32 **[ТС]**

Сделал так. всё роботает

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
 
  Webbrowser1.oleobject.document.getelementbyid('subscribe_button').click();
 
end;

Только это 'Подписаться' на сообщество
А как сделать что бы если нету кнопки подписаться нажималась кнопка 'вступить в группу'

@volvo · 22.08.2013, 15:35

Если Webbrowser1.oleobject.document.getelementbyid('subscribe_button') = nil, значит, такой кнопки нет. Жмешь другую...

@Милт · 22.08.2013, 15:45

if pos('>Подписаться<',IdHTTP1.Get('https://www.cyberforum.ru/'))>0 then //если кнопка есть то выполнять это
else // если её нету то выполнять это
Только адрес поменяй как тебе надо. и это сработает если кнопка на сайте текстовая а не картинка, если картинка то надо искать не ">Подписаться<", а адрес картинки. Так же надо добавить на форму IdHTTP1 и в uses IdHTTP

@romka1608 · 22.08.2013, 15:46 **[ТС]**

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

Если Webbrowser1.oleobject.document.getelementbyid('subscribe_button') = nil, значит, такой кнопки нет. Жмешь другую...

Тогда я искал кнопку по ID (id="")

а сейчас мне надо искать кнопку по классу(class="")

HTML5

1
2
3

<div style=" width: 100px; " class="universalButton_blue">  
              <p style=" font-size: 13px; color: #FFFFFF; text-shadow: 0px 1px 2px #2a7398;">Вступить</p>
         </div>

как это сделать?

Webbrowser1.oleobject.document.getelementbyid('subscribe_button') не подходит.

@dimao · 23.11.2013, 19:27

Есть еще вариант - поиск нужного слова с помощью "OleObject"
К примеру такой код:

Pascal

procedure TForm1.Button2Click(Sender: TObject);
var link,s:string;
I:integer;
mylink:olevariant;
begin
s:='';
mylink:='';
for I := 0 to WebBrowser1.OleObject.Document.links.Length - 1 do begin
s:=WebBrowser1.OleObject.Document.links.Item(I).InnerText;
if s='Текст ссылки' then mylink := WebBrowser1.OleObject.Document.links.Item(I);
end;
webbrowser1.Navigate(mylink);
end;

@romka1608 0 / 0 / 0 Регистрация: 22.08.2013 Сообщений: 22
		1
	Нажатие кнопки Webbrowser 22.08.2013, 14:56. Показов 1492. Ответов 6 Метки нет (Все метки) Как реализовать код? По нажатию button1 нажимаеться кнопка вконтакте (Webbrowser1) 'Подписаться', но если такой кнопки нету,то нажимаеться 'Вступить в группу' 0

@Милт 54 / 54 / 6 Регистрация: 20.05.2013 Сообщений: 265
	22.08.2013, 15:19	2
	ты получать код страницы умеешь? 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	22.08.2013, 15:35	4
	Если Webbrowser1.oleobject.document.getelementbyid('subscribe_button') = nil, значит, такой кнопки нет. Жмешь другую... 1

@Милт 54 / 54 / 6 Регистрация: 20.05.2013 Сообщений: 265
	22.08.2013, 15:45	5
	if pos('>Подписаться<',IdHTTP1.Get('https://www.cyberforum.ru/'))>0 then //если кнопка есть то выполнять это else // если её нету то выполнять это Только адрес поменяй как тебе надо. и это сработает если кнопка на сайте текстовая а не картинка, если картинка то надо искать не ">Подписаться<", а адрес картинки. Так же надо добавить на форму IdHTTP1 и в uses IdHTTP 1

	23.11.2013, 19:27