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"