VBA操作注册表的三种方法

1. 利用VBA内置的方法实现。VBA内置操作注册表的四个函数分别是SaveSetting（写入注册表）、GetSetting（读取注册表）、GetAllSettings（获得注册表的键和值）和DeleteSetting（删除键或值）。但内置方法只能操作注册表中的HKEY_CURRENT_USER\Software\VB and VBAprogramSettings下的子键或者注册表

Sub Build_inReg()

Dim xRegKey As Variant

Dim xRegValue As Variant

Dim i As Integer

Dim xValue As String

Dim xAllKeyValueArr As Variant

On Error Resume Next

xRegKey = Array("KeyOne", "KeyTwo","KeyThree")

xRegValue = Array("ValueOne", "ValueTwo","ValueThree")

'写入注册表

For i = 0 To UBound(xRegKey)

  SaveSetting"ProjectName", "RegItems", xRegKey(i), xRegValue(i)

Next

'读取注册表

For i = 0 To UBound(xRegKey)

  xValue =GetSetting("ProjectName", "RegItems", xRegKey(i),xRegValue(i))

  MsgBox xValue

Next

'获取所有键值

xAllKeyValueArr = GetAllSettings("ProjectName","RegItems")

'删除键值

DeleteSetting "ProjectName","RegItems"

End Sub

2. 利用WindowsScripting Host的注册表函数来完成。WSH的RegWrite（设置注册表的键和值），RegRead（获得注册表的键和值），RegDelete（删除键和值）。

Sub WSHReg()

Dim xRegMainKey As String

Dim xRegKey As Variant

Dim xRegValue As Variant

Dim i As Integer

Dim xValue As String

Dim xWSH As Object

On Error Resume Next

Set xWSH = CreateObject("WScript.Shell")

xRegMainKey = "HKEY_CURRENT_USER\Software\" '按自己需求选择注册表主键

xRegKey = Array("KeyOne", "KeyTwo","KeyThree", "KeyFour")

xRegValue = Array("ValueOne", "Valuetwo","ValueThree", "ValueFour")

'写入注册表

For i = 0 To UBound(xRegKey)

  xWSH.RegWritexRegMainKey + "ProjectName" + "\" + "RegItems" +"\" + xRegKey(i), xRegValue(i) '(xRegMainKey +"ProjectName" + "\" + "RegItems" + "\"+ xRegKey(i) + xRegValue(i))

Next

'读取注册表

For i = 0 To UBound(xRegKey)

  xValue =xWSH.RegRead(xRegMainKey + "ProjectName" + "\RegItems\" +xRegKey(i))

  MsgBox xValue

Next

'删除注册表

xWSH.RegDelete xRegMainKey & "ProjectName"& "\RegItems\"

xWSH.RegDelete xRegMainKey & "ProjectName\"

End Sub

3.使用WMI（WindowsManagement Instrumentation）对象的StdRenProv类操作注册表，没有范围限制、功能强大。

Sub WMIReg()

Dim xValue

Dim xName

Dim xType

Dim i As Integer

Dim xStrTemp As String

Dim xWMIObj As Object

On Error Resume Next

Const HKEY_CURRENT_USER = &H80000001

Set xWMIObj = GetObject("winmgmts:\\.\root\default:StdRegProv")

xWMIObj.CreateKey HKEY_CURRENT_USER,"MyTest\test"                 '创建注册表键值

'写入注册表

xWMIObj.SetBinaryValue HKEY_CURRENT_USER, "MyTest\test","test1", Array(&H0, &H0, &H1)

xWMIObj.SetStringValue HKEY_CURRENT_USER,"MyTest\test", "test2", "2"

xWMIObj.SetDWORDValue HKEY_CURRENT_USER,"MyTest\test", "test3", "3"

'读取注册表

xWMIObj.getbinaryvalue HKEY_CURRENT_USER,"MyTest\test", "test1", xValue

For i = 0 To UBound(xValue)

  MsgBox xValue(i)

Next

'xWMIObj.deletevalue HKEY_CURRENT_USER,"MyTest\test", "test1"

xWMIObj.EnumValues HKEY_CURRENT_USER,"MyTest\test", xName, xType

For i = 0 To UBound(xName)

  If xType(i) = 1Then

   xWMIObj.Getstringvalue HKEY_CURRENT_USER, "MyTest\test",xName(i), xValue

    MsgBox xValue

  ElseIf xType(i) =4 Then

   xWMIObj.GetDWORDValue HKEY_CURRENT_USER, "MyTest\test",xName(i), xValue

    MsgBox xValue

  End If

Next

'删除注册表

xWMIObj.DeleteKey HKEY_CURRENT_USER,"MyTest\test"

xWMIObj.DeleteKey HKEY_CURRENT_USER, "MyTest"

End Sub

注意：

1：

HKEY_CLASSES_ROOT       0x80000000

HKEY_CURRENT_USER       0x80000001

HKEY_LOCAL_MACHINE       0x80000002

HKEY_USERS       0x80000003

HKEY_CURRENT_CONFIG       0x80000005

2：

REG_SZ(字符串型)       1

REG_EXPAND(可扩充字符串型)       2

REG_BINARY(二进制型)       3

REG_DWORD(双字节型)       4

REG_MULTI_SZ(多字符串型)       7