DELPHI: POST MSG BOMBER

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Oleg-vp, 28 Aug 2009.

  1. Oleg-vp

    Oleg-vp New Member

    Joined:
    14 Jul 2009
    Messages:
    6
    Likes Received:
    0
    Reputations:
    0
    Всем привет!
    Нуждаюсь в вашем совете.
    Задача у меня такая: надо отправлять пост запросы с разных IP для интернет голосования =)
    Прогу написал, вот ее кусок:

    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    var
    server:String;
    port:integer;
    buf:string;
    res:string;
    good,i:integer;
    begin
    Memo2.Lines.Clear;
    http.ReadTimeout:=1000;
    http.ConnectTimeout:=1000;
    good:=0;
    
    if not Check1.Checked then
     begin
     http.ProxyParams.ProxyServer:='';
     http.ProxyParams.Proxyport:=0;
     try
     Memo2.Lines.Add(UTF8toAnsi(http.Post(LabeledEdit1.Text,Params.Lines)));
     except end;
     Caption:=SysErrorMessage(GetLastError);
     Exit;
     end;
    
    for i:=0 to Memo.Lines.Count-1 do
     begin
     buf:=Memo.Lines.Strings[i];
    
     server:=Copy(Buf,1,Pos(':',Buf)-1);
     delete(buf,1,Pos(':',Buf));
     port:=StrToInt(Buf);
    
     http.ProxyParams.ProxyServer:=Server;
     http.ProxyParams.Proxyport:=port;
      try
      http.Post(LabeledEdit1.Text,Params.Lines);
      except end;
    
     res:=SysErrorMessage(GetLastError);
     if res='Операция успешно завершена' then
      begin
      inc(good);
      res:='ok';
      end else res:='Error#'+IntToStr(GetLastError);
    
     Caption:=IntToStr(i+1)+' из '+IntToStr(Memo.Lines.Count)+'  GOOD='+IntToStr(good);
     memo2.Lines.Add(Server+':'+IntToStr(port)+' - '+res);
    
     Application.ProcessMessages;
     if Abort then
      begin
      abort:=false;
      Exit;
      end;
     end;
    
    
    end;
    
    Код самый обычный, берется из списка проксей адрес и порт, прописывается в TidHTTP и стреляем POST запрос.

    ЕСТЬ ЛИ специализированные на этом проги или всё таки придется отлаживать свою прогу? Просто у меня часто возникают ошибки #10054 и #10057 и не очень понятноЦ: или это мертвые прокси или что-то не настроил в комоненте. Примерно на 100 адресов удвчно проходит только 10-20%
     
  2. Oleg-vp

    Oleg-vp New Member

    Joined:
    14 Jul 2009
    Messages:
    6
    Likes Received:
    0
    Reputations:
    0
    Еще заметил такую шнягу, запросы идут на проксики.
    Проходят через раз, бывает проскакивает ошибка 10057 , а потом остальная половина адресов резко проскакивает с ошибкой 10054 - наверняка , что-то у меня
     
  3. Oleg-vp

    Oleg-vp New Member

    Joined:
    14 Jul 2009
    Messages:
    6
    Likes Received:
    0
    Reputations:
    0
    проблема решена весьма "брутальным" способом =)
    Создаем IdHTTP , ставим опции , посылаем пост запрос, сразу убиваем , чтобы не вернул геморой в виде ошибок ))) и.т.д для нового запроса опять создаем :rolleyes:
     
  4. POS_troi

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

    Joined:
    1 Dec 2006
    Messages:
    1,569
    Likes Received:
    466
    Reputations:
    108
    TopGen
     
  5. Oleg-vp

    Oleg-vp New Member

    Joined:
    14 Jul 2009
    Messages:
    6
    Likes Received:
    0
    Reputations:
    0
    Заузал TopGen - 300 кликов в сутки... мало =(
    Кряков нормальных к нему не нашел, нашел только один, который сбрасывает счетчик, но каждый раз нужен REBOOT.
    Может большинство прокси-серверов "отвергают" прогу, т.к. это не браузер :confused: Тогда подскажите как с idHttp "закосить" под браузер ? :eek:
     
  6. ZdezBilYa

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

    Joined:
    29 Aug 2008
    Messages:
    198
    Likes Received:
    75
    Reputations:
    19
    idHTTP.Request.UserAgent:= /нужное опознавание/
     
  7. Oleg-vp

    Oleg-vp New Member

    Joined:
    14 Jul 2009
    Messages:
    6
    Likes Received:
    0
    Reputations:
    0
    User-Agent - это эдинственное что нужно для распознавания или есть еще что либо ?
     
  8. HakaR

    HakaR Active Member

    Joined:
    23 Jul 2009
    Messages:
    301
    Likes Received:
    200
    Reputations:
    3
    Вроде больше ничего не надо...