1 ''' <summary> 2 ''' 提交快递数据参数，返回 快递跟踪 3 ''' </summary> 4 ''' <param name="OrderCode">物流运单号</param> 5 ''' <param name="LogisticCode">物流运单号</param> 6 ''' <param name="ShipperCode">快递公司编码</param> 7 ''' <returns>Traces:(快递跟踪) eg. 2016-12-07 16:01:23: 顺丰速运 已收取快件</returns> 8 ''' <remarks></remarks> 9 10 Public Function GetKDinfo(ByVal OrderCode As String, ByVal LogisticCode As String, ByVal ShipperCode As String) As String 11 12 Dim st As String 13 st = getOrderTracesByJson(OrderCode, ShipperCode, LogisticCode) 14 15 Dim jo As JObject 16 jo = JsonConvert.DeserializeObject(st) 17 18 Dim KDinfo As String 19 KDinfo = "" 20 21 Dim ss As String 22 ss = jo("Traces").ToString() 23 Dim jff As JArray 24 jff = JsonConvert.DeserializeObject(ss) 25 26 For i = 0 To jff.Count - 1 27 KDinfo = KDinfo + jff(i)("AcceptTime").ToString() + ": " + jff(i)("AcceptStation").ToString() + " " 28 Next 29 Return KDinfo 30 End Function 31 32 ''' <summary> 33 ''' 查询 快递状态 34 ''' </summary> 35 ''' <param name="OrderCode">订单号</param> 36 ''' <param name="LogisticCode">物流运单号</param> 37 ''' <param name="ShipperCode">快递公司编号</param> 38 ''' <returns>返回快递状态状态 State:(物流状态) 0-无轨迹;1-已揽收;2-在途中;201-到达派件城市;3-签收;4-问题件 </returns> 39 ''' <remarks>参数都是string类型的，饭后文本状态信息。</remarks> 40 Public Function GetKDstate(ByVal OrderCode As String, ByVal LogisticCode As String, ByVal ShipperCode As String) As String 41 42 Dim st As String 43 Dim KDinfostr(2) As String 44 st = getOrderTracesByJson("", ShipperCode, LogisticCode) 45 46 Dim jo As JObject 47 jo = JsonConvert.DeserializeObject(st) 48 49 Dim endstr As String 50 endstr = "" 51 Dim stateInt As Int16 52 53 'MsgBox(jo("State").Type) 54 55 stateInt = CInt(IIf(IsDBNull(jo("State")), "0", jo("State"))) 56 57 Select Case stateInt 58 Case 0 59 endstr = "无轨迹" 60 Case 1 61 endstr = "已揽收" 62 Case 2 63 endstr = "在途中" 64 Case 3 65 endstr = "签收" 66 Case 4 67 endstr = "问题件" 68 End Select 69 Return endstr 70 End Function