【】Top

【】VB.NET
【】VB6.0

【】メールマガジンの購読
【】メールマガジンの解除






【】会社概要

【】お問い合わせ


姉妹サイト「バーチャルコネクション!」はこちらです。

姉妹サイト「七福神のメールでビンゴ!」はこちらです。

アイネットマコト

●24時間365日の安心をあなたにAT-LINK専用サーバ・サービスお勧めのサーバです。






ホストのネットワーク情報を取得する

【注意書き】
●VB.NET を使っているものとします。
●動作環境は、Windows XX を使用しているとします。


.NET でも、ホスト名やIPアドレスを取得させることが可能です。

この機能を使えば、簡単に、
ネットワークを活用するアプリケーションなどで重要になる
IPアドレスなどの情報を取得させる
など簡単に作成できます。


フォームに次の様なコードを記述します


-----------VB.NETコーディングここから-------------------


1.フォームに、テキストボックスコントロール、
    ボタンコントロール
    を配置します。
    下記は、デフォルトのオブジェクトの名前と配置を示しています。

   ┏━━━━━━━━━━━┓
   ┃TextBox1              ┃
   ┗━━━━━━━━━━━┛
   ┏━━━━━━━━━━━┓
   ┃TextBox2              ┃
   ┗━━━━━━━━━━━┛
   ┏━━━━┓
   ┃Button1 ┃
   ┗━━━━┛



2.ボタンコントロールの
    Button1 text プロパティに「取得」と記述します。

  ※説明用のためです。必須ではありません。

   ┏━━━━━━━━━━━┓
   ┃TextBox1              ┃
   ┗━━━━━━━━━━━┛
   ┏━━━━━━━━━━━┓
   ┃TextBox2              ┃
   ┗━━━━━━━━━━━┛
   ┏━━━━┓
   ┃ 取 得  ┃
   ┗━━━━┛




3.ボタンコントロールをダブルクリックして、
    ボタンのクリックイベントの編集を開始して、
    フォームの宣言部に、次のコードを記述します。
    ※フォームクラス定義(Public Class Form1)より、
    上に記述してください。

    'インポート
    Imports System
    Imports System.Net

  さらに、次のコードを記述します。

    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click



        Dim ipHost As IPHostEntry
        Dim ipAdr As IPAddress

        ipHost = Dns.Resolve(Dns.GetHostName())

        For Each ipAdr In ipHost.AddressList

            TextBox1.Text = "ホスト名:" & _
            Dns.GetHostByAddress(ipAdr).HostName

            TextBox2.Text = "IPアドレス:" & ipAdr.ToString


        Next

    End Sub


4.ビルドして実行します。

5.フォームに表示された
    ボタン「取得」を押します。

6.テキストボックス(TextBox1)に
    「ホスト名:**** 」と表示されます

7.テキストボックス(TextBox2)に
    「IPアドレス:**** 」と表示されます




-----------VB.NETコーディングここまで-------------------

Dns クラス(System.Net名前空間)を使用して、
ネットワーク情報にアクセスしています。

IPアドレスからDNSを使用して名前解決を行っています。

また、本サンプルでは使用しておりませんが、

Dns.GetHostName()

のコードでも ホスト名の取得は可能です。






 

http://anetm.com/dev/d.cgi?SC=DTDTL&o=Oml

Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。

「これがほしかった!厳選サンプルツール集」の注意点
●当サイトはリンクフリーです。
2018/10/21(日)00:05 更新