
; Этот скрипт - клиент, запускайте его после сервера! (Запускайте сначала пример функции UDPSend или UDPRecv и жмите кнопку "1. Запуск сервера").

Example()

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

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

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

	; Подключает прослушивание сокета, указанного IP-адреса и порта.
	Local $aSocket = UDPOpen($sIPAddress, $iPort)

	If @error Then ; Если ошибка, то выход
		MsgBox(4096 + 16, "", "Не удалось подключиться, @error = " & @error)
		Return False
	Else
		MsgBox(4096, "", "Успешное подключение.")
	EndIf

	UDPCloseSocket($aSocket) ; Закрывает сокет
EndFunc   ;==>Example

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