تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] رسم بوصلة لمعرفة اتجاه القبلة ة farhat 6 157 منذ 1 ساعه مضت
آخر رد: farhat
  رسالة إيرور abdulla2 7 120 18-02-17, 11:20 PM
آخر رد: مساعدة
  رسالة لم تتم تهيئة خاصية ExecuteNonQuery عباسة 3 92 13-02-17, 10:14 AM
آخر رد: عباسة
  رسالة إيرور سانتكس abdulla2 11 194 13-02-17, 01:32 AM
آخر رد: tryold
  [سؤال] رسالة خطا نظهر اثناء الحقظ salah mansour 3 78 07-02-17, 04:26 AM
آخر رد: salah mansour
  [VB.NET] معني رسالة الخطأ يسرى7 10 377 16-01-17, 01:08 AM
آخر رد: يسرى7
  ياشباب ارجو المساعده رنامج لا جلب اي قاعده بيانات في الجهاز اكسس او اكسل وعرضها ammaraliali 5 168 15-01-17, 06:11 PM
آخر رد: khodor1985
  [VB.NET] رقم رسالة الخطا العواد الصغير 4 251 15-01-17, 01:51 AM
آخر رد: يسرى7
  رسالة خطأ محمد عبدو 1 86 13-01-17, 01:36 AM
آخر رد: مساعدة
  كيف يتم حل مشكلة ظهور رسالة عند الضغط علي هيد داتا جريد فيو السيد الجوهري 4 193 30-11-16, 10:08 PM
آخر رد: السيد الجوهري

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


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