【www.gdgbn.com--页面特效】

将下面的内容保存成.vbs文件,然后双击执行,在打开ie页面,在页面中点击右键,看看菜单中多了个什么!!:)
    Option Explicit
    
    dim hkey_root,hkey_path,hkey_key,filePath
    dim fs,fso,RegWsh
    hkey_root="HKEY_CURRENT_USER"
    hkey_path="SoftwareMicrosoftInternet Explorer"
    "//先创建文件
    set fs=Wscript.CreateObject("Scripting.FileSystemObject")
    filePath="C:pagesetup_default.htm"
    set fso=fs.CreateTextFile(filePath,true)
    fso.write("<script language=""VBScript"">"+vbcrlf _
       +"dim hkey_root,hkey_path,hkey_key,filePath,RegWsh" +vbcrlf _
       +"hkey_root=""HKEY_CURRENT_USER""" +vbcrlf _
       +"hkey_path=""SoftwareMicrosoftInternet Explorer""" +vbcrlf _
       +"filePath=""C:pagesetup_null.htm""" +vbcrlf _
       +""//设置网页打印的页眉页脚为默认值"+vbcrlf    _
       +"Set RegWsh = CreateObject(""WScript.Shell"")" +vbcrlf _
       +"hkey_key=""PageSetupheader""" +vbcrlf _
       +"RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""&w&b页码:&p/&P""" +vbcrlf _
       +"hkey_key=""PageSetupfooter""" +vbcrlf _

本文来源:http://www.gdgbn.com/wangyetexiao/8477/