软件开发培训班 >> 编程开发 >> VbScript


用vbs更改 Internet Explorer 的标题栏

问：
您好，脚本专家！最近我注册了新的 Internet 服务，现在每次我启动 Internet Explorer 时窗口标题显示 Internet Explorer 由 Fabrikam.com 提供 。如何更改 Internet Explorer 的标题栏？
-- AD
答：
您好，AD 。您知道，您的问题让脚本专家在道德和伦理方面进退两难 。在我们收到您的电子邮件的同时，我们收到了另一封电子邮件，其内容如下：
“您好，脚本专家！我知道许多公司配置了 Internet Explorer，从而其用户每次启动 Internet Explorer 时，窗口标题显示 Internet Explorer 由 Fabrikam.com 提供，希望我也能做到 。如何更改 Internet Explorer 的标题栏？”
那么，标题栏显示 Internet Explorer 由 Fabrikam.com 提供是件好事，还是坏事呢？这让我们无所适从 。但是，作为脚本专家，我们的工作不是告诉您孰是孰非 。我们的工作只是为人们提供能够更改 Internet Explorer 标题栏的脚本：
复制代码 代码如下:

Const HKEY_CURRENT_USER = &H80000001 
strComputer = "." 
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") 
strKeyPath = "SOFTWARE\Microsoft\Internet Explorer\Main" 
strValueName = "Window Title" 
strValue = "The Scripting Guys" 
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue 
默认情况下，Internet Explorer 显示任何打开网页的页面标题（若页面无标题则显示 URL） 。标题之后尾随的是短语 Microsoft Internet Explorer 。要将其更改为其他短语（或者完全删除附加的短语），您需要修改注册表值 HKCU\Software\Microsoft\Internet Explorer\Main\Window Title 。例如，将窗口标题设置为 The Scripting Guys 后，Internet Explorer 将如下图所示：

Internet Explorer


非常酷，哈？如果将窗口标题更改为 Internet Explorer 由 Fabrikam.com 提供，那么它将在页面标题后显示 。如果将值更改为空字符串 ("")，那么在 Internet Explorer 标题栏将仅显示页面名称：