WinSock断开导致客户端问题

mwysjq

Client断开连接后再与Server连接就连接不上，必须退出应用重新进入才能连
接， 解决是不要在 Client 端使用 Close 方法, 而在服务端使用。

服务端的数据接受过程：
Sub Server_DataArrival(ByVal bytesTotal as Long)
Dim vbStr as String
Server.GetData DataReceived, vbStr
if Cstr(DataReceived)= "QUIT" then
server.close
server.LocalPort = 1111
server.Listen
end if
。。。。。
End Sub

客户端关闭时：
Client.SendData "QUIT"