Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Не могу залогинится на сайт 
:(
    Опции темы
razumsap
Дата 21.6.2010, 15:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Соственно проблемма.
Запускаю страничку сайта     

 Form1.WebBrowser1.Navigate('http://www.heroeswm.ru');

После его полной загрузки заполняю нужные поля

    for i := 0 to form1.WebBrowser1.oleobject.document.forms.length - 1 do
     begin
      ovElements := form1.webbrowser1.oleobject.document.forms.item(i);
    for j := 0 to ovElements.length - 1 do begin
      if (ovElements.item(j).name = 'login') then
       ovElements.item(j).value:='*******';
      if (ovElements.item(j).name = 'pass') then
       ovElements.item(j).value:='*************';
      if (ovElements.item(j).src = '/i/index/left_buttons21.jpg') then
          ovElements.item(j).Click;
      if (ovElements.item(j).name = 'lbut') then
          ovElements.item(j).Click;                                            end;
      end;

Поля заполняютс успешно, кроме нажатия кнопки, т.е. картинки.

написал 2 варианта но ни один из них не обрабатывается

      if (ovElements.item(j).src = '/i/index/left_buttons21.jpg') then
          ovElements.item(j).Click;
      if (ovElements.item(j).name = 'lbut') then
          ovElements.item(j).Click;       

В исходнике вот такой код
....
<table border=0 cellpadding=0 cellspacing=0 align=left width=111>
<tr><td width=111 height=24><input type=image name=lbut src='i/index/left_buttons21.jpg' title='Войти в игру!'></td></tr>
<tr><td><img alt='' src='http://im.heroeswm.ru/i/index/left_buttons22.jpg' width=111 height=7 border=0></td></tr>
<tr><td><a href='reg.php'><img alt='' src='http://im.heroeswm.ru/i/index/left_buttons23.jpg' width=111 height=21 border=0 title='Регистрация в игре'></a></td></tr>
.....
Мне необходимо 'Войти в игру!'.

Подскажите, что я делаю не так?

PM MAIL ICQ   Вверх
Proxin
Дата 22.6.2010, 23:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



ловите снифером то, что отсылает браузер (mozilla firefox), а потом всю последовательность действий через indy либо ics воспроизводите. использовать twebbrowser в данном случае не нужно, он для других целей.
PM MAIL   Вверх
razumsap
  Дата 23.6.2010, 08:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Кому будет интересно, решил проблемму таким способом 

Код

 form1.WebBrowser1.ControlInterface.Document.QueryInterface(IHtmlDocument2, iDoc);
   if not Assigned(iDoc) then
   begin
     result:=true;
     Exit;
   end;
   ov := 'input';
   iDisp := iDoc.all.tags(ov);
   if Assigned(IDisp) then
   begin
     IDisp.QueryInterface(IHTMLElementCollection, iColl);
     if Assigned(iColl) then
     begin
       for i := 1 to iColl.Get_length do
       begin
         iDisp := iColl.item(pred(i), 0);
         iDisp.QueryInterface(HTMLInputImage, InputImage);
         if Assigned(InputImage) then
         begin
           if InputImage.Name = 'lbut' then      InputImage.Click;
         end;
       end;
     end;
   end;


и всё работает smile
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.

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


 




[ Время генерации скрипта: 0.0430 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.