Dim?Err,?url,?kdtime,?link,?Errcode,?Status,?/rest/?key=29fe1030ceaa49ea8d0d7698efd1fd05&order="?&?orderid?&?"&id="?&?kd?&?"&ord=desc&show=xml"
http.Open?"get",?url,?False
http.send
WebContent?=?http.responsetext
Set?http?=?Nothing
Set?objDom?=?CreateObject("Microsoft.XMLDom")
objDom.async?=?False
objDom.LoadXML?WebContent
Set?Item?=?objDom.getElementsByTagName("Root")
If?Item.Length?>?0?Then
Select?Case?Item(0).getElementsByTagName("Status")(0).Text
Case?"-1"
Status?=?"未更新的單號"
Case?"0"
Status?=?"查詢異常"
Case?"1"
Status?=?"暫無記錄"
Case?"2"
Status?=?"在途中"
Case?"3"
Status?=?"派送中"
Case?"4"
Status?=?"已簽收"
Case?"5"
Status?=?"拒簽收"
Case?"6"
Status?=?"疑難件"
Case?"7"
Status?=?"無效單"
Case?"8"
Status?=?"超時單"
Case?"9"
Status?=?"簽收失敗"
Case?Else
Status?=?"快遞狀態未知情況"
End?Select
Else
Status?=?"未知錯誤"
End?If
Set?Item?=?Nothing
Set?objDom?=?Nothing
kdcx?=?Status
End?Function
親測無誤,用法示例:
MsgBox kdcx("申通", "768911223344")