VB.NETTCP多客户端编程VIP专享VIP免费

'使用到TcpListen 类 Imports System.Net.Sockets '使用到StreamWriter 类 Imports System.IO '使用IPAddress 类、IPHostEntry类等 Imports System.Net Public Class MyClient Implements IDisposable #Region "自定义变量" '远程服务器 IP 地址 Private ServerIP As IPAddress '远程服务器端口号码 Private PortNum As Integer = 0 '创建发送数据的网络基础数据流 Private SocketStream As NetworkStream '用以向网络基础数据流传送数据 Private Writer As BinaryWriter '用以向网络基础数据流获得数据 Private Reader As BinaryReader '定义一个客户端对象 Private Client As TcpClient '客户名称 Private clientName As String '执行状态消息以显示于窗体 Public Event OnText(ByVal msg As String) '与远程服务器是否连接 Public IsConnected As Boolean #End Region #Region "初始化远程服务器端口" '''

''' 初始化远程服务器端口定义 '''

Sub New(ByVal SerIP As IPAddress, ByVal Port As Integer, ByVal Tag As String) ServerIP = SerIP PortNum = Port clientName = Tag End Sub '''

''' 初始化远程服务器端口定义 '''

Sub New(ByVal SerIP As String, ByVal Port As Integer, ByVal Tag As String) ServerIP = IPAddress.Parse(SerIP) PortNum = Port clientName = Tag End Sub #End Region #Region "自定义过程" '''

''' 与远程服务器建立一个连接 '''

Public Sub Connet() ' 初始化一个客户端对象，通过它实现向远程主机提出TCP 连接申请 Client = New TcpClient Try '对远程主机的5000 端口提出TCP 连接申请 Client.Connect(ServerIP, 5000) '通过申请，并获取传送数据的网络基础数据流 SocketStream = Client.GetStream '使用获取的网络基础数据流来初始化StreamReader 实例 Reader = New BinaryReader(SocketStream) '使用获取的网络基础数据流来初始化StreamWriter 实例 Writer = New BinaryWriter(SocketStream) '提醒服务器用户连接已经成功。 Writer.Write(clientName & " - 连接成功" & vbCrLf) IsConnected = True RaiseEvent OnText("服务器连接成功") ...