Авторизация на BornCash

@scroyler · Регистрация: 01.08.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте,подскажите почему не работает?

Delphi

procedure TForm2.Button1Click(Sender: TObject);
var logo:TstringList;
StrPage, ssylka:string;
begin
 ssylka:='http://borncash.com/';
 IdHTTP2.HandleRedirects:=true;
 logo:=TstringList.Create;
Logo.Add('lb_login=123') ;
logo.Add('lb_password=213');
logo.Add('lb_remember=true');
StrPage:=IdHTTP2.Post(ssylka, logo);
 if pos ('[logout]', StrPage) <>0 then
 ShowMessage('OK' )
 else
 ShowMessage('NO');
logo.free;
end;

вроде все правильно,авторизацию делал через http analyzer

Добавлено через 14 минут
перепутал код выглядит так,но не работает(

Delphi

procedure TForm2.Button1Click(Sender: TObject);
var logo:TstringList;
StrPage, ssylka:string;
begin
 ssylka:='http://borncash.com/';
 IdHTTP2.HandleRedirects:=true;
 logo:=TstringList.Create;
StrPage:=IdHTTP2.Post(ssylka, logo);
Logo.Add('lb_login=log') ;
logo.Add('lb_password=pass');
logo.Add('lb_remember=true');
 if pos ('[logout]', StrPage) <>0 then
 ShowMessage('OK' )
 else
 ShowMessage('NO');
logo.free;
end;

@scroyler · 10.01.2012, 13:23 **[ТС]**

ага)
Ладно спасибо еще раз

Удачи))

@scroyler 14 / 14 / 1 Регистрация: 01.08.2011 Сообщений: 332
	10.01.2012, 13:23 [ТС]	21
	ага) Ладно спасибо еще раз Удачи)) 0