عرض مشاركة واحدة
  #1  
قديم 05-19-2019, 08:31 AM
 
[VB.Net] الحصول على IP Address واسم الجهاز بشكل بسيط جدا ^^^

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



المثال بسيط جدا وسوف نستخدم 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
ثم تجربة البرنامج
رد مع اقتباس