|
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
|
