快递查询表格vb源码下载_vb代码查询表

文章目录：

• 1、vb6.0做个查询快递单号小程序，网上抄的源码为什么过不了？
• 2、有知道国内快递查询的网站的源码哪里下载？
• 3、哪位大师有VB.NET编写的快递单打印源代码提供参考一下，十分感谢！！！
• 4、VB源码查询快递单号
• 5、求VB编制的查快递跟踪记录是源码

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")

有知道国内快递查询的网站的源码哪里下载？

快递查询的那个网站是官方提供的代码嵌入的

下面的购物程序 模板肯定是人家自己开发的

可以自己用ecshop的系统 然后找人开发！

哪位大师有VB.NET编写的快递单打印源代码提供参考一下，十分感谢！！！

用vba编写快递单打印模板的源代码是很长的，因为用Excel打印快递单是个系统工程！

用vba做的Excel文件下载

小部分代码：

Sub myprint_out()

Dim i%

      For i = 1 To gs

      sheets("模板").PrintOut Copies:=1, From:=1, To:=1

      Next

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

求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