| Hjem | Hardware | Netværk | Programmering | software | Fejlfinding | systemer | 
Programmering  
  • C /C + + Programming
  • Computer Programmeringssprog
  • Delphi programmering
  • Java programmering
  • JavaScript Programmering
  • PHP /MySQL programmering
  • Perl programmering
  • Python Programming
  • Ruby Programming
  • Visual Basics Programmering
  •  
    Computer Viden >> Programmering >> Visual Basics Programmering >> Content
    Sådan konstateres , om en nøgle findes i VBScript
    Peering i systemet registreringsdatabasen giver dig et indblik i styresystemets kritiske indstillinger. Disse indstillinger , kaldet nøgler , kontrollere den måde Windows fungerer. Udviklere bruge VBScript og andre værktøjer til at undersøge og ændre tasterne. Hvis du har brug for at kontrollere, at en bestemt nøgle findes , før du udfører et register operation , kan du oprette en kort VBScript -funktion, der forespørger registreringsdatabasen. Instruktioner
    1

    Åbn Notesblok eller en tekst editor og indsætte følgende VBScript kode i et nyt dokument : Hej

    Option Explicit

    Dim nøglenavn

    KeyName = " HKEY_CURRENT_USER \\ Software \\ Microsoft \\ Windows \\ CurrentVersion \\ Explorer \\ Wallpapers \\ "
    p Hvis KeyFound ( KeyName ) = Ægte Så

    WScript.Echo " Key eksisterer "

    Else WScript.Echo "Nøgle eksisterer ikke "

    End If

    variablen " nøglenavn " holder navnet på den indskrive nøglen , som du har brug for at søge . Erstat " Name" med en nøgle af dine valg. Den næste linje kode passerer dette navn til en funktion kaldet " KeyFound ". Denne funktion kontrollerer , om nøglen findes
    2

    Tilføj denne kode under koden vist i det sidste trin : .

    Funktion KeyFound ( ByVal KeyName )

    keyFound = false

    Dim rightCharacter

    rightCharacter = højre ( KeyName , 1)

    hvis rightCharacter < > "\\ " Så KeyName = nøglenavn & "\\ " < br >

    om fejl genoptage næste

    CreateObject ( " wscript.shell " ) regRead trim ( KeyName )

    select tilfælde err

    sag 0: . keyFound = true < br >

    ende select

    ende funktion

    Dette er " KeyFound "-funktionen . Det tilføjer en skråstreg til enden af ​​nøglen, hvis der ikke allerede eksisterer , og udfører " regRead "-metoden. Den " på fejl" erklæring giver programmet til fortsætte med at køre , selv hvis " regRead "-metoden ikke kan finde den ønskede nøgle i registreringsdatabasen . Hvis metoden finder en nøgle , koden sætter værdien " keyFound " til sandt.
    3

    Gem filen med VBS forlængelse. For eksempel, " , CheckKeys ", hvis du ønsker at navngive det spare det som " CheckKeys.vbs ".
    4

    Start Windows Stifinder og finde filen. Dobbeltklik på filen for at køre programmet. Den udfører og viser "Tast eksisterer ", hvis den finder nøglen eller " Key eksisterer ikke ", hvis det ikke gør.

    Forrige :

    næste :
      Relaterede artikler
    ·Sådan forbindelse til MS SQL Brug VBScript 
    ·Sådan bruges ActiveX Progress Bar i Access 2003 Med Vi…
    ·Sådan spiller Sounds i Microsoft Visual Basic 
    ·Sådan tildeles en række Count til en variabel hjælp …
    ·Sådan Code en Login /Registration Form i VB 
    ·Sådan Beregn Skat & alt hjælp af Visual Basic 6.0 
    ·Sådan Beregn forskellen mellem tidszoner i VB6 
    ·Sådan Beregn filstørrelse i Visual Basic.NET 
    ·Sådan kører en MTV fil fra VBScript 
    ·Hvordan man laver en DF træner med Visual Basic 6 
      Anbefalede Artikler
    ·Sådan Link klasse mapper og Xcode 
    ·Sådan indstilles adgangsnøgle i Visual Basic 
    ·Hvordan laver man et objekt Move kontinuerligt i Java 
    ·Sådan Læs flere Afgrænsede felter i en fil ved hjæl…
    ·Sådan oprettes og opdaterer data Funktioner 
    ·Sådan kører en Python fil 
    ·Sådan oprettes Pythonmoduler 
    ·Systemkrav til Visual Studio 2008 Express 
    ·ColdFusion og PHP Training 
    ·Sådan oprettes en PHP Web Form 
    Copyright © Computer Viden http://www.computerdk.com