使用VBA读写Windows注册表
发布时间:2023-06-27 12:09:34
Windows注册表用于存储与计算机相关的各种设置,VBA中的GetSetting函数和SaveSetting函数能够读写Windows注册表,这样,我们不仅能够获取应用程序和硬件的信息,也可以将应用程序中的信息存储在注册表中以供使用。
SaveSetting
SaveSetting语句在Windows注册表中创建或保存一个应用程序项。其语法为:
SaveSetting appname, section,key, setting
其中:
1.参数appname,必需,字符串类型,指定应用程序的名称。
2.参数section,必需,字符串类型,指定区段名称,在该区段保存注册表项设置。
3.参数key,必需,字符串类型,指定要保存的注册表项名称。
4.参数setting,必需,字符串类型或数值类型,指定key的设置值。
说明:
1.该函数将值写入注册表中的HKEY_CURRENT_USER\Software\VBand VBA Program Settings键的子键。
2.如果在注册表中没有找到appname或者section子键,则会自动创建它们。
3.VB把setting作为字符串值写入注册表中。如果setting不是字符串,则会试图把它改成字符串以便写入注册表。
4.如果不能保存设置,则会导致运行时错误。
5.SaveSetting不允许改变注册表项的缺省值。
GetSetting
GetSetting函数从注册表中的应用程序项返回注册表项的设置值。其语法为:
GetSetting(appname, section,key[,default])
其中:
1.参数appname,必需,字符串类型,指定应用程序的名称,该应用程序有注册表项设置。
2.参数section,必需,字符串类型,指定区段名称,在该区段有注册表项设置。
3.参数key,必需,字符串类型,返回注册表项设置的名称。
4.参数default,可选,如果注册表项设置中没有设置值,则返回该缺省值。如果省略该参数,则其值是一个零长字符串(””)。
说明:
1.该函数从注册表中的HKEY_CURRENT_USER\Software\VBand VBA Program Settings键的子键中检索值。
2.该函数返回字符串值。因此,在使用从注册表返回的数值型值之前,应该使用合适的转换函数将返回值转换为数值数据类型。
3.GetSetting不能检索注册表项的缺省值。
GetAllSetting
GetAllSetting语句返回应用程序的注册表项及其相应的值,是一个Variant型的二维字符串数组。其语法为:
GetAllSetting(appname, section)
其中:
1.参数appname,必需,字符串类型,指定应用程序的名称。
2.参数section,必需,字符串类型,指定区段名称,在该区段有注册表项设置。
说明:
1.该函数从注册表中的HKEY_CURRENT_USER\Software\VBand VBA Program Settings键的子键中检索值。
2.该函数返回的数组中的第一维元素为项名,第二维元素为各个项的值。
3.该函数返回的二维数组的下标从0开始。因此,第一个注册表项名可以通过引用元素(0,0)获取。
4.该函数只能返回属于section指定的最终注册表主键的注册表项名和数据。如果主键含有一个或多个子键,则不能用这个函数读取它们的数据。
DeleteSetting
DeleteSetting语句删除应用程序子键或数值项。其语法为:
DeleteSetting appname[, section[, key]]
其中:
1.参数appname,必需,字符串类型,指定应用程序的名称。
2.参数section,可选,字符串类型,指定区段名称,可以是一个键或用反斜杠分开的注册表路径。
3.参数key,可选,字符串类型,要删除数值的注册表设置项名称。
说明:
1.该函数从注册表中的HKEY_CURRENT_USER\Software\VBand VBA Program Settings键的子键中删除值。
2.如果指定了参数key,那么只有名为key的数值项及其相关联的值被删除;如果忽略参数key,那么名为section的子键将被删除;如果忽略参数section,那么名为appname的应用程序子键将被删除。
3.DeleteSetting不能删除注册表项的缺省值。
4.除非确定好了,否则不要随便删除注册表项设置,以免误删除导致严重的后果。
示例
1.下面的代码将应用程序设置项写入注册表:
Sub TestControlReg()
SaveSetting “完美Excel”, _
“excelperfect\VBADev\MyPro”,_
“TestKey”, “100”
MsgBox “可以查看注册表了!”
End Sub
此时,打开注册表编辑器,导航到HKEY_CURRENT_USER\Software\VBand VBA Program Settings键下,会发现新增子键,如下图1所示。
图1
2.下面的代码从注册表中获取指定注册表项值:
Sub TestControlReg1()
Dim val As Long
val = GetSetting(“完美Excel”, _
“excelperfect\VBADev\MyPro”,_
“TestKey”)
MsgBox val
End Sub
运行代码后的结果如下图2所示。
图2
3.下面的代码删除指定键的注册表设置项名称:
Sub testCotrolReg2()
DeleteSetting “完美Excel”, _
“excelperfect\VBADev\MyPro”, _
“TestKey”
MsgBox “看看注册表!”
End Sub
4.下面是一段综合示例代码,演示了创建注册表项、更新注册表项、打印注册表项、打印所有注册表项、删除注册表项等操作。
Sub testReg()
Dim vKeys As Variant
‘创建注册表项
SaveSetting “MyAppTest”,”General”, “MyApp_Name”, “完美Excel”
SaveSetting “MyAppTest”,”General”, “MyApp_Ver”, “1.0”
SaveSetting “MyAppTest”,”General”, “MyApp_Date”, “2019/10/17”
‘打印注册表项值
PrintRegSettings
‘更新注册表项
SaveSetting “MyAppTest”,”General”, “MyApp_Ver”, “1.1”
SaveSetting “MyAppTest”,”General”, “MyApp_Date”, “2019/10/20”
‘打印注册表项值
PrintRegSettings
‘获取并打印所有注册表项值
vKeys =GetAllSettings(“MyAppTest”, “General”)
PrintAllSettings vKeys
‘删除所有注册表项
DeleteSetting “MyAppTest”,”General”, “MyApp_Name”
DeleteSetting “MyAppTest”,”General”, “MyApp_Ver”
DeleteSetting “MyAppTest”,”General”, “MyApp_Date”
PrintRegSettings
End Sub
Sub PrintRegSettings()
Dim str As String
On Error Resume Next
str = “应用程序名称:” & _
GetSetting(“MyAppTest”,”General”, “MyApp_Name”) & _
vbCrLf & “应用程序版本:” &_
GetSetting(“MyAppTest”,”General”, “MyApp_Ver”) & _
vbCrLf & “更新日期:” &_
GetSetting(“MyAppTest”,”General”, “MyApp_Date”)
MsgBox str
End Sub
Sub PrintAllSettings(vSettings As Variant)
Dim i As Integer
If IsArray(vSettings) Then
For i = 0 To UBound(vSettings)
Debug.Print vSettings(i, 0) &”: ” & _
vSettings(i, 1)
Next i
End If
End Sub
有兴趣的朋友可以自已动手实践一下上述测试程序,以此来熟悉VBA中的这几个操控注册表的函数。
猜你喜欢
- 如何创建自定义Word 2007词典?自定义内置的Word 2007词典,以满足特殊的写作和编辑需求。您可以训练拼写和语法检查器功能,以识别
- Win10开始菜单下载箭头图标非常方便易用。许多用户在更新系统后找不到此图标。其实,设置起来很方便。只需在个性化设置中打开它。让我们看看详细
- 在排版过程中,我们会遇到文字与图片位置的处理,这也就是涉及到了文字的环绕方式。那么具体的操作方法是怎么的呢?下面小编马上就告诉大家word设
- 如果我们使用的计算机硬件配置较低,在安装win10操作系统后找不到无线网络,小边认为这可能是由于驱动程序的问题。详细解决方法就来看下小编是怎
- 在word文档编辑时经常会插入表格,有许多数据需要写入,那么在word中如何插入一个表格?下面小编就为大家详细介绍一下,来看看吧如何在wor
- word2010如何排版?很多朋友都不是很清楚,下面小编就为大家word排版方法介绍,操作很简单,一起来看看吧 &
- 在wps表格中输入特殊符号的方法:首先在电脑上打开并新建一个WPS表格文档。如下图所示。 点击WPS表格上方的功能
- excel2003三维效果样式的长方体该怎么绘制?excel中想绘制一个立方体,该怎么绘制呢?下面我们就来看看excel2003中三维效果样
- Word文档信息怎么删除?有些用户在保存word文件的时候会自动把各种资料信息一起给保存了,类似有:作者、公司名称、最后编辑时间、批注等,当
- Win10系统有一些不兼容的游戏名单,很多小伙伴都不太清楚,下面小编整理了一份,另外如果遇到Win10游戏不兼容怎么办?小编也把方法教给大家
- 如何在Word 2013中绘制线条,边框和框?这里一行。有一条线。到处都是一条线。Word 2013提供了许多功能,其中包括线条,边框和框的
- 我们通常在Word文档上编辑好文档后,会把该文档发送给一些朋友,而在Word2007可以直接将编辑好的文档发送给多个人。很神奇吧,下面我们就
- 在我们的计算机安装并升级win101903版本系统后,一些小伙伴发现,在此之后,我们的计算机会自动更新最新版本。如果你想关闭自动更新功能,小
- 办公中可能经常需要打印word文档,方便分发给用户进行阅读。那你知道word一页内容怎么分成两页打印出来?应该有很多小伙伴不知道怎么操作,下
- 在使用Word编写书籍或者文稿时,我们都会有个习惯将每个段落前面空两个字符,这样可以很好的方便读者阅读时分辨段落。有的人习惯用几个空格来代替
- Excel提取指定条件的不重复值
- Win10系统可以说是最常用的系统之一,而网络是使用电脑的必备功能,不过有一些小伙伴在使用电脑的时候经常会自动断网,那么遇到这种情况应该怎么
- word是最基本的办公软件,掌握word怎么添加空白页是必不可少的,下面小编就教大家word插入空白页方法。word添加空白页的方法一步骤一
- Word2016空白页无法删除怎么办?你是否在写文档的时候遇到过一些删除不掉的空白页?或者自己刚刚插入的分页符不知道怎么取消?下面小编给大家
- word文字怎么添加拼音?办公技巧,让日常工作更轻松,今天分享的是常用的Word小技巧,日常办公轻松应对。1、文字上方添加拼音选中文字后,点