本帖最后由 haijie1223 于 2014-8-18 19:34 编辑
用下面的代码运行时,XP下会有ie的安全提示,在NT6.0的系统上提示是否允许放置cookies。在xp下将IE的隐私设置等级为最低时没有提示。
提示分别如图:
可不可以用对象方法将这个提示屏蔽掉?
Dim $string = _
'<div id="body"> test ' & @CRLF & _
'<div class="test">' & @CRLF & _
'<script type="text/javascript">var cpro_id = "u1634448";</script>' & @CRLF & _
'<script src="http://cpro.baidustatic.com/cpro/ui/c.js" type="text/javascript"></script>' & @CRLF & _
'</div>'
Dim $ohtml = ObjCreate("htmlfile")
With $ohtml
.open()
.write($string)
.close()
Dim $text = .getElementById("body").innerText
EndWith
$ohtml=Null
MsgBox(0,"",$text)
|