Sie können die Windows- ICMP Link Library , eine Adresse in Visual Basic 6 ( VB6 ) ping . Die DLL wird mit dem Windows-Betriebssystem auf Vernetzung Anfragen für TCP /IP , die das Protokoll in internen Netzwerken und im Internet verwendet wird, handhaben enthalten. Sie müssen die DLL in Ihrem VB6 Code , ping den Server und fügt die Ergebnisse in einen String. Anleitung
1

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

rechten Maustaste auf das Formular, das Sie verwenden möchten, um den Server zu pingen. Kopieren und fügen Sie den folgenden Link, um DLL der Spitze der VB6 Datei :

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

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

Diese beiden DLLs bieten die Funktionen Ping und kommunizieren über das TCP /IP-Protokoll.
3

Ping der Server . Der folgende Code Stifte der Server :

Public Function ping ( "server" , Antworten Wie ICMP_ECHO_REPLY ) As Long

Ersetzen Sie " Server " mit dem Namen oder die IP -Adresse des Servers . Die Wiederholung ist in der "echo reply" Variable gespeichert.
4

Drucken Sie die Ergebnisse aus dem ping . Der folgende Code sendet das Ergebnis in einen String und zeigt das Ergebnis in einem Meldungsfeld :

Dim As String ping ping

= Reply.Status

MsgBox ping