Блог

Я получаю эту ошибку, которую, похоже, не могу решить с помощью try … catch, и мне нужен ваш совет о том, как это решить. Есть еще код, но я считаю, что это связано с ошибкой, которую я получаю. Код такой:

 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Dim ip As String
    Dim sw As New Stopwatch
    ip = "some.ip.com"
    Try
        If My.Computer.Network.Ping(ip) Then
            ping = (sw.ElapsedMilliseconds)
            Label1.Text = ping amp; "ms"
            sw.Stop()
            MsgBox("You have no connection.")
        End If
    Catch ex As Exception
        MsgBox(ex)
    End Try
    If ping < 200 Then
        Label2.BackColor = Color.Green
        Label2.Text = "Good Connection"
    ElseIf ping > 200 Then
        Label2.BackColor = Color.Orange
        Label2.Text = "Medium connection"
    ElseIf ping > 400 Then
        Label2.BackColor = Color.Red
        Label2.Text = "Bad Connection"
    ElseIf ping <= 0 Then
        Label2.Text = "No Connection"
        Label2.BackColor = Color.Brown
    End If
  

Ошибка выдает ошибку исключения:

 ************** Exception Text **************
System.Net.NetworkInformation.PingException: An exception occurred during a Ping request. ---> System.Net.Sockets.SocketException: The requested name is valid, but no data of the requested type was found
  at System.Net.Dns.GetAddrInfo(String name)
  at System.Net.Dns.InternalGetHostByName(String hostName, Boolean includeIPv6)
  at System.Net.Dns.GetHostAddresses(String hostNameOrAddress)
  at System.Net.NetworkInformation.Ping.Send(String hostNameOrAddress, Int32 timeout,     Byte[] buffer, PingOptions options)
  

— Завершение трассировки внутреннего стека исключений —
в System.Net.NetworkInformation.Ping.Send(строка hostNameOrAddress, тайм-аут Int32, буфер Byte[], параметры PingOptions)
в System.Net.NetworkInformation.Ping.Send(строка hostNameOrAddress, тайм-аут Int32, буфер байт[])
в Microsoft.VisualBasic.Devices.Сеть.Пинг (строка hostNameOrAddress, тайм-аут Int32)
в Microsoft.VisualBasic.Devices.Сеть.Ping(строка hostNameOrAddress)
в Sky_Casino.Form2.timer1_Tick(отправитель объекта, EventArgs e) в C:Userstonakis2108DocumentsVisual Studio 2013Projects somethingsomethingForm2.vb: строка 61
в системе.Windows.Формы.Таймер.OnTick (EventArgs e)
в системе.Windows.Формы.Таймер.TimerNativeWindow.WndProc(Messageamp; m)
в системе.Windows.Формы.NativeWindow.Обратный вызов (IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

Я хочу, чтобы мой код выполнял пинг цели, возвращал пинг в ms через sw и делал это каждые 5 секунд.

Я получаю эту ошибку, когда отключаю соединение, чтобы проверить наличие ошибок, пока я подключен к программе. Кто-нибудь может помочь?

Смысл попытки / перехвата в том, что исключение все равно будет возникать, но вы можете обработать его по своему усмотрению, вместо сбоя программы. Следующий код будет обрабатывать ошибки более корректно, и я также изменил ваши проверки на время пинга, поскольку ваша комбинация проверок меньше и больше не даст вам того, что вы хотите, и добавил более длительный тайм-аут (по умолчанию 500 мс). Все еще не лучший код, но для меня он обрабатывает отключенную сеть!

 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Dim ip = "www.google.com"
    Dim timeout = 1000
    Dim sw = New Stopwatch()
    Try
        Dim ping As Long = -1
        sw.Start()
        If My.Computer.Network.Ping(ip, timeout) Then
            sw.Stop()
            ping = sw.ElapsedMilliseconds
            Label1.Text = String.Format("{0}ms", ping)
        End If
        If ping < 0 Then
            Label2.Text = "Ping Timed Out"
            Label2.BackColor = Color.Brown
        ElseIf ping < 200 Then
            Label2.Text = "Good Connection"
            Label2.BackColor = Color.Green
        ElseIf ping < 400 Then
            Label2.Text = "Medium Connection"
            Label2.BackColor = Color.Orange
        Else
            Label2.Text = "Bad Connection"
            Label2.BackColor = Color.Red
        End If
    Catch ex As Exception
        Label1.Text = ""
        Label2.Text = ex.Message
        Label2.BackColor = Color.Red
        Console.WriteLine(ex.ToString())
    End Try
End Sub