iccup.platoon@vk
16-05-2015, 21:38
... выполнении этой части кода:
If My.Computer.Network.Ping("192.168.0.2", 200) Then
Пингуется машина в своей локальной сети. Задумка - проверить, включен ли и доступен ли для работы в сети указанный компьютер. Методом дебагов через МсгБокс я обнаружил, что софтина уходит в режим "не отвечает" именно на этом куске кода. Если компьютер включен - всё идеально, IF проходит, выполняется вожделенная задача. Но не дай бог искомый IP (а они обрабатываются в цикле Do until, в котором меняется последняя цифра адреса) будет не доступен - всё виснет и не выполняется.
Итого: как исправить зависание или же как сменить проверку на "онлайн"?
If My.Computer.Network.Ping("192.168.0.2", 200) Then
Пингуется машина в своей локальной сети. Задумка - проверить, включен ли и доступен ли для работы в сети указанный компьютер. Методом дебагов через МсгБокс я обнаружил, что софтина уходит в режим "не отвечает" именно на этом куске кода. Если компьютер включен - всё идеально, IF проходит, выполняется вожделенная задача. Но не дай бог искомый IP (а они обрабатываются в цикле Do until, в котором меняется последняя цифра адреса) будет не доступен - всё виснет и не выполняется.
Итого: как исправить зависание или же как сменить проверку на "онлайн"?