易语言取天气信息源码

系统结构:刷新天气,GetInternetConnected,访问网络,取端口,取页面地址,取域名,网络_Internet激活,网络_Internet建立连接,网络_Http创建请求,网络_Http发送请求,网络_Internet读文件,网络_HTTP查询信息,网络_Internet关闭句柄,网络_读取COOKIE,网络_设置COOKIE,CreateThread,InternetGetConnectedStateEx,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 刷新天气
           |  |
           |  |------ GetInternetConnected
           |  |
           |  |------ 访问网络
           |  |
           |  |------ 取端口
           |  |
           |  |------ 取页面地址
           |  |
           |  |------ 取域名
           |  |
           |  |------ _刷新天气按钮_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   网络_Internet激活
           |  |
           |  |---[dll]------   网络_Internet建立连接
           |  |
           |  |---[dll]------   网络_Http创建请求
           |  |
           |  |---[dll]------   网络_Http发送请求
           |  |
           |  |---[dll]------   网络_Internet读文件
           |  |
           |  |---[dll]------   网络_HTTP查询信息
           |  |
           |  |---[dll]------   网络_Internet关闭句柄
           |  |
           |  |---[dll]------   网络_读取COOKIE
           |  |
           |  |---[dll]------   网络_设置COOKIE
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   InternetGetConnectedStateEx

调用的DLL命令:

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

.DLL命令 网络_Internet建立连接, 整数型, "wininet.dll", "InternetConnectA"
    .参数 Internet句柄, 整数型
    .参数 域名, 文本型, 传址
    .参数 服务器端口, 整数型, , 80HTTP;21FTP;
    .参数 用户名, 文本型, 传址, 空
    .参数 用户口令, 文本型, 传址, 空
    .参数 服务类型, 整数型, , 1FTP;3HTTP
    .参数 dwFlags, 整数型, , 0http;134217728被动FTP模式
    .参数 dwContext, 整数型, , 0

.DLL命令 网络_Http创建请求, 整数型, "wininet.dll", "HttpOpenRequestA"
    .参数 Internet连接句柄, 整数型, , 由Internet建立连接返回
    .参数 访问方式, 文本型, 传址, "GET" or "POST"为空默认GET
    .参数 页面路径, 文本型, 传址, 简短路径,不带域名
    .参数 协议版本, 文本型, 传址, 为空默认HTTP/1.1
    .参数 引用页, 文本型, 传址, 可为空
    .参数 识别类型, 文本型, 传址, 可为空
    .参数 dwFlags, 整数型, , 2147483648更新下载
    .参数 dwContext, 整数型, , 0

.DLL命令 网络_Http发送请求, 逻辑型, "wininet.dll", "HttpSendRequestA"
    .参数 HTTP请求句柄, 整数型
    .参数 sHeaders, 文本型, 传址
    .参数 lHeadersLength, 整数型
    .参数 sOptional, 文本型, 传址
    .参数 lOptionalLength, 整数型

.DLL命令 网络_Internet读文件, 逻辑型, "wininet.dll", "InternetReadFile"
    .参数 HTTP请求句柄, 整数型
    .参数 sBuffer, 字节集, 传址
    .参数 lNumBytesToRead, 整数型
    .参数 lNumberOfBytesRead, 整数型, 传址

.DLL命令 网络_HTTP查询信息, 逻辑型, "wininet.dll", "HttpQueryInfoA"
    .参数 Internet请求句柄, 整数型
    .参数 待查信息, 整数型, , 22返回所有信息;43SET_COOKIE;+2147483648返回文本
    .参数 返回容器, 文本型, 传址
    .参数 返回容器长度, 整数型, 传址
    .参数 lpdwIndex, 整数型

.DLL命令 网络_Internet关闭句柄, 逻辑型, "wininet.dll", "InternetCloseHandle"
    .参数 句柄, 整数型

.DLL命令 网络_读取COOKIE, 逻辑型, "wininet.dll", "InternetGetCookieA"
    .参数 域名, 文本型, 传址
    .参数 名称, 文本型, 传址
    .参数 内容, 文本型, 传址
    .参数 尺寸, 整数型, 传址

.DLL命令 网络_设置COOKIE, 逻辑型, "wininet.dll", "InternetSetCookieA"
    .参数 域名, 文本型, 传址
    .参数 名称, 文本型, 传址
    .参数 内容, 文本型, 传址

.DLL命令 CreateThread, 整数型, "kernel32", "CreateThread", , 启动线程
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型, 传址

.DLL命令 InternetGetConnectedStateEx, 整数型, "wininet.dll", "InternetGetConnectedStateExA", , ,
    .参数 标志, 整数型, 传址, lpdwFlags
    .参数 连接名称, 文本型, , lpszConnectionName
    .参数 名称长度, 整数型, , dwNameLen
    .参数 保留参数, 整数型, , dwReserved