易语言小光右下角弹出窗口模块源码 [db:版本]

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

系统结构:打开广告,事件指针,取任务栏高度,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, 整数型