易语言自动识别快递公司查件免验证码的代码

今天小编就为大家分享一篇关于易语言自动识别快递公司查件免验证码的代码，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧

常量数据表

				?

									.版本 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”, ) ＋ #换行符)

									    快递信息编辑框.加入文本 (“*********************************************” ＋ #换行符)

									  .计次循环尾 ()

									.判断结束