Показать сообщение отдельно
  #5  
Старый 07.11.2012, 15:33
udachnik2 udachnik2 вне форума
Прохожий
 
Регистрация: 24.05.2012
Сообщения: 47
Репутация: 10
По умолчанию

PHP код:
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; 

Честно говоря я немного не понимаю что там нужно заменить что бы это подошло к моему случаю. Потому что у моей кнопки очень запутанный код.
Ответить с цитированием