Привет!
Хочу авторизироваться на сайте http
S://4gameforum.ru
Есть код:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | procedure TForm1 . Button1Click(Sender: TObject);
var
otwet : string ;
data : tstringlist;
begin
idhttp1 . AllowCookies:= true ;
idhttp1 . HandleRedirects:= 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
except
otwet:=idHTTP1 . Get(idHTTP1 . Response . Location);
memo1 . Lines . Add(otwet);
end ;
end ;
|
Не удается авторизация да и вообще никакого ответа не приходит (memo1 пуст).
Пробовал тоже самое в vk.com делать - все получается.
PS
Значения для post-запроса перехватывал Http-Analyzer в IE.
На форме лежат :
IdHTTP1
IdCookieManager1
IdSSLIOHandlerSocketOpenSSL1