Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Netzwerkverbindung - PING
Autor: Rossi
Datum: 09.10.02 14:05
Hab den Code von Tipp und Tricks eingefügt und das Programm sagt mir immer das der rechner erreichbar ist obwohl er gar nicht am Netzwerk ist(Kabelverbindung entfernt). 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 Public Function Ping(ByVal IP As String) As Boolean Dim QuestStruct As QOCINFO Dim lReturn As Long ' Größe der Struktur QuestStruct.dwSize = Len(QuestStruct) ' Prüfen, ob Ziel erreichbar lReturn = IsDestinationReachable(IP, QuestStruct) ' Antwort auswerten If lReturn = 1 Then ' Antwort bekommen Ping = True Else ' keine Antwort Ping = False End If End Function und der aufruf ist : msgbox ping(192.168.14.13) MfG Rossi

Netzwerkverbindung - PING	81	Rossi	09.10.02 14:05
Re: Netzwerkverbindung - PING	181	Nightlight	09.10.02 19:24

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen