Авторизация на сайте [D7, Win2k]
Chris © (2004-10-26 17:04:00)
Нужно написать прогу, которая авторизовывается на сайте, то
есть автоматом прописывает логин и пароль и отсылает данные на
Веб-сервер. Подскажите направление...
vadfe (2004-10-26 17:26:00) [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
} // посмотреть в 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;
Наверх 
ЧАТ |
Орешник |
|
