IPアドレスの取得


VB Tips And Sample(HOME)(VB.NET Sample インデックス)



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


©  2004 I Love Balard. All Rights Reserved.