Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> 26. März: Office-Treffen Rhein-Main <-
Forum-Regeln :: FAQ :: Forum-Suche :: Mitgliederliste :: Benutzergruppen :: Favoriten ::  Registrieren :: Profil :: Briefkasten :: Login
Ping senden und auswerten
Office Forum -> Access Forum -> Access Tipps & Tricks
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 Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Ludger
Access Hobbyist


Verfasst am:
11. Jan 2006, 23: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, 10: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:
21. Jan 2010, 23: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     Nach oben 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 Programmierung / VBA: leeres Datum auswerten 11 Engelking 199 30. Okt 2009, 17:42
Gast leeres Datum auswerten
Keine neuen Beiträge Access Programmierung / VBA: Ping senden und auswerten {Nachgefragt} 3 megabyte_ 328 17. Aug 2009, 15:36
mfreye Ping senden und auswerten {Nachgefragt}
Keine neuen Beiträge Access Programmierung / VBA: Währung beim senden der Daten Word mitgeben 6 etienne 300 20. März 2009, 19:51
etienne Währung beim senden der Daten Word mitgeben
Keine neuen Beiträge Access Berichte: Rechnungen als EMail-Anhang senden 4 Dark Sephiroth 707 18. Dez 2008, 20:01
Dark Sephiroth Rechnungen als EMail-Anhang senden
Keine neuen Beiträge Access Formulare: Bericht aus Access senden 0 Gast 102 15. Jul 2008, 09:32
Gast Bericht aus Access senden
Keine neuen Beiträge Access Berichte: Parameter auswerten und ausgeben 2 NorbertF 209 20. Mai 2008, 07:04
NorbertF Parameter auswerten und ausgeben
Keine neuen Beiträge Access Programmierung / VBA: SMS senden 1 AP 202 07. Mai 2008, 11:01
NorbertF SMS senden
Keine neuen Beiträge Access Berichte: Anzahl Datensätze in einem Bericht auswerten = LZF 2427 11 rambodieschen 404 17. März 2008, 22:59
KlausMz Anzahl Datensätze in einem Bericht auswerten = LZF 2427
Keine neuen Beiträge Access Tabellen & Abfragen: Abhaengige Tabellen auswerten 5 SzP/TEF13 913 29. Jan 2008, 16:27
Stefffano Abhaengige Tabellen auswerten
Keine neuen Beiträge Access Programmierung / VBA: Bericht senden (Aktuellen) 7 MilkaKuh10 518 11. Jul 2007, 10:09
Willi Wipp Bericht senden (Aktuellen)
Keine neuen Beiträge Access Formulare: Datenfeld, eindimensional. Leere Felder nicht auswerten 11 Rhett 814 02. Jul 2007, 01:20
Rhett Datenfeld, eindimensional. Leere Felder nicht auswerten
Keine neuen Beiträge Access Programmierung / VBA: Bericht als PDF drucken>speichern>senden 6 Kane 5131 29. Mai 2007, 15:31
Willi Wipp Bericht als PDF drucken>speichern>senden
 

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