|
Ping senden und auswerten
|
| Autor |
Nachricht |
Ludger
Access Hobbyist
Verfasst am: 12. Jan 2006, 00:25 Rufname:
|
|
| |
|
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
|
|
Pinger2007
Gast
Verfasst am: 22. Jan 2010, 00:56 Rufname:
|
| |
| |
|
schöne lösung, aber bei mir bleibts bis in die ewigkeit hängen wenn der host nicht erreichbar ist.
lösung?
|
|
| Verwandte Themen |
| Forum / Themen |
Antworten |
Autor |
Aufrufe |
Letzter Beitrag |
 |
Access Formulare: Kontrollkästchen mit Makro auswerten |
5 |
Magic Man |
159 |
12. Jul 2010, 13:45 KlausMz  |
 |
Access Formulare: Formular mit aktuellem Datum autom. an e-mail Kontakt senden |
1 |
pschmidt |
206 |
28. Dez 2009, 06:02 stpimi  |
 |
Access Berichte: Bericht in HTML über Lotus Notes senden |
0 |
flockxe |
230 |
03. Nov 2009, 12:19 flockxe  |
 |
Access Programmierung / VBA: Termine bestätigen ohne Antwort zu senden |
0 |
Crenardo |
328 |
18. Aug 2009, 12:20 Crenardo  |
 |
Access Programmierung / VBA: Konstante auswerten |
9 |
mfreye |
208 |
06. Aug 2009, 19:15 Gast  |
 |
Access Tabellen & Abfragen: Abfrage: Ein Feld nach unterschied. Kriterien auswerten |
2 |
fc_exl |
516 |
30. Dez 2008, 12:21 fc_exl  |
 |
Access Tabellen & Abfragen: Tabelle auswerten |
1 |
Timo84 |
103 |
19. Okt 2008, 19:33 jens05  |
 |
Access Programmierung / VBA: Hilfe - Problem mit Abfrage an Datenbank senden |
12 |
thommy77 |
412 |
10. Jan 2008, 16:00 Gast  |
 |
Access Tabellen & Abfragen: Werte aus Kombifeld in Textfeld auswerten!! Hilfe! |
10 |
KevinS |
403 |
08. Jan 2008, 17:44 fruitcruiser  |
 |
Access Formulare: Bericht mit Inhalt vom Formular per eMail senden |
8 |
Snoopy79 |
3187 |
17. März 2007, 22:16 Snoopy79  |
 |
Access Programmierung / VBA: Mail senden via DoCmd.SendObject , , acFormatRTF |
0 |
Buchegger |
2146 |
13. Nov 2006, 14:19 Buchegger  |
 |
Access Tabellen & Abfragen: Große Excel Tabelle in Access importieren und auswerten? |
2 |
dannym |
1634 |
31. Jul 2006, 11:58 huk  |
| |