易语言屏幕锁源码

易语言屏幕锁源码

.版本 2

.程序集 窗口程序集1
.程序集变量 输入的密码, 文本型
.程序集变量 设置的密码, 文本型
.程序集变量 第一次运行, 逻辑型

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

锁键 (97, 1, 0, 0)
设置的密码 ＝ 取文本注册表项 (“SYSTEMSET”, “SET”, “PMM”, “”)
是否隐藏窗口 ＝ 取数值注册表项 (“SYSTEMSET”, “SET”, “DESK”, 1)
是否用底图 ＝ 取数值注册表项 (“SYSTEMSET”, “SET”, “PIC”, 0)
底图文件名 ＝ 取文本注册表项 (“SYSTEMSET”, “SET”, “PICFILE”, “”)
.如果 (设置的密码 ＝ “”)
    第一次运行 ＝ 真
    总在最前 ＝ 假
    解锁按钮.禁止 ＝ 真
    退出按钮.禁止 ＝ 假
    设置按钮.禁止 ＝ 假
    设置按钮.获取焦点 ()
    信息框 (“本程序还未进行设置，请按下设置钮对本程序进行初始设置！”, #信息图标, “信息：”)
.否则
    .如果真 (是否隐藏窗口 ＝ 1)
        位置 ＝ 3
    .如果真结束
    设置鼠标位置 ()
.如果结束
.如果真 (是否用底图 ＝ 1)
    _启动窗口.底图 ＝ 读入文件 (底图文件名)
.如果真结束


.子程序 _密码框_内容被改变

输入的密码 ＝ 密码框.内容

.子程序 _解锁按钮_被单击

.如果 (输入的密码 ＝ 设置的密码)
    退出按钮.禁止 ＝ 假
    设置按钮.禁止 ＝ 假
    总在最前 ＝ 假
    锁键 (97, 0, 0, 0)
    取消鼠标限制 (0)
    解锁按钮.类型 ＝ 0
    退出按钮.类型 ＝ 1
.否则
    密码框.获取焦点 ()
.如果结束


.子程序 _设置按钮_被单击

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

.子程序 _退出按钮_被单击

结束 ()

.子程序 设置鼠标位置
.局部变量 RECT, 矩形区域

RECT.Left ＝ _启动窗口.左边
RECT.Top ＝ _启动窗口.顶边 ＋ 30
RECT.Right ＝ _启动窗口.左边 ＋ 135
RECT.Bottom ＝ _启动窗口.顶边 ＋ 128
限制鼠标 (RECT)

@易语言入门教程