易语言如何制作锁屏工具

相信很多小伙伴都听说过易语言吧？就是唯一的一款中文编程语言，今天小编就教各位如何用易语言制作锁屏工具，这样就算自己暂时不操作电脑也可以安全的锁定电脑不被其他人操作

工具/原料

PC一台（xp以上系统）
易语言（5.3版本以上）
精益模块（最新版）

画窗口下模块

1

第一步，打开易语言，点击“程序”>"新建"（图1 所示），会弹出一个窗口选择Windows窗口程序>然后点击确定（如图二），如果各位没有易语言可以到这里下载

百度网盘地址：http://pan.baidu.com/s/1kUH0biR
2

第二步，在新建好的窗口里面选择“工具”>“支持库配置”（如图1），然后在弹出的窗口里选择“全选”>然后点击"确认"
3

第三步，开始画窗口之前我们需要添加一个模块--“精益模块”，下载完毕后如图所示点击“程序”，找到“模块引用表”双击，在弹出的对话框里找到下载的模块，点击“打开”

请参考图示

这是百度网盘的下载地址：http://pan.baidu.com/s/1i4OpFIP（建议下载到程序源码存放的目录）
4

第四步，找到“带标签编辑框”添加到窗口里，再添加一个按钮组件

参开图示
5

第五步把_启动窗口属性该改为如图1所示，参照图2添加一个新的窗口，参照图3在窗口1添加组件并排列好

窗口1组件：

1.带标签编辑框

2.单选框

3.按钮

_启动窗口组件；

1.带标签编辑框（请把改组件名称更改为“编辑框1”）

2.按钮

窗口绘制完毕我们接下来写代码

END

窗口代码

1

参照图1给启动窗口添加两个事件

“创建完毕”

“将被销毁”

给按钮1增加

“被单击”事件，

把一下代码复制到_启动窗口事件复制后如图3所示

.版本 2

.支持库 eAPI

.支持库 vclbase

.支持库 spec

.程序集窗口程序集_启动窗口

.程序集变量钩子句柄, 整数型

.程序集变量次数, 整数型

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

载入 (窗口1, , 真)

设置窗口透明度 (_启动窗口.取窗口句柄 (), 透明度)

键盘_锁定 ()

隐藏任务栏 ()

隐藏桌面图标 ()

隐藏系统时钟 ()

隐藏开始按钮 ()

写注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr”, 1)

终止进程 (“exploer.exe”)

_启动窗口.位置＝ 3

整体移动 (取屏幕宽度 () ÷ 2 － 60, 取屏幕高度 () ÷ 2 － 100)

.如果真 (钩子句柄 ≠ 0)

.如果真 (卸载钩子 (钩子句柄) ≠ 0)

输出调试文本 (“缷载钩子成功！”)

钩子句柄＝ 0

.如果真结束

.如果真结束

鼠标_限制 (取屏幕宽度 () ÷ 2 － 60, 取屏幕高度 () ÷ 2 － 100, 200, 200)

.子程序整体移动

.参数水平, 整数型, 参考

.参数垂直, 整数型, 参考

编辑框1.左边＝水平

编辑框1.顶边＝垂直

按钮1.左边＝水平

按钮1.顶边＝垂直＋ 60

.子程序钩子函数, 整数型

.参数 icode, 整数型

.参数 wparam, 整数型

.参数 lparam, 整数型

.局部变量按键信息, 按键信息

.局部变量 tmp, 文本型

CopyMemory (按键信息, lparam, 28)

.如果真 (icode ＝ 0)

tmp ＝ “虚拟码:” ＋到文本 (按键信息.虚拟码) ＋ “,扫描码:” ＋到文本 (按键信息.扫描码) ＋ “,标记:” ＋到文本 (按键信息.标记) ＋ “,时间:” ＋到文本 (按键信息.时间) ＋ “,额外信息:” ＋到文本 (按键信息.额外信息)

.如果真 (按键信息.虚拟码＝ 91 或按键信息.虚拟码＝ 92)

.判断开始 (wparam ＝ 256)

输出调试文本 (“按下Win键！”)

.默认

输出调试文本 (“弹起Win键！”)

.判断结束

返回 (1)

.如果真结束

.如果真结束

返回 (下一个钩子 (钩子句柄, icode, wparam, lparam))

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

.如果真 (次数＝ 5)

_启动窗口.禁止＝真

提示框 (“错误次数大于五次，请于五秒钟后重试”)

延迟 (5000)

_启动窗口.禁止＝假

次数＝ 0

返回 ()

.如果真结束

.如果 (编辑框1.内容＝密码)

进程_创建 (“exploer.exe”, “exploer.exe”, , )

.如果真 (钩子句柄＝ 0)

钩子句柄＝安装钩子 (13, &钩子函数, GetModuleHandleA (0), 0)

.如果 (钩子句柄 ≠ 0)

输出调试文本 (“安装钩子成功！”)

.否则

.如果结束

.如果真结束

键盘_解锁 ()

显示桌面图标 ()

显示任务栏 ()

显示开始按钮 ()

显示系统时钟 ()

写注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr”, 0)

结束 ()

.否则

次数＝次数＋ 1

提示框 (“密码不正确，请重新输入” ＋ #换行符＋ “距离下次锁定还剩 ” ＋到文本 (5 －次数) ＋ “ 次”)

.如果结束

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

销毁 ()
2

如图1所示---未完

把以下代码复制到“窗口1”程序集里面

.版本 2

.支持库 vclbase

.支持库 eAPI

.支持库 spec

.程序集窗口程序集_窗口1

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

.如果 (带标签编辑框1.内容＝带标签编辑框2.内容)

密码＝带标签编辑框1.内容

销毁 ()

载入 (_启动窗口, , 真)

.否则

信息框 (“密码输入不一致无法继续”, 0, , )

.如果结束

.子程序 _单选框1_被单击

.如果真 (单选框1.选中＝真)

单选框2.选中＝假

透明度＝ 155

.如果真结束

设置窗口透明度 (窗口1.取窗口句柄 (), 透明度)

.子程序 _单选框2_被单击

.如果真 (单选框2.选中＝真)

单选框1.选中＝假

透明度＝ 255

.如果真结束

设置窗口透明度 (窗口1.取窗口句柄 (), 透明度)

.子程序 _窗口1_创建完毕

.如果真 (单选框1.选中＝真)

透明度＝ 155

.如果真结束

调试输出 (透明度)

设置窗口透明度 (窗口1.取窗口句柄 (), 透明度)

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

结束 ()

.子程序 _窗口1_将被销毁

.如果真 (密码＝ “”)

结束 ()

END

DII/数据类型代码

1

点击菜单“插入”栏目找到“DLL命令”并点击

并复制一下代码到DII命令程序集中-插入完成后如图一所示

.版本 2

.DLL命令安装钩子, 整数型, , "SetWindowsHookExA"

.参数 ihook, 整数型

.参数 lpfunc, 子程序指针

.参数 hin, 整数型

.参数 threadid, 整数型

.DLL命令 GetModuleHandleA, 整数型, , "GetModuleHandleA"

.参数 lpModuleName, 整数型

.DLL命令卸载钩子, 整数型, , "UnhookWindowsHookEx"

.参数 hHook, 整数型

.DLL命令下一个钩子, 整数型, , "CallNextHookEx"

.参数 hHook, 整数型

.参数 icode, 整数型

.参数 wParam, 整数型

.参数 lParam, 整数型

.DLL命令 CopyMemory, , , "RtlMoveMemory"

.参数 Destination, 按键信息

.参数 Source, 整数型

.参数 cbCopy, 整数型
2

参照图示插入“新数据类型”

并复制一下代码到程序集

.版本 2

.数据类型按键信息

.成员虚拟码, 整数型

.成员扫描码, 整数型

.成员标记, 整数型

.成员时间, 整数型

.成员额外信息, 整数型
3

如图所示操作插入全局变量，

并复制一下代码到程序集

.版本 2

.全局变量密码, 文本型

.全局变量透明度, 整数型

END

运行测试

请欣赏测试图片（注，锁屏后由于键盘被屏蔽所以无法使用截屏，请各位多包涵）

END

作者提示

1

在代码复制时，务必先把程序集先全部选中（CTRL键+A键），然后直接粘贴过去（CTRL键+C键），另如果由于组件名称导致的无法启动时请认真看代码以及教程查看是否有遗漏的过程，经验中提供的程序为易语言5.5为破解版，建议大家使用和购买正版软件！本工具仅限用作技术交流，授权给百度经验，转发请注明出处以及作者！

END