这个问题是由于你在Client端断开连接造成的,这样你必须退出你的应用重新进入才能连接。解决方法是不要在 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"
Client连接Server端时,只需指出Server端的IP Address和Port Number,而自己的Port Number应该设为0,让系统自己找一个合适的端口。
服务端的数据接受过程:
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"
客户端不设localport,让电脑自己随机就好使了