Киньте простенький исходник автореггера

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by diznt, 3 Nov 2008.

  1. diznt

    diznt Elder - Старейшина

    Joined:
    31 Jan 2008
    Messages:
    432
    Likes Received:
    164
    Reputations:
    -19
    Нужен исходник (на делфи!) а именно как делать так чтобы не один раз регались акки (профили) так как я с idhttp.post умею работать остаеться токо это узнать))

    цикл не идет
     
    1 person likes this.
  2. vid

    vid Member

    Joined:
    16 Aug 2006
    Messages:
    20
    Likes Received:
    5
    Reputations:
    0
    смотри у меня на блоге в профиле. там есть старенький регер by.ru
     
    1 person likes this.
  3. diznt

    diznt Elder - Старейшина

    Joined:
    31 Jan 2008
    Messages:
    432
    Likes Received:
    164
    Reputations:
    -19
    vid оя**у там небось по нажатию кнопки все это происходит?
     
    #3 diznt, 3 Nov 2008
    Last edited by a moderator: 3 Nov 2008
  4. vid

    vid Member

    Joined:
    16 Aug 2006
    Messages:
    20
    Likes Received:
    5
    Reputations:
    0
    ну даже если и через нажатие на кнопку?!
    это метод tbutton и вызвать как угодно можно ;)
     
  5. vid

    vid Member

    Joined:
    16 Aug 2006
    Messages:
    20
    Likes Received:
    5
    Reputations:
    0
    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;
    
    
    Так понятнее?! Ошибок много конечно, но писал без среды, прям тут. Главное чтобы "идея" была понятна :)
     
    #5 vid, 3 Nov 2008
    Last edited: 3 Nov 2008
  6. diznt

    diznt Elder - Старейшина

    Joined:
    31 Jan 2008
    Messages:
    432
    Likes Received:
    164
    Reputations:
    -19
    Извените а что такое
    try
    и
    except

    ??? а то я не знаю
     
    1 person likes this.
  7. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    http://www.delphibasics.co.uk/RTL.asp?Name=Try
     
    2 people like this.