卷帘式菜单工具箱易语言源码

系统结构:初始化UI,W_添加,W取时间,Q编辑框_按下某键,W选中,Q工具_被单击,Q应用_被单击,Q游戏_被单击,初始化XML,置窗口透明度,取路径,执行文件,事件_工具_左键双击,事件_应用_左键双击,事件_游戏_左键双击,取天气,UTF8编码到ANSI_API,URL编码,HTTP,窗口_消息回调,事件_工具_右键放开,事件_应用_右键放开,事件_游戏_右键放开,按钮_配置_左键单击,ExtractAssociatedIconA,ShellExecuteA,InternetOpenA,InternetCloseHandle,InternetReadFile,InternetOpenUrlA,MultiByteToWideChar_utf_8,WideCharToMultiByte,

======窗口程序集_启动窗口
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 初始化UI
           |  |
           |  |------ W_添加
           |  |
           |  |------ W取时间
           |  |
           |  |------ Q编辑框_按下某键
           |  |
           |  |------ W选中
           |  |
           |  |------ Q工具_被单击
           |  |
           |  |------ Q应用_被单击
           |  |
           |  |------ Q游戏_被单击
           |  |
           |  |------ 初始化XML
           |  |
           |  |------ 置窗口透明度
           |  |
           |  |------ _拖放对象_得到文件
           |  |
           |  |------ 取路径
           |  |
           |  |------ 执行文件
           |  |
           |  |------ 事件_工具_左键双击
           |  |
           |  |------ 事件_应用_左键双击
           |  |
           |  |------ 事件_游戏_左键双击
           |  |
           |  |------ 取天气
           |  |
           |  |------ UTF8编码到ANSI_API
           |  |
           |  |------ URL编码
           |  |
           |  |------ HTTP
           |  |
           |  |------ 窗口_消息回调
           |  |
           |  |------ __启动窗口_位置被改变
           |  |
           |  |------ 事件_工具_右键放开
           |  |
           |  |------ 事件_应用_右键放开
           |  |
           |  |------ 事件_游戏_右键放开
           |  |
           |  |------ _刷新_被选择
           |  |
           |  |------ _删除_被选择
           |  |
           |  |------ 按钮_配置_左键单击
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _颜色选择器1_颜色被改变
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _滑块条1_位置被改变
           |  |
           |  |------ _外形框1_鼠标左键被放开
           |  |
           |  |------ _外形框2_鼠标左键被放开
           |  |
           |  |------ _外形框3_鼠标左键被放开
           |  |
           |  |------ _外形框4_鼠标左键被放开
           |  |
           |  |------ _外形框5_鼠标左键被放开
           |  |
           |  |------ _外形框6_鼠标左键被放开
           |  |
           |  |------ _外形框7_鼠标左键被放开
           |  |
           |  |------ _选择框1_被单击
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ExtractAssociatedIconA
           |  |
           |  |---[dll]------   ShellExecuteA
           |  |
           |  |---[dll]------   InternetOpenA
           |  |
           |  |---[dll]------   InternetCloseHandle
           |  |
           |  |---[dll]------   InternetReadFile
           |  |
           |  |---[dll]------   InternetOpenUrlA
           |  |
           |  |---[dll]------   MultiByteToWideChar_utf_8
           |  |
           |  |---[dll]------   WideCharToMultiByte

调用的DLL命令:

.DLL命令 ExtractAssociatedIconA, 整数型
    .参数 程序句柄, 整数型
    .参数 文件名, 文本型
    .参数 图标类型, 整数型, 传址

.DLL命令 ShellExecuteA, 整数型, , "ShellExecuteA"
    .参数 hwnd, 整数型
    .参数 lpOperation, 文本型
    .参数 lpFile, 文本型
    .参数 lpParameters, 文本型
    .参数 lpDirectory, 文本型
    .参数 nShowCmd, 整数型

.DLL命令 InternetOpenA, 整数型, "wininet.dll", "InternetOpenA"
    .参数 代理商名称, 文本型
    .参数 存取类型, 整数型
    .参数 代理名称, 文本型
    .参数 代理地址, 文本型
    .参数 标志, 整数型

.DLL命令 InternetCloseHandle, 整数型, "wininet.dll", "InternetCloseHandle"
    .参数 Internet句柄, 整数型

.DLL命令 InternetReadFile, 整数型, "wininet.dll", "InternetReadFile"
    .参数 Internet地址句柄, 整数型
    .参数 数据缓冲区, 字节集
    .参数 读取大小, 整数型
    .参数 读取首地址, 整数型, 传址

.DLL命令 InternetOpenUrlA, 整数型, "wininet.dll", "InternetOpenUrlA"
    .参数 Internet句柄, 整数型
    .参数 Url地址, 文本型
    .参数 头文本, 文本型
    .参数 头文本长度, 整数型
    .参数 标志, 整数型
    .参数 定义值, 整数型

.DLL命令 MultiByteToWideChar_utf_8, 整数型, , "MultiByteToWideChar"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 字节集
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型

.DLL命令 WideCharToMultiByte, 整数型, "kernel32", "WideCharToMultiByte"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpDefaultChar, 文本型
    .参数 lpUsedDefaultChar, 整数型