Aprite il vostro programma di editing di testo preferito ( per esempio , Blocco note) .
2
dichiarare le variabili per essere utilizzato nel programma :
Option Explicit
Dim FSO oShell , file tmp
opzione forza esplicita la dichiarazione di tutte le variabili in un file . Non è possibile utilizzare una variabile nel programma senza dichiararlo . Variabili sono utilizzate per memorizzare valori diversi utilizzati nel programma . Dim dichiara e alloca lo spazio di archiviazione per le variabili UST, oShell , file e tmp
3
Trova il percorso della libreria di collegamento dinamico Shell32 ( dll) : .
file = " % windir% \\ system32 \\ Shell32.dll "
il percorso viene assegnato al file di nome variabile da utilizzare nel programma.
4
Creare un oggetto della tipo WScript e assegnarlo a oShell :
oShell = WScript.CreateObject ( " WScript.Shell " ) per
l'oggetto WScript viene assegnato alla variabile oShell utilizzando l' istruzione Set
.
5
Espandi la variabile nome del file in modo che lo script VB in grado di analizzare in modo corretto :
di file
= oShell.ExpandEnvironmentStrings ( file)
la dichiarazione ExpandEnvironmentStrings espande il nome del file e riassegna alla variabile il nome del file
6
creare l'oggetto del file system per accedere al file system di Windows : .
Set fso = CreateObject ( " Scripting.FileSystemObject " ) per
la parola chiave CreateObject crea l' oggetto del file system e lo assegna alla variabile fso utilizzando l'istruzione SET .
7
Controllare se il file Shell32.dll esiste usando la parola chiave FileExists . In caso contrario , controllare il numero di versione utilizzando la parola chiave GetFileVersion e memorizzarlo nella variabile tmp . Verificare se la lunghezza del numero di versione recuperato è maggiore di 0 utilizzando la parola chiave Len . Se la lunghezza è maggiore di 0 , stamparlo sullo schermo , altrimenti stampare la versione del file come indefinito. Se il file Shell32.dll non esiste, stampare "File non trovato " e terminare lo script :
fso.FileExists ( file) Poi
tmp = fso.GetFileVersion (file )
Se Len ( tmp ) > 0 Then
WScript.Echo " File" & File & vbCrLf & _
"Versione : " & tmp
Else
WScript.Echo " File" & File & vbCrLf & _
" Version : undefined "
End if
Else
WScript.Echo " File ' " & File & "' non trovato "
End If
parola chiave Echo viene utilizzato per stampare su schermo . vbCrLf prende il cursore alla riga successiva . Qui, una annidati se si utilizza loop. Se il ciclo controlla una condizione e , se la condizione è vera , esegue un particolare insieme di istruzioni , se la condizione è falsa , esegue un insieme alternativo di dichiarazioni. Fine Se segna la fine della Se condizione .
8
Salvare il file (ad esempio , checkshellver.vbs ) . L'estensione . Vbs significa VBScript .
Programmazione © www.354353.com