vb怎么搜索注册表下某项的值

vb怎么搜索注册表下某项的值 [已结贴,结贴人:jiangqiaohua]

jiangqiaohua
求学于浙西
等级:

发表于：2008-02-29 16:28:30 楼主

'******************************************************************
'**********查询已存在的数值内容************************************
Public Function getvalue(ByVal ip As Long, KeyName As String, valuename As String) As String
Dim retval As Long
Dim hKey As Long
Dim valuesetting As Variant
Dim cddata As Long
Dim lvalue As Long
Dim svalue As String
Dim lvaluetye As Long

Dim lValueType As Long
retval = RegOpenKeyEx(ip, KeyName, 0, KEY_ALL_ACCESS, hKey)
If retval > 0 Then
getvalue = ""
Exit Function
End If
retval = RegQueryValueEx(hKey, valuename, 0, lValueType, ByVal vbNullString, cddata)
If retval <> 0 Then
RegCloseKey hKey
Exit Function
End If
Select Case lValueType
Case REG_SZ
svalue = String(cddata, Chr(0))
RegQueryValueEx hKey, valuename, 0, lValueType, ByVal svalue, cddata
valuesetting = Left$(svalue, cddata)
getvalue = CStr(valuesetting)
Case REG_DWORD
RegQueryValueEx hKey, valuename, 0, lValueType, lvalue, cddata
valuesetting = lvalue
getvalue = CStr(valuesetting)
End Select
End Function
'实例：获取HKEY_CURRENT_USER下的项"xiaopeng"中名为"redice"的新键的键值
'代码为 getvalue HKEY_CURRENT_USER ,"xiaopeng","redice"
'*********************************************************************

Private Sub dfd_Click()
Dim shell

'shell = getvalue(HKEY_USERS, "S-1-5-21-1715567821-113007714-725345543-1003", "")
shell = getvalue(HKEY_USERS, "S-1-5-21-1715567821-113007714-725345543-1003\Software\Microsoft\Internet Explorer\Main", "Start Page")
MsgBox shell
End Sub

用这个读取是没问题的
读出来IE 的主页为 http://www.fzpj.cn

我发现网上
读注册表获得

IE的主页地址
HKEY_USERS\S-1-5-21-1454471165-839522115-854245398-500\Software\Microsoft\Internet Explorer\Main\下
Start Page这个值

明显是不一样的
到同事电脑上一看
同样是XP
S-1-5-21-1715567821-113007714-725345543-1003

这个项的名称还是不一样的

那以为着要读取每台电脑主页的值就应该用搜索

应该是
shell = getvalue(HKEY_USERS, "(某个项名称)\Software\Microsoft\Internet Explorer\Main", "Start Page")

这个怎么做到啊
我想

Software\Microsoft\Internet Explorer\Main
这个位置肯定是一样的

问题点数：20 回复次数：4 修改删除举报引用回复