用vbs更改 Internet Explorer 的標(biāo)題欄
更新時間:2007年03月25日 00:00:00 作者:
問:
您好,腳本專家!最近我注冊了新的 Internet 服務(wù),現(xiàn)在每次我啟動 Internet Explorer 時窗口標(biāo)題顯示 Internet Explorer 由 Fabrikam.com 提供。如何更改 Internet Explorer 的標(biāo)題欄?
-- AD
答:
您好,AD。您知道,您的問題讓腳本專家在道德和倫理方面進退兩難。在我們收到您的電子郵件的同時,我們收到了另一封電子郵件,其內(nèi)容如下:
“您好,腳本專家!我知道許多公司配置了 Internet Explorer,從而其用戶每次啟動 Internet Explorer 時,窗口標(biāo)題顯示 Internet Explorer 由 Fabrikam.com 提供,希望我也能做到。如何更改 Internet Explorer 的標(biāo)題欄?”
那么,標(biāo)題欄顯示 Internet Explorer 由 Fabrikam.com 提供是件好事,還是壞事呢?這讓我們無所適從。但是,作為腳本專家,我們的工作不是告訴您孰是孰非。我們的工作只是為人們提供能夠更改 Internet Explorer 標(biāo)題欄的腳本:
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
默認(rèn)情況下,Internet Explorer 顯示任何打開網(wǎng)頁的頁面標(biāo)題(若頁面無標(biāo)題則顯示 URL)。標(biāo)題之后尾隨的是短語 Microsoft Internet Explorer。要將其更改為其他短語(或者完全刪除附加的短語),您需要修改注冊表值 HKCU\Software\Microsoft\Internet Explorer\Main\Window Title。例如,將窗口標(biāo)題設(shè)置為 The Scripting Guys 后,Internet Explorer 將如下圖所示:

注意:如果您刪除該注冊表值會怎樣?在這種情況下,Internet Explorer 將自動還原為顯示默認(rèn)短語 Microsoft Internet Explorer。
既然知道了標(biāo)題欄的來龍去脈,那么腳本是怎樣工作的呢?嗯,它首先定義一個名為 HKEY_CURRENT_USER 的常量并將其值設(shè)為 &H80000001;這告訴標(biāo)準(zhǔn)注冊表提供程序(我們用來修改注冊表的 WMI 對象)我們要使用哪個注冊表單元。然后,我們可以使用下面這行代碼綁定到本地計算機上的標(biāo)準(zhǔn)注冊表提供程序:
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
是的,與 Windows Script Host 的注冊表方法不同,您可以使用標(biāo)準(zhǔn)注冊表提供程序讀寫遠程計算機上的注冊表。您只需將遠程計算機的名稱賦給變量 strComputer。
建立連接后,我們需要為下面三個不同的變量賦值:
• strKeyPath 是在其中找到窗口標(biāo)題的注冊表項。本例中,它是 Software\Microsoft\Internet Explorer\Main。
• strValueName 是我們要修改的注冊表值的名稱(窗口標(biāo)題)。
• strValue 是要賦給窗口標(biāo)題的新值。因為窗口標(biāo)題是 REG_SZ 數(shù)據(jù)類型,故 strValue 必須是字符串值。如上文所述,將 strValue 設(shè)置為空字符串 ("") 時,將不會向 Internet Explorer 標(biāo)題欄添加其他詞語。
要真正改變注冊表值,只需要調(diào)用 SetDWORDValue 方法,傳遞常量和三個變量(按以下順序):
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
至此您已實現(xiàn)了您的目的。如果窗口標(biāo)題不存在,也沒有什么問題:SetStringValue 將首先創(chuàng)建新的注冊表值,然后將所需的字符串賦給它。
對此,我們只能做到這些。從現(xiàn)在開始將由各位決定如何充分利用這一新發(fā)現(xiàn)的知識。請明智地做出選擇。
您好,腳本專家!最近我注冊了新的 Internet 服務(wù),現(xiàn)在每次我啟動 Internet Explorer 時窗口標(biāo)題顯示 Internet Explorer 由 Fabrikam.com 提供。如何更改 Internet Explorer 的標(biāo)題欄?
-- AD
答:
您好,AD。您知道,您的問題讓腳本專家在道德和倫理方面進退兩難。在我們收到您的電子郵件的同時,我們收到了另一封電子郵件,其內(nèi)容如下:
“您好,腳本專家!我知道許多公司配置了 Internet Explorer,從而其用戶每次啟動 Internet Explorer 時,窗口標(biāo)題顯示 Internet Explorer 由 Fabrikam.com 提供,希望我也能做到。如何更改 Internet Explorer 的標(biāo)題欄?”
那么,標(biāo)題欄顯示 Internet Explorer 由 Fabrikam.com 提供是件好事,還是壞事呢?這讓我們無所適從。但是,作為腳本專家,我們的工作不是告訴您孰是孰非。我們的工作只是為人們提供能夠更改 Internet Explorer 標(biāo)題欄的腳本:
復(fù)制代碼 代碼如下:
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

非??幔??如果將窗口標(biāo)題更改為 Internet Explorer 由 Fabrikam.com 提供,那么它將在頁面標(biāo)題后顯示。如果將值更改為空字符串 (""),那么在 Internet Explorer 標(biāo)題欄將僅顯示頁面名稱:

注意:如果您刪除該注冊表值會怎樣?在這種情況下,Internet Explorer 將自動還原為顯示默認(rèn)短語 Microsoft Internet Explorer。
既然知道了標(biāo)題欄的來龍去脈,那么腳本是怎樣工作的呢?嗯,它首先定義一個名為 HKEY_CURRENT_USER 的常量并將其值設(shè)為 &H80000001;這告訴標(biāo)準(zhǔn)注冊表提供程序(我們用來修改注冊表的 WMI 對象)我們要使用哪個注冊表單元。然后,我們可以使用下面這行代碼綁定到本地計算機上的標(biāo)準(zhǔn)注冊表提供程序:
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
是的,與 Windows Script Host 的注冊表方法不同,您可以使用標(biāo)準(zhǔn)注冊表提供程序讀寫遠程計算機上的注冊表。您只需將遠程計算機的名稱賦給變量 strComputer。
建立連接后,我們需要為下面三個不同的變量賦值:
• strKeyPath 是在其中找到窗口標(biāo)題的注冊表項。本例中,它是 Software\Microsoft\Internet Explorer\Main。
• strValueName 是我們要修改的注冊表值的名稱(窗口標(biāo)題)。
• strValue 是要賦給窗口標(biāo)題的新值。因為窗口標(biāo)題是 REG_SZ 數(shù)據(jù)類型,故 strValue 必須是字符串值。如上文所述,將 strValue 設(shè)置為空字符串 ("") 時,將不會向 Internet Explorer 標(biāo)題欄添加其他詞語。
要真正改變注冊表值,只需要調(diào)用 SetDWORDValue 方法,傳遞常量和三個變量(按以下順序):
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
至此您已實現(xiàn)了您的目的。如果窗口標(biāo)題不存在,也沒有什么問題:SetStringValue 將首先創(chuàng)建新的注冊表值,然后將所需的字符串賦給它。
對此,我們只能做到這些。從現(xiàn)在開始將由各位決定如何充分利用這一新發(fā)現(xiàn)的知識。請明智地做出選擇。
相關(guān)文章
vbs ShellExecute運行外部程序時如何判斷外部程序執(zhí)行成功與否
這篇文章主要介紹了vbs ShellExecute運行外部程序時如何判斷外部程序執(zhí)行成功與否,需要的朋友可以參考下2023-06-06利用計劃任務(wù)和VBS腳本實現(xiàn)自動WEB共享文件夾里的文件
其實沒有題目寫得那么復(fù)雜,就是用計劃任務(wù)每隔一段時間調(diào)用VBS腳本,刷新生成一個文件列表文件用于WEB服務(wù)調(diào)用。2008-12-12ie7 0day當(dāng)中的shellcode的escape+xor21加密
shellcode的escape+xor21加密2008-12-12window通過vbs+bat實現(xiàn)自動在后臺運行nodejs application
這篇文章主要介紹了window通過vbs+bat實現(xiàn)自動在后臺運行nodejs application,需要的朋友可以參考下2016-11-11