Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Ping senden und auswerten
zurück: Versionskontrolle in Access mit Subversion - Add-In weiter: Datenbank neu erstellen mit VBA Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Ludger
Access Hobbyist


Verfasst am:
12. Jan 2006, 00:25
Rufname:

Ping senden und auswerten - Ping senden und auswerten

Nach oben
       

Hallo,

ich habe seit längerem danach gesucht, wie sich ein ping senden und vor allen Dingen die Antwort dann auch auswerten lässt. Im vb-archiv bin ich fündig geworden.
Dort steht folgender Code:
Code:
Option Compare Database
Option Explicit

' 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

' Server anpingen und Reaktionszeit zurückgeben
Public Function Ping(ByVal sHost As String) As Single
    Dim QI As QOCINFO
    Dim vTime As Single
 
    QI.dwSize = Len(QI)
    vTime = Timer
    If IsDestinationReachable(sHost, QI) = 1 Then
        Ping = Timer - vTime
      Else
        Ping = -1
    End If
End Function

'Anwendung:
'Verwenden Sie im lokalen LAN für sHost immer den Rechnernamen:
Sub a()
    Dim nTime As Single
   
    nTime = Ping("\\rechnername")
    If nTime <> -1 Then
        MsgBox "Rechner erreichbar: Pingzeit: " & CStr(nTime) & " Sekunden"
      Else
        MsgBox "Rechner nicht erreichbar!"
    End If
End Sub

'Um die Reaktionszeit eines Webservers zu testen können Sie entweder die
'IP-Adresse des Servers oder den Hostnamen verwenden:
Sub b()
    Dim nTime As Single

    nTime = Ping("www.meineAdresse.de")
    If nTime <> -1 Then
        MsgBox "Server erreichbar: Pingzeit: " & CStr(nTime) & " Sekunden"
      Else
        MsgBox "Server nicht erreichbar!"
    End If
End Sub

'Oder...
Sub c()
    Dim nTime As Single
   
    nTime = Ping("217.160.105.148")
    If nTime <> -1 Then
        MsgBox "Server erreichbar: Pingzeit: " & CStr(nTime) & " Sekunden"
      Else
        MsgBox "Server nicht erreichbar!"
    End If
End Sub

Ludger
Willi Wipp
Moderator


Verfasst am:
12. Jan 2006, 11:10
Rufname:
Wohnort: Raum Wiesbaden

Re: Ping senden und auswerten - Re: Ping senden und auswerten

Nach oben
       

Hi Ludger,

schoenes Beispiel.
{Dieser Beitrag nimmt das Thema aus den unbeantworteten Themen heraus}

Nachfragen zum Thema bitte in Ping senden und auswerten {Nachgefragt} stellen.
Pinger2007
Gast


Verfasst am:
22. Jan 2010, 00:56
Rufname:


AW: Ping senden und auswerten - AW: Ping senden und auswerten

Nach oben
       

schöne lösung, aber bei mir bleibts bis in die ewigkeit hängen wenn der host nicht erreichbar ist.

lösung?
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Datum/Uhrzeit in Abfrage auswerten 2 man_pedro 106 30. Jan 2013, 15:08
man_pedro Datum/Uhrzeit in Abfrage auswerten
Keine neuen Beiträge Access Tabellen & Abfragen: Auswerten()-Funktion in Abfrage, um Formel auszulesen 2 Koboldchen 199 25. Sep 2012, 10:55
Koboldchen Auswerten()-Funktion in Abfrage, um Formel auszulesen
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2007 mail per Outlook senden. 1 tadeusT 515 22. März 2012, 20:38
Sonneschein Access 2007 mail per Outlook senden.
Keine neuen Beiträge Access Tabellen & Abfragen: Spalten einer Tabelle vergleichen und auswerten 2 LukeD 395 28. Jun 2010, 10:18
LukeD Spalten einer Tabelle vergleichen und auswerten
Keine neuen Beiträge Access Tabellen & Abfragen: Fittnessstudio: Abnehmverhalten berechen und auswerten 0 Sandmann 307 16. Feb 2009, 23:39
Sandmann Fittnessstudio: Abnehmverhalten berechen und auswerten
Keine neuen Beiträge Access Tabellen & Abfragen: Spalten aus Kreuztabelle auswerten 3 bör77 1212 25. Jun 2008, 02:08
Willi Wipp Spalten aus Kreuztabelle auswerten
Keine neuen Beiträge Access Tabellen & Abfragen: Zeitraum auswerten über Formular aus Datums-Feld in Tabelle 1 Nala 1115 12. Feb 2008, 17:54
Frank_xyz Zeitraum auswerten über Formular aus Datums-Feld in Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Parameterabfrage auswerten und automatisch anpassen 1 H3llGhost 499 12. Feb 2008, 14:03
Da Oansa Parameterabfrage auswerten und automatisch anpassen
Keine neuen Beiträge Access Tabellen & Abfragen: Abhaengige Tabellen auswerten 5 SzP/TEF13 1727 29. Jan 2008, 17:27
Stefffano Abhaengige Tabellen auswerten
Keine neuen Beiträge Access Tabellen & Abfragen: Werte aus Kombifeld in Textfeld auswerten!! Hilfe! 10 KevinS 716 08. Jan 2008, 17:44
fruitcruiser Werte aus Kombifeld in Textfeld auswerten!! Hilfe!
Keine neuen Beiträge Access Tabellen & Abfragen: Summe und Anzahl für einen Zeitraum monatsweiße auswerten 0 Kelvin_ 714 23. Jul 2007, 09:38
Kelvin_ Summe und Anzahl für einen Zeitraum monatsweiße auswerten
Keine neuen Beiträge Access Tabellen & Abfragen: Mehrere Tabellen(über 15) auswerten 1 keyra 1104 24. Feb 2007, 00:03
Gschaftlhuaba Mehrere Tabellen(über 15) auswerten
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum