易语言动画框仿迅雷效果源码

系统结构:窗口_透明_去色,优化池,窗口_置信息_DLL,窗口_置透明度_DLL,窗口_取信息_DLL,CreateWaitableTimerA,SetWaitableTimer,MsgWaitForMultipleObjects,CloseHandle,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 窗口_透明_去色
           |  |
           |  |------ __启动窗口_首次激活
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 优化池
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   窗口_置信息_DLL
           |  |
           |  |---[dll]------   窗口_置透明度_DLL
           |  |
           |  |---[dll]------   窗口_取信息_DLL
           |  |
           |  |---[dll]------   CreateWaitableTimerA
           |  |
           |  |---[dll]------   SetWaitableTimer
           |  |
           |  |---[dll]------   MsgWaitForMultipleObjects
           |  |
           |  |---[dll]------   CloseHandle

调用的DLL命令:

.DLL命令 窗口_置信息_DLL, 整数型, , "SetWindowLongA", , 值
    .参数 hwnd
    .参数 nIndex
    .参数 dwNewLong

.DLL命令 窗口_置透明度_DLL, 整数型, , "SetLayeredWindowAttributes"
    .参数 hwnd
    .参数 crkey
    .参数 alpha, 字节型
    .参数 dwflags

.DLL命令 窗口_取信息_DLL, 整数型, "user32", "GetWindowLongA"
    .参数 hwnd
    .参数 nIndex

.DLL命令 CreateWaitableTimerA, 整数型, , "CreateWaitableTimerA"
    .参数 lpTimerAttributes, 整数型
    .参数 bManualReset, 逻辑型
    .参数 lpTimerName, 整数型

.DLL命令 SetWaitableTimer, 整数型, , "SetWaitableTimer"
    .参数 hTimer, 整数型
    .参数 pDueTime, LARGE_INTEGER
    .参数 lPeriod, 整数型
    .参数 pfnCompletionRoutine, 整数型
    .参数 lpArgToCompletionRoutine, 整数型
    .参数 fResume, 逻辑型

.DLL命令 MsgWaitForMultipleObjects, 整数型, , "MsgWaitForMultipleObjects"
    .参数 nCount, 整数型
    .参数 pHandles, 整数型, 传址
    .参数 fWaitAll, 逻辑型
    .参数 dwMilliseconds, 整数型
    .参数 dwWakeMask, 整数型

.DLL命令 CloseHandle, 逻辑型, , "CloseHandle"
    .参数 hObject, 整数型