Πώς να χρησιμοποιήσετε VB VBA για να εκτελέσει μια Ping Test

Αυτοματοποίηση της διαδικασίας πινγκ διαφορετικές διευθύνσεις χρήση της Visual Basic for Applications ( VBA ) μπορεί να σας εξοικονομήσει πολύ χρόνο , ειδικά όταν έχετε να κάνετε ping πολλές διευθύνσεις . Για να κάνετε ping μια διεύθυνση μέσα για να εκτελέσετε μια δοκιμή και να καθορίσει αν η διεύθυνση είναι προσβάσιμη μέσω του δικτύου . VBA είναι πολύ παρόμοια με VB και μπορείτε να το χρησιμοποιήσετε σε οποιαδήποτε εφαρμογή του Microsoft Office , όπως το Excel . Για να κάνετε ping μια σειρά , θα πρέπει να χρησιμοποιήσετε μερικές μεταβλητές αντικείμενα για να εκτελέσει μια εντολή σενάριο χρησιμοποιώντας " Windows Scripting ". Μπορείτε να χρησιμοποιήσετε αυτήν τη μέθοδο για να ελέγχει τις διευθύνσεις υποδοχής συνεχώς για να βεβαιωθείτε ότι είστε οργανωθεί και να λειτουργήσει . Το πρόγραμμά σας VBA μπορεί να δημιουργήσει ένα σφάλμα σε περίπτωση που ο υπολογιστής δεν έχει απαντήσει . Τα πράγματα που θα χρειαστείτε για Microsoft Office
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ξεκινήστε το Microsoft Word , κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic" για να ξεκινήσει το πρόγραμμα επεξεργασίας VBA παράθυρο. Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα . 2

αντιγραφή και επικόλληση του παρακάτω κώδικα για να δημιουργήσετε τη διαδικασία που θα καλέσει το " myPingFunction " και εμφανίζει τα αποτελέσματα ping για " google.com " μέσα από ένα κουτί μήνυμα :

Private Sub callPingFunction ( ) MsgBox myPingFunction ( " google.com " ) End Sub
εικόνων 3

Edit " google . com " στο προηγούμενο βήμα και πληκτρολογήστε τον ξενιστή που θέλετε να κάνετε ping .
Η 4

αντιγραφή και επικόλληση του παρακάτω λειτουργία για να ping στη διεύθυνση υποδοχής που στείλατε με τη λειτουργία και επιστρέφει τα αποτελέσματα στην καλούσα διαδικασία :

myPingFunction Λειτουργία ( hostAddress Όπως String ) Όπως StringDim FSObj Όπως ObjectDim shellObj Όπως ObjectDim tmpFileObj Όπως ObjectDim SLINE Όπως StringDim sFilename Όπως 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 ) Κάντε Ενώ tmpFileObj . AtEndOfStream <> TruesLine = tmpFileObj.ReadlinemyPingFunction = myPingFunction & Trim ( SLINE ) LooptmpFileObj.CloseFSObj.DeleteFile ( sFilename ) End Function
5

Κάντε κλικ μέσα στη διαδικασία " callPingFunction " και πατήστε το πλήκτρο " F5 " για να το τρέξει . Τα αποτελέσματα ping πρόκειται να εμφανιστεί μέσα από ένα πλαίσιο μηνύματος .
Η
εικόνων