; Этот скрипт - сервер, запускайте его первым!

; Установка IP-адреса и порта
Local $sIPAddress = "127.0.0.1" ; Этот IP-адрес работает только для теста на вашем компьютере.
Local $iPort = 65432 ; Порт, используемый для соединения.

UDPStartup() ; Запуск UDP служб.

; Регистрация функции OnAutoItExit для остановки служб при завершении скрипта.
OnAutoItExitRegister("OnAutoItExit")

Local $iSocket = UDPBind($sIPAddress, $iPort) ; Создаёт прослушиваемый сокет
If @error Then ; Если ошибка, то выход
	; Кто-то возможно уже прослушивает этот IP-адрес и порт (ещё одна копия скрипта уже выполняется?).
	MsgBox(4096 + 16, "", "Сервер:" & @CRLF & "Не удалось прослушать сокет, @error = " & @error)
	Exit
EndIf

;--- Здесь ваш код

Func OnAutoItExit()
	UDPCloseSocket($iSocket) ; Закрывает сокет
	UDPShutdown() ; Останавливает UDP службу.
EndFunc