你好,这个问题很好解决的。
只需要在浏览器的 即将打开事件中加入个拦截阻止打开新窗口的命令就行了
请参考如下
.程序集 窗口程序集_启动窗口
.程序集变量 text, 文本型
.子程序 _互联网浏览器1_即将打开新窗口
.参数 浏览器对象, 对象, 参考
.参数 取消打开, 逻辑型, 参考
取消打开 = 真
互联网浏览器1.浏览 (text, , , )
.子程序 _互联网浏览器1_状态文本被改变
.参数 状态文本, 文本型, 参考
text = 状态文本
希望我的回答对你有所帮助!Kiss灬小猪
超文本浏览框的:
.程序集变量 IHTMLDocument2, 对象
_超文本浏览框1_即将打开新窗口
IHTMLDocument2 = 超文本浏览框1.取文档对象 ()
url = IHTMLDocument2.读文本属性 (“url”, )'这样可以获取到地址
超文本浏览框1.地址 = url
互联网浏览器的:
.版本 2
.支持库 WebBrowser2
.支持库 spec
.子程序 _互联网浏览器1_即将打开新窗口
.参数 浏览器对象, 对象, 参考
.参数 取消打开, 逻辑型, 参考
取消打开 = 真
互联网浏览器1.取网页文档对象 (对象1)
url = 对象1.读文本属性 (“url”, )
调试输出 (url)