利用vbs脚本实现设置IE的打印页眉页脚信息
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 将下面的内容保存成.vbs文件，然后双击执行，在打开ie页面，在页面中点击右键，看看菜单中多了个什么！！：） 复制代码 代码如下: optionexplicit dimhkey_root,hkey_path,hkey_key,filepath dimfs,fso,regwsh hkey_root="hkey_current_user" hkey_path="\software\microsoft\internetexplorer" //先创建文件 setfs=wscript.createobject("scripting.filesystemobject") filepath="c:\pagesetup_default.htm" setfso=fs.createtextfile(filepath,true) fso.write("<scriptlanguage=""vbscript"">"+vbcrlf_ +"dimhkey_root,hkey_path,hkey_key,filepath,regwsh"+vbcrlf_ +"hkey_root=""hkey_current_user"""+vbcrlf_ +"hkey_path=""\software\microsoft\internetexplorer"""+vbcrlf_ +"filepath=""c:\pagesetup_null.htm"""+vbcrlf_ +"//设置网页打印的页眉页脚为默认值"+vbcrlf_ +"setregwsh=createobject(""wscript.shell"")"+vbcrlf_ +"hkey_key=""\pagesetup\header"""+vbcrlf_ +"regwsh.regwritehkey_root+hkey_path+hkey_key,""&w&b页码:&p/&p"""+vbcrlf_ +"hkey_key=""\pagesetup\footer"""+vbcrlf_ +"regwsh.regwritehkey_root+hkey_path+hkey_key,""&u&b&d"""+vbcrlf_ +"//设置右键菜单上的显示文字"+vbcrlf_ +"//首先删除原来的项，然后再设置新的项"+vbcrlf_ +"onerrorresumenext"+vbcrlf_ +"hkey_key=hkey_root+hkey_path+""\menuext\打印时恢复页眉页脚\"""+vbcrlf_ +"regwsh.regdeletehkey_key"+vbcrlf_ +"hkey_key=hkey_root+hkey_path+""\menuext\打印时去掉页眉页脚\"""+vbcrlf_ +"regwsh.regwritehkey_key,filepath"+vbcrlf_ +"//关闭regwsh"+vbcrlf_ +"setregwsh=nothing"+vbcrlf_ +"</script>") fso.close filepath="c:\pagesetup_null.htm" setfso=fs.createtextfile(filepath,true) fso.write("<scriptlanguage=""vbscript"">"+vbcrlf_ +"dimhkey_root,hkey_path,hkey_key,filepath,regwsh"+vbcrlf_ +"hkey_root=""hkey_current_user"""+vbcrlf_ +"hkey_path=""\software\microsoft\internetexplorer"""+vbcrlf_ +"filepath=""c:\pagesetup_default.htm"""+vbcrlf_ +"//设置网页打印的页眉页脚为空"+vbcrlf_ +"setregwsh=createobject(""wscript.shell"")"+vbcrlf_ +"hkey_key=""\pagesetup\header"""+vbcrlf_ +"regwsh.regwritehkey_root+hkey_path+hkey_key,"""""+vbcrlf_ +"hkey_key=""\pagesetup\footer"""+vbcrlf_ +"regwsh.regwritehkey_root+hkey_path+hkey_key,"""""+vbcrlf_ +"//设置右键菜单上的显示文字"+vbcrlf_ +"//首先删除原来的项，然后再设置新的项"+vbcrlf_ +"onerrorresumenext"+vbcrlf_ +"hkey_key=hkey_root+hkey_path+""\menuext\打印时去掉页眉页脚\"""+vbcrlf_ +"regwsh.regdeletehkey_key"+vbcrlf_ +"hkey_key=hkey_root+hkey_path+""\menuext\打印时恢复页眉页脚\"""+vbcrlf_ +"regwsh.regwritehkey_key,filepath"+vbcrlf_ +"//关闭regwsh"+vbcrlf_ +"setregwsh=nothing"+vbcrlf_ +"</script>") fso.close setregwsh=wscript.createobject("wscript.shell") hkey_key=hkey_root+hkey_path+"\menuext\打印时去掉页眉页脚\" regwsh.regwritehkey_key,"c:\pagesetup_null.htm" 以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: WSH 5.6(脚本宿主) 的新增功能下一篇: vbscript自动配置IIS的代码
关于利用vbs脚本实现设置IE的打印页眉页脚信息的所有评论
