利用vbs腳本實現設置IE的打印頁眉頁腳信息

2020-03-24 18:00:34

字體：大中小

來源：轉載

供稿：網友

將下面的內容保存成.vbs文件，然后雙擊執行，在打開ie頁面，在頁面中點擊右鍵，看看菜單中多了個什么！！：）

復制代碼代碼如下:
option explicit

dim hkey_root,hkey_path,hkey_key,filepath
dim fs,fso,regwsh

hkey_root="hkey_html' target='_blank'>current_user"
hkey_path="/software/microsoft/internet 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=""/software/microsoft/internet explorer""" +vbcrlf _
+"filepath=""c:/pagesetup_null.htm""" +vbcrlf _
+"http://設置網頁打印的頁眉頁腳為默認值"+vbcrlf _
+"set regwsh = createobject(""wscript.shell"")" +vbcrlf _
+"hkey_key=""/pagesetup/header""" +vbcrlf _
+"regwsh.regwrite hkey_root+hkey_path+hkey_key,""&w&b頁碼:&p/&p""" +vbcrlf _
+"hkey_key=""/pagesetup/footer""" +vbcrlf _
+"regwsh.regwrite hkey_root+hkey_path+hkey_key,""&u&b&d""" +vbcrlf _
+"http://設置右鍵菜單上的顯示文字" +vbcrlf _
+"http://首先刪除原來的項，然后再設置新的項"+vbcrlf _
+"on error resume next" +vbcrlf _
+"hkey_key=hkey_root+hkey_path+""/menuext/打印時恢復頁眉頁腳/""" +vbcrlf _
+"regwsh.regdelete hkey_key" +vbcrlf _
+"hkey_key=hkey_root+hkey_path+""/menuext/打印時去掉頁眉頁腳/""" +vbcrlf _
+"regwsh.regwrite hkey_key,filepath" +vbcrlf _
+"http://關閉regwsh" +vbcrlf _
+"set regwsh=nothing"+vbcrlf _
+" /script ")
fso.close

filepath="c:/pagesetup_null.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=""/software/microsoft/internet explorer""" +vbcrlf _
+"filepath=""c:/pagesetup_default.htm""" +vbcrlf _
+"http://設置網頁打印的頁眉頁腳為空" +vbcrlf _
+"set regwsh =createobject(""wscript.shell"")" +vbcrlf _
+"hkey_key=""/pagesetup/header""" +vbcrlf _
+"regwsh.regwrite hkey_root+hkey_path+hkey_key,""""" +vbcrlf _
+"hkey_key=""/pagesetup/footer""" +vbcrlf _
+"regwsh.regwrite hkey_root+hkey_path+hkey_key,""""" +vbcrlf _
+"http://設置右鍵菜單上的顯示文字" +vbcrlf _
+"http://首先刪除原來的項，然后再設置新的項" +vbcrlf _
+"on error resume next"+vbcrlf _
+"hkey_key=hkey_root+hkey_path+""/menuext/打印時去掉頁眉頁腳/""" +vbcrlf _
+"regwsh.regdelete hkey_key"+vbcrlf _
+"hkey_key=hkey_root+hkey_path+""/menuext/打印時恢復頁眉頁腳/""" +vbcrlf _
+"regwsh.regwrite hkey_key,filepath" +vbcrlf _
+"http://關閉regwsh" +vbcrlf _
+"set regwsh=nothing"+vbcrlf _
+" /script ")
fso.close

set regwsh=wscript.createobject("wscript.shell")
hkey_key=hkey_root+hkey_path+"/menuext/打印時去掉頁眉頁腳/"
regwsh.regwrite hkey_key,"c:/pagesetup_null.htm"

以上信息與文章正文是不可分割的一部分,如果您要轉載本文章,請保留以上信息，謝謝!html教程

鄭重聲明：本文版權歸原作者所有，轉載文章僅為傳播更多信息之目的，如作者信息標記有誤，請第一時間聯系我們修改或刪除，多謝。

上一篇：用VBS控制鼠標的實現代碼（獲取鼠標坐標、鼠標移動、鼠標單擊、鼠標雙擊、鼠標右擊）

下一篇：VBS教程：正則表達式簡介 -定位符