易语言炫酷音乐盒源码

系统结构:搜索伴奏,搜索伴奏_线程,URL编码_UTF8,Utf8转ansi,Ansi转Utf8,Unicode转ansi,Utf8转Unicode,Unicode转Utf8,Ansi转Unicode,取中间文本,加入数组_取中间,获取歌曲专辑图片,LRC歌词,Aero_启用,初始化,释放bass,寻找歌词号,更换歌词,增,减,取秒,DwmIsCompositionEnabled,DwmExtendFrameIntoClientArea,SetWindowLong,SetLayeredWindowAttributes,MultiByteToWideChar,MultiByteToWideChar1,WideCharToMultiByte,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ _超级列表框1_表项被激活
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 搜索伴奏
           |  |
           |  |------ 搜索伴奏_线程
           |  |
           |  |
======子程序
           |  |
           |  |------ URL编码_UTF8
           |  |
           |  |------ Utf8转ansi
           |  |
           |  |------ Ansi转Utf8
           |  |
           |  |------ Unicode转ansi
           |  |
           |  |------ Utf8转Unicode
           |  |
           |  |------ Unicode转Utf8
           |  |
           |  |------ Ansi转Unicode
           |  |
           |  |------ 取中间文本
           |  |
           |  |------ 加入数组_取中间
           |  |
           |  |------ 获取歌曲专辑图片
           |  |
           |  |------ LRC歌词
           |  |
           |  |------ Aero_启用
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _MP3窗口_创建完毕
           |  |
           |  |------ _MP3窗口_可否被关闭
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _时钟2_周期事件
           |  |
           |  |------ 初始化
           |  |
           |  |------ 释放bass
           |  |
           |  |------ 寻找歌词号
           |  |
           |  |------ 更换歌词
           |  |
           |  |------ 增
           |  |
           |  |------ 减
           |  |
           |  |------ 取秒
           |  |
           |  |
======窗口程序集3
           |  |
           |  |------ _设置窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _设置窗口_可否被关闭
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   DwmIsCompositionEnabled
           |  |
           |  |---[dll]------   DwmExtendFrameIntoClientArea
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   SetLayeredWindowAttributes
           |  |
           |  |---[dll]------   _宽字符到双字节
           |  |
           |  |---[dll]------   _宽字符到双字节1
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   MultiByteToWideChar1
           |  |
           |  |---[dll]------   WideCharToMultiByte

调用的DLL命令:

.DLL命令 DwmIsCompositionEnabled, 整数型, "dwmapi.dll", "DwmIsCompositionEnabled", , DwmIsCompositionEnabled Dwm合成是否开启
    .参数 开启, 逻辑型, 传址, ByRef pfEnabled

.DLL命令 DwmExtendFrameIntoClientArea, 整数型, "dwmapi.dll", "DwmExtendFrameIntoClientArea", , DwmExtendFrameIntoClientArea Dwm扩展框架到客户区
    .参数 窗口句柄, , , ByVal hWnd As IntPtr, ByRef pMargin As Margins
    .参数 边缘矩形, Margin

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA", 公开, 在窗口结构中为指定的窗口设置信息　指定数据的前一个值
    .参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
    .参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
    .参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;

.DLL命令 SetLayeredWindowAttributes, , , "SetLayeredWindowAttributes"
    .参数 窗口句柄, 整数型
    .参数 透明色, 整数型
    .参数 透明度, 整数型
    .参数 透明方式, 整数型

.DLL命令 _宽字符到双字节, , , "WideCharToMultiByte", , kernel32.dll
    .参数 代码页, 整数型, , CodePage
    .参数 标志, 整数型, , dwFlags
    .参数 宽字符文本, 字节集, , lpWideCharStr
    .参数 宽字符文本长度, 整数型, , cchWideChar
    .参数 双字节文本, 字节集, , lpMultiByteStr
    .参数 双字节文本长度, 整数型, , cchMultiByte
    .参数 默认文本, 整数型, , lpDefaultChar
    .参数 使用默认文本, 逻辑型, , lpUsedDefaultChar

.DLL命令 _宽字符到双字节1, 整数型, , "WideCharToMultiByte", , kernel32.dll
    .参数 代码页, 整数型, , CodePage
    .参数 标志, 整数型, , dwFlags
    .参数 宽字符文本, 字节集, , lpWideCharStr
    .参数 宽字符文本长度, 整数型, , cchWideChar
    .参数 双字节文本, 整数型, , lpMultiByteStr
    .参数 双字节文本长度, 整数型, , cchMultiByte
    .参数 默认文本, 整数型, , lpDefaultChar
    .参数 使用默认文本, 逻辑型, , lpUsedDefaultChar

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

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

.DLL命令 WideCharToMultiByte, 整数型, , "WideCharToMultiByte", 公开, kernel32.dll 将通配符映像为多字节
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 字节集
    .参数 cchMultiByte, 整数型
    .参数 lpDefaultChar, 整数型
    .参数 lpUsedDefaultChar, 整数型