Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 608

/ вопрос открыт /

Здравствуйте, уважаемые эксперты!
Такая проблема. На HTML странице есть 2 Tedit в которые моя программа вставляет лог и пас. Так же есть кнопка "Login" которую никак не получается нажать. Эта кнопка выполняет JS. Проанализировав код страницы обнеружил что кнопка не имеет ни Name, ни Type, ни src, ни alt. Она вообще никак не обнаруживается. Адрес страниці вот https://trade.online.nokia.com/nol/noauth/login/

Приложение:
  1.  
  2.  
  3. function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
  4. var
  5. i, j: Integer;
  6. FormItem: Variant;
  7. ee:string;
  8. begin
  9. Result := False;
  10. //no form on document
  11. if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
  12. begin
  13. Exit;
  14. end;
  15. //count forms on document
  16. for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
  17. begin
  18. FormItem := WebBrowser.OleObject.Document.forms.Item(I);
  19. for j := 0 to FormItem.Length - 1 do
  20. begin
  21. try
  22. //when the fieldname is found, try to fill out
  23. ee:= FormItem.Item(j).Name;
  24. if FormItem.Item(j).Name = FieldName then
  25. begin
  26. FormItem.Item(j).Value := Value;
  27. Result := True;
  28. end;
  29. except
  30. Exit;
  31. end;
  32. end;
  33. end;
  34. end;
  35.  


Yuran Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Yuran (статус: Посетитель)
Вопрос отправлен: 22 мая 2008, 10:23
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 3; последнее сообщение — 26 мая 2008, 14:54; участников в обсуждении: 2.
Вадим К

Вадим К (статус: Академик), 22 мая 2008, 23:23 [#1]:

Кнопка работает через javascript. Кто мешает запустить скрипт?
Галочка "подтверждения прочтения" - вселенское зло.
Yuran

Yuran (статус: Посетитель), 23 мая 2008, 14:30 [#2]:

Я не могу ее "найти" чтоб сделать .click Подскажите как запустисть скрипт.
Yuran

Yuran (статус: Посетитель), 26 мая 2008, 14:54 [#3]:

Подскажите как запустить скрипт!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 27 июня 2017, 15:20
Выполнено за 0.03 сек.
Рейтинг@Mail.ru