Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c