139邮箱发短信易语言源码

系统结构:发送短信,用户登录,Ansi转Utf8,Ansi转Unicode,Unicode转Utf8,取十进制,HTTP读网页,COOKIE合并更新,URL编码,取中间文本,UTF8转ANSI,取错误代码,置语言,计算表达式,执行语句,运行,重置脚本,添加代码,API_初始化COM库,API_取消初始化COM库,MultiByteToWideChar,MultiByteToWideChar_utf_8,WideCharToMultiByte,WideCharToMultiByte_utf8,

======窗口程序集1
           |  |
           |  |------ 发送短信
           |  |
           |  |------ 用户登录
           |  |
           |  |------ Ansi转Utf8
           |  |
           |  |------ Ansi转Unicode
           |  |
           |  |------ Unicode转Utf8
           |  |
           |  |------ _URL编码
           |  |
           |  |------ _URL解码
           |  |
           |  |------ 取十进制
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _tb_content_内容被改变
           |  |
           |  |
======网页访问程序集
           |  |
           |  |------ HTTP读网页
           |  |
           |  |------ COOKIE合并更新
           |  |
           |  |------ URL编码
           |  |
           |  |------ _取文本中间
           |  |
           |  |------ 取中间文本
           |  |
           |  |------ UTF8转ANSI
           |  |
           |  |
======脚本类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 取错误代码
           |  |
           |  |------ 置语言
           |  |
           |  |------ 计算表达式
           |  |
           |  |------ 执行语句
           |  |
           |  |------ 运行
           |  |
           |  |------ 重置脚本
           |  |
           |  |------ 添加代码
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_初始化COM库
           |  |
           |  |---[dll]------   API_取消初始化COM库
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   MultiByteToWideChar_utf_8
           |  |
           |  |---[dll]------   WideCharToMultiByte
           |  |
           |  |---[dll]------   WideCharToMultiByte_utf8

  

调用的DLL命令:

.DLL命令 API_初始化COM库, , "ole32", "CoInitialize", 公开, 初始化COM库
    .参数 a, , , 0

.DLL命令 API_取消初始化COM库, , "ole32", "CoUninitialize", 公开, 取消初始化COM库

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

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

.DLL命令 WideCharToMultiByte, 整数型, "kernel32", "WideCharToMultiByte"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpDefaultChar, 文本型
    .参数 lpUsedDefaultChar, 整数型

.DLL命令 WideCharToMultiByte_utf8, 整数型, , "WideCharToMultiByte", , kernel32.dll 将通配符映像为多字节
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 字节集
    .参数 cchMultiByte, 整数型
    .参数 lpDefaultChar, 整数型
    .参数 lpUsedDefaultChar, 整数型