VB源码查询快递单号

Function kdcx(kd, orderid)

Dim Err, url, kdtime, link, Errcode, Status

Select Case kd

Case "申通"

kd = "shentong"

Case "圆通"

kd = "yuantong"

Case "优速"

kd = "yousu"

Case "龙邦"

kd = "longbang"

Case "城市"

kd = "cs"

Case Else

kdcx = "暂时不支持此快递"

Exit Function

End Select

Set http = CreateObject("Microsoft.XMLHTTP")

url = "aikuaidi/rest/?key=29fe1030ceaa49ea8d0d7698efd1fd05&order=" & orderid & "&id=" & kd & "&ord=desc&show=xml"

http.Open "get", url, False

http.send

WebContent = http.responsetext

Set objDom = CreateObject("Microsoft.XMLDom")

objDom.async = False

objDom.LoadXML WebContent

Set Item = objDom.getElementsByTagName("Order")

For i = 1 To Item.Length - 1

kdtime = Item(i).getElementsByTagName("Time")(0).Text

link = Item(i).getElementsByTagName("Content")(0).Text

kdcx = kdcx & kdtime & link & vbCrLf

Next

Set Item = Nothing

End Function

Private Sub Command1_Click()

MsgBox kdcx("申通", "768782613057")

End Sub