Vous pouvez utiliser la bibliothèque de liens de Windows ICMP de ping une adresse dans Visual Basic 6 ( VB6 ) . La DLL est inclus avec le système d'exploitation Windows pour gérer les demandes de mise en réseau pour le protocole TCP /IP, qui est le protocole utilisé dans les réseaux internes et sur Internet . Vous devez inclure la DLL dans votre code VB6, ping sur le serveur et affecter les résultats à une chaîne. Instructions
1

clic droit sur le fichier SLN qui contient votre VB6 et cliquez sur " Ouvrir avec". Double- cliquez sur le programme " Visual Basic " est affiché dans la liste des programmes .
2

un clic droit sur le formulaire que vous souhaitez utiliser pour cingler le serveur . Copiez et collez le lien DLL suivante au début de votre fichier VB6 :

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

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

Ces deux DLL assurent les fonctions de ping et de communiquer via le protocole TCP /IP.
3

Ping le serveur. Les broches de code suivants du serveur :

publique ping de fonction ( "serveur" , réponse comme ICMP_ECHO_REPLY ) tant

Remplacer "serveur" avec le nom ou l'adresse IP du serveur. La rediffusion est stocké dans la variable " réponse d'écho " .
4

imprimer les résultats du ping. Le code suivant envoie le résultat à une chaîne et affiche le résultat dans une boîte de message :

ping Dim As String

ping = Reply.Status

MsgBox ping