TCP reset in VB script

[phoenixb]

Beste,

Momenteel ben ik aan het stoeien met een vb script die ik 1x goed kan gebruiken maar daarna problemen geeft.
Het gaat om het volgende.

Ik heb een vb script die ik 1x per 5 min. draai om over een tcp verbinding informatie naar binnen te halen hierin gebruik ik de volgende methode om de verbinding te openen:

Code: Select all

  Function Open_Telnet_Port() As TcpClient
        Try

            Dim sock As TcpClient
            sock = New TcpClient("192.168.10.124", 5513)
            sock.GetStream().ReadTimeout = 2500

            Return sock

        Catch ex As Exception
            hs.WriteLog("Weatherlink",ex.ToString())
            Return Nothing
        End Try
    End Function

Dit gaat inprincipe goed totdat ik de script voor een 2e keer wil draaien, dan maakt hij geen nieuwe verbinding meer naar die poort sterker nog het lijkt er op dat hij een verbinding open laat staan die hij niet opnieuw gebruikt totdat ik HS of (in dit geval) een weerstation software opnieuw opstart.

Nu is mijn vraag is er een methode om bij het afronden van een script alle openstaande verbindingen af te sluiten?
Ik hoor het graag.
mvg,

[AshaiRey]

Zet eens aan het einde een sock.Close()

Meer info hier
msdn.microsoft.com/en-us/library/system ... s.71).aspx