1 Ανοίξτε το αγαπημένο σας πρόγραμμα επεξεργασίας κειμένου (για παράδειγμα , το Σημειωματάριο ) . 2
να αναγνωρίσει τις μεταβλητές να χρησιμοποιηθούν στο πρόγραμμα :
Option Explicit
Δημ. FSO , oShell , αρχείο , tmp
Option Explicit δυνάμεις η δήλωση όλων των μεταβλητών σε ένα αρχείο . Δεν μπορείτε να χρησιμοποιήσετε μια μεταβλητή στο πρόγραμμα χωρίς να το δηλώσει . Μεταβλητές χρησιμοποιούνται για την αποθήκευση διαφορετικές τιμές που χρησιμοποιούνται στο πρόγραμμα . Dim δηλώνει και διαθέτει αποθηκευτικό χώρο για τις μεταβλητές της FSO , oShell , αρχείο , και tmp
εικόνων 3
Βρείτε τη διαδρομή του Shell32 βιβλιοθήκη δυναμικής σύνδεσης (DLL ) του αρχείου : .
file = " % windir% \\ System32 \\ Shell32.dll "
η διαδρομή έχει ανατεθεί στην μεταβλητή με το όνομα του αρχείου που θα χρησιμοποιηθεί στο πρόγραμμα .
Η 4
Δημιουργήστε ένα αντικείμενο της Τύπος WScript και το εκχωρούμε oShell :
Set oShell = WScript.CreateObject ( " WScript.Shell " )
το αντικείμενο WScript εκχωρείται στη μεταβλητή oShell χρησιμοποιώντας την εντολή Set
. Φτηνές 5
Αναπτύξτε το όνομα της μεταβλητής του αρχείου , έτσι ώστε VB script μπορεί να αναλύσει σωστά:
file = oShell.ExpandEnvironmentStrings ( αρχείο )
Η δήλωση ExpandEnvironmentStrings διευρύνει το όνομα του αρχείου και επανεκχωρεί . αυτό στο όνομα της μεταβλητής αρχείου
Η 6
Δημιουργήστε το αντικείμενο του συστήματος αρχείων για την πρόσβαση στο σύστημα αρχείων των Windows :
Ορισμός FSO = CreateObject ( " Scripting.FileSystemObject " )
η λέξη-κλειδί CreateObject δημιουργεί το αντικείμενο του συστήματος αρχείων και την εκχωρεί στην FSO μεταβλητή χρησιμοποιώντας την εντολή set .
Η
7 Ελέγξτε αν το αρχείο Shell32.dll υπάρχει χρησιμοποιώντας τη λέξη-κλειδί FileExists . Αν το κάνει , ελέγξτε τον αριθμό έκδοσης του χρησιμοποιώντας τη λέξη-κλειδί GetFileVersion και να το αποθηκεύσει στη μεταβλητή tmp . Ελέγξτε εάν το μήκος της ανακτηθεί αριθμός έκδοσης είναι μεγαλύτερη από 0 , χρησιμοποιώντας τη λέξη-κλειδί Len . Αν το μήκος είναι μεγαλύτερο από 0 , το εκτυπώσετε στην οθόνη ? Αλλιώς , να εκτυπώσετε την έκδοση του αρχείου ως απροσδιόριστα . Εάν το αρχείο Shell32.dll δεν υπάρχει , print " Το αρχείο δεν βρέθηκε " και να καταγγείλει το σενάριο :
Αν fso.FileExists ( αρχείου) Στη συνέχεια
tmp = fso.GetFileVersion ( αρχείο )
Αν Len ( tmp ) > 0 τότε
WScript.Echo " αρχείο" και το αρχείο & vbCrLf & _
" Έκδοση : " & tmp
αλλιώς
WScript.Echo " αρχείο" και το αρχείο & vbCrLf & _
" Έκδοση : undefined "
Τέλος, αν
Else
WScript.Echo "Αρχείο " και το αρχείο και " " δεν βρέθηκε "
End If
Echo λέξη-κλειδί χρησιμοποιείται για την εκτύπωση στην οθόνη . vbCrLf παίρνει το δρομέα στην επόμενη γραμμή . Εδώ, ένα ένθετο εάν χρησιμοποιείται βρόχου. Αν βρόχος ελέγχει την κατάσταση και , αν η συνθήκη είναι αληθής , εκτελεί ένα συγκεκριμένο σύνολο των δηλώσεων ? Αν η συνθήκη είναι ψευδής , εκτελεί μια εναλλακτική σύνολο των καταστάσεων. End If σηματοδοτεί το τέλος της κατάστασης Αν .
8
Αποθηκεύστε το αρχείο ( όπως , checkshellver.vbs ) . Η επέκταση vbs . Σημαίνει VBScript .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα