Question

求大神指点 vb.net 的IPEndPoint 要怎么才能获取客户端的IP地址或者主机名字呀?

Dim sktServer As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)

sktServer.Bind(New Net.IPEndPoint(Net.IPAddress.Parse("182.130.181.237"), 741))
sktServer.Listen(200)
do
Using ss As Socket = sktServer.Accept()

ss.Receive(bytes)
End Using
Dim tu
Using s As New MemoryStream(bytes)
tu = Image.FromStream(s)
End Using
'求大神指点. 这里我要怎么才获取的到 发送端 也就是客户端的 IP地址或者主机名字呀?
loop

Answer 1

Dim strHostName As String        strHostName = Dns.GetHostName()        Dim ipEntry As IPHostEntry        ipEntry = Dns.GetHostEntry(strHostName)        Dim ip As String        ip = ipEntry.AddressList(0).ToString()