论坛: 编程破解 标题: VB操作注册表问题，请大家来帮忙解决，谢谢。 复制本贴地址    
作者: hzqqun [hzqqun]    论坛用户   登录
Private Sub Command2_Click()
Dim hKey As Long
RegOpenKey HKEY_CURRENT_USER, "Software\microsoft\Windows\Current version\Policies\system", hKey
RegDeleteValue hKey, "DisableRegistryTools"
MsgBox "注册表已解锁!"
RegCloseKey hKey
End Sub
上面这段代码不知错在那里，请大家来帮忙。谢谢。
系统是用管理员用户登陆的！



地主 发表时间: 05-08-24 17:44
回复: legioncmdr [legioncmdr]   论坛用户   登录
检查下声明，还有键值有没有错，lpSubKey的那部分

B1层 发表时间: 05-08-25 13:14
回复: hzqqun [hzqqun]   论坛用户   登录
声明有写啊。如果我把代码改为：
Private Sub Command2_Click()
Dim hKey As Long
RegOpenKey HKEY_CURRENT_USER, "Software\microsoft\Windows\Current version\Policies\system", hKey
Dim ret As long
ret=RegDeleteValue(hKey, "DisableRegistryTools")
if ret=0 then
MsgBox "注册表已解锁!"
RegCloseKey hKey
elas
MsgBox "注册表解锁失败！"
End Sub


执行完毕都是注册表解锁失败的，这是什么原因啊？


B2层 发表时间: 05-08-25 16:12
回复: windflower [windflower]   论坛用户   登录
字符串 CurrentVersion中不要有空格，不可以是Current Version

B3层 发表时间: 05-08-25 20:45
回复: hzqqun [hzqqun]   论坛用户   登录
问题解决了，谢谢。

B4层 发表时间: 05-08-29 15:42

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon

粤ICP备05087286号