本帖最后由 池盛龙 于 2022-1-7 08:09 编辑
注册快递100账号（官方文档说普通账号不能查主流快递，这里建议大家有条件的注册企业账号）
示例表格结构
一、复制CHISHENGLONG_KD100.dll到指定位置
二、ALT+F11 打开VBE编辑器，粘贴代码 - Sub CHISHENGLONG()
-
- Dim CHI As New CHI
- CHI.Machine "46FB52D2258E****" '程序注册码 获取网址:http://chishenglong.top/3_ZCM/
- CHI.account "adzmixic****", "F6BB1FD0E5B362CDFA5E6C6C792C****" '快递100注册企业账号的信息：授权码key和customer
- Dim X As Integer
- For X = 2 To 3
- CHI.body Cells(X, "A"), Cells(X, "B"), Cells(X, "C"), 0 '分别是：快递公司,快递单号,寄件人手机号,0=普通状态；6=高级状态（细分状态）JSON=CHI.body(Cells(X, "A"), Cells(X, "B"), Cells(X, "C"), 0)写法时可以返回JSON
- Cells(X, "D") = CHI.returns("State") '返回状态
- Cells(X, "E") = CHI.returns("Date") '返回日期
- Cells(X, "F") = CHI.result '请求状态
- Next
- Set objPrjDoc = Nothing
- MsgBox "OK"
- End Sub
三、点击【工具】-【引用】-【浏览】选择存放的CHISHENGLONG_KD100.dll【勾选】-【确定】-【保存工作薄】
四、如果出现下面提示。请安装以上步骤重新关联DLL文件
代码参数
| 一、【请求参数(Machine )】 必须 | | 参数 | 类型 | 必填 | 验证程序是否注册 | | Machines | string | 是 | 16位注册码903C8F8B607C4243 | | 二、【请求参数(account )】必须 | | 参数 | 类型 | 必填 | 描述 | | key | string | 是 | 从快递100注册企业账号获取 | | customer | string | 是 | 从快递100注册企业账号获取 | | 三、【请求参数(body)】 必须 此参数可返回完整JSON字符串 | | 参数 | 类型 | 必填 | 描述 | | company | string | 是 | 顺丰速运 | | num | string | 是 | 查询的快递单号， 单号的最大长度是32 | | phone | string | 否 | 13888888888 收、寄件人的电话号码（手机和固定电话均可，只能填写一个
，顺丰速运和丰网速运必填，其他快递公司选填。如座机号码有分机号，分机号无需传入。） | | resultv2 | int | 否 | 0或者6,0返回普通物流状态，6返回高级物流状态 | | 四、【状态参数(result)】 选用 | | 参数 | 类型 | 必填 | 描述 | | result | string |
| 返回请求状态成功返回OK,否则返回异常结果 | | 四、【结果参数(returns)】 选用 | | 参数 | 类型 | 必填 | 描述 | | State | string |
| 返回快递物流状态，如在途，派送等 | | Date | string |
| 返回状态更新日期
|
| 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2022-1-6 01:10
楼主
