using System;
using System.Net.NetworkInformation;

using var ping = new Ping();

const string targetHost = "non-existent.invalid"; // 存在しないホスト
//const string targetHost = "192.168.0.1"; // ホスト名だけでなくIPアドレスを直接指定することもできる

// 指定したホストに対してpingを送信する
Console.Write($"{targetHost}にpingを送信しています...");

try {
  var reply = ping.Send(targetHost);

  if (reply.Status == IPStatus.Success)
    Console.WriteLine($"{reply.Address}から{reply.RoundtripTime}ミリ秒で応答がありました");
  else
    Console.WriteLine($"失敗しました ({reply.Status})");
}
catch (PingException ex) {
  Console.Error.WriteLine(ex);
}

Imports System
Imports System.Net.NetworkInformation

Class Sample
  Shared Sub Main()
    Using ping As New Ping()
      Const targetHost As String = "non-existent.invalid" ' 存在しないホスト
      'Const targetHost As String = "192.168.0.1" ' ホスト名だけでなくIPアドレスを直接指定することもできる

      ' 指定したホストに対してpingを送信する
      Console.Write($"{targetHost}にpingを送信しています...")

      Dim reply = ping.Send(targetHost)

      Try
        If reply.Status = IPStatus.Success
          Console.WriteLine($"{reply.Address}から{reply.RoundtripTime}ミリ秒で応答がありました")
        Else
          Console.WriteLine($"失敗しました ({reply.Status})")
        End If
      Catch ex As PingException
        Console.Error.WriteLine(ex)
      End Try
    End Using
  End Sub
End Class

using System;
using System.Net;
using System.Net.NetworkInformation;

using var ping = new Ping();

// 既知のアドレスからIPAddressを作成する
var address = IPAddress.Parse("192.168.0.1"); // IPv4
//var address = IPAddress.Parse("::1"); // IPv6

// 指定したアドレスに対してpingを送信する
Console.Write($"{address}にpingを送信しています...");

var reply = ping.Send(address);

Console.WriteLine($"{reply.Address}から{reply.RoundtripTime}ミリ秒で応答がありました");

Imports System
Imports System.Net
Imports System.Net.NetworkInformation

Class Sample
  Shared Sub Main()
    Using ping As New Ping()
      ' 既知のアドレスからIPAddressを作成する
      Dim address = IPAddress.Parse("192.168.0.1") ' IPv4
      'Dim address = IPAddress.Parse("::1") ' IPv6

      ' 指定したアドレスに対してpingを送信する
      Console.Write($"{address}にpingを送信しています...")

      Dim reply = ping.Send(address)

      Console.WriteLine($"{reply.Address}から{reply.RoundtripTime}ミリ秒で応答がありました")
    End Using
  End Sub
End Class

using System;
using System.Net.NetworkInformation;

using var ping = new Ping();

const int timeoutMilliseconds = 3000; // タイムアウト時間[ミリ秒]
const string targetHost = "192.168.0.99";

// 指定したホストに対してpingを送信する
Console.Write($"{targetHost}にpingを送信しています...");

var reply = ping.Send(targetHost, timeoutMilliseconds);

if (reply.Status == IPStatus.Success)
  Console.WriteLine($"{reply.Address}から{reply.RoundtripTime}ミリ秒で応答がありました");
else if (reply.Status == IPStatus.TimedOut)
  Console.WriteLine($"{timeoutMilliseconds}ミリ秒以内に応答がありませんでした");
else
  Console.WriteLine($"失敗しました ({reply.Status})");

Imports System
Imports System.Net.NetworkInformation

Class Sample
  Shared Sub Main()
    Using ping As New Ping()
      Const timeoutMilliseconds As Integer = 3000 ' タイムアウト時間[ミリ秒]
      Const targetHost As String = "192.168.0.99"

      ' 指定したホストに対してpingを送信する
      Console.Write($"{targetHost}にpingを送信しています...")

      Dim reply = ping.Send(targetHost, timeoutMilliseconds)

      If reply.Status = IPStatus.Success
        Console.WriteLine($"{reply.Address}から{reply.RoundtripTime}ミリ秒で応答がありました")
      Else If reply.Status = IPStatus.TimedOut
        Console.WriteLine($"{timeoutMilliseconds}ミリ秒以内に応答がありませんでした")
      Else
        Console.WriteLine($"失敗しました ({reply.Status})")
      End If
    End Using
  End Sub
End Class

using System;
using System.Net.NetworkInformation;

using var ping = new Ping();

var completed = false;

// ping送信が完了したときのイベントハンドラを割り当てる
ping.PingCompleted += (sender, e) => {
  // PingReplyを取得する
  var reply = e.Reply;

  if (reply.Status == IPStatus.Success)
    Console.WriteLine($"{reply.Address}から{reply.RoundtripTime}ミリ秒で応答がありました");
  else
    Console.WriteLine($"失敗しました ({reply.Status})");

  // 完了したことを示すフラグを設定
  completed = true;
};

const string targetHost = "example.com";

// SendAsyncによるpingの送信を開始する
Console.Write($"{targetHost}にpingを送信しています");

ping.SendAsync(targetHost, null);

// 送信が完了するまで"."を表示して待機する
while (!completed) {
  Console.Write(".");
  await System.Threading.Tasks.Task.Delay(50);
}

Imports System
Imports System.Net.NetworkInformation

Class Sample
  Shared Sub Main()
    Using ping As New Ping()
      Dim completed = False

      ' ping送信が完了したときのイベントハンドラを割り当てる
      AddHandler ping.PingCompleted, Sub(sender, e)
        ' PingReplyを取得する
        Dim reply = e.Reply

        If reply.Status = IPStatus.Success
          Console.WriteLine($"{reply.Address}から{reply.RoundtripTime}ミリ秒で応答がありました")
        Else
          Console.WriteLine($"失敗しました ({reply.Status})")
        End If

        ' 完了したことを示すフラグを設定
        completed = True
      End Sub

      Const targetHost As String = "example.com"

      ' SendAsyncによるpingの送信を開始する
      Console.Write($"{targetHost}にpingを送信しています")

      ping.SendAsync(targetHost, Nothing)

      ' 送信が完了するまで"."を表示して待機する
      Do Until completed
        Console.Write(".")
        System.Threading.Thread.Sleep(50)
      Loop
    End Using
  End Sub
End Class