![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
Привет!
Хочу авторизироваться на сайте httpS://4gameforum.ru Есть код: Код:
procedure TForm1.Button1Click(Sender: TObject);
var
otwet : string;
data : tstringlist;
begin
idhttp1.AllowCookies:=true;
idhttp1.HandleRedirects:=false; //пробовал true и false
idhttp1.CookieManager.CookieCollection.Clear;
idhttp1.IOHandler:= IdSSLIOHandlerSocketOpenSSL1;
data:=tstringlist.create;
data.Add('s=');
data.Add('securitytoken=guest');
data.Add('do=login');
data.Add('vb_login_md5password=872b2158b44ae723b7a2c71ad8349464');
data.Add('vb_login_md5password_utf=872b2158b44ae723b7a2c71ad8349464');
data.Add('vb_login_username='+edit1.Text);
data.Add('vb_login_password='+edit2.Text);
data.Add('vb_login_password_hint=Пароль');
data.Add('cookieuser=1');
try
idHTTP1.Post('https://4gameforum.ru/login.php?do=login', data); // делаем запрос
except
otwet:=idHTTP1.Get(idHTTP1.Response.Location);
memo1.Lines.Add(otwet);
end;
end;Пробовал тоже самое в vk.com делать - все получается. PS Значения для post-запроса перехватывал Http-Analyzer в IE. На форме лежат : IdHTTP1 IdCookieManager1 IdSSLIOHandlerSocketOpenSSL1 |
|
#2
|
|||
|
|||
|
Напиши мне в личку, я помогу с авторизацией.
|