快递查询工具源码

.版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 返回文本, 文本型
.局部变量 json, 类_json
.局部变量 总数, 整数型
.局部变量 i1, 整数型

返回文本 ＝ 网页_访问S (“http://www.kuaidi100.com/autonumber/autoComNum?text=” ＋ 编辑框1.内容, 0)
调试输出 (返回文本)
返回文本 ＝ 文本_取出中间文本 (返回文本, #常量1, #引号, , )
返回文本 ＝ 网页_访问S (“http://www.kuaidi100.com/query?type=” ＋ 返回文本 ＋ “&postid=” ＋ 编辑框1.内容 ＋ “&id=1&valicode=&temp=0.7026557298377156”, 0)
返回文本 ＝ 编码_utf8到gb2312 (返回文本)
json.解析 (返回文本)
总数 ＝ json.成员数 (“data”)
.判断开始 (总数 ＝ 0)
    编辑框2.内容 ＝ “无数据。”
.默认
    标签1.标题 ＝ json.取通用属性 (“data[0].context”)
    .计次循环首 (总数, i1)
        调试输出 (总数 － i1)
        编辑框2.加入文本 (json.取通用属性 (“data[” ＋ 到文本 (总数 － i1) ＋ “].time”) ＋ #换行符 ＋ json.取通用属性 (“data[” ＋ 到文本 (总数 － i1) ＋ “].context”) ＋ #换行符)
        编辑框2.加入文本 (“--------------------------------------------------------” ＋ #换行符)
    .计次循环尾 ()
.判断结束
调试输出 (返回文本)

@剩下我de孩子气