عيون العرب - ملتقى العالم العربي - [VB.Net] الحصول على IP Address واسم الجهاز بشكل بسيط جدا ^^^

بسم الله الرحمن الرحيم
مثال لكيفية الحصول على عنوان IP للجهاز

https://5.top4top.net/p_1234b6d881.jpg

المثال بسيط جدا وسوف نستخدم Namespace system.net

-نقوم بتنفيذ الفورم الذى بالشكل وذلك بإدراج زر ومربع نص و ListView و اتنين Lable
-فى البداية سنقوم باستدعاء namespace System ومنة system.net وذلك بكتابة الكود التالى فى التصريحات العامة
كود:

كود:

Imports System

Imports System.net

ثم الكود التالى فى Form Load

كود:

  Dim strHostName As String

        Dim ipHostEntryData As IPHostEntry

        Dim ipAddress As IPAddress

        strHostName = Dns.GetHostName

        ipHostEntryData = Dns.GetHostByName(strHostName)

        TextBox1.Text = strHostName

        For Each ipAddress In ipHostEntryData.AddressList

            ListBox1.Items.Add(ipAddress.ToString())

        Next

ثم تجربة البرنامج