易语言屏幕保护程序源码

系统结构:子程序_划线,取屏幕宽度_,取屏幕高度_,取窗口名称,是否运行,GetWindowLong,SetWindowLong,GetClientRect,SetParent,SetWindowPos,隐藏鼠标,取窗口标题长度,取窗口标题,取窗口句柄,取桌面句柄,

======窗口程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _frmCover_创建完毕
           |  |
           |  |------ 子程序_划线
           |  |
           |  |------ _frmCover_按下某键
           |  |
           |  |------ _画板1_鼠标位置被移动
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _frmCover_将被销毁
           |  |
           |  |------ 取屏幕宽度_
           |  |
           |  |------ 取屏幕高度_
           |  |
           |  |------ 取窗口名称
           |  |
           |  |------ 是否运行
           |  |
           |  |------ _画板1_鼠标左键被按下
           |  |
           |  |------ _画板1_鼠标右键被按下
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _窗口_配置_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   GetClientRect
           |  |
           |  |---[dll]------   SetParent
           |  |
           |  |---[dll]------   SetWindowPos
           |  |
           |  |---[dll]------   隐藏鼠标
           |  |
           |  |---[dll]------   取窗口标题长度
           |  |
           |  |---[dll]------   取窗口标题
           |  |
           |  |---[dll]------   取窗口句柄
           |  |
           |  |---[dll]------   取桌面句柄

调用的DLL命令:

.支持库 eAPI

.DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA", 公开
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA", 公开
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 GetClientRect, 整数型, "user32", , 公开
    .参数 hwnd, 整数型
    .参数 lpRect, 矩形数据

.DLL命令 SetParent, 整数型, "user32", , 公开
    .参数 hWndChild, 整数型
    .参数 hWndNewParent, 整数型

.DLL命令 SetWindowPos, 整数型, "user32", , 公开
    .参数 hwnd, 整数型
    .参数 hWndInsertAfter, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 cx, 整数型
    .参数 cy, 整数型
    .参数 wFlags, 整数型

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

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

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

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

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