Question

易语言超文本怎么屏蔽右键？

Answer 1

.版本 2
.支持库 HtmlView

.程序集 窗口程序集1
.程序集变量 已拦截, 逻辑型
.程序集变量 原窗口过程指针, 子程序指针
.程序集变量 IE窗口句柄

.子程序 __启动窗口_创建完毕

超文本正袭浏览框1.地址 ＝ “http://www.baidu.com”

.子程序 __启动窗口_将被销毁

.如果真 (已拦截)
设窗口偏移量_API (IE窗口句柄, -4, 原窗口过程指针) ' 恢复原来窗口过程指针
.如果真结束

.子程序 _超文本浏览框1_载入完毕
.局部变量 子窗口句柄

.如果真 (已拦截 ＝ 假)
子窗口句柄 ＝ 查找子窗口_API (超文本浏览框1.取窗口句柄 (), 0, “Shell Embedding”, “”)
子窗口句柄 ＝ 查找子窗口数没_API (子窗口句柄, 0, “Shell DocObject View”, “”)
IE窗口句柄 ＝ 查找子窗口_API (子窗口句柄, 0, “Internet Explorer_Server”, “”)
原窗口过程指针薯清纳 ＝ 设窗口偏移量_API (IE窗口句柄, -4, &窗体过程)
.如果真 (到数值 (原窗口过程指针) ≠ 0) ' 拦截是否成功
已拦截 ＝ 真

.如果真结束

.如果真结束

.子程序 窗体过程, 整数型
.参数 句柄
.参数 消息值
.参数 参数一
.参数 参数二

.如果真 (消息值 ＝ 516 或 消息值 ＝ 517)
' 按下和放开鼠标右键
.如果真 (消息值 ＝ 517)

.如果真结束
返回 (0)
.如果真结束
返回 (调用窗体过程_API (原窗口过程指针, 句柄, 消息值, 参数一, 参数二))

.子程序 _超文本浏览框1_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

_超文本浏览框1_载入完毕 ()