Авторизация в Ucoz

WreckeR/9/ · 11.11.2011, 15:06

Не хочет авторизовать, и все

Помогите, может я написал не так?

Цитата:


	procedure TForm3.Button1Click(Sender: TObject); var Data:TStringList; Request, s, p,g :String; HTTP:TIdHTTP; begin Data:=TStringList.Create; HTTP:=TIdHTTP.Create(nil); s := IdHTTP1.Post('http://123654789.ucoz.ru/',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'); IdHTTP1.HandleRedirects := true; idHTTP1.Request.Host:= 'http://123654789.ucoz.ru'; idHTTP1.Request.UserAgent:= 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10'; idHTTP1.Request.Accept := 'application/xml, text/xml, /'; idHTTP1.Request.AcceptLanguage := 'en-gb,en;q=0.5'; idHTTP1.Request.AcceptEncoding := 'gzip,deflate'; idHTTP1.Request.AcceptCharset := 'ISO-8859-1,utf-8;q=0.7,*;q=0.7'; IdHTTP1.Request.Connection := 'keep-alive'; IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded; charset=UTF-8'; IdHTTP1.Request.Referer := 'http://123654789.ucoz.ru'; //http://mysaite.ucoz.ru/ idHTTP1.Request.Pragma:= 'no-cache'; idHTTP1.Request.CacheControl := 'no-cache'; try Request:=HTTP.Post('http://123654789.ucoz.ru/index/sub/',Data); s := IdHTTP1.Post('http://123654789.ucoz.ru/tmpls/?a=fm;l=7;f=;file=obv.txt',Data); g := pars('<input type="hidden" name="ssid" value="', s, '">' ); memo1.Lines.Add(s) ; memo1.Lines.Add(p) ; finally Data.Free; Request:=''; end; end;