26-02-17, 04:53 PM
السلام عليكم
دائما مع برنامجي الذي في كل مرة اريد أن اتحفه بشيء جديد
اليوم انا محتاج لطريقة مضمونة لجلب الاي بي المحلي LOCAL IP ADDRESS الخاص بالكارت الذي يتم عن طريقه الاتصال بالنت
بحثت بالنت كثيرا و وجدت كالعادة عشرات الأكواد لكن كلها تخطئ في حالة وجود VPN بالكمبيوتر او في حالة وجود كروت شبكة وهمية أو كروت اضافية .
هذا الكود الذي وصلت اليه للفلترة لكنه لحد الساعة لا يزال يخطى الاي بي ببعض الحالات
دائما مع برنامجي الذي في كل مرة اريد أن اتحفه بشيء جديد
اليوم انا محتاج لطريقة مضمونة لجلب الاي بي المحلي LOCAL IP ADDRESS الخاص بالكارت الذي يتم عن طريقه الاتصال بالنت
بحثت بالنت كثيرا و وجدت كالعادة عشرات الأكواد لكن كلها تخطئ في حالة وجود VPN بالكمبيوتر او في حالة وجود كروت شبكة وهمية أو كروت اضافية .
هذا الكود الذي وصلت اليه للفلترة لكنه لحد الساعة لا يزال يخطى الاي بي ببعض الحالات
كود :
For Each nic As NetworkInterface In NetworkInterface.GetAllNetworkInterfaces()
Dim ipProps As IPInterfaceProperties = nic.GetIPProperties()
Dim strHostName As String
Dim strIPAddress As String
strHostName = System.Net.Dns.GetHostName()
strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()
Label3.Text = strIPAddress
Next