' Benötigte API-Deklaration
Private Declare Function IsDestinationReachable Lib _
  "Sensapi.dll" Alias "IsDestinationReachableA" _
  (ByVal lpszDestination As String, _
  lpQOCInfo As QOCINFO) As Long
 
Private Type QOCINFO
  dwSize As Long
  dwFlags As Long
  dwInSpeed As Long
  dwOutSpeed As Long
End Type
 
-------------------------------------------------------------------------------_
  ---------------
 Dim QuestStruct As QOCINFO
  Dim lReturn As Long
Dim IP As String
IP = txt_IP.Text
Dim Ping As Integer
Dim Counter As Boolean
  ' 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
    List_Result.AddItem "Ziel erreichbar - " & txt_IP.Text & " - " & Format$( _
      Now)
    List_Result.BackColor = &HC8F0CC
   Counter = False
  Else
    ' keine Antwort
    Ping = False
    List_Result.AddItem "Ziel Offline - " & Format$(Now)
    List_Result.BackColor = &HD8D3ED
   Counter = True
  End If
 
  If List_Result.ListCount >= 25 Then
    List_Result.Clear
    End If
 
  If Counter = True 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)