Moin,
folgender Code:
cTempS ist ein Temperatursensor. Läuft auch alles gut. Allerdings kommt meine Schleife nicht durch und die "2" wird niemals geprintet.
Ich bekomme bei der ping device Abfrage bei fehlerhaftem Host einen Error, den ich aber mit Try Catch Abfange:
Das Array enthält 2 Elemente. Was übersehe ich ? Bin ich blind? Ist doch nur eine einfache Schelife
folgender Code:
VB.NET-Quellcode
- Private Sub Temp_Work()
- Debug.WriteLine("1")
- For i = 0 To arrTemp.Count - 1 Step 1
- Dim ts As cTempS = arrTemp(i)
- 'IP von Hostname
- If vblen.netwrk.Ping_Device(ts.hostname, 500) = True Then
- Try
- ts.ip = Dns.GetHostAddresses(ts.hostname)(0).ToString
- Catch
- End Try
- Else
- ts.errorstate = "Can't get IP from Hostname"
- End If
- If ts.ip.Length > 0 Then
- Dim regpat As String = "\b(0*(25[0-5]|2[0-4]\d|[01]?\d\d?)\.){3}(0*(25[0-5]|2[0-4]\d|[01]?\d\d?))\b"
- Dim rgx As New Regex(regpat)
- If rgx.IsMatch(ts.ip) Then
- ts = Get_SensVal(ts)
- Else
- ts.errorstate = "IP Adresse ungültig"
- End If
- End If
- Next
- Debug.WriteLine("2")
- Debug.WriteLine("hier")
- End Sub
cTempS ist ein Temperatursensor. Läuft auch alles gut. Allerdings kommt meine Schleife nicht durch und die "2" wird niemals geprintet.
Ich bekomme bei der ping device Abfrage bei fehlerhaftem Host einen Error, den ich aber mit Try Catch Abfange:
VB.NET-Quellcode
- ''' <summary>
- ''' Prüft, ob ein Gerät pingbar ist.
- ''' </summary>
- ''' <param name="IP">IP des Gerätes.</param>
- ''' <param name="timeout">Zeitabstand(in ms), den das Gerät zum Antworten auf den Ping hat.</param>
- ''' <returns></returns>
- Public Shared Function Ping_Device(ByVal IP As String, ByVal timeout As Integer) As Boolean
- Dim blnResult As Boolean = False
- Try
- If IP IsNot Nothing AndAlso IP IsNot "" Then
- If IP AndAlso My.Computer.Network.Ping(IP, timeout) Then
- blnResult = True
- End If
- End If
- Catch x As IOException
- debug.writeline(x.Message)
- End Try
- Return blnResult
- End Function
Das Array enthält 2 Elemente. Was übersehe ich ? Bin ich blind? Ist doch nur eine einfache Schelife
~Wir leben zwar alle unter dem gleichen Himmel, aber es haben nicht alle den gleichen Horizont~