Public socket As MyClient
Public Class MyClient
Public receiveThread As System.Threading.Thread
Public nStream As System.Net.Sockets.NetworkStream
Public tcp As System.Net.Sockets.TcpClient
Public Sub New(ByVal ip As String, ByVal port As Integer)
Dim server As System.Net.IPAddress = System.Net.IPAddress.Parse(ip)
tcp = New System.Net.Sockets.TcpClient()
Try
tcp.Connect(ip, port)
Catch generatedExceptionName As Exception
tcp = Nothing
End Try
If tcp Is Nothing Then
MsgBox("无法连接服务器,请重试")
Else
Dim netStream As System.Net.Sockets.NetworkStream = tcp.GetStream()
nStream = netStream
receiveThread = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf ReceiveMsg))
receiveThread.IsBackground=True
receiveThread.Start()
msgbox("登录成功")
End If
End Sub
Private Sub ReceiveMsg()
While True
Dim packet As Byte() = New Byte(1024) {}
nStream.Read(packet, 0, packet.Length)
Dim str As String = Encoding.Default.GetString(packet)
Dim txt = forms("窗口1").Controls("TextBox2")
txt.Text &= iif(txt.text > "", vbcrlf, "") & str
End While
End Sub
End Class
以上是全局代码，单个连接没有问题，但是我现在要同时开四个连接，需要怎么写代码？
加好友 
发短信
Post By：2023/2/25 18:28:00 [只看该作者]
