10054错误怎么解决？

Question

如题

Answer 1

on error resume next
贴代码

Answer 2

这是个简单聊天程序：
Private Sub Command1_Click()
  sockB.SendData txt1.Text '发送文本
End Sub    Private Sub Form_Load()
     With sockB
     .RemoteHost = "192.168.0.42" '要连接到计算机的IP地址
     .RemotePort = 1011 '要连接到的端口号
     .LocalPort = 1010 '该Winsock控制将使用的本地端口号，便于其它方与之通讯
     .Bind 1010 '将该Winsock控制绑定到该本地端口
     End With
    End Sub    Private Sub udpPeerB_DataArrival(ByVal bytesTotal As Long)
     Dim strData As String
     udpPeerB.GetData strData, vbString
    txt2.Text = strData
    End Sub
这个是客机端。

Answer 3

这是客户端把
去掉这句     .Bind 1010 '将该Winsock控制绑定到该本地端口