Мне нужна обработка ошибок с поиском переменных XML, когда наш сайт не работает или клиентский компьютер не имеет доступа в Интернет

Question

Мне нужен какой-то способ игнорировать следующий вызов, когда у пользователя нет доступа к интернету или наш сайт не работает.

Dim RemoteURL = "https://sample.com/InfoApp/notify.xml"
        Dim X = XDocument.Load(RemoteURL)

Как можно пропустить этот раздел, чтобы сообщение об ошибке продолжения или выхода не отображалось?

        Dim RegID = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "ID", Nothing)
        Dim RemoteURL = "https://sample.com/InfoApp/notify.xml"
        Dim X = XDocument.Load(RemoteURL)
        Dim ID = X.<notify>.<ID>.Value
        My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\MyAPP", "ID", ID)
        Alert.Show()

Answer 1

Вы можете использовать функцию, подобную этой, чтобы проверить наличие соединения:

Function CheckInternet() As Boolean
Dim req As Object
Set req = CreateObject("MSXML2.serverXMLHTTP")
req.Open "GET", "http://www.google.com", False
req.Send
If req.Status <> 200 Then
    CheckInternet = False
Else
    CheckInternet = True
End If
End Function

В этом случае будет создан запрос к Google.Если статус 200, все в порядке.В противном случае велика вероятность того, что соединение отсутствует или google.com отключен.Вы также можете указать свой URL здесь.