屏幕保护程序(易语言2003年大赛三等奖)

系统结构:响应事件,是否运行,取窗口名称,取桌面句柄,取窗口句柄,取窗口标题长度,取窗口标题,读配置,隐藏鼠标,锁键,写配置,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _窗口2_创建完毕
           |  |
           |  |------ _窗口2_将被销毁
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _屏保窗口_按下某键
           |  |
           |  |------ _屏保窗口_创建完毕
           |  |
           |  |------ 响应事件
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _屏保窗口_鼠标位置被移动
           |  |
           |  |------ _屏保窗口_鼠标左键被按下
           |  |
           |  |------ _屏保窗口_鼠标右键被按下
           |  |
           |  |------ _屏保窗口_可否被关闭
           |  |
           |  |
======窗口程序集3
           |  |
           |  |------ _设密码窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 是否运行
           |  |
           |  |------ 取窗口名称
           |  |
           |  |
======窗口程序集4
           |  |
           |  |------ _选择框1_被单击
           |  |
           |  |------ _设置窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取桌面句柄
           |  |
           |  |---[dll]------   取窗口句柄
           |  |
           |  |---[dll]------   取窗口标题长度
           |  |
           |  |---[dll]------   取窗口标题
           |  |
           |  |---[dll]------   读配置
           |  |
           |  |---[dll]------   隐藏鼠标
           |  |
           |  |---[dll]------   锁键
           |  |
           |  |---[dll]------   写配置

调用的DLL命令:

.DLL命令 取桌面句柄, 整数型, , "GetDesktopWindow"

.DLL命令 取窗口句柄, 整数型, , "GetWindow"
    .参数 源窗口, 整数型
    .参数 与源窗口的关系, 整数型

.DLL命令 取窗口标题长度, 整数型, , "GetWindowTextLengthA"
    .参数 窗口句柄, 整数型

.DLL命令 取窗口标题, 整数型, , "GetWindowTextA"
    .参数 窗口句柄, 整数型
    .参数 窗口标题, 文本型
    .参数 标题长度, 整数型

.DLL命令 读配置, 整数型, , "GetPrivateProfileStringA"
    .参数 小节名, 文本型
    .参数 项目名, 文本型
    .参数 项目值, 文本型
    .参数 缓冲区, 文本型, 传址
    .参数 长度, 整数型
    .参数 文件名, 文本型

.DLL命令 隐藏鼠标, , , "ShowCursor", , 隐藏鼠标
    .参数 隐藏鼠标, 逻辑型, , 为假则隐藏鼠标，为真则不隐藏鼠标

.DLL命令 锁键, 整数型, , "SystemParametersInfoA"
    .参数 参数, 整数型, , 锁功能键的常数为97
    .参数 参数, 整数型, , 是否锁住功能键，1锁住，0解锁
    .参数 参数, 整数型, , 设为0
    .参数 参数, 整数型, , 设为0

.DLL命令 写配置, 整数型, , "WritePrivateProfileStringA"
    .参数 小节名, 文本型
    .参数 项目名, 文本型
    .参数 项目值, 文本型
    .参数 文件名, 文本型