VPF::помогите нажать на кнопку - Форум программистов

ivanang

Дата 14.8.2013, 08:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 14.8.2013

Репутация: нет
Всего: нет

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

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

Код


<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;

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

Это сообщение отредактировал(а) Poseidon - 14.8.2013, 09:21

Illusion Dolphin

Дата 14.8.2013, 08:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 5
Всего: 63

Цитата

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

Цитата

value="Нанять"

Так name или value?

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

ivanang

Дата 14.8.2013, 08:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 14.8.2013

Репутация: нет
Всего: нет

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

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

ivanang

Дата 14.8.2013, 09:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 14.8.2013

Репутация: нет
Всего: нет

уточнюсь:

Код


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

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

Это сообщение отредактировал(а) Poseidon - 14.8.2013, 10:43

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »