| maison  | Hardware  | réseaux  | programmation  | Logiciel  | Dépannage  | systèmes |  
programmation  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Programmation Java

  • Programmation JavaScript

  • PHP /MySQL Programmation

  • programmation Perl

  • Programmation Python

  • Ruby Programming

  • Visual Basics programmation
  •  
    Connaissances Informatiques >> programmation >> Visual Basics programmation >> Content
    Comment utiliser VB VBA pour effectuer un test de Ping
    L'automatisation du processus de ping adresses différentes à l'aide de Visual Basic pour Applications ( VBA) peut vous faire économiser beaucoup de temps , surtout quand vous avez un ping de nombreuses adresses . Pour effectuer un ping une adresse moyens pour exécuter un test et déterminer si l'adresse est accessible sur le réseau. VBA est très similaire à VB et vous pouvez l'utiliser dans n'importe quelle application Microsoft Office tels que Excel. Pour effectuer un ping d'un hôte, vous devez utiliser quelques variables objets pour exécuter une commande de script utilisant "Windows Scripting ". Vous pouvez utiliser cette méthode pour vérifier les adresses d'hôtes en permanence pour s'assurer qu'ils sont en marche. Votre programme VBA peut provoquer une erreur dans le cas où un hôte ne répond pas . Choses que vous devez
    Microsoft Office
    Voir Plus Instructions
    1

    Lancez Microsoft Word, cliquez sur l'onglet "Developer " et cliquez sur " Visual Basic " pour lancer l'éditeur VBA fenêtre . Cliquez sur le menu "Insertion " et cliquez sur "Module " pour insérer un nouveau module de code.
    2

    Copiez et collez le code suivant pour créer la procédure qui va appeler le " myPingFunction " et afficher les résultats de ping pour " google.com " à travers une boîte de message :

    callPingFunction Private Sub () MsgBox myPingFunction ( " google.com ") End Sub
    3

    Edit " google . com " à l'étape précédente et entrez l'hôte que vous voulez faire un ping .
    4

    Copiez et collez la fonction suivante pour tester l'adresse de l'hôte que vous avez envoyé à la fonction et retourner les résultats de la procédure d'appel : Photos

    myPingFunction de fonction ( hostAddress As String) As StringDim FSObj Comme ObjectDim shellObj Comme ObjectDim tmpFileObj Comme ObjectDim sLine Comme StringDim sFilename Comme StringSet FSObj = CreateObject (" Scripting.FileSystemObject ") Set shellObj = CreateObject (" Wscript . Shell " ) sFilename = FSObj.GetTempNameshellObj.Run " cmd /c ping " et hostAddress et "> " et sFilename , 0, TrueSet tmpFileObj = FSObj.OpenTextFile ( sFilename , 1) ne Tandis que tmpFileObj . AtEndOfStream <> TruesLine = tmpFileObj.ReadlinemyPingFunction = myPingFunction & Trim ( sLine ) LooptmpFileObj.CloseFSObj.DeleteFile ( sFilename ) End Function
    5

    Cliquez dans la procédure " callPingFunction " et appuyez sur " F5 " pour l'exécuter. Les résultats de ping vont être affichés par l'intermédiaire d'une boîte de message.

    Previous :

    next :
      articles connexes
    ·Comment faire pour masquer un contrôle Ribbon De VBA 
    ·Comment Pen d'un fichier en VB.NET avec une application…
    ·Comment faire une horloge dans Visual Basic 
    ·Impression de base de données dans Visual Basic 
    ·Comment Termine un programme en code en Visual Basic 
    ·Comment choisir le formulaire de démarrage dans une ap…
    ·Comment faire pour interroger les tables HTML avec VBA …
    ·Comment accéder à un VBA incrémental Record Recherch…
    ·Comment utiliser Remplacer dans VB.NET 
    ·Comment créer et enregistrer une requête en Visual Ba…
      articles en vedette
    ·Comment mettre C Strings de style dans un tableau en C …
    ·Comment utiliser la fonction Dir en VBA 
    ·Comment faire une liste déroulante dans Visual Basic 
    ·Comment faire pour supprimer une barre d'adresse avec J…
    ·Comment faire pour installer cPanel & Perl 
    ·Comment insérer image embarquée dans Visual Basic 
    ·Comment convertir un projet Xcode en fichiers 
    ·Is_array Vs . Is_string en PHP 
    ·Comment obtenir Visual Basic 2008 
    ·Python CGI Exemples 
    Copyright © Connaissances Informatiques http://fr.wingwit.com