十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
.net2005 中My.Computer.Registry 对象的 CreateSubKey 方法可用于创建注册表项。
创新互联建站长期为上千多家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为裕华企业提供专业的网站设计、成都网站设计,裕华网站改版等技术服务。拥有10多年丰富建站经验和众多成功案例,为您定制开发。
过程
创建注册表项
使用 CreateSubKey 方法,指定在其下放置注册表项的配置单元以及注册表项的名称。参数 Subkey 不区分大小写。此示例在 HKEY_CURRENT_USER 下创建注册表项 MyTestKey。
My.Computer.Registry.CurrentUser.CreateSubKey("MyTestKey")
创建注册表项并在注册表项中设置值
使用 CreateSubkey 方法,指定在其下放置注册表项的配置单元以及注册表项的名称。此示例在 HKEY_CURRENT_USER 下创建注册表项 MyTestKey。
My.Computer.Registry.CurrentUser.CreateSubKey("MyTestKey")
用 SetValue 方法设置值。此示例将字符串值"MyTestKeyValue" 设置为 "This is a test value"。
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\MyTestKey", _
"MyTestKeyValue", "This is a test value.")
Set ws = CreateObject("wscript.shell")
ws.regwrite "HKEY_CURRENT_USER\Control panel\Desktop\ConvertedWallpaper", "c:\1.jpg", "REG_SZ"
首先你要把你的应用程序设定为始终获取管理员权限,也就是win7以上系统应用程序图标里有个小盾牌的样子
或者让使用者在运行时始终以管理员身份运行
然后在代码里写
if msgbox("即将修改注册表,是否继续",vbyesno) = vbyes then
修改注册表的代码
else
拒绝修改注册表的代码
end if
修改注册表的代码应该加 try catch 来防错