修改注册表值，但是键名中间要因电脑不同而修改如何实现

lc_lichuan

　　看看修改注册表，其实也不难，而最头痛的是如何来判断当你要修改某个注册表键值时而中间的键名又因计算机的不同而不同，如：Compact Check Count的键值，一般的如果outlook邮箱打开一次，其键值将增加1，当键值超过100，将在关闭outlook时提醒"要释放磁盘空，outlook express 可以压缩邮件。可能需要几分钟。"，当然还有其他情况下也会有这样的提示这里不多说了。通过修改注册表将可达到此目的，即将键值调回0。
　　废话莫多说，本人想将键值HKEY_CURRENT_USER\Identities\{B339FD6C-849F-460F-AACE-293CB59E3549}\Software\Microsoft\Outlook Express\5.0\Compact Check Count直接改为0,而中间的{B339FD6C-849F-460F-AACE-293CB59E3549}是因电脑而异的，所以，希望大家能帮忙解决这个问题，不甚感激

afan

回复 1# lc_lichuan
方法一：

Dim $i = 1, $v = '\Software\Microsoft\Outlook Express\5.0'
While 1
        $var = RegEnumKey("HKEY_CURRENT_USER\Identities", $i)
        If $var = '' Then ExitLoop
        $a = RegRead("HKCU\Identities" & $var & $v, "Compact Check Count")
        If $a <> '' Then
                RegWrite("HKCU\Identities" & $var & $v, "Compact Check Count", 'REG_DWORD', 0)
                ExitLoop
        EndIf
        $i += 1
WEnd

方法二：

$a = RegRead('HKCU\Identities', 'Default User ID')
RegWrite('HKCU\Identities\' & $a & '\Software\Microsoft\Outlook Express\5.0', "Compact Check Count", 'REG_DWORD', 0)

lc_lichuan

回复
afan 发表于 2009-12-3 14:47

    学习了，呵呵，第二个思路不错将获取到的键值应用到要修改的项名称，不知添个'&  &'是什么意思,是引用的意思么！

afan

回复 3# lc_lichuan


    & 是连接符

lc_lichuan

谢谢！学习到很多！

lc_lichuan

& 使两个字符串连接起来.比如 "one" & 10    (等于"one10")
帮助里的解释，呵呵

lc_lichuan

回复
afan 发表于 2009-12-3 14:47

    还有个就是为什么要填个单引号呢'&  &'它只是个项名呀

xwt620

那是对应前面和后面的字符串的
如RegWrite('HKCU\Identities\' & $a & '\Software\Microsoft\Outlook Express\5.0'
中的' & $a & '
前面 ' 对应 HKCU\Identities\
后面 ' 对应 \Software\Microsoft\Outlook Express\5.0

xwt620

可以理解为封闭

lc_lichuan

呵呵

boyhong

正在加紧学习，目前钟情于第一种方法。
第一种方法看着就有某种很爽的感觉。嘿嘿~~~