Нужен исходник (на делфи!) а именно как делать так чтобы не один раз регались акки (профили) так как я с idhttp.post умею работать остаеться токо это узнать)) цикл не идет
Code: function DoIt : Boolean; Var http : TidHttp; html : String; Data : TStrings; begin http:=TidHTTP.Create(self); Data :=TStringList.Create; Data.Add('y=12'); Data.Add('x=13'); try html:=http.Post('http://www.test.com/test.php',Data); Result:=True; except Result:=False; end; Data.Free; http.Free; end; Procedure ManyAccs(cnt : Integer); Var i : integer; begin i:=1; repeat if DoIt then inc(i); until i<cnt; end; Так понятнее?! Ошибок много конечно, но писал без среды, прям тут. Главное чтобы "идея" была понятна