易语言源码

2024年2月3日发(作者：)

.版本 2

.支持库 shell

.程序集 窗口程序集1

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

.程序集变量 密码, 文本型

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

.如果 (编辑框1.内容 ≠ “”)

密码 ＝ 编辑框1.内容

编辑框2.可视 ＝ 真

编辑框1.可视 ＝ 假

按钮2.可视 ＝ 真

按钮1.可视 ＝ 假

标签3.标题 ＝ “屏幕已锁”

载入 (窗口1, , 假)

.否则

标签3.标题 ＝ “请输入密码”

.如果结束

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

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

.参数 icode, 整数型

.参数 wparam, 整数型

.参数 lparam, 整数型

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

CopyMemory (按键信息, lparam, 28)

.如果真 (icode ＝ 0)

.如果真 (按键信息.虚拟码 ＝ #Alt键 或 按键信息.虚拟码 ＝ #Tab键 或 按键信息.虚拟码 ＝ #F4键)

返回 (1)

.如果真结束

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

返回 (1)

.如果真结束

返回 (0)

.如果真结束

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

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

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

编辑框1.可视 ＝ 真

卸载钩子 (钩子句柄)

窗口1.销毁 ()

销毁 ()

.否则

标签3.标题 ＝ “密码错了哦~~在试试吧！”

.如果结束

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

.局部变量 a, 整数型

a ＝ 打开文件 (取特定目录 (#Windows系统目录) ＋ “”, , )

.子程序 _标签2_反馈事件, 整数型

.参数 参数一, 整数型

———————————————————————————————————————

复制线以上的。复制到源码制作那里就行了，然后其他的什么的要自己弄，要有按钮，输入槽两个，然后还有就是输入槽签名的名字，不然是不会识别这个源码的。