ホスト名・IPアドレスを取得する@VB2005
最近地味にVB2005でプログラミングを学んでいます。ネットを見ながら自分のマシンに割り当てられたＩＰアドレスを取得しようと思ったんだけどなかなか上手くいかず・・・。
とりあえず先人の知恵をほぼパクり動くものが出来ました・・・と。
Module Module1Sub Main()
'ホスト名を取得
Dim strHostName As String = System.Net.Dns.GetHostName()Debug.WriteLine(vbCrLf & Now() & vbCrLf & strHostName)
IPaddress(strHostName)
End SubPrivate 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 SubEnd Module
とりあえず割り当てられたＩＰ毎に挙動が変わるアプリケーションを作成しようとしているんだけど、道のりは長そうです。
こちらのサイトを超愛読させていただいております。
Popularity: 5%
トラックバック URI : http://pnpk.net/cms/archives/327/trackback/
【関連記事】
