易语言三种方法取网页源码

系统结构:打开Internet_,关闭Internet句柄_,读Internet文件_,打开Internet地址_,

======窗口程序集_启动窗口
           |  |
           |  |------ _按钮_易语言API_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮_易语言http读文件_被单击
           |  |
           |  |------ _按钮_对象_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   打开Internet_
           |  |
           |  |---[dll]------   关闭Internet句柄_
           |  |
           |  |---[dll]------   读Internet文件_
           |  |
           |  |---[dll]------   打开Internet地址_

调用的DLL命令:

.DLL命令 打开Internet_, 整数型, "wininet.dll", "InternetOpenA", , InternetOpen*
    .参数 代理商名称, 文本型, , 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