脚本之家,脚本语言编程技术及教程分享平台!
分类导航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服务器之家 - 脚本之家 - VBS - 用vbs更改 Internet Explorer 的标题栏

用vbs更改 Internet Explorer 的标题栏

2020-07-08 11:51VBS教程网 VBS

最近我注册了新的 Internet 服务,现在每次我启动 Internet Explorer 时窗口标题显示 Internet Explorer 由 Fabrikam.com 提供。如何更改 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 由 Fabrikam.com 提供,那么它将在页面标题后显示。如果将值更改为空字符串 (""),那么在 Internet Explorer 标题栏将仅显示页面名称:


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

延伸 · 阅读

精彩推荐
  • VBSWINDOWS脚本实践:为SAP补丁制作的VBS脚本代码

    WINDOWS脚本实践:为SAP补丁制作的VBS脚本代码

    本文主要分享WINDOWS脚本实践:为SAP补丁制作的VBS脚本代码,有需要的童鞋可以参考下...

    脚本之家3232020-07-06
  • VBSAdsutil.vbs 在脚本攻击中的妙用[我非我原创]

    Adsutil.vbs 在脚本攻击中的妙用[我非我原创]

    adsutil.vbs是什么?相信用过IIS的网管员不会不知道。这是IIS自带的提供于命令行下管理IIS的一个脚本。位于%SystemDrive%\Inetpub\AdminScripts目录下。...

    VBS教程网2312020-07-07
  • VBS雷客图ASP站长安全助手vbs测试版代码

    雷客图ASP站长安全助手vbs测试版代码

    雷客图ASP站长安全助手是一个基于ASP的帮助站长维护网站安全的程序。这个版本(vbs测试版)主要用于服务器本地运行以查找ASP木马。此版本为测试版,希...

    脚本之家2312020-07-03
  • VBSVBS文本文件操作实现代码

    VBS文本文件操作实现代码

    这篇文章主要介绍了VBS文本文件操作实现代码,需要的朋友可以参考下...

    VBS代码网8912020-08-12
  • VBSVBS教程:正则表达式简介 -正则表达式语法

    VBS教程:正则表达式简介 -正则表达式语法

    正则表达式语法 一个正则表达式就是由普通字符(例如字符 a 到 z)以及特殊字符(称为元字符)组成的文字模式。该模式描述在查找文字主体时待匹配的...

    VBS教程网3302019-11-25
  • VBS灵活实用VBS入门教程应用篇

    灵活实用VBS入门教程应用篇

    上一篇文章我们了解了VBS编程的一些基础知识,要更深入地学习还要学习选择结构和循环结构。 ...

    VBS教程网5742020-07-01
  • VBSVBS数组深入浅出

    VBS数组深入浅出

    VBS数组在应用中没有像其他语句那么广泛,VBS数组存在不少功能上的局限性(如二维数组的定义、赋值),在使用上也没有java等语言那么便捷...

    VBS教程网2962020-08-18
  • VBSVBS编程教程 (第1篇)

    VBS编程教程 (第1篇)

    VBScript的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言....

    VBS教程网4812020-07-15