كيف اظهر IP المودم وليس iP الجهاز

هذا الكود يقوم بالاتصال بالموقع http://whatismyip.org/ للحصول على الأيبي الخارجي للجهاز/روتر :

	''' <summary>
	''' تقوم بالاتصال بموقع خارجي للحصول على الأيبي الخارجي للجهاز أو الروتر
	''' </summary>
	''' <returns>ترجع الأيبي الخارجي للروتر المتصل بالأنترنت</returns>
	Private Function GetMyExternalIP() As System.Net.IPAddress
		' ربط الإتصال بالموقع الخارجي الذي سيرسل لنا الأيبي الخارجي
		Dim wq As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://whatismyip.org/")
		' الحصول على جواب
		Dim wr As System.Net.HttpWebResponse = wq.GetResponse()
		' قراءة المحتوى المرسول من الموقع الخارجي ألا وهو الأيبي بصيغة نصية بسيطة
		Dim sr As New System.IO.StreamReader(wr.GetResponseStream(), System.Text.Encoding.UTF8)
		' إنشاء كائن يمثل الأيبي المحصل عليه
		Dim ipa As System.Net.IPAddress = System.Net.IPAddress.Parse(sr.ReadToEnd)
		' تحرير موارد النظام
		sr.Close()
		sr.Close()
		' إرجاع الأيبي الخارجي للجهاز و الروتر
		return ipa
	End Function

لاستعمال الدالة GetMyExternalIP() :

TextBox1.Text = GetMyExternalIP().ToString()

بالتوفيق :)

شكرا على ردك بس

ما اشتغل معي الكود والاهم من ذاك اظن انها مش عمليه لاني باكون مقيد بالموقع اذا وقف الموقع او تم حظره بيوقف البرنامج كامل

على العموم الف شغل