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

Форум АНТИЧАТ (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=90272)

diznt 03.11.2008 18:46
Киньте простенький исходник автореггера
 
Нужен исходник (на делфи!) а именно как делать так чтобы не один раз регались акки (профили) так как я с idhttp.post умею работать остаеться токо это узнать))

цикл не идет

vid 03.11.2008 19:08
смотри у меня на блоге в профиле. там есть старенький регер by.ru

diznt 03.11.2008 19:31
vid оя**у там небось по нажатию кнопки все это происходит?

vid 03.11.2008 20:02
ну даже если и через нажатие на кнопку?!
это метод tbutton и вызвать как угодно можно ;)

vid 03.11.2008 20:15
Код:
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;
Так понятнее?! Ошибок много конечно, но писал без среды, прям тут. Главное чтобы "идея" была понятна :)

diznt 03.11.2008 20:25
Извените а что такое
try
и
except

??? а то я не знаю

De-visible 03.11.2008 21:01
http://www.delphibasics.co.uk/RTL.asp?Name=Try


Время: 00:27