我写了一个很简单的聊天工具
但是在客户器端的代码编写上有一点问题```
麻烦看一下
Option Explicit
Private Sub cmdConnect_Click() Dim host As String host = Text3.Text tcpClient.RemoteHost = host tcpClient.Connect End Sub
Private Sub Command1_Click() TextSend.Text = "" End Sub
Private Sub Command2_Click() TextOutPut.Text = "" End Sub
Private Sub tcpClient_Close() tcpClient.Close End Sub
Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long) Dim strData As String
tcpClient.GetData strData
TextOutPut.Text = strData
End Sub
Private Sub TextSend_Change() tcpClient.SendData TextSend.Text End Sub
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
'检查控件的State属性是否为关闭的。
'如果不是,在接受新的连接之前先关闭此连接。
If tcpServer.State <> sckClosed Then tcpServer.Close
'接受具有requestID参数的连接。
tcpServer.Accept requestID
End Sub
Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
'为进入的数据声明一个变量。
'调用GetData方法,并将数据赋予名为txtOutput的TextBox的Text属性。
Dim strData As String
tcpServer.GetData strData
TextOutPut.Text = strData
End Sub
Private Sub TextSendData_Change() '名为 txtSendData 的 TextBox 控件中包含要发送的数据。用户往文本框中
'键入数据时,使用 SendData 方法发送输入的字符串。
tcpServer.SendData TextSendData.Text
End Sub
Sub frmServer_UnLoad(Cancel As Integer)
tcpServer.Close
End Sub
其中TEXT3这个文本框用来输入服务器端的IP地址或计算机名,通过按cmdconnect按纽来实现
但是经常出错,是不是我的用发上有错误?