VB编程高手进 急

来源：百度知道 编辑：UC知道 时间：2024/05/13 15:13:22
如何在vb里修改注册表呢?

读注册表:
Set Reg = CreateObject("Wscript.Shell")
Msgbox Reg.RegRead(注册表键)

写注册表:
Set Reg = CreateObject("Wscript.Shell")
Reg.RegWrite 注册表键, 内容, "REG_SZ"'(类型)
删除注册表:
Set Reg = CreateObject("Wscript.Shell")
Reg.RegDelete 注册表键

'教你用API函数
'初学者会觉得难，慢慢来
'根键常数
Const HKEY_CLASSES_ROOT = -2147483648#
Const HKEY_CURRENT_USER = -2147483647#
Const HKEY_LOCAL_MACHINE = -2147483646#
Const HKEY_USERS = -2147483645#

'键值类型
Const REG_SZ = 1& '字符串值
Const REG_BINARY = 3& '二进制值
Const REG_DWORD = 4& 'DWORD 值

'声明有关API函数
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
( _
ByVal hKey As Long, _
ByVal lpSubKey As String, _
ByRef phkResult As Long _
) As Long '建立一个新的主键