Главная страница
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.044 c
14-1103899690
olookin
2004-12-24 17:48
2005.01.16
Налоги с зарплаты спортсмена


1-1104321474
AlexXn
2004-12-29 14:57
2005.01.16
Popup Form


1-1104687802
NEEDHelp
2005-01-02 20:43
2005.01.16
Kak mozhno zapustit programu 4tob ona bila vidna okolo 4asov?


9-1096449248
igan
2004-09-29 13:14
2005.01.16
Компромисс объем/сложность


3-1103082189
self001
2004-12-15 06:43
2005.01.16
как перезагрузить загрузит базу в dbgrid