Wie VB VBA verwenden , um einen Ping-Test durchführen

Mitglieder-Login

InformationenVisual Basics Programmierung

Beauty Wirkung Computerprogramme so… Wie GUI Skins Mit VB Stellen . Sie können einen schönen Graphical User Interface ( GUI) mit Visual B
Wie man eine InlineShape in VB6 Dre… Bei der Entwicklung einer Anwendung oder ein Microsoft Office- Makros mit Visual Basic 6 , möchten S
Wie zu einer Endlosschleife auf Mak… Makros sind eine Reihe von Computer- Befehle und Funktionen, die Sie verwenden, um eine Aufgabe, die
VB6 Tools Visual Basic 6.0 war die erste Version , um eine integrierte Entwicklungsumgebung und die Möglichkei

Programming

HOME

* Computer Wissen >> Programming >> Visual Basics Programmierung >> .

Wie VB VBA verwenden , um einen Ping-Test durchführen

Automatisierung des Prozesses der Pingen verschiedene Adressen mit Visual Basic für Applikationen (VBA) sparen Sie viel Zeit , vor allem , wenn Sie viele Adressen ping haben . Um eine Adresse ping bedeutet einen Test laufen und feststellen, ob die Adresse über das Netzwerk zugänglich ist . VBA ist sehr ähnlich zu VB und Sie können es in jeder Microsoft Office-Anwendung wie Excel verwenden . Um einen Host pingen , müssen Sie ein paar Objekte Variablen verwenden, um ein Skript ausführen Befehl mit "Windows Scripting ". Sie können diese Methode verwenden, um Host-Adressen kontinuierlich überprüfen, um sicherzustellen, dass sie und läuft. Ihre VBA -Programm kann einen Fehler erzeugen , falls ein Host nicht reagiert . Things You
Microsoft Office
brauchen anzeigen Weitere Anweisungen
1

Starten Sie Microsoft Word auf die Registerkarte "Entwicklertools" und klicken Sie auf " Visual Basic ", um den VBA-Editor zu starten Fenster . Klicken Sie auf das Menü "Einfügen" und klicken Sie auf "Module" , um einen neuen Code-Modul einzufügen.
2

Kopieren Sie den folgenden Code, um die Prozedur, die die " myPingFunction " nennen erstellt und zeigt die Ergebnisse ping für " google.com " durch eine Message-Box :

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

Edit " google . com " im vorherigen Schritt , und geben Sie den gewünschten Host zu pingen.
4

Kopieren und fügen Sie die folgende Funktion , um die Host- Adresse, die Sie an die Funktion gesendet ping und die Ergebnisse an die aufrufende Prozedur :

Funktion myPingFunction ( HOSTADDRESS As String ) As StringDim FSObj Wie ObjectDim shellObj Wie ObjectDim tmpFileObj Wie ObjectDim sLine Wie StringDim sFileName Wie StringSet FSObj = CreateObject (" Scripting.FileSystemObject " ) Set shellObj = CreateObject (" Wscript . Shell " ) = sFileName FSObj.GetTempNameshellObj.Run " cmd /c ping " & HOSTADDRESS & " > " & sFileName , 0, TrueSet tmpFileObj = FSObj.OpenTextFile ( sFileName , 1 ) Do While tmpFileObj . AtEndOfStream <> TruesLine = tmpFileObj.ReadlinemyPingFunction = myPingFunction & Trim ( sLine ) LooptmpFileObj.CloseFSObj.DeleteFile ( sFileName ) End Function
5

Klicken Sie in die " callPingFunction "-Verfahren , und drücken Sie "F5 " , um es auszuführen . Die Ping- Ergebnisse sollen durch eine Message-Box angezeigt werden.