双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

如何实现用VB备份并恢复注册表。。。

2005-10-11 08:37:09 149 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

sstlwg 墨衍会员 · AI 创作全网分发关注 + 加入社区

git lfs的安装和使用选择合适系统版本的git lfs安装阅读详情

如何用VB备份并恢复注册表。。。

色色了。。

...全文

LFS编译记录磁盘分区cfdisk /dev/hda 出错了，由于系统分配磁盘时不一定用hda作为名称，有可能是hdd或其他名称的，只要把名称找到并修改成相应的代码即可进入下一步cd /dev ls | grep hd 既然如此，使用hdd吧。cfdisk /dev/hdd 【交换分区swap】通过‘左右’键移动到【new】->【primary】->【size】输入512->【beginning】获得阅读详情

sstlwg

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

of123 2005-10-11

打赏
举报

注册表是在用的系统文件，复制和替换都很难。
不过可以试试用注册表的导出和导入功能。

导出，只要读出相关的键和子键以及键值，按其导出文件的格式写入一个文本文件中，以 .reg 扩展名保存。
导入，用 API函数 ShellExecute 执行 .reg 文件。

另一个方法就是利用 VBA 脚本代码，下面是微软给的例子：
------------------------------------------------------------------------
'
' This sample demonstrates how to write/delete entries in the registry.

L_Welcome_MsgBox_Message_Text = "此脚本显示如何创建和删除注册表项。"
L_Welcome_MsgBox_Title_Text = "Windows Scripting Host 范例"
Call Welcome()

' ********************************************************************************
' *
' * Registry related methods.
' *

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.Popup "创建项 HKCU\MyRegKey 数值为 'Top level key'"
WSHShell.RegWrite "HKCU\MyRegKey\", "Top level key"

WSHShell.Popup "创建项 HKCU\MyRegKey\Entry 数值为 'Second level key'"
WSHShell.RegWrite "HKCU\MyRegKey\Entry\", "Second level key"

WSHShell.Popup "将数值项 HKCU\MyRegKey\Value 设为 REG_SZ 1"
WSHShell.RegWrite "HKCU\MyRegKey\Value", 1

WSHShell.Popup "将数值项 HKCU\MyRegKey\Entry 设为 REG_DWORD 2"
WSHShell.RegWrite "HKCU\MyRegKey\Entry", 2, "REG_DWORD"

WSHShell.Popup "将数值项 HKCU\MyRegKey\Entry\Value1 设为 REG_BINARY 3"
WSHShell.RegWrite "HKCU\MyRegKey\Entry\Value1", 3, "REG_BINARY"

WSHShell.Popup "删除 HKCU\MyRegKey\Entry\Value1 数值"
WSHShell.RegDelete "HKCU\MyRegKey\Entry\Value1"

WSHShell.Popup "删除 HKCU\MyRegKey\Entry 项"
WSHShell.RegDelete "HKCU\MyRegKey\Entry\"

WSHShell.Popup "删除 HKCU\MyRegKey 项"
WSHShell.RegDelete "HKCU\MyRegKey\"

'***********************************************************************
Dim WshShell, bKey
Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY"
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\MindReader", "Goocher!", "REG_SZ"

bKey = WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\")
WScript.Echo WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader")

WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\MindReader"
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\"
WshShell.RegDelete "HKCU\Software\ACME\"

事先将注册表的内容读出，保存。然后利用创建、删除键以及写入键值来恢复注册表。
需用注意的是，1 在 NT 架构的操作系统中，改写注册表主要相应的权限；2 有些键在更改后需要重新启动系统才会生效。

✦双11狂欢大促✦

如何实现用VB备份并恢复注册表。。。

相关推荐

双11狂欢大促