Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

           Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
           И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - https://clck.ru/fCqwP

Ответ
 
Опции темы Поиск в этой теме
Старый 01.07.2010, 12:28   #1
Plexdeath
Пользователь
 
Регистрация: 01.07.2010
Сообщений: 20
По умолчанию Как пройти авторизацию на сайте www.rmstat.ru через webbrowser oleobject

Здесь логин : <p><span class="dialog_label">Номер ICQ:</span> <span class="dialog_input"><input type="text" id="username" onkeypress="System.keyHandler(event , System.login);" /></span></p>
<div style="clear:both"></div>

Пароль : <p><span class="dialog_label">Пароль:</span> <span class="dialog_input"><input type="password" id="password" onfoucs="this.select();" onkeypress="System.keyHandler(event , System.login);" /></span></p>
<div style="clear:both"></div>

Кнопка войти <div id="modal" class="modalFrame" style="display:none;">
<div id="loginDialog">
<p><span class="dialog_modal_title">Войти</span></p>
Plexdeath вне форума Ответить с цитированием
Старый 01.07.2010, 14:28   #2
Romer9999
Пользователь
 
Регистрация: 19.11.2008
Сообщений: 42
По умолчанию

Код:
procedure TForm1.Button3Click(Sender: TObject);
var
  EncodedDataString: string;
  PostData: OleVariant;
  Headers: OleVariant;
  i: integer;
begin
  EncodedDataString := 'username='+HTTPEncode('твой ICQ ')+'&'+
                       'password='+HTTPEncode('твой пароль');
  PostData := VarArrayCreate([0, length(EncodedDataString)-1], varByte);
  for i := 1 to length(EncodedDataString) do
    PostData[i-1] := ord(EncodedDataString[i]);
  Headers := 'Content-type: application/x-www-form-urlencoded'#10#13;
  WebBrowser1.Navigate('тут из тега Action вставь ',
                       EmptyParam, EmptyParam, PostData, Headers);
end;
Romer9999 вне форума Ответить с цитированием
Старый 01.07.2010, 15:03   #3
Plexdeath
Пользователь
 
Регистрация: 01.07.2010
Сообщений: 20
По умолчанию

Способ не работает
Plexdeath вне форума Ответить с цитированием
Старый 01.07.2010, 21:48   #4
Виталий Желтяков
Старожил
 
Аватар для Виталий Желтяков
 
Регистрация: 19.04.2010
Сообщений: 2,702
По умолчанию

А куки включены?
Виталий Желтяков вне форума Ответить с цитированием
Старый 02.07.2010, 08:56   #5
Plexdeath
Пользователь
 
Регистрация: 01.07.2010
Сообщений: 20
По умолчанию

Куки Включены
Plexdeath вне форума Ответить с цитированием
Старый 02.07.2010, 23:53   #6
Виталий Желтяков
Старожил
 
Аватар для Виталий Желтяков
 
Регистрация: 19.04.2010
Сообщений: 2,702
По умолчанию

Возможно у них есть система защиты от ботов - проверяется реферал или агент. Через webbrowser в Delphi вручную авторизоваться можно?
Виталий Желтяков вне форума Ответить с цитированием
Старый 05.07.2010, 10:12   #7
Plexdeath
Пользователь
 
Регистрация: 01.07.2010
Сообщений: 20
По умолчанию

Да можно но удобнее былобы кликнуть на кнопку и автоматом зайти на сайт
Plexdeath вне форума Ответить с цитированием
Ответ

           Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
           Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
WebBrowser.OleObject.Document.All.Item(i).InnerTex t очень долго tebeen Работа с сетью в Delphi 5 09.03.2010 14:04
WebBrowser работа с oleobject.document..... rangel Работа с сетью в Delphi 0 09.03.2010 14:01
осуществить чтоб Shape1 не мог пройти через Shape2 Sharom_Debt Помощь студентам 5 11.01.2010 15:57
Свойства OleObject объектов в WebBrowser Cleric57 Работа с сетью в Delphi 2 11.07.2009 00:04
Как создать авторизацию reyn90 Помощь студентам 0 09.06.2009 19:24