+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : رسالة تحذير : كود لمعرفة ip الجهاز ؟ (/showthread.php?tid=6698)
رسالة تحذير : كود لمعرفة ip الجهاز ؟ - a.amin - 26-10-12
السلام عليكم ورحمة الله وبركاته
إستخدمت الكود التالى لمعرة اسم و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
فهل هناك ضرر من الكود السابق ؟؟؟
رسالة تحذير : كود لمعرفة ip الجهاز ؟ - amgadtamer - 26-10-12
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 الجهاز ؟ - a.amin - 26-10-12
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 داخل التكست بوكس - فهل من الممكن مساعدتى فى ذلك ؟
رسالة تحذير : كود لمعرفة ip الجهاز ؟ - amgadtamer - 26-10-12
تقوم باستدعاء الدالة وكتابة اسم الجهاز الذي تريد معرفة الايبي الخاص به
[HTML]
msgbox(getmyipaddresss("mypc")[/HTML]
رسالة تحذير : كود لمعرفة ip الجهاز ؟ - a.amin - 26-10-12
amgadtamer كتب :تقوم باستدعاء الدالة وكتابة اسم الجهاز الذي تريد معرفة الايبي الخاص به
[HTML]
msgbox(getmyipaddresss("mypc")[/HTML]
بارك الله فيك
تم التوصل للمطلوب
رسالة تحذير : كود لمعرفة ip الجهاز ؟ - SaLoOoMX - 26-10-12
استدعي المكتبه التاليه
Imports System.Net
كود :
Dim Nhost As IPHostEntry
Nhost = Dns.GetHostByName("")
For Each Nm In Nhost.AddressList
MsgBox(Nm.ToString)
Next