易语言超文本浏览框屏蔽鼠标右键的方法及代码

我是新手

易语言超文本浏览框屏蔽鼠标右键的方法及代码
如图所示。为易语言的超文本浏览框

当我们在超文本浏览框里点击鼠标右键会出现右键菜单。




那么怎么屏蔽超文本浏览框右键菜单呢

下面为屏蔽超文本浏览框的代码。用了钩子函数

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
钩子句柄	整数型
线程ID	整数型
进程ID	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

超文本浏览框1.跳转 (“www.eyy8.vip”, , )
线程ID ＝ 取进程线程标识符_ (超文本浏览框1.取窗口句柄 (), 进程ID)
钩子句柄 ＝ 设置系统钩子_ (7, &钩子函数, 0, 线程ID)

子程序名	返回值类型	公开	备 注
钩子函数	整数型
参数名	类 型	参考	可空	数组	备 注
钩子代码	整数型
参数一	整数型
参数二	整数型

变量名	类 型	静态	数组	备 注
焦点句柄	整数型
类名	文本型

类名 ＝ 取空白文本 (255)
焦点句柄 ＝ 取获取焦点窗口_ ()
取得类名称_ (焦点句柄, 类名, 256)
如果真 (类名 ＝ “Internet Explorer_Server” 且 参数一 ＝ 517)
返回 (1)
返回 (呼叫下一钩子_ (钩子句柄, 钩子代码, 参数一, 参数二))

i支持库列表	支持库注释
HtmlView	超文本浏览框支持库

.版本 2<br /> .支持库 HtmlView<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 钩子句柄, 整数型<br /> .程序集变量 线程ID, 整数型<br /> .程序集变量 进程ID, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 超文本浏览框1.跳转 (“<a href="http://www.eyy8.vip" target="_blank">www.eyy8.vip</a>”, , )<br /> 线程ID ＝ 取进程线程标识符_ (超文本浏览框1.取窗口句柄 (), 进程ID)<br /> 钩子句柄 ＝ 设置系统钩子_ (7, &钩子函数, 0, 线程ID)<br /> <br /> .子程序 钩子函数, 整数型<br /> .参数 钩子代码, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> .局部变量 焦点句柄, 整数型<br /> .局部变量 类名, 文本型<br /> <br /> 类名 ＝ 取空白文本 (255)<br /> 焦点句柄 ＝ 取获取焦点窗口_ ()<br /> 取得类名称_ (焦点句柄, 类名, 256)<br /> .如果真 (类名 ＝ “Internet Explorer_Server” 且 参数一 ＝ 517)<br /> <br />     返回 (1)<br /> .如果真结束<br /> 返回 (呼叫下一钩子_ (钩子句柄, 钩子代码, 参数一, 参数二))

完整源码下载：

逻辑中间苟活

其实我一直觉得楼主的品味不错！呵呵！易语言吧太棒了！

yyz860723

楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！