Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte Poznámkový blok alebo textový editor a vložte nasledujúci kód jazyka VBScript do nového dokumentu :
Option Explicit Dim
KeyName
KeyName = " HKEY_CURRENT_USER \\ Software \\ Microsoft \\ Windows \\ CurrentVersion \\ Explorer \\ tapety \\ "
Ak KeyFound ( KeyName ) = True Then
Wscript.echo " Key existuje "
Else Wscript.echo " kľúč neexistuje "
End If
premennej " KeyName " má názov kľúče Registry , pre ktoré budete musieť hľadať . Nahradiť " Názov " s kľúčom podľa vášho výberu . Ďalší riadok kódu prechádza toto meno na funkciu s názvom " KeyFound . " Táto funkcia skontroluje , či existuje kľúč
2
Pridať tento kód pod kód zobrazený v poslednom kroku : .
Funkcia KeyFound ( byval KeyName )
keyFound = false
Dim rightCharacter
rightCharacter = vpravo ( KeyName , 1 )
ak rightCharacter < > " \\ " Tak KeyName = KeyName & " \\ " < br . >
On Error Resume ďalšie
CreateObject ( " WScript.Shell " ) RegRead trim ( KeyName )
select case err
case 0 : keyFound = true
skončení zvoľte
End Function
Toto je funkcia " KeyFound " . Dodáva lomítko na koniec kľúče Ak neexistuje a vykonáva metódou " RegRead " . " On Error " výkaz umožňuje programu pokračovať v práci , aj keď metóda " RegRead " nedokáže nájsť požadovaný kľúč databázy Registry . Ak metóda nájde kľúč , kód nastaví hodnotu " keyFound " na hodnotu true .
3
Uložte súbor s príponou VBS . Napríklad , ak chcete pomenovať " CheckKeys , " uložiť ako " CheckKeys.vbs . "
4
Spustite Prieskumníka Windows a vyhľadajte súbor . Dvakrát kliknite na tento súbor spustiť program . To spustí a zobrazí " kľúč existuje , " ak zistí , kľúč , alebo " kľúč neexistuje " , ak tomu tak nie je .