Dim QuestStruct As QOCINFO
  Dim lReturn As Long
Dim IP As String
IP = txt_IP.Text
Dim Ping As Integer
Dim Counter As Integer
  ' Größe der Struktur
  QuestStruct.dwSize = Len(QuestStruct)
 
  ' Prüfen, ob Ziel erreichbar
  lReturn = IsDestinationReachable(IP, QuestStruct)
 
  ' Antwort auswerten
  If lReturn = 1 Then
    ' Antwort bekommen
    Ping = True
    Counter = 0
    List_Result.AddItem "Ziel erreichbar - " & txt_IP.Text & " - " & Format$( _
      Now)
    List_Result.BackColor = &HC8F0CC
 
  End If
 
    ' keine Antwort
  If lReturn = 0 Then
  Ping = False
    List_Result.AddItem "Ziel Offline - " & Format$(Now)
    List_Result.BackColor = &HD8D3ED
    Counter = Counter + 1
  End If
 
  If List_Result.ListCount >= 25 Then
    List_Result.Clear
    End If
 
  If Counter > 3 Then
   Dim F As Integer
 
    F = FreeFile
    Open App.Path & "\dat\" & Format$(Now, "dd.mm.yyyy") & ".dat" For Append As _
      #F
    Print #F, Format$(Now)
    Close #F
  End If

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)