作者：玉衡

‘获取本机IP
Dim hostName = Net.Dns.GetHostName()
Dim hostIp As Net.IPHostEntry
hostIp = Net.Dns.GetHostEntry(hostName)

Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Imports System.Text

‘**********************************************************************************************************
””” 类名：TCPServer
””” 说明：监听主线程，用于监听客户端联接，并记录客户端联接，接收和发送数据
””” 与客户端的联接采用TCP联接
‘**********************************************************************************************************

阅读更多