ぷろぐらむノート

Ping送信には、方法がいくつかあります。その一部を記載します。

・System.Net.NetworkInformationをインポートしておきます。

My.Computer.Network.Pingメソッドを使用する方法

If My.Computer.Network.Ping("yahoo.com") Then
    MessageBox.Show("Pingに成功")
Else
    MessageBox.Show("Pingに失敗")
End If

 

Pingクラスを使用する方法

'Pingオブジェクトを作成
Using ping As New System.Net.NetworkInformation.Ping()
    'Pingを送信し結果を取得する
    Dim reply As System.Net.NetworkInformation.PingReply = ping.Send("yahoo.com")

    If reply.Status = System.Net.NetworkInformation.IPStatus.Success Then
        MessageBox.Show(String.Format("PingReply {0}:bytes={1} time={2}ms",
                reply.Address, reply.Buffer.Length, reply.RoundtripTime))
    Else
        MessageBox.Show(String.Format("Ping送信に失敗。({0})", reply.Status))
    End If
End Using

・IPStatus列挙体

 

ホスト名からＩＰアドレスおよび、ＩＰアドレスからホスト名を取得する方法を記載します。

IPアドレスを取得するには、（System.Net）Dnsクラスを使用します。

・System.Netをインポートする

ローカルコンピュータのホスト名を取得する

Dim hostName As String = Dns.GetHostName()

 

GetHostAddressesで　ホスト名からIPアドレスを取得する

Dim hostName As String = "yahoo.com"

'ホスト名からIPアドレスを取得する
Dim adrList As IPAddress() = Dns.GetHostAddresses(hostName)

For Each address As IPAddress In adrList
    Console.WriteLine(address.ToString())
Next

 

GetHostEntryで　ホスト名からIPアドレスを取得する

Dim hostName As String = "yahoo.com"

'ホスト名からIPアドレスを取得する
Dim iphost As IPHostEntry = Dns.GetHostEntry(hostName)

'IPアドレスのリストを取得する
Dim adrList As IPAddress() = iphost.AddressList

For Each address As IPAddress In adrList
    Console.WriteLine(address.ToString())
Next

 

IPアドレスからホスト名を取得する

Dim ipAddr As String = "98.139.183.24"

'IPアドレスからホスト名を取得する
Dim iphost As IPHostEntry = Dns.GetHostEntry(ipAddr)

Console.WriteLine(iphost.HostName)