Ping
Dans un formulaire contenant une adresse IP, comment lancer un « ping » sur un ordinateur du réseau ?
Le formulaire ci-contre comporte une zone de texte nommée txtIP et un bouton de commande nommé btnTest.
Faites apparaître les propriétés du bouton de commande, activez l’onglet Evénement, et définissez l’événement Sur clic comme suit :
|
1 2 3 |
Private Sub btnTest_Click() Shell "ping " & Me.txtIP, vbNormalFocus End Sub |
La commande DOS « Ping » s’exécute alors dans une fenêtre séparée.
Si vous souhaitez détecter la fin de cette commande, contactez la fiche suivante.
Si la fenêtre en question ne produit aucun résultat, aménagez le Shell en :
|
1 |
Shell "command.com /C ping " & Me.txtIP, vbNormalFocus |
Et si les résultats du ping doivent être stockés dans un fichier pour exploitation ultérieure, aménagez le code comme ceci (à taper sur une seule ligne) :
|
1 |
Shell "command.com /C ping " & Me.txtIP & " > C:test.txt", vbNormalFocus |
Rien ne vous empêche alors de changer vbNormalFocus par une option plus appropriée !
