近一个星期，我正在阅读，并试图找到一个解决方案，检查连接状态使用TCP客户端（使用套接字类）在我的场景中，我有一个TCP客户端连接到服务器（它不是由我控制），我希望不时地检查连接状态，并重新连接，如果必要的话。我已经阅读了大量的信息在互联网上，但我没有找到一个合适的解决方案。
简单地说，这些是我在互联网上找到并尝试实现的方法。但不幸的是，我发现了一些TCP服务器关闭而TCP客户端仍然显示已连接的场景
我可以请遇到过这个问题的人来帮助我吗？
1.示例来自MSDN

Private Function IsConnected(tcpSocket As Socket) As Boolean
    Dim blockingState As Boolean = tcpSocket.Blocking
    IsConnected = False
    Try
        Dim tmp(0) As Byte
        tcpSocket.Blocking = False
        tcpSocket.Send(tmp, 0, 0)
        Return True
    Catch e As SocketException
        If e.NativeErrorCode.Equals(10035) Then
            Return True
        Else : Return False
        End If
        ThrowError(e)
    Finally
        tcpSocket.Blocking = blockingState
    End Try
End Function

2.使用投票的示例

Function Connected() As Boolean
    Connected = False
    If (tcpSocket.Connected) Then
        If ((tcpSocket.Poll(0, SelectMode.SelectWrite)) AndAlso (Not tcpSocket.Poll(0, SelectMode.SelectError))) Then
            Dim b As Byte() = New Byte(1) {}
            If tcpSocket.Receive(b, SocketFlags.Peek) = 0 Then
                Return False
            Else : Return True
            End If
        Else
            Return False
        End If
    Else
        Return False

    End If
End Function

3.使用投票

Private Function Connect2() As Boolean
        Connect2 = False
        If tcpSocket.Poll(0, SelectMode.SelectRead) = True Then
            Dim byteArray As Byte() = New Byte(1) {}
            If (tcpSocket.Receive(byteArray, SocketFlags.Peek)) = 0 Then Connect2 = True
        End If
        Return Connect2()
End Function