易语言超文本浏览框屏蔽鼠标右键的方法及代码
易语言超文本浏览框屏蔽鼠标右键的方法及代码如图所示。为易语言的超文本浏览框
当我们在超文本浏览框里点击鼠标右键会出现右键菜单。
那么怎么屏蔽超文本浏览框右键菜单呢
下面为屏蔽超文本浏览框的代码。用了钩子函数
.版本 2
.支持库 HtmlView
.程序集 窗口程序集1
.程序集变量 钩子句柄, 整数型
.程序集变量 线程ID, 整数型
.程序集变量 进程ID, 整数型
.子程序 __启动窗口_创建完毕
超文本浏览框1.跳转 (“www.eyy8.vip”, , )
线程ID ＝ 取进程线程标识符_ (超文本浏览框1.取窗口句柄 (), 进程ID)
钩子句柄 ＝ 设置系统钩子_ (7, &钩子函数, 0, 线程ID)
.子程序 钩子函数, 整数型
.参数 钩子代码, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.局部变量 焦点句柄, 整数型
.局部变量 类名, 文本型
类名 ＝ 取空白文本 (255)
焦点句柄 ＝ 取获取焦点窗口_ ()
取得类名称_ (焦点句柄, 类名, 256)
.如果真 (类名 ＝ “Internet Explorer_Server” 且 参数一 ＝ 517)
返回 (1)
.如果真结束
返回 (呼叫下一钩子_ (钩子句柄, 钩子代码, 参数一, 参数二))
完整源码下载：
其实我一直觉得楼主的品味不错！呵呵！易语言吧太棒了！ 楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！
页:
[1]