您好,登錄后才能下訂單哦!
這篇文章主要介紹“利用VBScript自制IE工具欄按鈕”,在日常操作中,相信很多人在利用VBScript自制IE工具欄按鈕問(wèn)題上存在疑惑,小編查閱了各式資料,整理出簡(jiǎn)單好用的操作方法,希望對(duì)大家解答”利用VBScript自制IE工具欄按鈕”的疑惑有所幫助!接下來(lái),請(qǐng)跟著小編一起來(lái)學(xué)習(xí)吧!
IE工具欄上的各種按鈕可不是Microsoft的專利,普通用戶一樣能夠?qū)ζ溥M(jìn)行自定義,添加想設(shè)置的按鈕,至于添加的方法,很多資料上都介紹過(guò)。具體的實(shí)現(xiàn)方式不外乎兩種,一是使用冗長(zhǎng)且復(fù)雜的VC或VB代碼程序,這對(duì)普通用戶來(lái)說(shuō)要求是過(guò)高了一點(diǎn),通常搞得人滿頭霧水而不達(dá)目的;二是用手工的方法來(lái)完成,但是這種方法因?yàn)橐蠓鹊匦薷南到y(tǒng)注冊(cè)表,系統(tǒng)極不安全,一不小心就會(huì)弄巧成拙,讓你重新安裝系統(tǒng)!
我這里介紹一個(gè)折衷的方法,用VBScript自制IE工具欄按鈕,它既不需要冗長(zhǎng)復(fù)雜的程序代碼,又不需要繁瑣地去修改系統(tǒng)注冊(cè)表,但一樣能達(dá)到自制IE工具欄按鈕的目的。
無(wú)論是用VB或VC還是用手工的方法添加按鈕,說(shuō)到底就是要去修改系統(tǒng)注冊(cè)表。VBScript也不例外,但是它的代碼簡(jiǎn)單易懂,安全易學(xué)。既然要改注冊(cè)表,那就要知道操作目標(biāo)在注冊(cè)表中的的路徑。IE的自制工具欄按鈕在注冊(cè)表中的的路徑為:
[HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions]
在該分支下的每一個(gè)主鍵,即表示一個(gè)自制的工具欄按鈕。如:
{CD67F990-D8E9-11d2-98FE-00C0F0318AFE}表示:RealPlayer
{57E91B47-F40A-11D1-B792-444553540000}表示:NetAnts
仿照以上這些主鍵,我們可以自己“制造”一個(gè){00000000-0000-0000-0000-000000000001}(不過(guò)要注意的是,這一個(gè)鍵值一定要是唯一的,要不可能破壞其它的工具欄按鈕)。
在這每一個(gè)主鍵之下通常有以下幾個(gè)鍵值(均為字符串型):
ButtonText:自定義按鈕上顯示的文本。
CLSID: IE工具條的類(lèi)標(biāo)識(shí)碼,恒為“{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}”。
Default Visible:控制自定義按鈕是否可見(jiàn),一般為“Yes”。
Exec:自定義按鈕執(zhí)行的目標(biāo),可以為執(zhí)行程序或超文本鏈接。
HotIcon:鼠標(biāo)移到按鈕上時(shí)顯示的圖標(biāo)。
Icon:按鈕正常顯示的圖標(biāo)。
MenuText:在IE的“工具”菜單中顯示的菜單項(xiàng)。
MenuStatusBar:在狀態(tài)條上顯示的“注釋”文本。
知道了這些必備知識(shí),再來(lái)用VBScript自制IE工具欄按鈕就不難了,下面我就以添加“我的電腦”按鈕為例,來(lái)說(shuō)明用VBScript實(shí)現(xiàn)自制IE工具欄按鈕的方法。
AddButton.vbs(將下述代碼保存為AddButton.vbs文件)
'定義一個(gè)能與操作系統(tǒng)溝通的對(duì)象
Dim WSHShell
Set WSHShell=WScript.CreateObject("WScript.Shell")
'定義與按鈕相關(guān)的各種參數(shù)
KeyName_11="ButtonText"
KeyData_12="我的電腦"
KeyName_21="CLSID"
KeyData_22="{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}"
KeyName_31="Default Visible"
KeyData_32="Yes"
KeyName_41="Exec"
KeyData_42="C:\Windows\Explorer.exe"
KeyName_51="HotIcon"
'借用RealPlayer的圖標(biāo)
KeyData_52="C:\Program Files\Real\RealPlayer\eb_act.ico"
KeyName_61="Icon"
'借用RealPlayer的圖標(biāo)
KeyData_62="C:\Program Files\Real\RealPlayer\eb_inact.ico"
KeyName_71="MenuText"
KeyData_72="我的電腦"
KeyName_81="MenuStatusBar"
KeyData_82="打開(kāi)我的電腦"
'定義與操作注冊(cè)表相關(guān)的參數(shù)
RegPath="HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{00000000-0000-0000-0000-000000000001}\"
DataType="REG_SZ"
'定義一個(gè)在注冊(cè)表中添加各項(xiàng)參數(shù)的功能函數(shù)
Function ValueAdd(KeyName,KeyData)
WSHShell.RegWrite RegPath&KeyName,KeyData,DataType
End Function
'調(diào)用Add()過(guò)程,添加各項(xiàng)參數(shù)到注冊(cè)表
Call ValueAdd(KeyName_11,KeyData_12)
Call ValueAdd(KeyName_21,KeyData_22)
Call ValueAdd(KeyName_31,KeyData_32)
Call ValueAdd(KeyName_41,KeyData_42)
Call ValueAdd(KeyName_51,KeyData_52)
Call ValueAdd(KeyName_61,KeyData_62)
Call ValueAdd(KeyName_71,KeyData_72)
Call ValueAdd(KeyName_81,KeyData_82)
'彈出“確認(rèn)”信息框,并作出相應(yīng)的處理
Dim confirm
confirm=MsgBox("自制按鈕已成功添加,需要重新啟動(dòng)系統(tǒng)才能生效,要重新啟動(dòng)嗎?",4,"請(qǐng)確認(rèn)!")
If confirm=6 Then
MsgBox("自制按鈕已成功設(shè)置,請(qǐng)重新啟動(dòng)系統(tǒng)!")
Else
WScrip t.Quit()
End If
到此,關(guān)于“利用VBScript自制IE工具欄按鈕”的學(xué)習(xí)就結(jié)束了,希望能夠解決大家的疑惑。理論與實(shí)踐的搭配能更好的幫助大家學(xué)習(xí),快去試試吧!若想繼續(xù)學(xué)習(xí)更多相關(guān)知識(shí),請(qǐng)繼續(xù)關(guān)注億速云網(wǎng)站,小編會(huì)繼續(xù)努力為大家?guī)?lái)更多實(shí)用的文章!
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。