WreckeR/9/
11.11.2011, 14:06
Не хочет авторизовать, и все:(
Помогите, может я написал не так?
procedure TForm3.Button1Click(Sender: TObject);
var
Data:TStringList;
Request, s, p,g :String;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
begin
Data:=TStringList.Create;
[Ссылки могут видеть только зарегистрированные и активированные пользователи](nil);
s := Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',Data);
p := pars('name="rnd" value="', s, '"' );
Data.Add('user=ник');
Data.Add('password=пароль');
Data.Add('rem=1');
Data.Add('a=2');
Data.Add('ajax=1');
Data.Add('rnd='+p);
Data.Add('_tp_=xml');
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := true;
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] '[Ссылки могут видеть только зарегистрированные и активированные пользователи]';
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := 'application/xml, text/xml, */*';
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := 'en-gb,en;q=0.5';
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := 'gzip,deflate';
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := 'ISO-8859-1,utf-8;q=0.7,*;q=0.7';
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := 'keep-alive';
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := 'application/x-[Ссылки могут видеть только зарегистрированные и активированные пользователи] charset=UTF-8';
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := '[Ссылки могут видеть только зарегистрированные и активированные пользователи]'; //[Ссылки могут видеть только зарегистрированные и активированные пользователи]
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] 'no-cache';
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := 'no-cache';
try
Request:=[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',Data);
s := Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',Data);
g := pars('<input type="hidden" name="ssid" value="', s, '">' );
memo1.Lines.Add(s) ;
memo1.Lines.Add(p) ;
finally
Data.Free;
Request:='';
end;
end;
Помогите, может я написал не так?
procedure TForm3.Button1Click(Sender: TObject);
var
Data:TStringList;
Request, s, p,g :String;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
begin
Data:=TStringList.Create;
[Ссылки могут видеть только зарегистрированные и активированные пользователи](nil);
s := Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',Data);
p := pars('name="rnd" value="', s, '"' );
Data.Add('user=ник');
Data.Add('password=пароль');
Data.Add('rem=1');
Data.Add('a=2');
Data.Add('ajax=1');
Data.Add('rnd='+p);
Data.Add('_tp_=xml');
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := true;
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] '[Ссылки могут видеть только зарегистрированные и активированные пользователи]';
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := 'application/xml, text/xml, */*';
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := 'en-gb,en;q=0.5';
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := 'gzip,deflate';
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := 'ISO-8859-1,utf-8;q=0.7,*;q=0.7';
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := 'keep-alive';
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := 'application/x-[Ссылки могут видеть только зарегистрированные и активированные пользователи] charset=UTF-8';
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := '[Ссылки могут видеть только зарегистрированные и активированные пользователи]'; //[Ссылки могут видеть только зарегистрированные и активированные пользователи]
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] 'no-cache';
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := 'no-cache';
try
Request:=[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',Data);
s := Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',Data);
g := pars('<input type="hidden" name="ssid" value="', s, '">' );
memo1.Lines.Add(s) ;
memo1.Lines.Add(p) ;
finally
Data.Free;
Request:='';
end;
end;