易语言如何制作锁屏工具
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.按钮
窗口绘制完毕我们接下来 写代码
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_将被销毁
.如果真 (密码 ＝ “”)
结束 ()
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
.全局变量 密码, 文本型
.全局变量 透明度, 整数型
1、在代码复制时，务必先把程序集先全部选中（CTRL键+A键），然后直接粘贴过去（CTRL键+C键），另如果由于组件名称导致的无法启动时请认真看代码以及教程 查看是否有遗漏的过程 ，经验中提供的程序为易语言5.5为破解版，建议大家使用和购买正版软件！本工具仅限用作技术交流，授权给百度经验，转发请注明出处以及作者！
