14.txt

来自「VB实用技巧124则之1-62则 为了使每包文件个数少于65(获得更快的解压速」· 文本 代码 · 共 24 行

WinSock断开导致客户端问题

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"