屏蔽超文本浏览框右键功能模块

.子程序 屏蔽超文本浏览框右键, , 公开
.参数 超文本浏览框句柄, 整数型

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

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

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