Показать сообщение отдельно
  #1  
Старый 09.04.2014, 15:33
doccc doccc вне форума
Прохожий
 
Регистрация: 13.06.2009
Сообщения: 4
Репутация: 10
По умолчанию не удается авторизация на сайте

Привет!
Хочу авторизироваться на сайте 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;
Не удается авторизация да и вообще никакого ответа не приходит (memo1 пуст).
Пробовал тоже самое в vk.com делать - все получается.

PS
Значения для post-запроса перехватывал Http-Analyzer в IE.
На форме лежат :
IdHTTP1
IdCookieManager1
IdSSLIOHandlerSocketOpenSSL1
Ответить с цитированием