Example()

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

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

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

	; Создает сокет связанный с указанным IP-адресом и портом
	Local $aSocket = UDPBind($sIPAddress, $iPort)

	If @error Then ; Если ошибка, то выход
		; Кто-то возможно уже связан с этим IP-адресом и портом (ещё одна копия скрипта уже выполняется?).
		Local $iError = @error
		MsgBox(4096 + 16, "", "Не удалось связать, @error = " & $iError)
		Return False
	Else
		MsgBox(4096, "", "Успешная связь")
	EndIf

	; Закрывает прослушиваемый сокет, чтобы позволить соединение в дальнейшем.
	; Пока сокет не закрыт, любая другая программа не может связаться с этим же IP-адресом и портом.
	UDPCloseSocket($aSocket)
EndFunc   ;==>Example

Func OnAutoItExit()
	UDPShutdown() ; Останавливает UDP службу.
EndFunc   ;==>OnAutoItExit
