Получение сообщения

UDPStartup() ; Запустить службу UDP
$socket = UDPBind("0.0.0.0", 1234) ; Запуск прослушивания сокета. 0.0.0.0 это значит слушать все пакеты на порту
While True ; Бесконечный цикл
    $udprecv = UDPRecv($socket, 2048) ; ожидать данные размером до 2048 бит (2МБ) размером (это довольно много и хватит)
    If $udprecv <> "" Then ; Если данные не пустые то:
        $udprecv = BinaryToString($udprecv) ; Преобразовать бинарные данные в текст
        MsgBox(0, "Полученные данные", $udprecv)
    EndIf
    Sleep(100) ; ограничить чтение из сокета, уменьшить нагрузку на ЦП
WEnd