使用VB SCRIPT读取注册表项值

Question

我将网站存储在注册表中。 例如：

1. SOFTWARE\\Microsoft\\Internet Explorer\\Default Website

2. 密钥名称： Website

3. 键值： www.google.com/

然后，我尝试在IE中创建搜索插件。 下面是我用于此的代码。 当我对其进行硬编码时，它适用于Google，但我想使用注册表值来设置此变量。

<html>
<script language="VBSCRIPT">

    set parentwin = external.menuArguments
    str = trim(parentwin.document.selection.createRange().text)
    bnewwindow = parentwin.event.shiftKey

    defaultWebsite = ????????

    url = defaultWebsite +"search?q=" + escape(str)

    if(bnewwindow) then
        window.open(url)
    else
        parentwin.window.navigate(url)
    end if

</script>
</html>

Answer 1

您可以使用Shell对象读取和写入注册表值。 尝试实例化ActiveX控件时，您可能会在Internet Explorer中收到警告，因为这需要访问客户端PC。

' This uses HKCU. Change to HKLM, if you need.
Dim strKey = "HKCU\Software\Microsoft\Internet Explorer\Default Website\Website"

With CreateObject("WScript.Shell")
    defaultWebsite = .RegRead(strKey)
End With