Как послать широковещательный UDP пакет

Смотрит ламер на папку "Удаленный доступ к сети", и думает: "Как он ещё тут, когда его уже удалили?"

procedure TMainForm.FormCreate(Sender: TObject);
var
  Init: TWSAData;
  SockOpt: BOOL;
  Sock: TSocket;
  Target: TSockAddrIn;
begin
  WSAStartup($101,Init);
  Sock:=Socket(PF_INET,SOCK_DGRAM,IPPROTO_UDP);
  SockOpt:=TRUE;
  SetSockOpt(Sock,SOL_SOCKET,SO_BROADCAST, PChar(@SockOpt),SizeOf(SockOpt)) ;
  Target.sin_port:=htons(8167); //номер порта
  Target.sin_addr.S_addr:=INADDR_BROADCAST;
  Target.sa_family:=AF_INET;
  SendTo(Sock,Data,DataBytes,0,Target,SizeOf(Target));
  WSACleanup;
end;

Недавно добавленные исходники
• TDictionary Custom Sort 2 667 • Fast Watermark Sources 2 538 • 3D Designer 4 175 • Sik Screen Capture 2 850 • Patch Maker 3 054 • Айболит (remote control) 2 885 • ListBox Drag & Drop 2 482 • Доска для игры Реверси 74 539 • Графические эффекты 3 305 • Рисование по маске 2 530 • Перетаскивание изображений 2 118 • Canvas Drawing 2 184 • Рисование Луны 2 120 • Поворот изображения 1 692 • Рисование стержней 1 725 • Paint on Shape 1 208 • Генератор кроссвордов 1 795 • Головоломка Paletto 1 442 • Теорема Монжа об окружностях 1 800 • Пазл Numbrix 1 343 • Заборы и коммивояжеры 1 607 • Игра HIP 1 096 • Игра Go (Го) 1 054 • Симулятор лифта 1 215 • Программа укладки плитки 1 009 • Генератор лабиринта 1 315 • Проверка числового ввода 1 081 • HEX View 1 260 • Физический маятник 1 127 • Задача коммивояжера 1 166

Как послать широковещательный UDP пакет

Похожие по теме исходники