vb设置IE安全性(IP设为受信站点)

本文介绍了一段使用VBA代码来修改Internet Explorer浏览器的安全设置、禁用弹出窗口阻止程序及添加信任站点的方法。通过注册表操作实现对ActiveX控件、弹出窗口等设置的调整。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

'在程序中调用次方法即可

 

 

Private Sub addAuth(pip As String)
    Set WshShell = CreateObject("WScript.Shell")
      
    Call WshShell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range100\", "")
    Call WshShell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range100\http", "2", "REG_DWORD")
    Call WshShell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range100\:Range", pip)

    '修改IE ActiveX安全设置

    Call WshShell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1001", "0", "REG_DWORD")
    Call WshShell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1004", "0", "REG_DWORD")
    Call WshShell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1200", "0", "REG_DWORD")
    Call WshShell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1201", "0", "REG_DWORD")
    Call WshShell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1405", "0", "REG_DWORD")
    Call WshShell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\2201", "0", "REG_DWORD")
    '禁用xinxp弹出窗口阻止程序

    Call WshShell.RegWrite("HKCU\Software\Microsoft\Internet Explorer\New Windows\PopupMgr", "no")

    'MsgBox ("active控件安全设置,弹出窗口设置,信任站点设置成功")

End Sub

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值