事件回顾：客户端连接服务器 ，一段时间后会发生服务器“挂掉”的情况，为了找到原因，在调试模式下运行服务器，捕捉到了一下异常：
然后就发生了可怕的事情，如下图：
不断抛出此异常。。。
网上找了下解决方法：觉得比较靠谱的如下：
注意：C#命名空间在 system.Net.socket.socket.IOControl
可是我的是VB.NET写的，就将上面这段话改成了VB.NET语言：
注意：VB.NET命名空间是：System.Net.Sockets
Dim IOC_IN As Integer = &H80000000
Dim IOC_VENDOR As Integer = &H18000000
Dim SIO_UDP_CONNRESET As UInteger = IOC_IN Or IOC_VENDOR Or
handler.IOControl(Convert.ToInt32(SIO_UDP_CONNRESET), New Byte() {False}, Nothing)
注：上述方案是针对UDP协议，而我在程序中使用的是TCP协议，所以最终的解决方案是：
listener = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
listener.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.ReuseAddress, True)
允许套接字绑定在已使用的地址中。测试服务器不会当掉！
End
