易语言取百度MP3信息源码

系统结构:搜索歌曲,获得真实网址,取指定内容,HTTP读文件2,InternetOpen,InternetOpenUrl,HttpQueryInfo,InternetReadFileByte,InternetRead,InternetCloseHandle,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 搜索歌曲
           |  |
           |  |------ 获得真实网址
           |  |
           |  |------ 取指定内容
           |  |
           |  |------ HTTP读文件2
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   InternetOpen
           |  |
           |  |---[dll]------   InternetOpenUrl
           |  |
           |  |---[dll]------   HttpQueryInfo
           |  |
           |  |---[dll]------   InternetReadFileByte
           |  |
           |  |---[dll]------   InternetRead
           |  |
           |  |---[dll]------   InternetCloseHandle

调用的DLL命令:

.DLL命令 InternetOpen, 整数型, "wininet.dll", "InternetOpenA", , 初始化一个应用程序，以使用 WinINet 函数，成功：返回一个有效的句柄，该句柄将由应用程序传递给接下来的WinINet函数
    .参数 sAgent, 文本型, , 应用程序名，可以自定义
    .参数 lAccessType, 整数型, , 存取类型，INTERNET_OPEN_TYPE_PRECONFIG =0 使用 IE 中的连接设置，2、INTERNET_OPEN_TYPE_DIRECT =1 直接连接到服务器，3、INTERNET_OPEN_TYPE_PROXY =3 通过代理服务器进行连接
    .参数 sProxyName, 整数型, , 指定了当lAccessType类型为INTERNET_OPEN_TYPE_PROXY时，代理服务器的名字，一般设置为 nill
    .参数 sProxyBypass, 整数型, , 代理服务器地址
    .参数 lFlags, 整数型, , dwFlags 标记，一般设置为 0，可以是：1、INTERNET_FLAG_DONT_CACHE 不在缓存中保存取得的内容2、INTERNET_FLAG_OFFLINE 脱机方式

.DLL命令 InternetOpenUrl, 整数型, "wininet.dll", "InternetOpenUrlA"
    .参数 hInet, 整数型, , 由 InternetOpen 返回的句柄
    .参数 lpszUrl, 文本型, , 文件 Url 地址，以 http：，ftp：打头的 Url 地址；
    .参数 lpszHeaders, 整数型, , 发送到服务器的数据头
    .参数 dwHeadersLength, 整数型, , 发送到服务器的数据头长度
    .参数 dwflags, 整数型, , 标记，可以是1、INTERNET_FLAG_RELOAD 强制重读数2、INTERNET_FLAG_DONT_CACHE 不保存到缓存据3、INTERNET_FLAG_TRANSFER_ASCII 使用文本数据4、INTERNET_FLAG_TRANSFER_BINARY 使用二进制数据
    .参数 dwcontext, 整数型, , 上下文标记，如果使用回调功能时这个值将传送给回调函数

.DLL命令 HttpQueryInfo, 整数型, "wininet.dll", "HttpQueryInfoA", , 取网络头信息
    .参数 hHttpRequest, 整数型, , 由 InternetOpenUrl 返回的句柄
    .参数 dwInfoLevel, 整数型, , 获取类型
    .参数 lpvBuffer, 长整数型, 传址, 数据缓冲区
    .参数 lpdwBufferLength, 整数型, 传址, 缓冲大小
    .参数 lpdwIndex, 整数型, , 读取首地址

.DLL命令 InternetReadFileByte, 整数型, "wininet.dll", "InternetReadFile"
    .参数 hfile, 整数型, , 由 InternetOpenUrl 返回的句柄
    .参数 lpbuffer, 字节集, , 数据缓冲区
    .参数 lNumBytesToRead, 整数型, , 要读取数据大小
    .参数 lNumberOfBytesRead, 整数型, 传址, 实际读取大小

.DLL命令 InternetRead, 整数型, "wininet.dll", "InternetReadFile"
    .参数 hfile, 整数型, , 由 InternetOpenUrl 返回的句柄
    .参数 lpbuffer, 文本型, , 数据缓冲区
    .参数 lNumBytesToRead, 整数型, , 要读取数据大小
    .参数 lNumberOfBytesRead, 整数型, 传址, 实际读取大小

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