[scroyler]

Код:

  <input type="submit" value="Автоматически оставить коммент и заработать 1&hearts; " class="login_button" style="margin-left: 0px;" id="sendcommentbutton" onclick="commentProcessor();"><br/><br/>

Подскажите как нажать такую кнопку в браузере?

[NumLock]

у IHTMLElement метод click

[scroyler]

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

у IHTMLElement метод click

пробывал так, но не получилось

Код:

var i:integer;s:string;mylink:olevariant;

  Doc: IHTMLDocument2;
  Buttons: IHTMLElementCollection;
  Button: IHTMLElement;
begin

      try
  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), 'Автоматически оставить коммент и заработать 1♥') then
    begin
      Button.click;
      Break;
 end; end;
     except end;


end;

[PhoeniX]

Потому что это ни фига не <BUTTON> и текст на кнопке - ни фига не innerText.

[scroyler]

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

Потому что это ни фига не <BUTTON> и текст на кнопке - ни фига не innerText.

а что там , не можешь подсказать как ее нажать

[poli-smen]

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

пробывал так, но не получилось

Код:

.....
    if AnsiSameText(Trim(Button.innerText), 'Автоматически оставить коммент и заработать 1♥') then
.....

Убери здесь &hearts;

[scroyler]

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

Убери здесь &hearts;

пробовал, не нажимает

[poli-smen]

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

пробовал, не нажимает

А почему ты ищешь 'BUTTON'? Разве у тебя там тэг 'BUTTON'? И почему проверяешь содержимое innerText? Ведь тот текст находится в атрибуте.

[PhoeniX]

1. Ну а ты не видишь что ли, что тег не BUTTON, а INPUT?
2. Гугли IHTMLElement.GetAttribute. Тебе надо сверять атрибуты type и value.