Question

易语言屏蔽WIN键

就是锁屏一样

Answer 1

.版本 2
.子程序 __启动窗口_创建完毕
.如果真 (钩子句柄 ＝ 0) 钩子句柄 ＝ SetWindowsHookEx (13, &钩子函数, GetModuleHandle (0), 0) .如果真 (钩子句柄 ＝ 0) 输出调试文本 (“安装钩子失败！”) .如果真结束
.如果真结束
.版本 2
.子程序 钩子函数, 整数型.参数 icode, 整数型.参数 wparam, 整数型.参数 lparam, 整数型.局部变量 按键信息, 按键信息
CopyMemory (按键信息, lparam, 28)输出调试文本 (到文本 (按键信息.message) ＋ “ ” ＋ 字符 (按键信息.message)).如果真 (按键信息.message ＝ 91)‘91即为Win键的值，可以通过上一行的测试获得 返回(0)’屏蔽.如果真结束返回 (CallNextHookEx (钩子句柄, icode, wparam, lparam))‘否则返回该键的值
.版本 2
.子程序 __启动窗口_将被销毁
UnHookWindowsHookEx (钩子句柄)

下面是DLL：.版本 2
.DLL命令 SetWindowsHookEx, 整数型, , "SetWindowsHookExA" .参数 idHook, 整数型 .参数 lpfn, 子程序指针 .参数 hmod, 整数型 .参数 dwThreadId, 整数型
.DLL命令 CopyMemory, , , "RtlMoveMemory" .参数 Destination, 按键信息, 传址 .参数 Source, 整数型 .参数 Length, 整数型
.DLL命令 CallNextHookEx, 整数型, , "CallNextHookEx" .参数 hhk, 整数型 .参数 nCode, 整数型 .参数 wParam, 整数型 .参数 lParam, 整数型
.DLL命令 GetModuleHandle, 整数型, , "GetModuleHandleA" .参数 lpModuleName, 整数型
.DLL命令 UnHookWindowsHookEx, 逻辑型, , "UnhookWindowsHookEx" .参数 hhk, 整数型

Answer 2

WIN键 常量值=91 易语言常量列表中没有 #WIN键 你直接用91来代替吧

Answer 3

去论坛啊
论坛上面很多列程的啊