快速业务通道

用vbs更改 Internet Explorer 的标题栏

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

ConstHKEY_CURRENT_USER=&H80000001
strComputer="."
SetobjReg=GetObject("winmgmts:\\"&strComputer&"\root\default:StdRegProv")
strKeyPath="SOFTWARE\Microsoft\InternetExplorer\Main"
strValueName="WindowTitle"
strValue="TheScriptingGuys"
objReg.SetStringValueHKEY_CURRENT_USER,strKeyPath,strValueName,strValue
默认情况下,InternetExplorer显示任何打开网页的页面标题(若页面无标题则显示URL)。标题之后尾随的是短语MicrosoftInternetExplorer。要将其更改为其他短语(或者完全删除附加的短语),您需要修改注册表值HKCU\Software\Microsoft\InternetExplorer\Main\WindowTitle。例如,将窗口标题设置为TheScriptingGuys后,InternetExplorer将如下图所示:


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


注意:如果您删除该注册表值会怎样?在这种情况下,InternetExplorer将自动还原为显示默认短语MicrosoftInternetExplorer。
既然知道了标题栏的来龙去脉,那么脚本是怎样工作的呢?嗯,它首先定义一个名为HKEY_CURRENT_USER的常量并将其值设为&H80000001;这告诉标准注册表提供程序(我们用来修改注册表的WMI对象)我们要使用哪个注册表单元。然后,我们可以使用下面这行代码绑定到本地计算机上的标准注册表提供程序:
SetobjReg=GetObject("winmgmts:\\"&strComputer&"\root\default:StdRegProv")
是的,与WindowsScriptHost的注册表方法不同,您可以使用标准注册表提供程序读写远程计算机上的注册表。您只需将远程计算机的名称赋给变量strComputer。
建立连接后,我们需要为下面三个不同的变量赋值:
•strKeyPath是在其中找到窗口标题的注册表项。本例中,它是Software\Microsoft\InternetExplorer\Main。
•strValueName是我们要修改的注册表值的名称(窗口标题)。
•strValue是要赋给窗口标题的新值。因为窗口标题是REG_SZ数据类型,故strValue必须是字符串值。如上文所述,将strValue设置为空字符串("")时,将不会向InternetExplorer标题栏添加其他词语。
要真正改变注册表值,只需要调用SetDWORDValue方法,传递常量和三个变量(按以下顺序):
objReg.SetStringValueHKEY_CURRENT_USER,strKeyPath,strValueName,strValue
至此您已实现了您的目的。如果窗口标题不存在,也没有什么问题:SetStringValue将首先创建新的注册表值,然后将所需的字符串赋给它。
对此,我们只能做到这些。从现在开始将由各位决定如何充分利用这一新发现的知识。请明智地做出选择。

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号