获取传入客户端的 IP - TCP - VB.Net

Question

我正在尝试获取传入客户端连接请求的 IP：

1_ My computer scan all the IP in my network
2_ When it find a valid IP , it send to it a connection request 
3_ The destination computer will have to get the IP of the client that is sending a connection request and create a 
   New TcpListener(ClientTriyngToConnectIP,64535)

那么有办法获取尝试连接到我的计算机的客户端的 IP 吗？

Answer 1

最后我找到了一个解决方案：这可以在应用程序中实现，以获取另一台计算机的 IP 尝试通过 TCP 连接到您的计算机

初始化 tcp 监听器：

 Private InputClient As TcpClient
 Public ConnectionRequestListener As TcpListener

 Public sub Listener(IncomingPort as String)

 Dim IPv4_Address As String = ""

 For Each address In Dns.GetHostEntry(Dns.GetHostName()).AddressList
        If address.AddressFamily = AddressFamily.InterNetwork Then
            IPv4_Address &= address.ToString
            Exit For
        End If
 Next

    ConnectionRequestListener = New TcpListener(IPAddress.Parse(IPv4_Address), IncomingPort)
    ConnectionRequestListener.Start()

end sub

接受客户：

InputClient = ConnectionRequestListener.AcceptTcpClient()

获取客户端的IP：

IPAddress.Parse((CType(ConnectionRequestListener.RemoteEndpoint,IPEndPoint)).Address.ToString()).ToString