Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Rechner im Netzwerk pingen mit WinXP
Autor: Rossi
Datum: 01.03.04 14:26
Hallo hab mir schon mal den Tip für das Pingen besorgt nur funktioniert dieser nicht unter WinXP oder hab ich was vergessen ? Private Declare Function IsDestinationReachable Lib "Sensapi.dll" Alias "IsDestionationReachableA" (ByVal lpszDestionation 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 QuestStruct.dwSize = Len(QuestStruct) lreturn = IsDestinationReachable(IP, QuestStruct) If lreturn = 1 Then Ping = True Else: Ping = False End If End Function Private Sub Form_Load() MsgBox Ping("192.168.14.113") End Sub bekomm ständig die Meldung das der Einsprungpunkt in der Sensapi.dll nicht richtig ist Danke Rossi

Rechner im Netzwerk pingen mit WinXP	1.138	Rossi	01.03.04 14:26
Re: Rechner im Netzwerk pingen mit WinXP	748	Dieter	01.03.04 15:02
Re: Rechner im Netzwerk pingen mit WinXP	780	Rossi	01.03.04 15:14
Re: Rechner im Netzwerk pingen mit WinXP	767	Dieter	01.03.04 15:17
Re: Rechner im Netzwerk pingen mit WinXP	731	Dieter	01.03.04 15:18
Re: Rechner im Netzwerk pingen mit WinXP	729	Rossi	01.03.04 15:22
Re: Rechner im Netzwerk pingen mit WinXP	731	Dieter	01.03.04 17:31
Re: Rechner im Netzwerk pingen mit WinXP	765	Rossi	02.03.04 10:56

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