Aprire Blocco note o un editor di testo e incollare il seguente codice VBScript in un nuovo documento :
Option Explicit Dim
keyName
keyName = " HKEY_CURRENT_USER \\ Software \\ Microsoft \\ Windows \\ CurrentVersion \\ Explorer \\ Wallpapers \\ "
KeyFound ( keyName ) "esiste chiave" = True
Poi
Wscript.echo
Else Wscript.echo "Chiave non esiste"
End If
la variabile " keyName " contiene il nome della chiave del Registro di sistema per il quale è necessario cercare . Sostituire il "Nome" con una chiave a tua scelta . La seguente riga di codice che passa il nome di una funzione chiamata " KeyFound . " Tale funzione verifica se la chiave esiste
2
Aggiungi questo codice sotto il codice visualizzato l'ultimo passo : .
Funzione KeyFound ( ByVal keyName ) per
keyFound = false
Dim rightCharacter
rightCharacter = destra ( keyName , 1 ) per
se rightCharacter < > " \\ " Allora keyName = keyName & " \\ "
on Error Resume Next
CreateObject ( " WScript.Shell " ) RegRead trim ( keyName ) per
caso selezionare err
case 0 : . keyFound = true
end select
fine funzione
Questa è la funzione " KeyFound " . Si aggiunge una barra alla fine della chiave se non esiste ed esegue il metodo " RegRead " . L '" On Error" consente al programma di continuare a funzionare anche se il metodo " RegRead " non riesce a individuare la chiave di registro desiderato . Se il metodo trova una chiave , il codice imposta il valore di " keyFound " a true .
3
Salvare il file con estensione VBS . Per esempio, se si vuole chiamarlo " CheckKeys ", salvarlo come " CheckKeys.vbs . "
4
Avviare Esplora risorse e individuare il file . Fare doppio clic su tale file per eseguire il programma . Esegue e visualizza " chiave esiste " se trova la chiave o "Chiave non esiste" se non lo fa .
Programmazione © www.354353.com