在VB中读写注册表函数源码[1]

在以下地址贴中有乱码,

http://www.csdn.net/develop/article/8/8562.shtm

 现补充如下:

public function sysregcontrol(optional byval rootkey as regrootkey = reghkey_local_machine, optional byval subkey as string = "", optional byval key as string = "qilin", optional byref keyvalue as variant = "", optional regkeytype as regkeytypes = regtypestring, optional byval id as regcontrolid = regsetkeyvalue) as boolean
'***************************************************************************************
'setregkey 函数
'功能：
'   对注册表中指定键键进行操作
'参数:
'   rootkey     根键
'rootkey 说明
'{       reghkey_classes_root       = &h80000000
'        reghkey_current_user       = &h80000001
'        reghkey_local_machine      = &h80000002
'        reghkey_users          = &h80000003
'        reghkey_performance_data   = &h80000004
'        reghkey_current_config     = &h80000005
'        reghkey_dyn_data       = &h80000006
'}
'   subkey      子键路径
'   key     设置的键名
'   keyvalue    设置的键值
'   regkeytype  指定键值的类型
'regkeytype说明:
'{
'        regtypebinary          =&h00000001     'binary
'        regtypedword           =&h00000002 'dword
'        regtypestring          =&h00000003 'string
'}
'   id      函数操作功能号
'功能id说明:
'{       regsetkeyvalue         =111    '设置键值
'        reggetkeyvalue         =112    '取键值
'        regcreatkey            =113    '创建子键
'        regdeletekeys          =114    '删除末级子键
'        regdelallkey           =115    '删除非末级子键
'        regdeletevalues        =116    '删除键值
'        regother           =120    '保留操作id
'}
'返回值:
'   true        操作成功
'   false       操作失败
'   (c)2001.3.2
'*****************************************************************************************
dim i as long
on error goto regoptionerror
'if rootkey then

    select case id
'=========================================================================================
        case regsetkeyvalue '=111   '设置键值
'=========================================================================================
            rtn = regopenkeyex(rootkey, subkey, 0, key_write, hkey)
            if rtn = error_success then
'{

            select case regkeytype
'----------------------------------------------------------------------------------------
            case regtypebinary      '=&h00000001        'binary

'此模式下参数keyvalue须以字符串形式传入,调用实例:
'sysregcontrol reghkey_local_machine, "jadgekylin\jklpos", "pos", "jadgekylin@yesky.com", regtypebinary, regsetkeyvalue
'----------------------------------------------------------------------------------------