专家坐堂-TCPIP通讯获取客户端IP地址Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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