Testen ob ein Host existiert (ist einer Connected?)

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von BigBen2003.

    Testen ob ein Host existiert (ist einer Connected?)

    Hallo,

    habe im vb-Code eine Function, mit der getestet wird, ob ein Host existiert oder nicht:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Function CheckOnline_intern(hostname As String, timeout As Integer) As PingReply
    2. Try
    3. Dim pingSender = New Ping
    4. Dim Options As PingOptions = New PingOptions With {
    5. .DontFragment = True
    6. }
    7. Dim data As String = New String("a"c, 32) ' Strings.StrDup(32, "a") '"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
    8. Dim buffer() As Byte = System.Text.Encoding.ASCII.GetBytes(data)
    10. Dim reply As PingReply = pingSender.Send(hostname, timeout, buffer, Options)
    11. Return reply
    12. Catch ex As ArgumentException
    13. Return Nothing
    14. Catch ex As InvalidOperationException
    15. Return Nothing
    16. Catch ex As NotSupportedException
    17. Return Nothing
    18. End Try
    19. End Function



    Leider wirft der Befehl

    VB.NET-Quellcode

    1. pingSender.Send
    eine Exception, wenn ein Host nicht vorhanden ist.

    Klar, die Exceptions werden von Try-Catch abgefangen.

    Hier stellt sich die Frage, ob es auch eine Methode gibt, in der keine Exception geworfen wird, sondern einfach nur den Wert "Nothing" zurück gibt, wenn ein Host nicht existiert.

    Hintergrund: In Visual Studio kann man einstellen, dass die Ausführung beim Auftreten von diversen Fehlern angehalten wird, oder nicht.

    Diese Einstellung kann scheinbar nur Projektweit festgelegt werden, und nicht für eine Sub, Function oder Property deaktiviert werden.

    Oder irre ich mich da?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „BigBen2003“ ()

    Probier des mal:

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Public Function PingTest(ByVal _IP As String) As Boolean
    3. Dim ping As Net.NetworkInformation.Ping = New Net.NetworkInformation.Ping()
    4. Dim pingStatus As Net.NetworkInformation.PingReply = ping.Send(Net.IPAddress.Parse(_IP), 1000)
    5. If pingStatus.Status = System.Net.NetworkInformation.IPStatus.Success Then
    6. Return True
    7. Else
    8. Return False
    9. End If
    10. End Function

    @Morrison: Solche Konstrukte wie

    VB.NET-Quellcode

    1. If pingStatus.Status = System.Net.NetworkInformation.IPStatus.Success Then
    2. Return True
    3. Else
    4. Return False
    5. End If
    können immer zu dem hier gemacht werden:

    VB.NET-Quellcode

    1. Return pingStatus.Status = System.Net.NetworkInformation.IPStatus.Success
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

Facebook
Telefonspende