ipとホスト名を簡単に表示できるツールを作成しようと思いました。
自分で書こうと思ったんですが今回は引用してみました。
使ってるフレームワークをリンクしてみました。
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q14140445074
一行目でSystem.Netクラスをインポートしてます。
ホスト名はDns.GetHostNameというホスト名を取得するクラスを使ってます。
https://msdn.microsoft.com/ja-jp/library/system.net.dns.gethostname(v=vs.110).aspx
IPAddressもクラスを配列を選択してます。
https://msdn.microsoft.com/ja-jp/library/system.net.ipaddress(v=vs.110).aspx
HostIP = Dns.GetHostEntry(HostName).AddressList
https://msdn.microsoft.com/ja-jp/library/ms143998(v=vs.110).aspx
https://msdn.microsoft.com/ja-jp/library/system.net.iphostentry.addresslist(v=vs.110).aspx
クラスの配列の繰り返しとエラーチェック
http://logicalerror.seesaa.net/article/159219097.html
https://msdn.microsoft.com/ja-jp/library/system.net.sockets.addressfamily(v=vs.110).aspx
Imports System.Net
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim HostName As String = Dns.GetHostName()
TextBox1.Text = “ホスト名:” & HostName
Dim HostIP() As IPAddress
HostIP = Dns.GetHostEntry(HostName).AddressList
For idx As Integer = 0 To HostIP.Length – 1
If HostIP(idx).AddressFamily = Net.Sockets.AddressFamily.InterNetwork Then
TextBox2.Text = “IPアドレス:” & HostIP(idx).ToString
End If
Next
End Sub