Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Делфи вопрос (https://forum.antichat.xyz/showthread.php?t=206626)

aydar 25.05.2010 10:07
Делфи вопрос
 
Немогу авторизоваться на сайте ucoz

Код:
cod := idHttp1.Get('http://sacred2-zone.ru/');
rndResult:= copy (cod,pos('input type="hidden" name="rnd" value="',cod)+38,3);

  params:=tstringlist.create;
  params.Add('user=test');
  params.Add('password=Test');
  params.Add('rem=1');
  params.Add('a=2');
  params.Add('ajax=1');
  params.Add('rnd=' + rndResult);
  cod:=IdHTTP1.Post('http://sacred2-zone.ru/', params);
  cod:=memo1.Text;
    if pos ('Вы вошли как',cod)<>0 then showmessage ('ok');

    params.Free;
может куки надо сохранять, если да то как?

RedFern.89 25.05.2010 11:21
надо, idHTTP1.AllowCookies := True;

aydar 25.05.2010 18:09
Куки были вкл, все равно не получаеться

Цитата:
idHTTP1.AllowCookies := True;
cod := idHttp1.Get('http://sacred2-zone.ru/');
rndResult:= copy (cod,pos('input type="hidden" name="rnd" value="',cod)+38,3);

params:=tstringlist.create;
params.Add('user=test');
params.Add('password=Test');
params.Add('rem=1');
params.Add('a=2');
params.Add('ajax=1');
params.Add('rnd=' + rndResult);
cod:=IdHTTP1.Post('http://sacred2-zone.ru/', params);

if pos ('Вы вошли как test',cod)<>0 then showmessage ('ok');
memo1.Text:=cod;
params.Free;

aydar 25.05.2010 18:28
все проблема решена, всем спасибо

lamer811 25.05.2010 19:18
ТС выложи пожалуйста решение своей проблемы

aydar 25.05.2010 19:35
Цитата:
idHTTP1.AllowCookies := True;
cod := idHttp1.Get('http://sacred2-zone.ru/');
rndResult:= copy (cod,pos('input type="hidden" name="rnd" value="',cod)+38,3);

params:=tstringlist.create;
params.Add('user=логин');
params.Add('password=пароль');
params.Add('rem=1');
params.Add('a=2');
params.Add('ajax=1');
params.Add('rnd=' + rndResult);
cod:=IdHTTP1.Post('http://sacred2-zone.ru/index/sub/', params);
memo1.Text:=cod;
params.Free;
Не откажусь от +


Время: 01:51