首页 > 编程 > VBScript > 正文

用vbs更改 Internet Explorer 的标题栏

2019-10-26 17:58:52
字体:
来源:转载
供稿:网友
问:
您好,脚本专家!最近我注册了新的 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 标题栏将仅显示页面名称:

Internet Explorer
注意:如果您删除该注册表值会怎样?在这种情况下,Internet Explorer 将自动还原为显示默认短语 Microsoft Internet Explorer。
既然知道了标题栏的来龙去脉,那么脚本是怎样工作的呢?嗯,它首先定义一个名为 HKEY_CURRENT_USER 的常量并将其值设为 &H80000001;这告诉标准注册表提供程序(我们用来修改注册表的 WMI 对象)我们要使用哪个注册表单元。然后,我们可以使用下面这行代码绑定到本地计算机上的标准注册表提供程序:
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表

图片精选