Private Sub Command1_Click()
On Error GoTo errtext
   Winsock1.SendData Trim(Text1) '向客户端发送信息
   Exit Sub
errtext:
MsgBox Err.Description + "错误"

End Sub

Private Sub Form_Load()
With Winsock1
.RemoteHost = "169.254.176.238" '要连接到的计算机ip地址
.RemotePort = 5005 '要连接到的端口号
.LocalPort = 5100 '该winsock控制将要使用的本地端口号,便于其他端口与该winsock通讯
.Bind 5100 '将该winsock控制绑定到该本地端口
End With
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
Winsock1.GetData strdata, vbString '将客户端发来的信息寸入变量VBstring.
Text2 = strdata

End Sub

这是服务器的代码.
------------------------------------------------------------
Private Sub Command1_Click()
On Error GoTo errtext
Winsock1.SendData Trim(Text1) '将text1中的数据发送到指定主机的指定端口
Exit Sub
errtext:
 MsgBox Err.Description + "错误"
 
 
End Sub

Private Sub Form_Load()
With Winsock1
.RemoteHost = "169.254.176.238" '要连接到的服务器的IP地址
.RemotePort = 5001 '要连接的端口号
.LocalPort = 5000 '该winsock控制将使用的本地端口号，便于其他方与之通讯
.Bind 5000
End With

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
Winsock1.GetData strdata, vbString '将服务器传回的数据放入vbstring
Text2 = strdata

End Sub

这是客户端的代码.

我运行了在客户端中输入东西然后点发送 程序提示错误 然后自动关闭客户端了 .
怎么回事阿？我郁闷

咋两边都是Bind……
也没谁主动发起连接

这段代码我照书打的  就是这样 一点都没错阿
你能帮我改一下吗