////////////////////////////////////////////////////////////////////////
//
// 添加信息站点及将指定IP添加到本地Intranet中,
// "*"=dword:00000002 表示受信任的站点区域
// "*"=dword:00000001 表示本地 Intranet 区域
//
////////////////////////////////////////////////////////////////////////
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges]
@=""
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range100]
"*"=dword:00000002
":Range"="192.168.10.121"
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range101]
"*"=dword:00000001
":Range"="192.168.10.121"
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2]
@=""
"DisplayName"="可信站点"
"CurrentLevel"=dword:00001000
"Flags"=dword:00000043
"1004"=dword:00000000
"1201"=dword:00000000
"1402"=dword:00000000
"2201"=dword:00000000
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1]
@=""
"DisplayName"="本地 Intranet"
"CurrentLevel"=dword:00000000
"1001"=dword:00000000
"1004"=dword:00000000
"1201"=dword:00000000
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3]
@=""
"DisplayName"="Internet"
"CurrentLevel"=dword:00000000
"1001"=dword:00000000
"1004"=dword:00000000
"1201"=dword:00000000
/////////////////////////////////////////////////////////////////////////////
//
// 通过网页修改activex安全设置，添加信任站点，禁用弹出窗口阻止程序
//
/////////////////////////////////////////////////////////////////////////////
信任站点的注册表项
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range[*]
ActiveX的注册表项
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\[0-4]\[*]
[0-4]
值 设置
------------------------------
0 我的电脑
1 本地 Intranet 区域
2 受信任的站点区域
3 Internet 区域
4 受限制的站点区域
[*]
1001 下载已签名的 ActiveX 控件
1004 下载未签名的 ActiveX 控件
1200 运行 ActiveX 控件 和插件
1201 对没有标记为安全的 ActiveX 控件 进行初始化和脚本运行
1405 对标记为可安全执行脚本的 ActiveX 控件 执行脚本
2201 ActiveX 控件 自动提示 **
弹出窗口阻止程序 的注册表项
HKEY_CURRENT_USERHKCU\Software\Microsoft\Internet Explorer\New Windows\PopupMgr
具体脚本如下:
URL:
比如说我们要把www.Microsoft.com 添加到客户的受信任站点
1.运行regedit,打开注册表,首先打开下面的键值
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Inte
rnet Settings\ZoneMap\Domains
2.在其下面新建一个项命名为"Microsoft.com"
3.在Microsoft.com下面再新建一个项,命名为"www"
4.在www下新键一个双字节子键,命名为"*","*"表示任何协议,你还可以把
"*"替换为"http","ftp"等其它名称
5.双击刚才新建的双字节子键"*",确保基数里选择是"十六进制",在数值
数据种填写"2"
6.关闭注册表
附ＶＢ．ＮＥＴ代码
还原
Dim reg As RegistryKey
reg = Registry.CurrentUser
'0: 我的电脑()
'1 本地 Intranet 区域
'2: 受信任的站点区域()
'3: Internet(区域)
'4: 受限制的站点区域()
reg = reg.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2", True)
'1001 下载已签名的 ActiveX 控件
reg.SetValue("1001", "1")
'1004 下载未签名的 ActiveX 控件
reg.SetValue("1004", "3")
'1200 运行 ActiveX 控件和插件
reg.SetValue("1200", "0")
'1201 对没有标记为安全的 ActiveX 控件进行初始化和脚本运行
reg.SetValue("1201", "3")
'1405 对标记为可安全执行脚本的 ActiveX 控件执行脚本
reg.SetValue("1405", "0")
'2201 ActiveX 控件自动提示 **
reg.SetValue("2201", "3")
reg = reg.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3", True)
'1001 下载已签名的 ActiveX 控件
reg.SetValue("1001", "1")
'1004 下载未签名的 ActiveX 控件
reg.SetValue("1004", "3")
'1200 运行 ActiveX 控件和插件
reg.SetValue("1200", "0")
'1201 对没有标记为安全的 ActiveX 控件进行初始化和脚本运行
reg.SetValue("1201", "3")
'1405 对标记为可安全执行脚本的 ActiveX 控件执行脚本
reg.SetValue("1405", "0")
'2201 ActiveX 控件自动提示 **
reg.SetValue("2201", "3")
修改
Dim reg As RegistryKey
reg = Registry.CurrentUser
reg = reg.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\" & m_UserInfo.serverIP)
reg = reg.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\" & m_UserInfo.serverIP & "\www")
reg.SetValue("http", "2")
'0: 我的电脑()
'1 本地 Intranet 区域
'2: 受信任的站点区域()
'3: Internet(区域)
'4: 受限制的站点区域()
reg = reg.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2", True)
'1001 下载已签名的 ActiveX 控件
reg.SetValue("1001", "0")
'1004 下载未签名的 ActiveX 控件
reg.SetValue("1004", "0")
'1200 运行 ActiveX 控件和插件
reg.SetValue("1200", "0")
'1201 对没有标记为安全的 ActiveX 控件进行初始化和脚本运行
reg.SetValue("1201", "0")
'1405 对标记为可安全执行脚本的 ActiveX 控件执行脚本
reg.SetValue("1405", "0")
'2201 ActiveX 控件自动提示 **
reg.SetValue("2201", "0")
reg = reg.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3", True)
'1001 下载已签名的 ActiveX 控件
reg.SetValue("1001", "0")
'1004 下载未签名的 ActiveX 控件
reg.SetValue("1004", "0")
'1200 运行 ActiveX 控件和插件
reg.SetValue("1200", "0")
'1201 对没有标记为安全的 ActiveX 控件进行初始化和脚本运行
reg.SetValue("1201", "0")
'1405 对标记为可安全执行脚本的 ActiveX 控件执行脚本
reg.SetValue("1405", "0")
'2201 ActiveX 控件自动提示 **
reg.SetValue("2201", "0")