【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 _