Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> Neu: Office 2010 Forum <-
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:
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     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 Formulare: Kontrollkästchen mit Makro auswerten 5 Magic Man 159 12. Jul 2010, 13:45
KlausMz Kontrollkästchen mit Makro auswerten
Keine neuen Beiträge Access Formulare: Formular mit aktuellem Datum autom. an e-mail Kontakt senden 1 pschmidt 206 28. Dez 2009, 06:02
stpimi Formular mit aktuellem Datum autom. an e-mail Kontakt senden
Keine neuen Beiträge Access Berichte: Bericht in HTML über Lotus Notes senden 0 flockxe 230 03. Nov 2009, 12:19
flockxe Bericht in HTML über Lotus Notes senden
Keine neuen Beiträge Access Programmierung / VBA: Termine bestätigen ohne Antwort zu senden 0 Crenardo 328 18. Aug 2009, 12:20
Crenardo Termine bestätigen ohne Antwort zu senden
Keine neuen Beiträge Access Programmierung / VBA: Konstante auswerten 9 mfreye 208 06. Aug 2009, 19:15
Gast Konstante auswerten
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage: Ein Feld nach unterschied. Kriterien auswerten 2 fc_exl 516 30. Dez 2008, 12:21
fc_exl Abfrage: Ein Feld nach unterschied. Kriterien auswerten
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle auswerten 1 Timo84 103 19. Okt 2008, 19:33
jens05 Tabelle auswerten
Keine neuen Beiträge Access Programmierung / VBA: Hilfe - Problem mit Abfrage an Datenbank senden 12 thommy77 412 10. Jan 2008, 16:00
Gast Hilfe - Problem mit Abfrage an Datenbank senden
Keine neuen Beiträge Access Tabellen & Abfragen: Werte aus Kombifeld in Textfeld auswerten!! Hilfe! 10 KevinS 403 08. Jan 2008, 17:44
fruitcruiser Werte aus Kombifeld in Textfeld auswerten!! Hilfe!
Keine neuen Beiträge Access Formulare: Bericht mit Inhalt vom Formular per eMail senden 8 Snoopy79 3187 17. März 2007, 22:16
Snoopy79 Bericht mit Inhalt vom Formular per eMail senden
Keine neuen Beiträge Access Programmierung / VBA: Mail senden via DoCmd.SendObject , , acFormatRTF 0 Buchegger 2146 13. Nov 2006, 14:19
Buchegger Mail senden via DoCmd.SendObject , , acFormatRTF
Keine neuen Beiträge Access Tabellen & Abfragen: Große Excel Tabelle in Access importieren und auswerten? 2 dannym 1634 31. Jul 2006, 11:58
huk Große Excel Tabelle in Access importieren und auswerten?
 

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