.版本 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_反馈事件, 整数型
.参数 参数一, 整数型
———————————————————————————————————————
复制线以上的。复制到源码制作那里就行了，然后其他的什么的要自己弄，要有按钮，输
入槽两个，然后还有就是输入槽签名的名字，不然是不会识别这个源码的。