help：winsock控件 10054错误

Question

'接收端
Option ExplicitPrivate Sub Form_Load()    With wskServer
        .Protocol = sckUDPProtocol
        .LocalPort = "1111"
        .Bind
    End WithEnd SubPrivate Sub wskServer_DataArrival(ByVal bytesTotal As Long)    Dim strSay As String
    wskServer.GetData strSay
    MsgBox strSay
    
End Sub'发送端
Option ExplicitPrivate Sub cmdSendData_Click()    wskClient.SendData txtSendData.Text
    
End SubPrivate Sub Form_Load()    With txtSendData
        .MaxLength = 255
        .Text = "This is a test!"
    End With
    With wskClient
        .Protocol = sckUDPProtocol
        .RemoteHost = "61.176.37.138"
        .RemotePort = "1111"
        .Bind
    End With
    
End Sub