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
|