منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > رسالة تحذير : كود لمعرفة ip الجهاز ؟
نسخة كاملة : رسالة تحذير : كود لمعرفة ip الجهاز ؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

a.amin

26-10-12, 03:58 AM
السلام عليكم ورحمة الله وبركاته

إستخدمت الكود التالى لمعرة اسم و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

فهل هناك ضرر من الكود السابق ؟؟؟

amgadtamer

26-10-12, 04:20 AM
GethostbyName تم إلغاؤها وتم إستخدام GetHostEntry
إليك هذه الدالة التى سوف تقوم بإرجاع رقم ال ipv4
PHP كود :
Function GetIpAddresss(ByVal hostname As String) As String
        Dim ip As String = Nothing
        Dim i As Integer
        For i = 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 

a.amin

26-10-12, 02:45 PM
amgadtamer كتب :GethostbyName تم إلغاؤها وتم إستخدام GetHostEntry
إليك هذه الدالة التى سوف تقوم بإرجاع رقم ال ipv4
PHP كود :
Function GetIpAddresss(ByVal hostname As String) As String
        Dim ip As String = Nothing
        Dim i As Integer
        For i = 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 داخل التكست بوكس - فهل من الممكن مساعدتى فى ذلك ؟

amgadtamer

26-10-12, 03:14 PM
تقوم باستدعاء الدالة وكتابة اسم الجهاز الذي تريد معرفة الايبي الخاص به
[HTML]
msgbox(getmyipaddresss("mypc")[/HTML]

a.amin

26-10-12, 03:32 PM
amgadtamer كتب :تقوم باستدعاء الدالة وكتابة اسم الجهاز الذي تريد معرفة الايبي الخاص به
[HTML]
msgbox(getmyipaddresss("mypc")[/HTML]

بارك الله فيك

تم التوصل للمطلوب

SaLoOoMX

26-10-12, 09:17 PM
استدعي المكتبه التاليه
Imports System.Net



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

        For Each Nm In Nhost.AddressList
            MsgBox(Nm.ToString)
        Next
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > رسالة تحذير : كود لمعرفة ip الجهاز ؟