Авторизация на BornCash
Здравствуйте,подскажите почему не работает?
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | procedure TForm2 . Button1Click(Sender: TObject);
var logo:TstringList;
StrPage, ssylka: string ;
begin
IdHTTP2 . HandleRedirects:= true ;
logo:=TstringList . Create;
StrPage:=IdHTTP2 . Post(ssylka, logo);
Logo . Add( 'lb_login=login' ) ;
logo . Add( 'lb_password=password' );
logo . Add( 'lb_remember=true' );
if pos ( '[logout]' , StrPage) <> 0 then
ShowMessage( 'OK' )
else
ShowMessage( 'NO' );
logo . free;
end ;
|
вроде все правильно,авторизацию делал через http analyzer
__________________
Ставь спасибо за спасибо!
Помог?Ставь спасибо!Увидел пост? Поставь спасибо!
Последний раз редактировалось scroyler, 09.01.2012 в 21:36.
|