Le système d'exploitation Windows contient un fichier DLL que vous utilisez dans votre code Visual Basic pour PING sur un serveur réseau. La procédure de ping renvoie une réponse , vous pouvez utiliser le code pour identifier si l'ordinateur est en ligne et disponible sur le réseau . Vous devez inclure le fichier DLL de Windows dans votre propre fichier de code VB . Après la DLL est inclus, vous pouvez tester n'importe quel ordinateur sur le réseau. Instructions
1

Cliquez sur le bouton "Démarrer " et sélectionner "Tous les programmes ". Cliquez sur " Microsoft Visual Basic ", puis cliquez sur " Visual Basic 6 . " Ouvrez votre projet VB .
2

Double- cliquez sur le fichier dans la liste des fichiers de code source pour votre projet. Le fichier s'ouvre dans l'éditeur VB
3

Copiez et collez le code suivant au début de votre fichier pour inclure la DLL Windows dans votre projet VB: .

Privé Declare Function IcmpSendEcho Lib " icmp.dll " _

( IcmpHandle ByVal As Long , ByVal _

DestinationAddress As Long , ByVal _

RequestData As String , _

RequestSize ByVal As Long , _

RequestOptions ByVal As Long , _

ReplyBuffer Comme ICMP_ECHO_REPLY , _ ByVal

ReplySize As Long , _

Timeout ByVal As Long ) As Long

le code doit être copié dans son intégralité, ou le compilateur VB renvoie une erreur. Le code inclut la fonction " ICMP.DLL » du système d'exploitation Windows qui cingle un ordinateur à partir du bureau
4

Ajoutez le code suivant à cingler l' ordinateur distant: .

Appel IcmpSendEcho ( hIcmp , IPaddress , "ping" , Len (50) , 0, Répondre , Len (Réponse) , 20)

Remplacer " IPaddress " avec l'adresse IP de l'ordinateur distant.
< br > 5

Récupérer la rediffusion de la commande ping . Le code suivant détermine si le ping a réussi:

mypingresponse = Reply.Status