Imports System
Imports System.Net
Public Class Form1
Inherits System.Windows.Forms.Form
＃＃Windowsフォームデザイナで生成されたコード
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
’IPアドレスを取得する
'Dns.Resolve DNSホスト名(IP アドレス)を IPHostEntry インスタンスに変換します。
'IPHostEntry インターネットホストアドレス情報のコンテナクラス。
'Dim ipHostInfo As IPHostEntry = Dns.Resolve(Dns.GetHostName())
Dim strip As String
Dim iphi As IPHostEntry = Dns.Resolve(Dns.GetHostName)
Dim ipad As IPAddress '(IP: Internet Protocol) アドレスを提供。
For Each ipad In iphi.AddressList
'クラスのアドレスリストのアドレスを参照する
'Ipアドレスを出力
Debug.WriteLine(ipad.ToString())
strip = ipad.ToString()
'ホスト名を出力
Debug.WriteLine(Dns.GetHostByAddress(ipad).HostName)
Next
'IPアドレスを出力
TextBox1.Text = strip
End Sub
End Class
|