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