易語言導彈升空效果源碼

系統結構:透明去色,釋放鼠標_,發送消息_,俘獲鼠標_,窗口_置信息_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