ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索

VBA注册表操作 - WshShell 对象

已有 1425 次阅读2013-1-10 16:55 |个人分类:注册表操作| 注册表, WshShell

WScript.Shell 对象提供了三个方法,分别是 RegWrite、RegDelete、RegWrite

键值的 5 种值:
┌───────────┬────────┬─────────┐
     类型       │                  描述                   │   形式
├────────────┼─────────┼─────────┤
 REG_SZ        │ 字符串                                   │ 字符串
 REG_DWORD     │ 数字                                     │ Integer 
 REG_BINARY    │ 二进制值                                 │ Integer数组 
 REG_EXPAND_SZ │ 可扩展的字符串(如:"%windir%\\calc.exe") │ 字符串 
 REG_MULTI_SZ  │ 字符串数组                               │ 字符串数组 
└─────────────────────────────

5 个根路径:
┌───────────┬──────────┐
       根路径名       │         简写
├────────────┼──────────┤
 HKEY_CURRENT_USER   │ HKCU
 HKEY_LOCAL_MACHINE  │ HKLM
 HKEY_CLASSES_ROOT   │ HKCR
 HKEY_USERS          HKEY_USERS
 HKEY_CURRENT_CONFIG │ HKEY_CURRENT_CONFIG
└──────────────────

RegRead 方法
    object.RegRead(strName)
    strName: 键名

RegWrite 方法
    object.RegWrite(strName, anyValue [, strType])
    strName: 键名,可创建、添加或更改
    anyValue: 键值
    strType: 可选,键的类型(REG_MULTI_SZ 类型不被 RegWrite 支持,REG_BINARY 则只能写入一个DWORD类型的值)

RegDelete 方法
    object.RegDelete(strName)
    strName: 键名

示例:

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
With WshShell
    .RegWrite "HKCU\Software\ACME\FortuneTeller\", 1 , "REG_BINARY"
    .RegWrite "HKCU\Software\ACME\FortuneTeller\MindReader", "Goocher!", "REG_SZ"

    Debug.Print .RegRead("HKCU\Software\ACME\FortuneTeller\")
    Debug.Print .RegRead("HKCU\Software\ACME\FortuneTeller\MindReader")

    .RegDelete "HKCU\Software\ACME\FortuneTeller\MindReader"
    .RegDelete "HKCU\Software\ACME\FortuneTeller\"
    .RegDelete "HKCU\Software\ACME\"
End With

路过

雷人

握手

鲜花

鸡蛋

评论 (0 个评论)

facelist

您需要登录后才可以评论 登录 | 免费注册

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-4-27 06:36 , Processed in 0.023504 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

返回顶部