[scroyler]

Код:

 <div class="button_blue button_wide"><button onclick="Groups.enter(this, 56789, '084fde59db712eab9f')">Вступить в группу</button></div>

как нажать в браузере?

[PhoeniX]

Раз, два, три

[scroyler]

не то это

[poli-smen]

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

не то это

Ошибаешься. Это именно то.

Сделать "щелчёк" по элементу в TWebWrowser (в том числе и по кнопке):

Код:

IHTMLElement.click

[scroyler]

Сообщение от poli-smen

Ошибаешься. Это именно то.

Сделать "щелчёк" по элементу в TWebWrowser (в том числе и по кнопке):

Код:

IHTMLElement.click

можешь на примере показать?
это кнопка вступления в группу в вк

[poli-smen]

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

можешь на примере показать?
это кнопка вступления в группу в вк

Примерно так (не проверял - может где и ошибся):

Код:

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;

[scroyler]

Сообщение от poli-smen

Примерно так (не проверял - может где и ошибся):

Код:

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;

Во, большое спасибо!

[scroyler]

а вот с такой кнопкой не пашет

Код:

<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;

[poli-smen]

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

а вот с такой кнопкой не пашет

Код:

<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;

А ты разве не видишь, что это не кнопка?

[scroyler]

Код:

А ты разве не видишь, что это не кнопка?

ссылка?)

[scroyler]

все разобрался,всем спс)