快递单号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 /> .如果结束

上岸的鱼Wsh

参数错误

上岸的鱼Wsh

拿走了谢谢

4888862

11111111111111111111111111

黑白灰调

666666666666666666666666666666666666666666666

黑白灰调

66666666666666666666666666666666

wweix

904.19 KB, 下载次数: 206, 下载积分: 精币 -2 枚

hahahha

支持开源~！感谢分享

yzmxilake

啊哈哈 都是用快递100的 ...次数太多会被封

flyme易语言

支持支持，看看还能用不