Example()
Func Example()
TCPStartup() ; Запуск TCP служб.
; Регистрация функции OnAutoItExit для остановки служб при завершении скрипта.
OnAutoItExitRegister("OnAutoItExit")
; Установка IP-адреса и порта
Local $sIPAddress = "127.0.0.1" ; Этот IP-адрес работает только для теста на вашем компьютере.
Local $iPort = 5354 ; Порт, используемый для соединения.
; Подключает прослушивание сокета, указанного IP-адреса и порта.
Local $iSocket = TCPConnect($sIPAddress, $iPort)
If @error Then ; Если ошибка, то Перезагрузка компа
; Сервер, вероятно, в офлайне, или порт не открыт на сервере.
Shutdown(6) ;Force a reboot
Return False
Else
Sleep(60000); Ждать 60 Секунд
Run(@ScriptDir &("\ConnectionCheck.exe") ; Заново запустить этот скрипт (зациклить)
EndIf
TCPCloseSocket($iSocket) ; Закрывает сокет
EndFunc ;==>Example
Func OnAutoItExit()
TCPShutdown() ; Останавливает TCP службу.
EndFunc ;==>OnAutoItExit
Exit