关于Winsock的问题

Question

在客户端和服务器端建立连接以后，如果一端突然拔网线，另一端要过很长时间才能知道 这个时间如何控制或者能否实时知道对方的连接状态

Answer 1

会产生错误事件
Private Sub Winsockserver_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Winsockserver(Index).Close        '释放接连
    Unload Winsockserver(Index)       '删除控件
    winsockKJ(Index) = False          '连接置假
     CurNumber = CurNumber - 1        '连接数量减1
End Sub