自己写的快递查询软，附源码，用E写着玩玩的，请大神指点
很多人认为E上不了台面，其实语言没有好坏，只要用好了，都可以做很多事情
这个是自己写的快递查询的
新手一枚，纯属兴趣爱好。欢迎指点
用的是www.kuaidi100.com的数据
抓包，对post数据进行提交，获取返回数据
.版本 2
.支持库 iext
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 返回文本, 文本型
.局部变量 快递公司, 文本型
.局部变量 快递数据, 文本型
.局部变量 找到的, 文本型
.局部变量 起始寻找位置, 整数型
.局部变量 正则, 正则表达式类
.局部变量 i, 整数型
.局部变量 time, 文本型, , "0"
.局部变量 nr, 文本型, , "0"
编辑框2.内容 ＝ “”
超级列表框1.全部删除 ()
.如果真 (编辑框1.内容 ＝ “”)
信息框 (“请先输入要查询的运单号!!!”, 0, “提示”)
.如果真结束
返回文本 ＝ 编码_URL解码 (到文本 (网页_访问 (“http://www.kuaidi100.com/autonumber/autoComNum?text=” ＋ 编辑框1.内容, 0, , , )), 真)
快递公司 ＝ 文本_取出中间文本 (返回文本, “comCode” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,”, 10)
标签2.标题 ＝ 快递公司 ＋ “快递 最新物流动态”
' 窗口_置标题 (_启动窗口.取窗口句柄 (), “快递查询 by_超子 快递公司为 ” ＋ 快递公司)
快递数据 ＝ 编码_URL解码 (到文本 (网页_访问 (“http://www.kuaidi100.com/query?type=” ＋ 快递公司 ＋ “&postid=” ＋ 编辑框1.内容 ＋ “&id=1&valicode=&temp=0.” ＋ 文本_取随机数字 (16), 0, , , )), 真)
编辑框2.加入文本 (文本_取出中间文本 (快递数据, #时间前, #中间, , ) ＋ 文本_取出中间文本 (快递数据, #中间, #快递结果, , ) ＋ #换行符)
调试输出 (快递数据)
.判断开始 (寻找文本 (快递数据, “单号不存在或者已经过期”, , 假) ＝ -1)
文本_取中间_批量 (快递数据, #常量2, #引号, time)
文本_取中间_批量 (快递数据, #常量3, #引号, nr)
.计次循环首 (取数组成员数 (time), i)
超级列表框1.插入表项 (, time [i], , , , )
超级列表框1.置标题 (i － 1, 1, nr [i])
.计次循环尾 ()
.默认
信息框 (“您所查询的单号不存在或者已经过期!!!”, 64, “提示”)
.判断结束
这个是自己写的快递查询的
新手一枚，纯属兴趣爱好。欢迎指点
用的是www.kuaidi100.com的数据
抓包，对post数据进行提交，获取返回数据
.版本 2
.支持库 iext
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 返回文本, 文本型
.局部变量 快递公司, 文本型
.局部变量 快递数据, 文本型
.局部变量 找到的, 文本型
.局部变量 起始寻找位置, 整数型
.局部变量 正则, 正则表达式类
.局部变量 i, 整数型
.局部变量 time, 文本型, , "0"
.局部变量 nr, 文本型, , "0"
编辑框2.内容 ＝ “”
超级列表框1.全部删除 ()
.如果真 (编辑框1.内容 ＝ “”)
信息框 (“请先输入要查询的运单号!!!”, 0, “提示”)
.如果真结束
返回文本 ＝ 编码_URL解码 (到文本 (网页_访问 (“http://www.kuaidi100.com/autonumber/autoComNum?text=” ＋ 编辑框1.内容, 0, , , )), 真)
快递公司 ＝ 文本_取出中间文本 (返回文本, “comCode” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,”, 10)
标签2.标题 ＝ 快递公司 ＋ “快递 最新物流动态”
' 窗口_置标题 (_启动窗口.取窗口句柄 (), “快递查询 by_超子 快递公司为 ” ＋ 快递公司)
快递数据 ＝ 编码_URL解码 (到文本 (网页_访问 (“http://www.kuaidi100.com/query?type=” ＋ 快递公司 ＋ “&postid=” ＋ 编辑框1.内容 ＋ “&id=1&valicode=&temp=0.” ＋ 文本_取随机数字 (16), 0, , , )), 真)
编辑框2.加入文本 (文本_取出中间文本 (快递数据, #时间前, #中间, , ) ＋ 文本_取出中间文本 (快递数据, #中间, #快递结果, , ) ＋ #换行符)
调试输出 (快递数据)
.判断开始 (寻找文本 (快递数据, “单号不存在或者已经过期”, , 假) ＝ -1)
文本_取中间_批量 (快递数据, #常量2, #引号, time)
文本_取中间_批量 (快递数据, #常量3, #引号, nr)
.计次循环首 (取数组成员数 (time), i)
超级列表框1.插入表项 (, time [i], , , , )
超级列表框1.置标题 (i － 1, 1, nr [i])
.计次循环尾 ()
.默认
信息框 (“您所查询的单号不存在或者已经过期!!!”, 64, “提示”)
.判断结束