Question

易语言怎么写屏蔽按键

Answer 1

我这里有，只需用到3个DLL命令，可以蒙蔽所有键盘：代码：
.版本
2.程序集
窗口程序集1
.程序集变量
钩子ID,
整数型.子程序
键盘失灵,
,
公开,
蒙蔽所有按键钩子ID
＝
设置系统钩子_
(13,
&sss,
取进程句柄
(0),
0).子程序
sss
.子程序
恢复键盘,
,
公开,
恢复按键释放系统钩子_
(钩子ID)
DLL命令：
.版本
2.DLL命令
设置系统钩子_,
整数型,
"user32.dll",
"SetWindowsHookExA",
,
SetWindowsHookEx
.参数
钩子类型,
整数型,
,
idHook
.参数
回调函数地址,
子程序指针,
,
lpfn
.参数
实例句柄,
整数型,
,
hmod
.参数
线程ID,
整数型,
,
dwThreadId.DLL命令
取进程句柄,
整数型,
,
"GetModuleHandleA"
.参数
M,
整数型.DLL命令
释放系统钩子_,
整数型,
"user32.dll",
"UnhookWindowsHookEx",
,
UnhookWindowsHookEx
.参数
钩子句柄,
整数型,
,
hHook

Answer 2

====.版本
2
.支持库
eapi
.支持库
spec
.程序集
窗口程序集1
.程序集变量
a,
逻辑型
.子程序
_时钟1_周期事件
.如果
(取按键状态
(#f1键)
≠
0)
.如果
(a
＝
假)
a
＝
真
标题
＝
“开始”
开始
()
.否则
a
＝
假
标题
＝
“停止”
开始
()
.如果结束
.否则
.如果结束
.子程序
开始
.如果真
(a)
模拟鼠标点击
(取鼠标水平位置
(),
取鼠标垂直位置
(),
#接口常量.右键单击)
延时
(100)
模拟按键
(#d键,
,
)
延迟
(100)
模拟按键
(#回车键,
,
)
延时
(100)
开始
()
.如果真结束
.子程序
__启动窗口_创建完毕
时钟1.时钟周期
＝
100
=========dll命令========
.版本
2
.dll命令
取按键状态,
短整数型,
"user32.dll",
"getasynckeystate"
.参数
鼠标键,
整数型