vbscript - VBscript RegRead 总是失败 - 我做错了什么？

Question

以下 VBscript 代码总是无法在本地注册表中找到指定的键，即使它确实存在。我究竟做错了什么？我正在运行 32 位 XP Pro/SP3。

Dim winShell
Set winShell = CreateObject("WScript.Shell")
If regKeyExists(winShell, "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\ProgName\") Then
    wscript.echo "ProgName key found"
Else
    wscript.echo "Key not found!"
End If
Set winShell = Nothing

Function regKeyExists (winObj, key)
    On Error Resume Next
    regKeyExists = True
    Err.Clear
    winObj.RegRead(key)
    If Err <> 0 Then regKeyExists = False
    Err.Clear
End Function

输出总是显示“找不到密钥！”，即使密钥存在。我难住了！

Answer 1

你确定你真的在找钥匙吗？通常，Run密钥包含 REG_SZ 或 REG_EXPAND_SZ值以在登录时自动启动程序。

检查当您更改代码以ProgName通过删除后的反斜杠来查找值时会发生什么ProgName：

If regKeyExists(winShell, "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\ProgName") Then
  ...