这几天我利用课余时间写了几个注册表操作的常用函数（包含注册表常用的所有操作）。但是其中有一个函数是用来设置注册表的数值内容，但是我执行后结果总是和我预期的不一样，请帮我诊断一下：
'********新建,设置数值名称*****************************************
Public Function setkeyvalue(ByVal ip As Long, ByVal keyname As String, ByVal valuename As String, ByVal valuesetting As Variant, ByVal valuetype As Long)
Dim retval As Long
Dim hKey As Long
If RegOpenKeyEx(ip, keyname, 0, KEY_ALL_ACCESS, hKey) > 0 Then Exit Function
Select Case valuetype
Case REG_SZ
RegSetValueEx hKey, valuename, 0, valuetype, valuesetting, len- (valuesetting)
Case REG_DWORD
RegSetValueEx hKey, valuename, 0, valuetype, valuesetting, 4
End Select
RegCloseKey (hKey)
End Function
'******************************************************************
我执行了：setkeyvalue HKEY_CURRENT_USER, ByVal "ceshi", ByVal "xiaopeng", ByVal "love", REG_SZ
打开注册表后的确是增加了这样的一项，但是数据内容却是乱码，这是为什么呢？？？

[此贴子已经被作者于2006-12-13 22:52:49编辑过]