تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
رسالة تحذير : كود لمعرفة ip الجهاز ؟
#1
السلام عليكم ورحمة الله وبركاته

إستخدمت الكود التالى لمعرة اسم وip الجهاز

كود :
Dim strHostName As String = System.Net.Dns.GetHostName()
        Dim strIPAddress = Dns.GetHostByName(strHostName).AddressList(0).ToString()

وهو يعمل بشكل سليم ويسجل ip بالصيغة المعروفة IPV4 ولكن يظهر هذا التحذير بخصوص هذا الجزء

[HTML]Dns.GetHostByName[/HTML]

[HTML]Warning 2 'Public Shared Function GetHostByName(hostName As String) As System.Net.IPHostEntry' is obsolete: 'GetHostByName is obsoleted for this type, please use GetHostEntry instead. http://go.microsoft.com/fwlink/?linkid=14202'. H:\Work\Emplo_Sayadla_2012\Sayadla\add_dep.vb 63 28 Sayadla
[/HTML]

وعندما استبدلت GetHostByName بعبارة GetHostEntry وجدت الذى تم تخزينة فى قاعدة البيانات ليس الـ ip وانما fe80::4d:17ac:3f57:f

فهل هناك ضرر من الكود السابق ؟؟؟
الرد }}}
تم الشكر بواسطة:
#2
GethostbyName تم إلغاؤها وتم إستخدام GetHostEntry
إليك هذه الدالة التى سوف تقوم بإرجاع رقم ال ipv4
PHP كود :
Function GetIpAddresss(ByVal hostname As String) As String
        Dim ip 
As String Nothing
        Dim i 
As Integer
        
For 0 To Dns.GetHostEntry(hostname).AddressList.Length 1
            
If Dns.GetHostEntry(hostname).AddressList(i).IsIPv6LinkLocal False Then
                ip 
Dns.GetHostEntry(hostname).AddressList(i).ToString()
            
End If
        
Next
        
Return ip
    End 
Function 
الرد }}}
تم الشكر بواسطة: سعود , سعود
#3
amgadtamer كتب :GethostbyName تم إلغاؤها وتم إستخدام GetHostEntry
إليك هذه الدالة التى سوف تقوم بإرجاع رقم ال ipv4
PHP كود :
Function GetIpAddresss(ByVal hostname As String) As String
        Dim ip 
As String Nothing
        Dim i 
As Integer
        
For 0 To Dns.GetHostEntry(hostname).AddressList.Length 1
            
If Dns.GetHostEntry(hostname).AddressList(i).IsIPv6LinkLocal False Then
                ip 
Dns.GetHostEntry(hostname).AddressList(i).ToString()
            
End If
        
Next
        
Return ip
    End 
Function 

اشكرك أخى امجد

ولكنت معلش إستحمل كثرة أسئلتى وسوء فهمى

انا دلوقتى قمت بوضع الدالة فى المشروع طيب اريد وضع IP فى تكست بوكس وجربت انى استدعى الدالة GetIpAddresss بيظهر لى خطأ

كذلك قمت داخل الدالة بوضع هذا الجزء TextBox1.Text = ip ولم تظهر قيمة الـ ip داخل التكست بوكس - فهل من الممكن مساعدتى فى ذلك ؟
الرد }}}
تم الشكر بواسطة:
#4
تقوم باستدعاء الدالة وكتابة اسم الجهاز الذي تريد معرفة الايبي الخاص به
[HTML]
msgbox(getmyipaddresss("mypc")[/HTML]
الرد }}}
تم الشكر بواسطة:
#5
amgadtamer كتب :تقوم باستدعاء الدالة وكتابة اسم الجهاز الذي تريد معرفة الايبي الخاص به
[HTML]
msgbox(getmyipaddresss("mypc")[/HTML]

بارك الله فيك

تم التوصل للمطلوب
الرد }}}
تم الشكر بواسطة:
#6
استدعي المكتبه التاليه
Imports System.Net



كود :
Dim Nhost As IPHostEntry
        Nhost = Dns.GetHostByName("")

        For Each Nm In Nhost.AddressList
            MsgBox(Nm.ToString)
        Next
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 1 309 21-02-24, 11:44 PM
آخر رد: AHMED213
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 7 676 12-01-24, 07:31 PM
آخر رد: Kamil
  [VB.NET] ارسال رسالة واتساب h2551996 0 187 07-01-24, 12:17 PM
آخر رد: h2551996
  غير مسجل على الجهاز المحلي 'Microsoft.ace.oledb.12.0' ان الموفر Adel27213 2 380 30-11-23, 09:19 PM
آخر رد: Adel27213
Photo [سؤال] ظور رسالة خطأ عند تحميل قاعدة بيانات تحتوي على صور أبو خالد الشكري 4 396 11-09-23, 09:51 PM
آخر رد: أبو خالد الشكري
  رسالة خطأ ،، احتاج مساعدتكم assuhimi 2 473 21-05-23, 02:47 PM
آخر رد: assuhimi
  [سؤال] رسالة تظهر لى كلما قمت بتشغيل مشروع dr.programming 3 422 19-05-23, 06:21 PM
آخر رد: dr.programming
Exclamation [VB.NET] رسالة خطـأ لم أفهم معناها ، وحل مشكلتها ! أبو خالد الشكري 2 432 18-05-23, 12:05 AM
آخر رد: أبو خالد الشكري
  [VB.NET] رسالة خطأ IsMdiContainer ahmed_king2023 5 584 01-05-23, 12:45 PM
آخر رد: Dedda
  كيفية الوصول الى القرص الصلب في الجهاز الخادم ابو محمد محمد محمد 0 401 20-04-23, 03:41 AM
آخر رد: ابو محمد محمد محمد

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم