你好,这个问题很好解决的。
只需要在浏览器的
即将打开事件中加入个拦截阻止打开新窗口的命令就行了
请参考如下
1
2
3
4
5
6
7
8
9
10
11
12
13
14
.程序集 窗口程序集_启动窗口
.程序集变量 text, 文本型
.子程序 _互联网浏览器1_即将打开新窗口
.参数 浏览器对象, 对象, 参考
.参数 取消打开, 逻辑型, 参考
取消打开 = 真
互联网浏览器1.浏览 (text, , , )
.子程序 _互联网浏览器1_状态文本被改变
.参数 状态文本, 文本型, 参考
text = 状态文本
希望我的回答对你有所帮助!
刚想到办法解决了,是超文本浏览框的,差不多,参考:
.程序集变量 IHTMLDocument2, 对象
_超文本浏览框1_即将打开新窗口
IHTMLDocument2 = 超文本浏览框1.取文档对象 ()
url = IHTMLDocument2.读文本属性 (“url”, )'这样可以获取到地址
超文本浏览框1.地址 = url
这个的话直接禁止使用就行了