100急求Winsock UDP方式完整代码，目前的代码实现结果20分钟左右后服务上的Winsock收不到数据包，但可以发包出去

如题
服务器代码与客户端的代码一样，只是端口对换
If Winsock1.State <> "1" Then
        'Winsock1重新连接
        Winsock1.Close
        Winsock1.Protocol = sckUDPProtocol
        Winsock1.RemoteHost = "192.168.1.198"
        Winsock1.RemotePort = "5454"
        Winsock1.LocalPort = "4545"
        Winsock1.Bind
End If
环境为服务器，20个客户端
问题：服务器收不到客户端的数据，但是客户端
可以收到服务器的数据