快递单号cha询，不限单一的快递公司单号。。。

crary06

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
结果	文本型
局返回	文本型	0
局返回1	文本型	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮1_被单击

_快递cha询 ()

子程序名	返回值类型	公开	备 注
_快递cha询

变量名	类 型	静态	数组	备 注
i	整数型
json	类_json
type	文本型
token	文本型
局_返回	文本型
局_网址	文本型
行数	整数型
正则1	正则表达式类
time	日期时间型

局_返回 ＝ 网页_访问S (“https://www.baidu.com/s?wd=” ＋ 单号.内容, 0, , #cookies1, , #heads, , , , , )
token ＝ 文本_取出中间文本 (局_返回, “tokenV2=”, #引号 )
type ＝ 文本_取出中间文本 (局_返回, “com:'”, “',”)
编辑框1.内容 ＝ “”
' 结果 ＝ UTF8到文本 (网页_访问 (“https://www.kuaidi100.com/autonumber/autoComNum”, 1, “text=” ＋ 单号.内容, ))  此是获取快递公司的代码
如果 (文本_取出中间文本 (局_返回, “currentTitle: '”, “',”) ≠ “”)
标签2.可视 ＝ 真
标签2.标题 ＝ “快递公司:” ＋ 文本_取出中间文本 (局_返回, “currentTitle: '”, “',”)
标签2.可视 ＝ 假
' 如果 (type ＝ “zhongtong”)
局_网址 ＝ “https://express.baidu.com/expres ... =10020&tokenV2=” ＋ token ＋ “&cb=jQuery1102006219520766524633_1608865287656&appid=10002&com=&nu=” ＋ 单号.内容 ＋ “&vcode=&token=&qid=8ed20b24000179c9&_=1608865287660”
局_返回 ＝ 编码_usc2到ansi (网页_访问S (局_网址, 0, , #cookies1, , #heads, , , , , ))
正则1.创建 (“{.*}”, 局_返回)
局_返回 ＝ 正则1.取匹配文本 (1)
json.解析 (局_返回)
行数 ＝ json.成员数 (“data.info.context”)
如果 (行数 ≠ 0)
计次循环首 (行数, i)
time ＝ 增减时间 (到时间 (“1970.01.01 00:00:00”), #秒, 到整数 (json.取通用属性 (“data.info.context[” ＋ 到文本 (i － 1) ＋ “].time”, )))
编辑框1.加入文本 (时间_格式化 (time, “yyyy-MM-dd ”, “HH:mm:ss”) ＋ “   ” ＋ json.取通用属性 (“data.info.context[” ＋ 到文本 (i － 1) ＋ “].desc”, ) ＋ #换行符 ＋ #换行符 )
计次循环尾 ()
结果 ＝ UTF8到文本 (网页_访问 (“https://www.kuaidi100.com/query”, 1, “type=” ＋ type ＋ “&postid=” ＋ 单号.内容 ＋ “&temp=0.” ＋ 文本_取随机字符 (16, ) ＋ “&phone=”, , , #协yi头 ))
json.解析 (结果)
如果 (json.成员数 (“data”) ＝ 0)
编辑框1.加入文本 (json.取通用属性 (“message”, ))
计次循环首 (json.成员数 (“data”), i)
编辑框1.加入文本 (json.取通用属性 (“data[” ＋ 到文本 (i － 1) ＋ “].time”, ) ＋ “:” ＋ json.取通用属性 (“data[” ＋ 到文本 (i － 1) ＋ “].context”, ) ＋ #换行符 )
计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 结果, 文本型<br /> .程序集变量 局返回, 文本型, , "0"<br /> .程序集变量 局返回1, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> _快递cha询 ()<br /> <br /> .子程序 _快递cha询<br /> .局部变量 i, 整数型<br /> .局部变量 json, 类_json<br /> .局部变量 type, 文本型<br /> .局部变量 token, 文本型<br /> .局部变量 局_返回, 文本型<br /> .局部变量 局_网址, 文本型<br /> .局部变量 行数, 整数型<br /> .局部变量 正则1, 正则表达式类<br /> .局部变量 time, 日期时间型<br /> <br /> <br /> 局_返回 ＝ 网页_访问S (“<a href="https://www.baidu.com/s?wd=" rel="nofollow" rel="nofollow" target="_blank">https://www.baidu.com/s?wd=</a>” ＋ 单号.内容, 0, , #cookies1, , #heads, , , , , )<br /> token ＝ 文本_取出中间文本 (局_返回, “tokenV2=”, #引号)<br /> type ＝ 文本_取出中间文本 (局_返回, “com:'”, “',”)<br /> 编辑框1.内容 ＝ “”<br /> ' 结果 ＝ UTF8到文本 (网页_访问 (“https://www.kuaidi100.com/autonumber/autoComNum”, 1, “text=” ＋ 单号.内容, ))  此是获取快递公司的代码<br /> .如果 (文本_取出中间文本 (局_返回, “currentTitle: '”, “',”) ≠ “”)<br />     标签2.可视 ＝ 真<br />     标签2.标题 ＝ “快递公司:” ＋ 文本_取出中间文本 (局_返回, “currentTitle: '”, “',”)<br /> .否则<br />     标签2.可视 ＝ 假<br /> .如果结束<br /> ' 如果 (type ＝ “zhongtong”)<br /> 局_网址 ＝ “<a href="https://express.baidu.com/express/api/express?query_from_srcid=&isBaiduBoxApp=10002&isWisePc=10020&tokenV2=" rel="nofollow" rel="nofollow" target="_blank">https://express.baidu.com/expres ... =10020&tokenV2=</a>” ＋ token ＋ “&cb=jQuery1102006219520766524633_1608865287656&appid=10002&com=&nu=” ＋ 单号.内容 ＋ “&vcode=&token=&qid=8ed20b24000179c9&_=1608865287660”<br /> 局_返回 ＝ 编码_usc2到ansi (网页_访问S (局_网址, 0, , #cookies1, , #heads, , , , , ))<br /> 正则1.创建 (“{.*}”, 局_返回)<br /> 局_返回 ＝ 正则1.取匹配文本 (1)<br /> json.解析 (局_返回)<br /> 行数 ＝ json.成员数 (“data.info.context”)<br /> .如果 (行数 ≠ 0)<br />     .计次循环首 (行数, i)<br />         time ＝ 增减时间 (到时间 (“1970.01.01 00:00:00”), #秒, 到整数 (json.取通用属性 (“data.info.context[” ＋ 到文本 (i － 1) ＋ “].time”, )))<br />         编辑框1.加入文本 (时间_格式化 (time, “yyyy-MM-dd ”, “HH:mm:ss”) ＋ “   ” ＋ json.取通用属性 (“data.info.context[” ＋ 到文本 (i － 1) ＋ “].desc”, ) ＋ #换行符 ＋ #换行符)<br />     .计次循环尾 ()<br /> .否则<br />     结果 ＝ UTF8到文本 (网页_访问 (“https://www.kuaidi100.com/query”, 1, “type=” ＋ type ＋ “&postid=” ＋ 单号.内容 ＋ “&temp=0.” ＋ 文本_取随机字符 (16, ) ＋ “&phone=”, , , #协yi头))<br />     json.解析 (结果)<br />     .如果 (json.成员数 (“data”) ＝ 0)<br />         编辑框1.加入文本 (json.取通用属性 (“message”, ))<br />     .否则<br />         .计次循环首 (json.成员数 (“data”), i)<br />             编辑框1.加入文本 (json.取通用属性 (“data[” ＋ 到文本 (i － 1) ＋ “].time”, ) ＋ “:” ＋ json.取通用属性 (“data[” ＋ 到文本 (i － 1) ＋ “].context”, ) ＋ #换行符)<br />         .计次循环尾 ()<br />     .如果结束<br /> <br /> .如果结束

crary06

此处调用了百d的以及快递100的，可以做到不限快递公司的单号，可以根据单号自动匹配出对应的快递公司并显示

外星星人

做板凳支持一下

王东林

多谢楼主分享

wyunsi1

kuaidi100很多查不到的

crary06

wyunsi1 发表于 2021-8-22 16:20
kuaidi100很多查不到的

所以调用了百d的，你用一下源码测试一下就知道了

AMEN.@

百d有风控的。做快递cha询的都是商家，都是100+单号1秒完成。百d不可能的。你可以用爱查快递的接口

157151799

下载看看学习

芝麻5288

cha询到第三个直接闪退了

凹凸曼001

好东西看一下