Проверка на наличие интернета

Проверка на наличие интернета

Qweezy

Новый участник

Сообщения: 16
Благодарности: 0

Здравствуйте товарищи!
Прошу вашей помощи, нужно написать код который проверял бы наличие интернета путем пинга до ya.ru и в случае успешного пинга (наличия интернета соответственно) переходить выполнять код дальше который находится ниже, в случае если пинг не идет (интернет не работает) снова идти на проверку, то есть своеобразный цикл нужен.
В батнике у меня реализовывался этот код так:

@echo off
:start
ping -n 1 ya.ru |>nul find /i "TTL=" && (goto next) || (ping 127.1 -n 2& Goto :start)
:next
start server1.v3.exe

Но и при всем при этом нужно чтобы никаких консольных и тому подобных окон не всплывало, то есть @SW_HIDE нужно еще туда воткнуть.
Заранее всем огромное спасибо!

Отправлено: 19:24, 31-01-2017

-TRM-

Старожил

Сообщения: 352
Благодарности: 44

Профиль | Отправить PM | Цитировать

Можно попробовать так извратиться:

#include <Inet.au3>
TCPStartup()
$sIP = TCPNameToIP("yandex.ru")
If $sIP = "" Then MsgBox(64, "Ошибка", "ВНИМАНИЕ ! Отсутствует подключение к интернету.")
TCPShutdown()

Это сообщение посчитали полезным следующие участники:

Mancoffee

Отправлено: 13:37, 14-06-2017 | #2