本帖最后由 zangai 于 2019-10-16 20:07 编辑
调用了精易模块 自己论坛下载吧
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | 快递单号 | 文本型 | | 快递公司 | 文本型 | | MD5密文 | 文本型 | | B64编码 | 文本型 | | appkey | 文本型 | | appID | 文本型 | | 获取快递公司编码URL | 文本型 | | 获取快递信息URL | 文本型 | | 未编码单号 | 文本型 | | 信息编码 | 文本型 | | MD5密文1 | 文本型 | | B64编码1 | 文本型 | | 信息编码1 | 文本型 | | 详情 | 文本型 | | 单号临时 | 文本型 | |
appID = “888888” appkey = “832b16bb-2f03-4567-9179-818888888” 单号临时 = “71581898157033” 快递单号 = 编码_URL编码 ( #单号前 + 单号临时 + #单号尾 ) 未编码单号 = #单号前 + 单号临时 + #单号尾 MD5密文 = 校验_取md5_文本 (未编码单号 + appkey ) B64编码 = 编码_BASE64编码 (到字节集 (MD5密文 )) 获取快递公司编码URL = 到文本 (网页_访问 (“http://api.kdniao.com/Ebusiness/EbusinessOrderHandle.aspx”, 1, “EBusinessID=” + appID + “&DataType=2&RequestType=2002&RequestData=” + 快递单号 + “&DataSign=” + B64编码 )) 快递公司 = 编码_utf8到gb2312 (文本_取出中间文本 (获取快递公司编码URL, #qianmian, #houmian )) 信息编码 = 编码_URL编码 ( #信息编码前 + 快递公司 + #信息编码中 + 单号临时 + #信息编码尾 )信息编码1 = #信息编码前 + 快递公司 + #信息编码中 + 单号临时 + #信息编码尾 MD5密文1 = 校验_取md5_文本 (信息编码1 + appkey )B64编码1 = 编码_BASE64编码 (到字节集 (MD5密文1 )) 获取快递信息URL = 编码_utf8到gb2312 (到文本 (网页_访问 (“http://api.kdniao.com/Ebusiness/EbusinessOrderHandle.aspx”, 1, “EBusinessID=” + appID + “&DataType=2&RequestType=1002&RequestData=” + 信息编码 + “&DataSign=” + B64编码1 )) )详情 = 文本_取出中间文本 (获取快递信息URL, #详情前, #详情尾 ) 输出调试文本 (信息编码 )输出调试文本 (信息编码1 )输出调试文本 (MD5密文1 )输出调试文本 (B64编码1 )输出调试文本 (获取快递信息URL )输出调试文本 (详情 )
快递.e
(639.22 KB, 下载次数: 160)
|