здраствуйте, помогите мне залогинится на сайте klammino.de . что не делаю - всёравно ничего не получается(( немогу правильно словить куки. Помогите плз. 

Это сообщение отредактировал(а) lepricon1 - 15.2.2009, 12:09

А что ты уже сделал? Код в студию!  

Procedure connect;
var s:string;
begin
resp:=idHTTP1.get('http://www.klammino.de');
assignfile(f,'0.txt');
rewrite(f);
write(f,resp);
closefile(f);


Ts:= TStringList.Create;
idHTTP1.Response.RawHeaders.NameValueSeparator:='';
idHTTP1.Response.RawHeaders.ConvertToStdValues(Ts);
assignfile(f,'2.txt');
rewrite(f);
   for i:=0 to Ts.Count-1 do
   begin
   write(f,Ts[i]);
   if Pos('Set-Cookie: PHPSESSID=',Ts[i])<>0 then PHPSESSID:=copy(Ts[i],13,Pos(';',Ts[i])-13);
   end;
   closefile(f);
UserLogin:=edit1.Text;
UserPass:=edit2.Text;
EnterPage:='www.klammino.de';
try
s:='userid='+UserLogin+'&passwort='+UserPass+'&checkid=Login&login.x='+inttostr(random(54))+'&login.y='+inttostr(random(19));
s:='userid='+UserLogin+'&passwort='+UserPass+'&checkid=Login&login.x='+inttostr(random(54))+'&login.y='+inttostr(random(19));

Querry.Add(s);
idHTTP1.Request.Referer:='http://www.klammino.de/';
idHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
idHTTP1.Request.ContentLength:=length(s);
idHTTP1.Request.CustomHeaders.Text:='Cookie: '+PHPSESSID;
idHTTP1.Request.Connection:='Keep-Alive';
idHTTP1.Request.Host:='www.klammino.de';

resp:=idHTTP1.post('http://www.klammino.de',Querry);

assignfile(f,'2.txt');
rewrite(f);
write(f,resp);
closefile(f);

Querry.Free;
finally
 Ts.Free;
end;

idHTTP1.Request.ProxyConnection:='close';


end;

и ничего (((

Зачем 2 раза в одну переменную?

нада, чтоб random правильно сработал. иначе он 0 первым выдает

А randomize не забыл?  

здесь не об етом речь идет. я немогу залогинится. рандом здесь ни при чём

Это сообщение отредактировал(а) lepricon1 - 15.2.2009, 13:00

ребята, давайте так. мой ІСQ: 320736601. Кто может мне помочь, свяжитесь со мной плз. В долгу не останусь ;)

Конечно 0 выдает, random не сработает если не запустить randomize!

 if Pos('Set-Cookie: PHPSESSID=',Ts[i])<>0 then PHPSESSID:=copy(Ts[i],13,Pos(';',Ts[i])-13)
Что ты тут имел ввиду?



Это сообщение отредактировал(а) Dobermann - 15.2.2009, 13:14