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

PHP код:
procedure TForm1.Button1Click(SenderTObject);
var
  
DocIHTMLDocument2;
  
ButtonsIHTMLElementCollection;
  
ButtonIHTMLElement;
  
iInteger;
begin
  Doc 
:= WebBrowser1.Document as IHTMLDocument2;
  
Buttons := Doc.all.tags('BUTTON') as IHTMLElementCollection;
  for 
:= 0 to Buttons.length do
  
begin
    Button 
:= Buttons.item(iEmptyParam) as IHTMLElement;
    if 
AnsiSameText(Trim(Button.innerText), 'Вступить в группу'then
    begin
      Button
.click;
      Break;
    
end;
  
end;
end

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