Wie man einen Server Ping aus VB6

Die Windows-ICMP-Link-Library können Sie eine Adresse in Visual Basic 6 (VB6) pingen. Die DLL ist im Lieferumfang der Windows-Betriebssystem zur Behandlung von Netzwerk-Anforderungen für TCP/IP, die in internen Netzwerken und im Internet verwendete Protokoll ist. Sie müssen die DLL in VB6 Code einschließen, Pingen Sie den Server und weisen die Ergebnisse in eine Zeichenfolge.

Anweisungen

1 Mit der rechten Maustaste der SLN-Datei enthält Ihre VB6 und klicken Sie auf "Öffnen mit". Doppelklicken Sie auf "Visual Basic"-Programm in der Liste der Programme angezeigt.

2 Mit der rechten Maustaste in des Formulars zu verwenden, um den Server anpingen. Kopieren Sie und fügen Sie den folgenden DLL-Link an die Spitze Ihrer VB6-Datei:

Private Declare Function IcmpCreateFile Lib "icmp.dll" (-) As Long

Private Declare Function WSAStartup Lib "WSOCK32. "DLL" (ByVal wVersionRequired As Long, LpWSADATA als WSADATA) As Long

Diese beiden DLLs stellen die Funktionen um ping und kommunizieren über das TCP/IP Protokoll.

3 Pingen Sie den Server. Der folgende Code fixiert den Server:

Öffentliche Funktion Ping ("Server", Antwort als ICMP_ECHO_REPLY) so lange

Ersetzen Sie "Server" durch den Namen oder die IP-Adresse des Servers. Die Wiedergabe wird in der Variablen "Echo-Reply" gespeichert.

4 Drucken Sie die Ergebnisse aus der Ping. Der folgende Code sendet das Ergebnis an einen String und das Ergebnis in einem Meldungsfeld angezeigt:

Dim Ping As String

Ping = Reply.Status

MsgBox-ping