Hallo,
ich hatte es jetzt schon häufiger, dass ich bei euch Codes gefunden habe, welche kürzer sind und das gleiche tun, wie eine lange Version eines Codes.
Nun ist die Frage, ob man dies auch für den folgenden Ping-Code machen kann!?
Es sind ca 20 IP´s gegeben, welche nacheinander gepingt werden sollen. Sobald eine erreichbar ist, dann soll diese IP verwendet werden (aktuell in meinem Code einfach erst einmal in ein Label übertragen werden).
Die restlichen IP´s müssen nicht mehr gepingt werden, da schon eine gefunden wurde, welche erreichbar ist.
ich hatte es jetzt schon häufiger, dass ich bei euch Codes gefunden habe, welche kürzer sind und das gleiche tun, wie eine lange Version eines Codes.
Nun ist die Frage, ob man dies auch für den folgenden Ping-Code machen kann!?
Es sind ca 20 IP´s gegeben, welche nacheinander gepingt werden sollen. Sobald eine erreichbar ist, dann soll diese IP verwendet werden (aktuell in meinem Code einfach erst einmal in ein Label übertragen werden).
Die restlichen IP´s müssen nicht mehr gepingt werden, da schon eine gefunden wurde, welche erreichbar ist.
VB.NET-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim A1 As String
- A1 = "192.168.1.1"
- Dim A2 As String
- A2 = "192.168.1.3"
- Dim A3 As String
- A3 = "192.168.1.11"
- '.
- '.weitere ca. 20 IP´s
- '.
- If My.Computer.Network.Ping(A1) Then
- Label1.Text = "Die IP : " & A1 & "ist erreichbar"
- ElseIf My.Computer.Network.Ping(A2) Then
- Label1.Text = "Die IP : " & A2 & "ist erreichbar"
- ElseIf My.Computer.Network.Ping(A3) Then
- Label1.Text = "Die IP : " & A3 & "ist erreichbar"
- '.
- '.weitere ca. 20 IP´s
- '.
- Else
- Label1.Text = "nichts erreichbar"
- End If
- End Sub