[udachnik2]

День добрый! Есть форма:

<form accept-charset="UTF-8" action="/portfels/1837381051" class="ff" id="question_answer" method="post"><div style="margin:0;padding:0;display:inline"><input name="utf8" type="hidden" value="&#x2713;" /><input name="_method" type="hidden" value="put" /><input name="authenticity_token" type="hidden" value="rcbpiBcjoUxciQ2Rxqw4a8bp89KEIL8o/oIQ8hP74yk=" /></div>
<input id="answer" name="answer" type="hidden" value="1" />
<input id="status" name="status" type="hidden" value="1" />
<br>
<div class='actions tac'>
<span class='sub'>
<button type='button'>Заполнено</button>
</span>
<span class='sub sub-disabled'><input data-disable-with="Ждите..." disabled="disabled" name="commit" type="submit" value="Далее" /></span>
</div>
</form>

Нужно программно нажать на кнопку "Заполнено", а потом далее. Наставьте на путь истинный пожалуйста!

[udachnik2]

Друзья! Я прошу хотя бы пнуть в нужную сторону, конечно если нет другого выхода.

[PhoeniX]

Пинаю: соседняя тема, автор scroyler.

[poli-smen]

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

Друзья! Я прошу хотя бы пнуть в нужную сторону, конечно если нет другого выхода.

Я писал пример для scroyler 'а вот здесь. Дальше я думаю разберёшься

[udachnik2]

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; 


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

[poli-smen]

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

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

Честно говоря не вижу ничего запутанного в коде твоей кнопки.
Что именно тебе в коде непонятно?

[udachnik2]

Я закончил колледж, и там мне такие вещи не объясняли. В общем некоторые моменты мне не ясны. Например вот это

<input name="utf8" type="hidden" value="&#x2713;" />

это такая кнопка?

[udachnik2]

Код:

Buttons := Doc.all.tags('BUTTON') as IHTMLElementCollection;

тут он на all ругается.

[udachnik2]

а вообще вот моя кнопка:

Код:

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;

ну и соответственно подключаю MSHTML

[udachnik2]

Код:

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;

Я нажал на первую кнопку. Но там есть еще продолжение:

Код:

<input data-disable-with="Ждите..." disabled="disabled" name="commit" type="submit" value="Далее" />

Как мне её то нажать? Её не получается найти таким способом. Она якобы не кнопка.

[udachnik2]

Померли все что ли?

[udachnik2]

Ребятки, ну не чурайтесь помочь человеку. Я ведь не от хорошей жизни к вам обращаюсь за помощью.

[NumLock]

через:

if btn.getAttribute('value', 2)='Далее' then btn.click;

можно найти
основная страница для справки http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[udachnik2]

Чего то не пашет. я сделал так:

Код:

procedure TForm1.Button3Click(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 Button.getAttribute('value', 2)= 'Далее' then
    begin
      Button.click;
      Break;
    end;
  end;
end;

[udachnik2]

Значит не видать мне нажатия