"по проще" - это, наверное. для работы дворником. для большинства остальных профессий нужна голова. если Вам 10 минут на понимание мало, попробуйте потратить на это побольше времени.
или хотя бы прочитать статью внимательно
Цитата
Пример использования: Sub TestPingFunction() If Ping("ComputerName") Then ПутьКПапке = "\\ComputerName\files" If Ping("ya.ru") Then MsgBox "Интернет доступен!" If Not Ping("192.168.0.2") Then MsgBox "Компьютер с IP адресом 192.168.0.2 недоступен в сети!" End Sub
пс. с "блинами" - в блинную, пожалуйста.
"по проще" - это, наверное. для работы дворником. для большинства остальных профессий нужна голова. если Вам 10 минут на понимание мало, попробуйте потратить на это побольше времени.
или хотя бы прочитать статью внимательно
Цитата
Пример использования: Sub TestPingFunction() If Ping("ComputerName") Then ПутьКПапке = "\\ComputerName\files" If Ping("ya.ru") Then MsgBox "Интернет доступен!" If Not Ping("192.168.0.2") Then MsgBox "Компьютер с IP адресом 192.168.0.2 недоступен в сети!" End Sub
[moder]Это что еще такое? Мало того, что не отписался в своей предыдущей теме, так еще и тут выдрючивается! Нормальная ссылка на прекрасный код. Если что-то не ясно - спроси конкретно про то, что не ясно, а
[moder]Это что еще такое? Мало того, что не отписался в своей предыдущей теме, так еще и тут выдрючивается! Нормальная ссылка на прекрасный код. Если что-то не ясно - спроси конкретно про то, что не ясно, а