易语言取千千静听服务器歌词源码

系统结构:Code,conv,取回歌词列表,取歌词,取文本中间_,http读字节,SetToHexString,Decode,到十六进制文本,InternetOpen,InternetOpenUrl,InternetReadFile,InternetCloseHandle,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _超级列表框1_被双击
           |  |
           |  |
======程序集1
           |  |
           |  |------ Code
           |  |
           |  |------ conv
           |  |
           |  |------ 取回歌词列表
           |  |
           |  |------ 取歌词
           |  |
           |  |------ 取文本中间_
           |  |
           |  |------ http读字节
           |  |
           |  |------ SetToHexString
           |  |
           |  |------ Decode
           |  |
           |  |------ 到十六进制文本
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   InternetOpen
           |  |
           |  |---[dll]------   InternetOpenUrl
           |  |
           |  |---[dll]------   InternetReadFile
           |  |
           |  |---[dll]------   InternetCloseHandle

调用的DLL命令:

.DLL命令 InternetOpen, 整数型, "wininet.dll", "InternetOpenA", 公开
    .参数 句柄名称, 文本型, 传址
    .参数 连接类型, 整数型, , 1直接连接;3代理连接
    .参数 代理地址, 文本型, 传址
    .参数 代理掩码, 文本型, 传址
    .参数 dwFlags, 整数型, , 0

.DLL命令 InternetOpenUrl, 整数型, "wininet.dll", "InternetOpenUrlA"
    .参数 数值03, 整数型
    .参数 文本04, 文本型
    .参数 文本05, 文本型
    .参数 数值04, 整数型
    .参数 数值05, 整数型
    .参数 数值06, 整数型

.DLL命令 InternetReadFile, 逻辑型, "wininet.dll", "InternetReadFile", 公开
    .参数 HTTP请求句柄, 整数型
    .参数 sBuffer, 字节集, 传址
    .参数 lNumBytesToRead, 整数型
    .参数 lNumberOfBytesRead, 整数型, 传址

.DLL命令 InternetCloseHandle, 逻辑型, "wininet.dll", "InternetCloseHandle", 公开
    .参数 句柄, 整数型