关于vb.net中socket编程实例：服务器端的一些问题

Socket类连接后 可以通过类中的 RemoteEndPoint 来获取远程IP和端口信息.
要注意的是.需要将它强制转化为 IPEndPoint类型 然后通过 IPEndPoint.Address以及IPEndPoint.Port来获取对应的IP及端口

例:
Dim REV_SCK As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
'这里创建一个UDP Socket连接的实例 TCP也是一样的

'省略SOCKET连接的代码 当SOCKET连接成功后 可以用下面的语句获取远程信息
Dim IP as string ,Port as integer
'定义IP和Port变量 用来保存地址及端口
IP = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Address.ToString())
Port = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Port)

Dim IpAddress() As System.Net.IPAddress = (System.Net.Dns.GetHostAddresses(System.Net.Dns.GetHostName))’返回本地主机的所有可用ip地址。
For Each Address In IpAddress‘遍历本地的所有可用ip地址。
If Address.AddressFamily = Net.Sockets.AddressFamily.InterNetwork Then
'能够进入这里，那么address为ip4地址。
End If
Next

你好，你可以下载一个IP下课，就可以了。

第三方了空间的老公凯立德减肥给