| maison  | Hardware  | réseaux  | programmation  | Logiciel  | Dépannage  | systèmes |  
programmation  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Programmation Java

  • Programmation JavaScript

  • PHP /MySQL Programmation

  • programmation Perl

  • Programmation Python

  • Ruby Programming

  • Visual Basics programmation
  •  
    Connaissances Informatiques >> programmation >> Visual Basics programmation >> Content
    Comment déterminer si une clé de Registre existe dans VBScript
    Scrutant dans le registre du système vous donne un aperçu des paramètres critiques de votre système d'exploitation. Ces paramètres , appelés clés, contrôlent la façon dont Windows fonctionne . Les développeurs utilisent VBScript et d'autres outils pour examiner et modifier les touches. Si vous avez besoin de vérifier qu'une clé spécifique existe avant d'effectuer une opération de registre, vous pouvez créer une fonction VBScript court qui interroge la base de registre. Instructions
    1

    Ouvrez le Bloc-notes ou un éditeur de texte et collez le code VBScript suivant dans un nouveau document:

    Option Explicit

    Dim keyName

    keyName = " HKEY_CURRENT_USER \\ Software \\ Microsoft \\ Windows \\ CurrentVersion \\ Explorer \\ Wallpapers \\"

    Si KeyFound ( keyName ) "existe clé" = True Then

    Wscript.echo
    < p > Else WScript.Echo " la clé n'existe pas "

    End If

    " keyName " variable contient le nom de la clé de registre pour lesquels vous avez besoin pour effectuer la recherche. Remplacer " Name" avec une touche de votre choix. La ligne de code suivante passe ce nom à une fonction appelée " KeyFound . " Cette fonction vérifie si la clé existe
    2

    Ajouter ce code ci-dessous le code indiqué dans la dernière étape : .

    Fonction KeyFound ( ByVal keyName )

    keyFound = false

    Dim rightCharacter

    rightCharacter = droite ( keyName , 1)

    si rightCharacter <> "\\" Alors keyName = keyName & "\\" < br >

    On Error Resume Next

    CreateObject (" wscript.shell " ) RegRead trim ( keyName )
    cas de sélection de

    erreur

    case 0: . keyFound = true

    fin select

    fin fonction

    c'est la fonction " KeyFound " . Elle ajoute une barre à l' extrémité de la clé , et s'il n'en existe pas exécute la méthode " RegRead " . Le "on error" déclaration permet au programme de continuer à fonctionner même si la méthode " RegRead " ne parvient pas à trouver la clé de registre désiré. Si la méthode trouve une clé , le code définit la valeur de " keyFound " à true.
    3

    Enregistrez le fichier avec l'extension VBS . Par exemple, si vous voulez le nommer " CheckKeys , " enregistrer sous " CheckKeys.vbs . "
    4

    Lancez l'Explorateur Windows et recherchez le fichier . Double-cliquez sur ce fichier pour exécuter le programme . Il exécute et affiche " La clé existe " si elle trouve la clé ou " La clé n'existe pas" si elle n'existe pas.

    Previous :

    next :
      articles connexes
    ·Comment ajouter Vb.Net données à un document XML 
    ·Comment pomper des messages avec Vb.Net 
    ·Comment faire pour résoudre des équations dans Visual…
    ·Comment exporter les données d'un champ à un autre da…
    ·Comment vérifier un Radiobutton sur Vb.Net 
    ·Types de nombre variable dans VBA 
    ·Comment vérifier MouseDown en Visual Basic 
    ·Comment réinitialiser un mot de passe script local Adm…
    ·Comment faire VBA entrée Boîtes 
    ·Comment faire pour convertir RTF en texte brut dans Vis…
      articles en vedette
    ·Qu'est-ce qu'un système de grille 
    ·Comment récupérer une structure de table MySQL en PHP…
    ·Comment faire pour supprimer la Publication de l'heure …
    ·Comment lire XML à l'aide VB.NET 
    ·Quelle est la commande PHP WordPress pour Obtenez les m…
    ·Comment Word Wrap Avec Visual C 
    ·PHP XML Conversion 
    ·Comment passer un vecteur de conteneurs à une fonction…
    ·Comment définir la largeur de l'image et de hauteur à…
    ·Comment vérifier si une valeur est dans un Hash en Pyt…
    Copyright © Connaissances Informatiques http://fr.wingwit.com