易语言屏蔽禁止超文本浏览器右击代码

admin

.版本 2

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



.子程序 钩子函数, 整数型
.参数 钩子代码, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.局部变量 焦点句柄, 整数型
.局部变量 类名, 文本型

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