Подсчет попыток ping

Question

Imports System.Net.NetworkInformation 
Public Class Form1 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     Timer1.Enabled = True 
    End Sub 

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 

     Dim pingtarget As String = "88.250.204.138" 
     Dim pingre As PingReply = Ping.Send(pingtarget) 

     If My.Computer.Network.Ping("pingtarget", 9002) Then 

      address.ForeColor = Color.Green 

      Do While My.Computer.Network.Ping("pingtarget", 9002) 

       Me.ListBox1.Items.Add("Response from " & pingtarget & " in " & pingre.RoundtripTime.ToString() & " ms") 
       My.Computer.Network.Ping("pingtarget", 9002) 

      Loop 


     Else 
      Timer2.Enabled = True 
      address.ForeColor = Color.Red 
      MsgBox("Connection Failed") 
     End If 

    End Sub 

End Class 

Привет, ребята, я только начал пытаться разработать программу, которая будет продолжать пинговать сервер, и если соединение будет потеряно, клиент перезагрузится. У меня есть некоторые вопросы:

1- Как засчитать перезагрузки? В противном случае он будет продолжать перезагружаться, пока не будет никакого соединения. Перезагрузка повторит попытку подключения к Интернету снова, но это не слишком много, должен быть способ остановить его. Например, после 3 перезагрузок клиент будет работать даже без соединения.

2- В этих кодах, когда нет соединения, я получаю сообщение об ошибке «Сообщение о необработанном исключении типа« Исключение System.InvalidOperationException »в Microsoft.VisualBasic.dll».

Answer 1

Одна из очевидных проблем:

изменить эту часть кода:

My.Computer.Network.Ping("pingtarget", 9002) 

к этому:

My.Computer.Network.Ping(pingtarget, 9002) 

вы передаете pingtarget как строка не является переменной.