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.140	Rossi	01.03.04 14:26
Re: Rechner im Netzwerk pingen mit WinXP	749	Dieter	01.03.04 15:02
Re: Rechner im Netzwerk pingen mit WinXP	781	Rossi	01.03.04 15:14
Re: Rechner im Netzwerk pingen mit WinXP	768	Dieter	01.03.04 15:17
Re: Rechner im Netzwerk pingen mit WinXP	732	Dieter	01.03.04 15:18
Re: Rechner im Netzwerk pingen mit WinXP	730	Rossi	01.03.04 15:22
Re: Rechner im Netzwerk pingen mit WinXP	732	Dieter	01.03.04 17:31
Re: Rechner im Netzwerk pingen mit WinXP	766	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