Привет!
Хочу авторизироваться на сайте http
S://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