Блокировка сети за broadcast

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by RWS, 11 Mar 2010.

  1. RWS

    RWS New Member

    Joined:
    21 Jan 2010
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Имеется приложение для рассылки инвайтов в ВК с использование idHTTP. Запросы отправляю методом post. При появление капчи переподключаю впн. В итоге в локалке забанили на 24 часа за широковещательный трафик. Подскажите в чём может быть причина? Пауза между пост запросами стоит в районе 500-1000мс...
    Может быть из-за переподключения впн и проверки соединения?
    Код переподключения:
    Code:
    Function Connecting: Integer;  //проверяет соединение с интернетом
    Var
      Conns: Array[1..10] Of TRasConn;
      Size: Integer;
      Num: Integer;
    Begin
      Size:=Sizeof(TRasConn)*10;
      Fillchar(Conns, Size, 0);
      Conns[1].DwSize:=Sizeof(TRasConn);
      RASEnumConnectionsA(@conns[1], Size, Num);
      Connecting:=Num;
    End;
    
    procedure Connect; //подключается к интернету
    var
     cmd, par, fil, dir: PChar;
    begin
      cmd := 'open';
      fil := 'rasdial.exe';
      par := PChar(VPNName + ' ' + VPNLogin + ' ' + VPNPass);
      dir := 'C:';
      ShellExecute(Form1.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
      sleep(5000);
    end;
    
    procedure Diconnect; //отключается от интернета
    var
    cmd, par, fil, dir: PChar;
    begin
    cmd := 'open';
    fil := 'rasdial.exe';
    par := PChar(VPNName + ' /DISCONNECT');
    dir := 'C:';
    ShellExecute(Form1.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
    sleep(500);
    end;
    
    procedure reconnect; //выполняет переподключение
    begin
      Diconnect;
      repeat Connect Until Connecting<>0;
    accNum -1;
    end;
     
  2. spider-intruder

    spider-intruder Elder - Старейшина

    Joined:
    9 Dec 2005
    Messages:
    700
    Likes Received:
    339
    Reputations:
    37
    Надо уточнять у провайдера своего. Лочить за впн глупо имхо. Если выснишь за что конкретно забанили, поставь фаервол и запреди исходящие бродкасты. Первый раз о таком слышу вооще-то.
     
  3. RWS

    RWS New Member

    Joined:
    21 Jan 2010
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    В том то и дело что они не говорят за что конкретно)) Перечислили только возможные причины: