Question

请问如何用易语言禁止键盘输入,请给源码.谢谢!!!

Answer 1

.版本 2
.支持库 spec

.子程序 _按钮1_被单击

信息框 (“开始屏蔽鼠标和键盘”, 0, )
BlockInput (真)
延迟 (3000) ' 屏蔽3秒钟
BlockInput (假)
信息框 (“结束屏蔽鼠标和键盘”, 0, )

.版本 2

.DLL命令 BlockInput, 整数型, "user32.dll", "BlockInput"
.参数 fBlock, 逻辑型, , 真为锁 假为恢复

追问

请问单一屏蔽键盘是什么命令?

追答

.版本 2

.程序集 窗口程序集1
.程序集变量 低级钩子句柄, 整数型
.程序集变量 hInstance, 整数型

.子程序 _按钮1_被单击

低级钩子句柄 ＝ Api_设置钩子 (#WH_KEYBOARD_LL, &低级钩子回调函数, hInstance, 0)

.子程序 低级钩子回调函数, 整数型
.参数 nCode, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

返回 (1)

.子程序 __启动窗口_将被销毁

Api_释放钩子 (低级钩子句柄)

.子程序 __启动窗口_创建完毕

hInstance ＝ 外部_获得程序句柄 (0)

.版本 2

.DLL命令 Api_设置钩子, 整数型, , "SetWindowsHookExA"
.参数 HookType, 整数型
.参数 pHookProc, 子程序指针
.参数 hInstance, 整数型
.参数 ThreadID, 整数型

.DLL命令 Api_释放钩子, 整数型, , "UnhookWindowsHookEx"
.参数 hHook, 整数型

.DLL命令 CallNextHookEx, 整数型, , "CallNextHookEx"
.参数 hHook, 整数型
.参数 nCode, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

.DLL命令 外部_获得程序句柄, 整数型, , "GetModuleHandleA"
.参数 模块名, 整数型