Socket Timeout

[sv00010]

Ich benutze ein Socket um zu überprüfen, ob der Remote-Rechner überhaupt vorhanden ist.
Allerdings möchte ich gerne den Timeout setzen, damit es nicht jedes mal ca. 20 Sekunden dauert, wenn der Remote-Rechner nicht vorhanden ist.
Allerdings weiß ich jetzt nicht weiter.

Sub TestRemoteIP()
        Dim IPBytes() As Byte = {192, 168, 1,2}
        Dim IPAdresse As New System.Net.IPAddress(IPBytes)
        Dim remoteEP As New System.Net.IPEndPoint(IPAdresse, 80)
        Dim Tmp As New System.Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork,Net.Sockets.SocketType.Stream,Net.Sockets.ProtocolType.Tcp)
        

        Try
            Tmp.Connect(remoteEP)
        Catch
            Dim Breakpoint As Integer = 0
        End Try


        Try
            Tmp.Close
        Catch
            Dim Breakpoint As Integer = 0
        End Try

    End Sub

[Christian Marquardt]

http://msdn.microsoft.com/en-us/libr...t_members.aspx

[Ralf Jansen]

Der Connect Timeout ist nicht so ohne weiteres änderbar. Ist so weit ich weiß auch kein spezielles .NET Problem sondern ein grundsätzliches Windows Problem.

Für einen Weg einen kürzen Timeout zu ~simulieren~ siehe http://splinter.com.au/blog/?p=28