妙用VBScript自制IE工具栏按钮(转)

妙用vbscript自治ie东西栏按钮文/徐喜峰 ie东西栏上的百般按钮可不是microsoft的专利，普遍用户一律不妨对其举行自设置，增添想树立的按钮，至于增添的本领，很多材料上都引见过。简直的实行办法不过乎两种，一是运用繁杂且搀杂的vc或vb代码步调，这对普遍用户来说诉求是过高了一点，常常搞得人满头雾水而不达手段；二是用细工的本领来实行，然而这种本领由于要大幅度地窜改体例备案表，体例极不安定，一不提防就会画蛇添足，让你从新安置体例！我这边引见一个折衷的本领，用vbscript自治ie东西栏按钮，它既不须要繁杂搀杂的步调代码，又不须要烦琐地去窜改体例备案表，但一律能到达自治ie东西栏按钮的手段。不管是用vb或vc仍旧用细工的本领增添按钮，说究竟即是要去窜改体例备案表。vbscript也不不同，然而它的代码大略易懂，安定易学。既是要改备案表，那就要领会操纵目的在备案表中的的路途。ie的自治东西栏按钮在备案表中的的路途为：[hkey_local_machine\software\microsoft\internet explorer\extensions]在该分支下的每一个主键，即表白一个自治的东西栏按钮。如：{cd67f990-d8e9-11d2-98fe-00c0f0318afe}表白：realplayer{57e91b47-f40a-11d1-b792-444553540000}表白：netants仿造之上那些主键，咱们不妨本人“创造”一个{00000000-0000-0000-0000-000000000001}（然而要提防的是，这一个键值确定假如独一的，要不大概妨害其它的东西栏按钮）。在这每一个主键之下常常有以次几个键值（均为字符串型）：buttontext：自设置按钮上表露的文本。clsid： ie东西条的类标识码，恒为“{1fba04ee-3024-11d2-8f1f-0000f87abd16}”。default visible：遏制自设置按钮能否看来，普遍为“yes”。exec：自设置按钮实行的目的，不妨为执路途序或超文本链接。hoticon：鼠标移到按钮上时表露的图标。icon：按钮平常表露的图标。 menutext：在ie的“东西”菜单中表露的菜单项。 menustatusbar：在状况条上表露的“解释”文本。领会了那些必备常识，再来用vbscript自治ie东西栏按钮就不难了，底下我就以增添“我的电脑”按钮为例，来证明用vbscript实行自治ie东西栏按钮的本领。addbutton.vbs(将下述代码生存为addbutton.vbs文献)'设置一个能与操纵体例勾通的东西dim wshshellset wshshell=wscript.createobject("wscript.shell")'设置与按钮关系的百般参数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的图标keydata_52="c:\program files\real\realplayer\eb_act.ico"keyname_61="icon"'滥用realplayer的图标keydata_62="c:\program files\real\realplayer\eb_inact.ico"keyname_71="menutext"keydata_72="我的电脑"keyname_81="menustatusbar"keydata_82="翻开我的电脑" '设置与操纵备案表关系的参数regpath="hkey_local_machine\software\microsoft\internet explorer\extensions\{00000000-0000-0000-0000-000000000001}\"datatype="reg_sz"'设置一个在备案表中增添各项参数的功效因变量function valueadd(keyname,keydata)wshshell.regwrite regpath&keyname,keydata,datatypeend function'挪用add()进程，增添各项参数到备案表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)'弹出“确认”消息框，并作出相映的处置dim confirmconfirm=msgbox("自治按钮已胜利增添，须要从新启用体例本领奏效，要从新启用吗?",4,"请确认!")if confirm=6 thenmsgbox("自治按钮已胜利树立,请从新启用体例!")elsewscrip t.quit()end if