易语言导弹升空效果源码

系统结构:透明去色,释放鼠标_,发送消息_,俘获鼠标_,窗口_置信息_DLL,窗口_置透明度_DLL,改变窗口,窗口_取信息_DLL,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 透明去色
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _时钟2_周期事件
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _窗口1_鼠标左键被按下
           |  |
           |  |------ _透明标签1_鼠标左键被按下
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   释放鼠标_
           |  |
           |  |---[dll]------   发送消息_
           |  |
           |  |---[dll]------   俘获鼠标_
           |  |
           |  |---[dll]------   窗口_置信息_DLL
           |  |
           |  |---[dll]------   窗口_置透明度_DLL
           |  |
           |  |---[dll]------   改变窗口
           |  |
           |  |---[dll]------   窗口_取信息_DLL

调用的DLL命令:

.DLL命令 释放鼠标_, 整数型, "user32", "ReleaseCapture"

.DLL命令 发送消息_, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 整数型, , 具体取决于消息;

.DLL命令 俘获鼠标_, 整数型, "user32", "SetCapture"
    .参数 窗口句柄, 整数型

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

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

.DLL命令 改变窗口, 整数型, "user32.dll", "MoveWindow", , ,
    .参数 是否重画, 逻辑型, , bRepaint，如窗口此时应重画，则设为TRUE（非零）

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