易语言雪花屏保源码

系统结构:Rnd,InitP,GetContrast,GetDC,GetPixel,SetPixel,ReleaseDC,InvalidateRect,

======窗口程序集1
           |  |
           |  |------ Rnd
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ InitP
           |  |
           |  |------ GetContrast
           |  |
           |  |------ _调整速度_周期事件
           |  |
           |  |------ _画雪花_周期事件
           |  |
           |  |------ _退出_被选择
           |  |
           |  |------ _关于_被选择
           |  |
           |  |------ __启动窗口_托盘事件
           |  |
           |  |------ __启动窗口_位置被改变
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   GetPixel
           |  |
           |  |---[dll]------   SetPixel
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   InvalidateRect

调用的DLL命令:

.DLL命令 GetDC, 整数型, "user32"
    .参数 hwnd, 整数型

.DLL命令 GetPixel, 整数型, "gdi32"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型

.DLL命令 SetPixel, 整数型, "gdi32"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 crColor, 整数型

.DLL命令 ReleaseDC, 整数型, "user32"
    .参数 hwnd, 整数型
    .参数 hdc, 整数型

.DLL命令 InvalidateRect, 整数型, "user32"
    .参数 hwnd, 整数型
    .参数 lpRect, 整数型, 传址
    .参数 bErase, 整数型