ホスト名・IPアドレスを取得する@VB2005

最近地味にVB2005でプログラミングを学んでいます。ネットを見ながら自分のマシンに割り当てられたIPアドレスを取得しようと思ったんだけどなかなか上手くいかず・・・。

とりあえず先人の知恵をほぼパクり動くものが出来ました・・・と。

Module Module1

    Sub Main()
        'ホスト名を取得
        Dim strHostName As String = System.Net.Dns.GetHostName()

        Debug.WriteLine(vbCrLf & Now() & vbCrLf & strHostName)

        IPaddress(strHostName)
    End Sub

    Private Sub IPaddress(ByVal strHostName) 'IPアドレスを取得
        'IPHostEntryのインスタンスを作成
        Dim iphe As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strHostName)
        'IPアドレスのリストを取得し、はじめのIPアドレスを取得
        Dim hostadd As System.Net.IPAddress = iphe.AddressList(0)
        '文字列に変換
        Debug.WriteLine("IPアドレスは" & hostadd.ToString)
    End Sub

End Module

とりあえず割り当てられたIP毎に挙動が変わるアプリケーションを作成しようとしているんだけど、道のりは長そうです。

こちらのサイトを超愛読させていただいております。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です