远程主机强迫关闭了一个现有的连接 VB

场景：vb.net通信中出现“远程主机强迫关闭了一个现有的连接”解决思路

vb.net通信中出现“远程主机强迫关闭了一个现有的连接”
有一个与终端无线模块实时通信的软件，在我电脑上运行时在会出现上述问题（运行多长时间没有规律），在另一台电脑上就没出现上述问题，问题都在socket发送时

------解决方案--------------------

VB.NET code

Private Sub SendData(ByVal data() As Byte, ByVal hostip As IPAddress, ByVal port As Integer)
        Dim sk As Socket
        Dim ipep As New IPEndPoint(hostip, port)        
        sk = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        Try
            sk.Connect(ipep)
            If sk.Connected Then
                sk.Send(data)
            End If
        Catch ex As SocketException
            msgbox(ex.Message)
        Finally
            sk.Shutdown(SocketShutdown.Both)
            sk.Close()
        End Try
    End Sub

远程主机强迫关闭了一个现有的连接 VB

相关推荐