查快递源码
⑴ 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