易语言天气预报插件源码

系统结构:MSN_省级,MSN_市级,MSN_县级,MSN_返回信息,MSN_白天,MSN_晚上,线程_取省,编码_Unicode转ANSI,网络_XmlHttp,编码_UTF8转ANSI,编码_UTF8转Unicode,文本_取中间,线程_市查询,线程_区查询,线程_县查询,SetWindowLong,SetLayeredWindowAttributes,GetWindowLong,取文本指针,CoInitialize,CoUninitialize,MultiByteToWideChar_utf8,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ MSN_省级
           |  |
           |  |------ MSN_市级
           |  |
           |  |------ MSN_县级
           |  |
           |  |------ MSN_返回信息
           |  |
           |  |------ MSN_白天
           |  |
           |  |------ MSN_晚上
           |  |
           |  |------ 线程_取省
           |  |
           |  |------ 编码_Unicode转ANSI
           |  |
           |  |------ 网络_XmlHttp
           |  |
           |  |------ 编码_UTF8转ANSI
           |  |
           |  |------ 编码_UTF8转Unicode
           |  |
           |  |------ 文本_取中间
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _窗口2_创建完毕
           |  |
           |  |------ _组合框1_将弹出列表
           |  |
           |  |------ _组合框1_列表项被选择
           |  |
           |  |------ 线程_市查询
           |  |
           |  |------ _组合框2_列表项被选择
           |  |
           |  |------ 线程_区查询
           |  |
           |  |------ _组合框3_列表项被选择
           |  |
           |  |------ 线程_县查询
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======窗口程序集3
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _窗口3_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   SetLayeredWindowAttributes
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   _宽字符到双字节
           |  |
           |  |---[dll]------   取文本指针
           |  |
           |  |---[dll]------   _宽字符到双字节1
           |  |
           |  |---[dll]------   CoInitialize
           |  |
           |  |---[dll]------   CoUninitialize
           |  |
           |  |---[dll]------   MultiByteToWideChar_utf8

调用的DLL命令:

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息　指定数据的前一个值
    .参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
    .参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
    .参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;

.DLL命令 SetLayeredWindowAttributes, 逻辑型, , "SetLayeredWindowAttributes", , 成功返回真，否则返回假
    .参数 hwnd, 整数型, , 透明窗体的句柄
    .参数 crKey, 整数型, , 颜色值
    .参数 bAlpha, 字节型, , 透明度，取值范围是[0,255]
    .参数 dwFlags, 整数型, , 透明方式：LWA_ALPHA(2)时，crKey参数无效，bAlpha参数有效 || LWA_COLORKEY(1)时，bAlpha参数有效而窗体中的所有颜色为crKey的地方将变为透明

.DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型

.DLL命令 _宽字符到双字节, , , "WideCharToMultiByte", , kernel32.dll
    .参数 代码页, 整数型, , CodePage
    .参数 标志, 整数型, , dwFlags
    .参数 宽字符文本, 字节集, , lpWideCharStr
    .参数 宽字符文本长度, 整数型, , cchWideChar
    .参数 双字节文本, 字节集, , lpMultiByteStr
    .参数 双字节文本长度, 整数型, , cchMultiByte
    .参数 默认文本, 整数型, , lpDefaultChar
    .参数 使用默认文本, 逻辑型, , lpUsedDefaultChar

.DLL命令 取文本指针, 整数型, , "lstrcpyn", 公开
    .参数 欲取其指针的文本, 文本型, 传址
    .参数 欲取其指针的文本, 文本型, 传址
    .参数 保留, 整数型, , 0

.DLL命令 _宽字符到双字节1, 整数型, , "WideCharToMultiByte", , kernel32.dll
    .参数 代码页, 整数型, , CodePage
    .参数 标志, 整数型, , dwFlags
    .参数 宽字符文本, 字节集, , lpWideCharStr
    .参数 宽字符文本长度, 整数型, , cchWideChar
    .参数 双字节文本, 整数型, , lpMultiByteStr
    .参数 双字节文本长度, 整数型, , cchMultiByte
    .参数 默认文本, 整数型, , lpDefaultChar
    .参数 使用默认文本, 逻辑型, , lpUsedDefaultChar

.DLL命令 CoInitialize, , "ole32.dll", , , ,
    .参数 pvReserved, 整数型

.DLL命令 CoUninitialize, , "ole32.dll"

.DLL命令 MultiByteToWideChar_utf8, 整数型, , "MultiByteToWideChar"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 字节集
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型