Vous pouvez utiliser la bibliothèque de liens ICMP de Windows pour pinger une adresse en Visual Basic 6 (VB6). La DLL est incluse avec le système d’exploitation Windows pour traiter les demandes de mise en réseau pour 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 le serveur et assigner les résultats à une chaîne de caractères.
Cliquez avec le bouton droit de la souris sur le fichier SLN qui contient votre VB6 et cliquez sur « Ouvrir avec ». Double-cliquez sur le programme « Visual Basic » affiché dans la liste des programmes.
Cliquez avec le bouton droit de la souris sur le formulaire que vous souhaitez utiliser pour envoyer un ping au serveur. Copiez et collez le lien DLL suivant en haut de votre fichier VB6 :
Private Declare Function IcmpCreateFile Lib « icmp.dll » () As Longue durée
Private Declare Function WSAStartup Lib « WSOCK32.DLL » (ByVal wVersionRequired As Long, lpWSADATA As WSADATA As WSADATA) As Long Long
Ces deux DLLs fournissent les fonctions de ping et de communication sur le protocole TCP/IP.
Effectuer un ping sur le serveur. Le code qui suit épingle le serveur :
Public Function ping(« server », Reply As ICMP_ECHO_REPLY) As Longue durée
Remplacez « server » par le nom ou l’adresse IP du serveur. La relecture est stockée dans la variable « echo reply ».
Imprimez les résultats du ping. Le code suivant envoie le résultat à une chaîne de caractères et affiche le résultat dans une boîte de message :
Dim ping As String
ping = Etat de la réponse
MsgBox ping
Laisser un commentaire