自助查询快递单号源码（自动查询快递单号）
本文目录一览：
- 1、怎样快速查询自己发的快递的单号
- 2、求VB编制的查快递跟踪记录是源码
- 3、VB源码查询快递单号
- 4、求java编程 快递状态查询系统 需要源代码 有的请发至 z199182@qq.com 能成功运行的加精华
- 5、有知道国内快递查询的网站的源码哪里下载？
- 6、vb6.0做个查询快递单号小程序，网上抄的源码为什么过不了？
怎样快速查询自己发的快递的单号
1、启动支付宝手机客户端，找到【我的快递】进入，如下图所示。
2、进入【我的快递】界面，点击右上角的三个点，如下图所示。
3、在设置菜单中选择【管理授权】，如下图所示。
4、进入授权界面，点击下面的【添加手机号】，如下图所示。
5、输入你的手机号码，点击【发送校验码】，如下图所示。
6、输入你收到的校验码，点击下方的确认【添加按钮】，如下图所示。
7、添加成功后，就可以查询到自己的快递物流信息，如下图所示。
求VB编制的查快递跟踪记录是源码
Private Sub Command1_Click()
WebBrowser1.Navigate ""
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
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 = ";order=" orderid "id=" kd "ord=descshow=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
求java编程 快递状态查询系统 需要源代码 有的请发至 z199182@qq.com 能成功运行的加精华
新增一个快递状态查询表，当然运单号必须是唯一的。每个快递单号对应数据库中多条记录，多条数据都必须有个字段标识运单号，然后查询的时候，输入运单号就将此运单号对应的所有记录都查询出来。
有知道国内快递查询的网站的源码哪里下载？
快递查询的那个网站是官方提供的代码嵌入的
下面的购物程序 模板肯定是人家自己开发的
可以自己用ecshop的系统 然后找人开发！
vb6.0做个查询快递单号小程序，网上抄的源码为什么过不了？
Function kdcx(kd, orderid)
Dim Err, url, kdtime, link, Errcode, Status, http, objDom, WebContent, Item
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 = ";order=" orderid "id=" kd "ord=descshow=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")
