如何利用E语言禁用WIN键

Question

本人初学新手，最好是能把源代码也写上！谢谢赐教！

Answer 1

安装钩子 就可以了~代码很长.版本 2
.支持库 xplib.程序集 启动窗口程序集
.程序集变量 钩子句柄, 整数型.子程序 __启动窗口_创建完毕XP风格 (1).子程序 钩子函数, 整数型, , 这个函数大家到网上找资料吧,很多的
.参数 icode, 整数型
.参数 wparam, 整数型
.参数 lparam, 整数型
.局部变量 按键信息, 按键信息CopyMemory (按键信息, lparam, 28)
.如果真 (icode ＝ 0)
.如果 (按键信息.虚拟码 ＝ 91 或 按键信息.虚拟码 ＝ 92) ' 判断按下的是否WIN键(91左WIN键,92右WIN键)
.判断开始 (wparam ＝ 256)
输出调试文本 (“按下WIN键！”)
.默认
输出调试文本 (“弹起WIN键！”)
.判断结束
编辑框.内容 ＝ “虚拟码:” ＋ 到文本 (按键信息.虚拟码) ＋ #换行符 ＋ “扫描码:” ＋ 到文本 (按键信息.扫描码) ＋ #换行符 ＋ “标记:” ＋ 到文本 (按键信息.标记) ＋ #换行符 ＋ “时间:” ＋ 到文本 (按键信息.时间) ＋ #换行符 ＋ “额外信息:” ＋ 到文本 (按键信息.额外信息) ＋ #换行符 ＋ “WIN键被屏蔽” ' 把WIN键信息显示到编辑框里
返回 (1)
.否则
编辑框.内容 ＝ “虚拟码:” ＋ 到文本 (按键信息.虚拟码) ＋ #换行符 ＋ “扫描码:” ＋ 到文本 (按键信息.扫描码) ＋ #换行符 ＋ “标记:” ＋ 到文本 (按键信息.标记) ＋ #换行符 ＋ “时间:” ＋ 到文本 (按键信息.时间) ＋ #换行符 ＋ “额外信息:” ＋ 到文本 (按键信息.额外信息) ' 把WIN键信息显示到编辑框里
.如果结束.如果真结束
返回 (CallNextHookEx (钩子句柄, icode, wparam, lparam)) ' 消息如果被钩子拦截不能继续传下去，会引起一些无法预知的系统行为或是系统锁定，所以就要用到了函数CallNextHookEx， 可以把钩子信息传递给钩子链的下一个钩子函数
.子程序 _屏蔽按钮_被单击屏蔽按钮.禁止 ＝ 真
解除按钮.禁止 ＝ 假
编辑框.内容 ＝ “安装钩子成功！”.如果真 (钩子句柄 ＝ 0)
钩子句柄 ＝ SetWindowsHookEx (13, &钩子函数, GetModuleHandleA (0), 0) ' 安装钩子,有些杀毒软件会在些报警(我用的卡巴会报警)
.如果 (钩子句柄 ≠ 0)
输出调试文本 (“安装钩子成功！”)
.否则 .如果结束.如果真结束
.子程序 _解除按钮_被单击解除按钮.禁止 ＝ 真
屏蔽按钮.禁止 ＝ 假
编辑框.内容 ＝ “缷载钩子成功！”.如果真 (钩子句柄 ≠ 0)
.如果真 (UnhookWindowsHookEx (钩子句柄) ≠ 0) ' 钩子用完以后最好马上卸载，钩子会对系统的性能有影响
输出调试文本 (“缷载钩子成功！”)
钩子句柄 ＝ 0
.如果真结束.如果真结束
.子程序 __启动窗口_将被销毁.如果真 (钩子句柄 ≠ 0)
.如果真 (UnhookWindowsHookEx (钩子句柄) ≠ 0) ' 钩子用完以后最好马上卸载，钩子会对系统的性能有影响
输出调试文本 (“缷载钩子成功！”)
钩子句柄 ＝ 0
.如果真结束.如果真结束
.子程序 _退出按钮_被单击.如果真 (钩子句柄 ≠ 0)
.如果真 (UnhookWindowsHookEx (钩子句柄) ≠ 0) ' 钩子用完以后最好马上卸载，钩子会对系统的性能有影响
输出调试文本 (“缷载钩子成功！”)
钩子句柄 ＝ 0
.如果真结束.如果真结束结束 ()