Задача: - залогинится на http://www.tagged.com/
там стоит защищённое соедениние по простоколу sslvTLSv1
Залогиниться у меня получаеться успешно. и показывает страничку переноправления.. но когда пытась получить эту страницу я уже не залоген.. очевидно проблема в куках..
долго снифил.. там есть 2 переменные S и tagloginemail однако поле регестрации в куках их нет..
как решить проблему... попмогите Плз..
Код:
| Код |
procedure TForm1.Button3Click(Sender: TObject);
var
IdHTTPS: TIdHTTP;
IdHandler: TIdSSLIOHandlerSocket;
Params,Cookies: TStringList;
CookMan: TidCookieManager;
S:Tmemorystream;
z:string;
begin
IdHTTPS:=TIdHTTP.Create(nil);
idhttps.HandleRedirects:=true;
idhttps.AllowCookies:=true;
IdHandler:=TIdSSLIOHandlerSocket.Create(nil);
CookMan:=TidCookieManager.Create(idHTTPs);
idHTTPs.CookieManager := CookMan;
////tagloginemail=brodertrestrimna%40yahoo.com; path=/; domain=.tagged.com
Params:=TStringList.Create;
Params.add('[email protected]');
Params.add('password=123321');
try
try
IdHTTPS.Port:=443;
//IdHTTPS.ReadTimeout:=25000;
IdHTTPS.IOHandler:=IdHandler;
with IdHandler.SSLOptions do
begin
Method:=sslvTLSv1;
end;
IDHttps.Request.UserAgent:='Mozila';
Memo1.Lines.Text:=IdHttps.Post('https://secure.tagged.com/secure_login.html?r=%2Fhome.html&uri=http%3A%2F%2Fwww.tagged.com',params);
idHTTPS.Request.Referer:='https://secure.tagged.com/secure_login.html?r=%2Fhome.html&uri=http%3A%2F%2Fwww.tagged.com';
memo1.text:=idHTTPS.Get( 'http://tagged.com/home.html?jli=1');
except
On E: Exception do
begin
//ShowMessage('Ioeaea'+E.Message);
end;
end;
finally
IdHTTPS.Free;
IdHandler.Free;
Params.Free;
end;
end;
|
|
)