Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.16;
Скачать: CL | DM;

Вниз

Авторизация на сайте   Найти похожие ветки 

 
Chris ©   (2004-10-26 17:04) [0]

Нужно написать прогу, которая авторизовывается на сайте, то есть автоматом прописывает логин и пароль и отсылает данные на Веб-сервер. Подскажите направление...


 
vadfe   (2004-10-26 17:26) [1]

работающий пример с TWebBrowser
авторизация на сайте Мегафон
procedure TForm1.Button1Click(Sender: TObject);
var
 strPostData, s: string;
 Data: Pointer;
 URL1, Flags, TargetFrameName, PostData, Headers: OleVariant;

begin

 { action=https://www.serviceguide.megafonmoscow.ru//SELFCARE/ACCOUNT_INFO
                method=post name=login
    <INPUT  name=X_Password  type=password>
    <INPUT  name=X_Username >          
  } // посмотреть в HTML исходнике
 s:="9262222222"; //номер телефона
 strPostData := "X_Username="+s+"&X_Password=3663";
 PostData :=  VarArrayCreate([0, Length(strPostData) - 1], varByte);
 Data := VarArrayLock(PostData);
  try
    Move(strPostData[1], Data^, Length(strPostData));
  finally
    VarArrayUnlock(PostData);
  end;
 URL1 := "https://www.serviceguide.megafonmoscow.ru//SELFCARE/ACCOUNT_INFO";
 Flags := EmptyParam;
 TargetFrameName := EmptyParam;
 Headers := EmptyParam; // TWebBrowser автоматически заполняет
          // эти заголовки соответствующими значениями
 WebBrowser1.Navigate2(URL1, Flags, TargetFrameName, PostData, Headers);

end;



Страницы: 1 вся ветка

Текущий архив: 2005.01.16;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.023 c
1-1104768476
hawkins
2005-01-03 19:07
2005.01.16
поменять надпись на кнопке Открыть в TOpenDialog


14-1104126366
Layner
2004-12-27 08:46
2005.01.16
Эмулятор звуковой карты, есть ли такое?


1-1104480659
Тимур
2004-12-31 11:10
2005.01.16
Проблемы с явной загрузкой библиотеки


1-1104393946
Ivolg
2004-12-30 11:05
2005.01.16
Хук


1-1104304652
DimonA
2004-12-29 10:17
2005.01.16
TMainMenu