易语言读网页文件源码

系统结构:超速读网页,读取网页内容,打开Internet_,关闭Internet句柄_,读Internet文件_,打开Internet地址_,创建扩展线程_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 超速读网页
           |  |
           |  |------ 读取网页内容
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   打开Internet_
           |  |
           |  |---[dll]------   关闭Internet句柄_
           |  |
           |  |---[dll]------   读Internet文件_
           |  |
           |  |---[dll]------   打开Internet地址_
           |  |
           |  |---[dll]------   创建扩展线程_

调用的DLL命令:

.DLL命令 打开Internet_, 整数型, "wininet.dll", "InternetOpenA"
    .参数 代理商名称, 文本型, , sAgent
    .参数 存取类型, 整数型, , lAccessType
    .参数 代理名称, 文本型, , sProxyName
    .参数 代理地址, 文本型, , sProxyBypass
    .参数 标志, 整数型, , lFlags

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

.DLL命令 读Internet文件_, 整数型, "wininet.dll", "InternetReadFile", , InternetReadFile*
    .参数 Internet地址句柄, 整数型, , hFile
    .参数 数据缓冲区, 文本型, , sBuffer
    .参数 读取大小, 整数型, , lNumBytesToRead
    .参数 读取首地址, 整数型, 传址, lNumberOfBytesRead

.DLL命令 打开Internet地址_, 整数型, "wininet.dll", "InternetOpenUrlA", , InternetOpenUrl*
    .参数 Internet句柄, 整数型, , hInternetSession
    .参数 Url地址, 文本型, , lpszUrl
    .参数 头文本, 文本型, , lpszHeaders
    .参数 头文本长度, 整数型, , dwHeadersLength
    .参数 标志, 整数型, , dwFlags
    .参数 定义值, 整数型, , dwContext

.DLL命令 创建扩展线程_, 整数型, "shlwapi.dll", "SHCreateThread", , SHCreateThread
    .参数 线程地址, 整数型, , pfnThreadProc
    .参数 数据, 整数型, , pData，Any
    .参数 标志, 整数型, , dwFlags
    .参数 返回信息, 整数型, , pfnCallback