用winscok1.close关闭端口后，无法进行第二次连接.txt

VB技巧问答10000例 VB技巧问答10000例

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" 
<END>