易语言设置窗口透明

系统结构:GetWindowLongA,SetWindowLongA,SetLayeredWindowAttributes,API_FindWindow,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _标签1_反馈事件
           |  |
           |  |------ _滑块条1_位置被改变
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetWindowLongA
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   SetLayeredWindowAttributes
           |  |
           |  |---[dll]------   API_FindWindow

调用的DLL命令:

.DLL命令 GetWindowLongA, 整数型, , "GetWindowLongA"
    .参数 hwnd
    .参数 nIndex

.DLL命令 SetWindowLongA, 整数型, , "SetWindowLongA"
    .参数 hwnd
    .参数 nIndex
    .参数 dwNewLong

.DLL命令 SetLayeredWindowAttributes, 整数型, , "SetLayeredWindowAttributes"
    .参数 hwnd
    .参数 crKey
    .参数 bAlpha
    .参数 dwFlags

.DLL命令 API_FindWindow, 整数型, "user32", "FindWindowA", , 寻找窗口列表中第一个符合指定条件的顶级窗口（在vb里使用：FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄；该类是所有运行中vb执行程序的一部分。获得句柄后，可用api函数GetWindowText取得这个窗口的名称；该名也是应用程序的标题）  找到窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
    .参数 lpClassName, 文本型, , 指向包含了窗口类名的空中止（C语言）字串的指针；或设为零，表示接收任何类
    .参数 lpWindowName, 文本型, , 指向包含了窗口文本（或标签）的空中止（C语言）字串的指针；或设为零，表示接收任何窗口标题  示例Dim hw&