vb.net2005 tcp聊天程序问题

来源：百度知道 编辑：UC知道 时间：2024/06/11 16:36:01
我做个TCP聊天程序,总是出问题,而且还有部分未完成,麻烦高手看一下.
'服务端代码
Imports System.Text
Imports System.IO
Imports System.Net
Imports System.Net.Sockets

Public Class Form1
Dim server As TcpListener
Dim socketforclient As Socket
Dim sb As New StringBuilder
Dim msgcount As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
'开始侦听
Try

Dim ip As IPAddress = IPAddress.Parse(System.Net.Dns.GetHostEntry(My.Computer.Name).AddressList.GetValue(0).ToString)

server = New TcpListener(ip, 2581)
server.Start()
ListBox1.Items.Add("开始等候回应")
BackgroundWorker1.RunWorkerAsync()
Catch ex As Exception
ListBox

‘客户端向这样写：在窗体说放两个文本框、两个标签、两个按钮、一个列表框
Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports System.Threading

Public Class Form1
'网络基础数据流
Private ns As NetworkStream
Private swriter As StreamWriter
Private nsread As StreamReader
Private tcpclient As TcpClient
Private tcpconnected As Boolean = False
Private clisocket As Socket
Private mythread As Thread

'发送
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Me.TextBox2.Text <> "" Then
swriter.WriteLine(Me.TextBox2.Text)
swriter.Flush()
Me.TextBox2.Text = ""

Else
MessageBox.Show("发送信息不能为空！", "错误提示")
End If

End Sub
Protected Overloads Overrides Sub