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