เราไปเจอโค้ดจากเว็ปนึงมา
http://www.codeproject.com/Articles/15790/IP-and-Port-from-TcpClient
ซึ่งคาดว่าน่าจะไช้ได้ แต่ประเด็นคือไช้ไม่เป็นอะคะ พอดีเป็นมือไหม่

โค้ดนี้ เป็นประเภทคลาส โดยมีตัวแปรไห้ไส่ ip port ของเรา (ในตัวอย่าง 127.0.0.1:999) เพื่อรับค่า Ipclient ทั้งหมดที่กำลัง connect มาที่เครื่องเราซึ่งเป็น Host 127.0.0.1:999 (น่าจะเป็นอย่างงั้น)
ฟังชั่นสำคัญคือ AddressInfoFromTCPClient() แต่ประเด็นคือจะประกาศไช้ยังไง ต้องไส่อะไรในวงเล็ปอะคะ

ขอบคุณคะ

โค้ด
[Spoil] คลิกเพื่อดูข้อความที่ซ่อนไว้Imports System.Net
Imports System.Net.Sockets
Imports System.Reflection

Public Class winTCPIPUtils

Public Class AddressInfo


Private m_IP As String
Private m_Port As String


Public Sub New()
m_IP = "127.0.0.1"
m_Port = "999"
End Sub

Public Sub New(ByVal theIP As String, ByVal thePort As String)
m_IP = theIP
m_Port = thePort
End Sub

Public Property IP() As String
Get
Return m_IP
End Get
Set(ByVal Value As String)
m_IP = Value
End Set
End Property

Public Property Port() As String
Get
Return m_Port
End Get
Set(ByVal Value As String)
m_Port = Value
End Set
End Property


End Class


Public Shared Function AddressInfoFromTCPClient(ByVal theClient As TcpClient) As AddressInfo
Dim pi As PropertyInfo = theClient.GetStream.GetType.GetProperty("Socket", BindingFlags.NonPublic Or BindingFlags.Instance)
Dim theSocket As Socket = pi.GetValue(theClient.GetStream, Nothing)
Dim theEnd As EndPoint = theSocket.RemoteEndPoint
Dim theAddress() As String = theEnd.ToString.Split(":")
Dim theInfo As New AddressInfo(theAddress(0), theAddress(1))

Return theInfo
End Function
End Class