Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > помогите нажать на кнопку

Автор: ivanang 14.8.2013, 08:05

Здравствуйте.

Подскажите плиз, почему не хочет находить и нажимать эту кнопку:

Код


<input type="submit" value="Нанять" class="prW108" /><br />

таким вот методом:

Код


ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
for i := 0 to (ovElements.Length - 1) do
     if (ovElements.item(i).tagName = 'input') and
        (ovElements.item(i).type = 'submit') and
       (ovElements.item(i).name = 'Нанять') then
       ovElements.item(i).click;

На других страницах ищет, а тут нет.....
В чем дело?

Автор: Illusion Dolphin 14.8.2013, 08:08

Цитата

(ovElements.item(i).name = 'Нанять') then

Цитата

value="Нанять"

Так name или value?

Автор: ivanang 14.8.2013, 08:18

меняю в поиске на value... всеравно не ищет почему то... может я, дура слепошарая, еще что пропустил...

Добавлено через 5 минут и 15 секунд
прошу пардону, а таким методом он только в первой форме ищет кнопочку или во всем документе?

Автор: ivanang 14.8.2013, 09:27

уточнюсь:

Код


begin

formsCount:=Form1.WebBrowser1.OleObject.document.forms.length;
for f := 0 to formsCount - 1 do

begin

ovElements := WebBrowser1.OleObject.Document.forms.item(f).elements;
    for i := 0 to (ovElements.Length - 1) do
     if (ovElements.item(i).tagName = 'input') and
        (ovElements.item(i).type = 'submit') and
       (ovElements.item(i).value = 'Нанять') then
       ovElements.item(i).click;
end;
end;

M
Poseidon

Пожалуйста, используете подсветку кода. Подробнее...