酷我音乐获取易语言控制台源码

系统结构:毫秒到时间,取中间文本,多项查找,读取网页源码,取域名,取端口,取页面地址,读取cookie,设置cookie,LoadMemLibrary,FreeMemLibrary,GetMemProcAddress,取文本型指针,取字节集指针,Utf8转Ansi,Unicode转Ansi,Utf8转Unicode,Ansi转Utf8,Unicode转Utf8,Ansi转Unicode,URL编码,URL解码,InternetOpen,InternetConnect,InternetCloseHandle,HttpOpenRequest,HttpSendRequest,InternetReadFile,HttpQueryInfo,InternetGetCookie,InternetSetCookie,打开音乐,播放音乐,关闭音乐,停止播放,继续播放,暂停播放,取播放时间,WideCharToMultiByte,MultiByteToWideChar_utf8,WideCharToMultiByte_utf8,MultiByteToWideChar,mciSendString,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 毫秒到时间
           |  |
           |  |------ 取中间文本
           |  |
           |  |------ 多项查找
           |  |
           |  |------ 读取网页源码
           |  |
           |  |------ 取域名
           |  |
           |  |------ 取端口
           |  |
           |  |------ 取页面地址
           |  |
           |  |------ 读取cookie
           |  |
           |  |------ 设置cookie
           |  |
           |  |------ LoadMemLibrary
           |  |
           |  |------ FreeMemLibrary
           |  |
           |  |------ GetMemProcAddress
           |  |
           |  |------ 取文本型指针
           |  |
           |  |------ 取字节集指针
           |  |
           |  |------ Utf8转Ansi
           |  |
           |  |------ Unicode转Ansi
           |  |
           |  |------ Utf8转Unicode
           |  |
           |  |------ Ansi转Utf8
           |  |
           |  |------ Unicode转Utf8
           |  |
           |  |------ Ansi转Unicode
           |  |
           |  |------ URL编码
           |  |
           |  |------ URL解码
           |  |
           |  |
======HTTP
           |  |
           |  |------ InternetOpen
           |  |
           |  |------ InternetConnect
           |  |
           |  |------ InternetCloseHandle
           |  |
           |  |------ HttpOpenRequest
           |  |
           |  |------ HttpSendRequest
           |  |
           |  |------ InternetReadFile
           |  |
           |  |------ HttpQueryInfo
           |  |
           |  |------ InternetGetCookie
           |  |
           |  |------ InternetSetCookie
           |  |
           |  |
======mci
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 打开音乐
           |  |
           |  |------ 播放音乐
           |  |
           |  |------ 关闭音乐
           |  |
           |  |------ 停止播放
           |  |
           |  |------ 继续播放
           |  |
           |  |------ 暂停播放
           |  |
           |  |------ 取播放时间
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   WideCharToMultiByte
           |  |
           |  |---[dll]------   MultiByteToWideChar_utf8
           |  |
           |  |---[dll]------   WideCharToMultiByte_utf8
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   mciSendString

调用的DLL命令:

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

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

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

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

.DLL命令 mciSendString, 整数型, "winmm.dll", "mciSendStringA", , 向MCI设备发出一条命令字符串　
    .参数 lpstrCommand, 文本型, , 要发送的MCI文本
    .参数 lpstrReturnString, 文本型, 传址, 存放返回文本的容器，必须先初始化为适当长度的文本。若不需要接受返回的文本，直接提供一个文本型常量也可。
    .参数 uReturnLength, 整数型, , 返回文本的最大长度，或设为0（不需要返回文本）
    .参数 hwndCallback, 整数型, , 接收“wait”、“notify”消息的窗口句柄。基本上用不着，保持为0即可