| Home  | Casa  | Hardware  | Networking  | Programmazione  | Software  | Domanda  | Sistemi  |   
Programmazione  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Java Programming

  • Programmazione Javascript

  • PHP /MySQL Programmazione

  • Perl Programming

  • Python Programming

  • rubino Programmazione

  • Nozioni di base di Visual Programming
  •  
    Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> Content
    Come determinare se una chiave del Registro di sistema esiste in VBScript
    Scrutando nel Registro di sistema vi dà un assaggio in impostazioni critiche del sistema operativo . Queste impostazioni , chiamato tasti , controllano il modo in cui Windows funziona . Gli sviluppatori utilizzano VBScript e altri strumenti per esaminare e modificare le chiavi. Se è necessario verificare che esiste una chiave specifica prima di eseguire un'operazione di registro , è possibile creare una breve funzione VBScript che interroga il registro. Istruzioni
    1

    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
    < p > 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 & " \\ " < br >

    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 .

    Previous :

    next :
      Articoli Correlati
    ·Come si compila e correre la mia Vb.Net file in Visual …
    ·Come modificare un oggetto ListView in Visual Basic 
    ·Differenza tra funzioni e procedure in Visual Basic 
    ·Come leggere email utilizzando VBA 
    ·Microsoft VBA Esercitazione Word 
    ·Come convertire esadecimale per decimali in VB.NET 
    ·Lista delle Famiglie Font 
    ·Come mettere una favicon in schede in VB 
    ·Come convertire il testo in una data in VB 
    ·Come controllare per valore NULL in Visual Basic 
      Articoli in evidenza
    ·Come scrivere un manuale di Step-by -Step Software Test…
    ·Come nascondere una casella combinata in PHP 
    ·Come contrassegnare i numeri in una lista Python 
    ·Come utilizzare il Microsoft Visual Studio C Compiler p…
    ·GTK Theme Tutorial 
    ·Come leggere un file XML con PHP 4 Script 
    ·Come convertire Visual Basic 5.0 a Visual Basic 6.0 
    ·Come impostare il livello di isolamento in ODBC 
    ·Progettazione Argomenti progetto in Visual Basic 
    ·Come convertire esadecimale per decimali in VB.NET 
    Copyright © Conoscenza Informatica http://it.wingwit.com