سؤال: معرفة ال Ip الحقيقي على الشبكة

لا يوجد حل

لا يوجد حل

و عليكم السلام و رحمة الله و بركاته

أضف NATUPNPLib إلى برنامجك حسب الصورة المرفقة ثم استخدم هذا الكود

Imports NATUPNPLib
Public Class Form1
	Dim cRouter As New NATUPNPLib.UPnPNAT
	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Label1.Text = GetExternalIP()
	End Sub
	Public Function GetExternalIP() As String
		Dim lMapper = cRouter.StaticPortMappingCollection
		Dim lMappedPort As NATUPNPLib.IStaticPortMapping
		Dim lExtIP As String

		If Not lMapper Is Nothing Then
			For Each lMappedPort In lMapper
				lExtIP = lMappedPort.ExternalIPAddress().ToString
				Exit For
			Next
			GetExternalIP = lExtIP
		Else
			GetExternalIP = "<Unable to resolve external IP>"
		End If
	End Function
End Class

المثال مرفق

و بالتوفيق

Get_External_IP.rar