14 Apr 2014

VBS修改IE设置-弹出窗口阻止程序

问题： QTP打开链接时被IE当做弹出窗口阻止。

需要修改的设置： 在Internet选项-隐私-弹出窗口阻止程序-设置，添加允许的站点。

问题： 需要把检查和修改的操作集成到调用AOM接口的VBS中

方案： 1、IE允许弹出窗口的站点记录在注册表
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\New Windows\Allow
目录下，比如在IE里设置允许www.baidu.com，会有一条名称为www.baidu.com、类型为REG_BINARY、值为0的记录。

2、WScript.Shell提供了RegRead和RegWriter方法操作注册表，msdn网站有说明文档

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\New Windows\Allow\www.baidu.com",0,"REG_BINARY"

Til next time,
黑水 at 14:30