查快遞源碼
⑴ 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 = "http://www.aikuaidi.cn/rest/?key=&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
⑵ 有知道國內快遞查詢的網站的源碼哪裡下載
快遞查詢的那個網站是官方提供的代碼嵌入的
下面的購物程序 模板肯定是人家自己開發的
可以自己用ecshop的系統 然後找人開發！
⑶ 用快遞100企業版介面（API）實現快遞查詢-python
python實現快遞鳥API查詢介面 數據簽名通用方法
為了方便朋友們使用python開發，封裝了相關代碼，讓大家少踩坑。
注冊快遞鳥賬號獲取APIkey ID的流程就不說了，大家在網路搜索快遞鳥就官網免費注冊。
下面直接提供核心源代碼
# 請求數據處理方法
def before_reqData(shipperCode, logisticCode):
"""請求報文"""
frs_reqData = {
"OrderCode": "", # 可為空
"ShipperCode": shipperCode,
"LogisticCode": logisticCode
}
# 數據轉換為json格式
data = json.mps(frs_reqData)
# 進行url編碼
# 替換內容
reqData = quote(data).replace("%20%", "%")
return reqData
def data_sign(shipperCode, logisticCode):
"""簽名datasign"""
frs_reqData = {
'OrderCode': '',
'ShipperCode': shipperCode,
'LogisticCode': logisticCode
}
APIKey = "554343b2-7252-439b-b4eb-1af42c8f2175";
# 請求內容(未編碼) + APIKey
# MD5加密前去除空格
data = json.mps(frs_reqData).replace(": ", ":").replace(", ", ",") + APIKey
# md5加密
sign_md5 = hashlib.md5(data.encode("utf-8")).hexdigest()
# Base64編碼
data_sign = base64.b64encode(sign_md5.encode("utf-8")).decode("utf-8")
return data_sign
⑷ vb6.0做個查詢快遞單號小程序，網上抄的源碼為什麼過不了
Functionkdcx(kd,orderid)
DimErr,url,kdtime,link,Errcode,Status,http,objDom,WebContent,Item
SelectCasekd
Case"申通"
kd="shentong"
Case"圓通"
kd="yuantong"
Case"優速"
kd="yousu"
Case"龍邦"
kd="longbang"
Case"城市"
kd="cs"
CaseElse
kdcx="暫時不支持此快遞"
ExitFunction
EndSelect
Sethttp=CreateObject("Microsoft.XMLHTTP")
url="http://www.aikuaidi.cn/rest/?key=&order="&orderid&"&id="&kd&"&ord=desc&show=xml"
http.Open"get",url,False
http.send
WebContent=http.responsetext
Sethttp=Nothing
SetobjDom=CreateObject("Microsoft.XMLDom")
objDom.async=False
objDom.LoadXMLWebContent
SetItem=objDom.getElementsByTagName("Root")
IfItem.Length>0Then
SelectCaseItem(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="簽收失敗"
CaseElse
Status="快遞狀態未知情況"
EndSelect
Else
Status="未知錯誤"
EndIf
SetItem=Nothing
SetobjDom=Nothing
kdcx=Status
EndFunction
親測無誤，用法示例：
MsgBox kdcx("申通", "768911223344")
⑸ 求java編程 快遞狀態查詢系統 需要源代碼 有的請發至 [email protected] 能成功運行的加精華
新增一個快遞狀態查詢表，當然運單號必須是唯一的。每個快遞單號對應資料庫中多條記錄，多條數據都必須有個欄位標識運單號，然後查詢的時候，輸入運單號就將此運單號對應的所有記錄都查詢出來。
⑹ 求「基於Android的快遞查詢系統設計與實現」畢業論文及源代碼，郵箱[email protected]，事成後有重謝！！
安卓系統的，這
我的擅長
給 你 ，幫
⑺ 如何查看郵件的源代碼/方法技巧
由於各種郵件客戶端軟體或Web方式的不同，造成查看的途徑各有差異。
比如， Foxmail
第一步：選中郵件，滑鼠右擊郵件的主題，在下拉菜單中選擇「原始信息(Ctrl＋I)...」，如下圖：
第二步：在打開的「原始信息」窗口首先看到郵件頭的信息，點擊「全部」可看完整源碼。
其他的，你可以網路一下。
⑻ 拼多多怎麼批量查快遞源碼
河魚軟體就挺好的，我一直都是用的河魚，批量查快遞呀，批量導快遞呀，批量查快遞源碼都可以。特別方便
⑼ 尋一款訂單或其它查詢系統源碼
這個很簡單啊，自己做一個。
⑽ 求VB編制的查快遞跟蹤記錄是源碼
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.ickd.cn/"
End Sub
Private Sub Command2_Click()'檢索結果
Dim a As Object
For Each a In WebBrowser1.Document.getelementbyid("result").All
If LCase(a.tagname) = "td" Then
Debug.Print a.innertext
End If
Next
End Sub
Private Sub Command3_Click()'查詢
WebBrowser1.Document.getelementbyid("mailNo").Value = "9379685159"
WebBrowser1.Document.getelementbyid("query_form").onsubmit
End Sub