易语言互联网浏览器如何阻止在新窗口打开

2024-12-27 07:47:13
推荐回答(3个)
回答1:

你好,这个问题很好解决的。

只需要在浏览器的
即将打开事件中加入个拦截阻止打开新窗口的命令就行了

请参考如下

1

2

3

4

5

6

7

8

9

10

11

12

13

14

.程序集 窗口程序集_启动窗口

.程序集变量 text, 文本型

.子程序 _互联网浏览器1_即将打开新窗口

.参数 浏览器对象, 对象, 参考

.参数 取消打开, 逻辑型, 参考

取消打开 = 真

互联网浏览器1.浏览 (text, , , )

.子程序 _互联网浏览器1_状态文本被改变

.参数 状态文本, 文本型, 参考

text = 状态文本

希望我的回答对你有所帮助!

回答2:

刚想到办法解决了,是超文本浏览框的,差不多,参考:
.程序集变量 IHTMLDocument2, 对象

_超文本浏览框1_即将打开新窗口
IHTMLDocument2 = 超文本浏览框1.取文档对象 ()

url = IHTMLDocument2.读文本属性 (“url”, )'这样可以获取到地址
超文本浏览框1.地址 = url

回答3:

这个的话直接禁止使用就行了