Hallöle.
Ich komm gleich zur Sache:
Ich habe mir eine kleine Funktion zum Senden eines Ping aus dem Internet geholt. Leider funktioniert diese Funktion nicht richtig, denn es sind laut Programm Rechner an, die gar nicht mehr an sind. Der Code sieht wie folgt aus:
Aufgerufen wird er so:
Ich könnte mir denken, dass es wieder mal an der Windows Netzwerkumgebung liegt. Bitte helft mir.
Coldfist
Ich komm gleich zur Sache:
Ich habe mir eine kleine Funktion zum Senden eines Ping aus dem Internet geholt. Leider funktioniert diese Funktion nicht richtig, denn es sind laut Programm Rechner an, die gar nicht mehr an sind. Der Code sieht wie folgt aus:
PHP:
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
PHP:
Dim nTime As Single
nTime = Ping("192.168.0.0") 'Adresse ist ein Beispiel
If nTime <> -1 Then
MsgBox ("Rechner erreichbar: Pingzeit: +" & CStr(nTime) & " Sekunden")
Else
MsgBox ("Rechner nicht erreichbar!")
End IfIch könnte mir denken, dass es wieder mal an der Windows Netzwerkumgebung liegt. Bitte helft mir.
Coldfist
