vb winsock的问题,怎样让服务器端知道客户端的连接已经关闭,以便关闭服务器端对应连接!

Question

vb winsock的问题,怎样让服务器端知道客户端的连接已经关闭,以便关闭服务器端对应连接!
我采用以下方法,服务器端收不到字符串"Close_END",请各位指点.Private Sub cmdConnect_Click()
   Dim i As Long
   Dim str1 As String
   str1 = "Close_END"
   If tcpClient.State = 0 Then
     tcpClient.Connect
     cmdConnect.Caption = "断开"
   Else
     tcpClient.SendData str1
     cmdConnect.Caption = "连接"
     tcpClient.Close
   End If
End Sub
以下这个服务器端能正确收到"要发的数据".
Private Sub cmdSend_Click()
   Dim str1 As String
   str1="要发的数据"
   tcpClient.SendData str1
End Sub
在线等……

Answer 1

客户端的连接断开时，服务器端的Winsock会产生Close事件

Answer 2

这个要修改一下：
Private Sub cmdSend_Click()
   Dim str1 As String
   str1="要发的数据"
   If tcpClient.State = sckConnected Then
       tcpClient.SendData str1
   End If
End Sub

Answer 3

找到一个  
Private Sub lanServer_Close(Index As Integer)
lanServer(Index).Close
End Sub