添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码
导读：收集整理的这篇文章主要介绍了添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:'/*...
收集整理的这篇文章主要介绍了添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:'/*=========================================================================
' * Intro 主要是解决在使用Webbrowser打印时，得先设置IE安全性的问题
' * FileName 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚.vbs
' * Author yongfa365
' * Version v1.0
' * Email yongfa365[at]QQ.COM
' * MadeTime 2009-06-18 23:12:55
' * LastModify 2009-06-18 23:12:55
' *==========================================================================*/
Const HKEY_current_USER = & H80000001
Set objReg = GetObject("winmgmts:{ imPErsonationLevel=impersonate} !\\.\root\default:StdRegPRov")
'添加网站到安全站点
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\internet Settings\ZoneMap\Domains\yongfa365.com"
objReg.CreateKey HKEY_CURRENT_USER, strKeyPath
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, "http", 2
'设置安全站点打开ActiveX时提示
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, "CurrentLevel", "00000000"
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, "1201", "00000001"
'取消页眉页脚
strKeyPath = "Software\Microsoft\Internet Explorer\PageSETUP\"
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, "header", ""
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, "footer", ""
msg = "IE安全设置完成"& vbCrLf& vbCrLf
msg = msg & "如果还不能正常打印，你需要关闭所有打开的IE浏览器窗口，然后再登录OA进行打印"& vbCrLf& vbCrLf
msg = msg & "如果还是有问题，您可以联系技术组:柳永法 "
MsgBox msg, vbInformation, "温馨提醒！"
您可能感兴趣的文章:
- 利用vbs脚本实现设置IE的打印页眉页脚信息
- IE浏览器打印的页眉页脚设置解决方法
- js实现页面打印功能实例代码(附去页眉页脚功能代码)
- JS调用打印方法设置页眉页脚的实例
- javascript仿php的print_r函数输出json数据
- javascript实现window.print()去除页眉页脚
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码
本文地址： https://pptw.com/jishu/609762.html