小光右下角弹出窗口模块易语言源码

系统结构:打开广告,事件指针,取任务栏高度,SetTimer,系统状态栏信息_,KillTimer,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 打开广告
           |  |
           |  |------ 事件指针
           |  |
           |  |------ 取任务栏高度
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetTimer
           |  |
           |  |---[dll]------   系统状态栏信息_
           |  |
           |  |---[dll]------   KillTimer

调用的DLL命令:

.DLL命令 SetTimer, 整数型, , , , 成功返回ID，失败返回0
    .参数 hwnd, 整数型, , 句柄
    .参数 ID, 整数型, , ID
    .参数 uElapse, 整数型, , 时间[毫秒]
    .参数 lpTimerFunc, 子程序指针, , 事件

.DLL命令 系统状态栏信息_, 整数型, "shell32.dll", "SHAppBarMessage", , , SHAppBarMessage
    .参数 信息值, 整数型, , dwMessage
    .参数 数据结构, 系统状态栏信息_, , pData

.DLL命令 KillTimer, 整数型, , , , 失败返回0，成功返回非0
    .参数 hwnd, 整数型
    .参数 ID, 整数型