学习TCPIP通讯，下面是服务端代码，想获取客户端IP地址，语句不知道怎么写，请教下老师。谢谢！
Public Sserver As System.Net.Sockets.Socket
Public Sub getData()
Dim ip As String = forms("窗口1").Controls("ip").text
Dim duankou As String = forms("窗口1").Controls("duankou").text
Sserver = New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
Dim LocalEndPoint As New System.Net.IPEndPoint(System.Net.IPAddress.Parse(ip), duankou)
Sserver.Bind(localEndPoint)
Sserver.Listen(1000)
Do While True
Dim newsocket As System.Net.Sockets.Socket = Sserver.Accept()
Dim bytes(1024) As Byte
Dim data As String = String.Empty
Dim bytesRec As Integer = newsocket.Receive(bytes)
data = Encoding.default.GetString(bytes, 0, bytesRec)
Forms("窗口1").Controls("neirong").text = data
Forms("窗口1").Controls("Label3").text = (newsocket.RemoteEndPoint As IPEndPoint).IPAddress.ToString() ----获取客户端IP地址
newsocket.Close()
Loop
End Sub
加好友 
发短信
Post By：2019/4/2 11:17:00 [只看该作者]
