易语言自动识别快递查询 易语言自动识别快递公司查件免验证码的代码
易语言源码教程 人气:0常量数据表
.版本 2 .常量 快递单号前, "<文本长度: 13>", , [{"comCode":" .常量 快递单号后, "<文本长度: 9>", , ","id":""
快递查询自动识别快递公司无验证码
此功能需要加载精易模块5.6
.版本 2 .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 .子程序 _查询按钮_被单击 .局部变量 提交网址, 文本型 .局部变量 返回数据, 文本型 .局部变量 快递单号, 文本型 .局部变量 数据, 文本型 .局部变量 i, 整数型 .局部变量 json, 类_json 快递信息编辑框.内容 = “” 快递状态标签.标题 = “” 提交网址 = “http://www.kuaidi100.com/autonumber/auto?num=” + 快递编号编辑框.内容 返回数据 = 编码_utf8到gb2312 (网页_访问S (提交网址, , )) 快递单号 = 文本_取出中间文本 (返回数据, #快递单号前, #快递单号后) 数据 = 编码_utf8到gb2312 (网页_访问S (“http://www.kuaidi100.com/query?type=” + 快递单号 + “&postid=” + 快递编号编辑框.内容)) json.解析 (数据) .判断开始 (json.成员数 (“data”) = 0) 快递状态标签.标题 = “抱歉,暂无查询记录” .默认 快递状态标签.标题 = json.取通用属性 (“data[0].context”, ) .计次循环首 (json.成员数 (“data”), i) 系统_处理事件 () 快递信息编辑框.加入文本 (json.取通用属性 (“data[” + 到文本 (i - 1) + “].time”, ) + #换行符) 快递信息编辑框.加入文本 (json.取通用属性 (“data[” + 到文本 (i - 1) + “].context”, ) + #换行符) 快递信息编辑框.加入文本 (json.取通用属性 (“data[” + 到文本 (i - 1) + “].location”, ) + #换行符) 快递信息编辑框.加入文本 (“*********************************************” + #换行符) .计次循环尾 () .判断结束
运行结果:
总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对的支持。如果你想了解更多相关内容请查看下面相关链接
加载全部内容