快遞網站源碼

1. 哪位大師有VB.NET編寫的快遞單列印源代碼提供參考一下，十分感謝！！！

用vba編寫快遞單列印模板的源代碼是很長的，因為用Excel列印快遞單是個系統工程！

用vba做的Excel文件下載http://cloud.189.cn/t/fm26Zv2Urq63

小部分代碼：

Sub myprint_out()

Dim i%

For i = 1 To gs

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

Next

End Sub

2. 開辦一個網站都需要哪些程序

網站早已不再神秘，再也不是什麼高技術活。普通用戶也可以輕松的建立出相對專業的網站。下面向大家簡單介紹一下個人建站的一些流程和注意事項。
一、域名
要想讓人家訪問自己的網站，域名是必不可少的。域名要盡可能的短、盡可能的方便記憶，比如.top域名，當然現在好記的、有特徵的域名已經不多了，這需要你自己進行考慮，只要覺得有一定的規律或便於用戶記憶即可。
二、空間
要建網站，其次必須要有一個空間，即存放網站的地方。對於個人用戶，建議購買虛擬主機。在購買虛擬主機時要看其服務、速度、響應時間等。一般選擇有一定名氣的服務商即可。
註：域名、空間目前國內比較好的服務商像阿里雲、西部數碼、中國數據等都是非常好的選擇。
三、網站程序
網站程序當然是選擇現成的，因為個人沒有必要去從頭開始編制一個網站程序，也沒有那個實力。現在網上有現成的網站管理系統，這類系統還有很多，可以在自己綜合試用的基本上進行選擇。
在選擇網站程序時，還必須考慮到其通用性和二次開發。對於通用性不好、不利於二期開發的，雖然功能強大但不建議選用，因為網站有了一定規模後需要進行個性化功能設計時會很麻煩。另外程序盡量選擇asp（asp.net），PHP、JSP等在國內不是特別流行；在asp和asp.net之間也盡量選用asp.net，畢竟其基於.net架構是發展的潮流。
四、網站設計
選擇好了網站程序後，則需要根據自己的需要進行網站設計。一般來說，如果有專業的美工和程序員進行修改自然最好。不過個人站長可能不一定具備這種條件，可以選擇服務商的智能建站。

3. 數據採集源代碼從哪裡獲得

數據爬蟲代碼如果自己去開發爬蟲技術爬取時間跟人力起碼需要在一年左右。現在有一些平台是專門提供這些介面服務，可以直接調用現成的數據獲得數據。
以下是一些數據開放平台：
1.京東獲取單個商品價格介面:
1.//ps:商品ID這么獲取:http://item.jd.com/954086.html
2.http://p.3.cn/prices/mgets?skuIds=J_商品ID&type=1

2.淘寶商品搜索建議:
1.http://suggest.taobao.com/sug?code=utf-8&;q=商品關鍵字&callback=cb
2.//ps:callback是回調函數設定

3.全網商品比價介面：
1.慢慢買比價API免費介面
2.比一比價API免費介面
3.歷史價格查詢比價介面

4.快遞介面:
1.//ps:快遞公司編碼:申通="shentong" EMS="ems" 順豐="shunfeng" 圓通="yuantong" 中通="zhongtong" 韻達="yunda" 天天="tiantian"
2.匯通="huitongkuaidi" 全峰="quanfengkuaidi" 德邦="debangwuliu" 宅急送="zhaijisong"
3.http://www.kuaidi100.com/query?type=快遞公司代號&postid=快遞單號

5.網路介面:
1.http://ke..com/api/openapi/BaikeLemmaCardApi?scope=103&;format=json&appid=379020&bk_key=關鍵字&bk_length=600
2.//查詢出錯示例如下：查看原始頁面 {"error_code":"20000","error_msg":"search word not found"}音樂介面

6.蝦米音樂介面
1.http://kuang.xiami.com/app/nineteen/search/key/歌曲名稱/diandian/1/page/歌曲當前頁?_=當前毫秒&callback=getXiamiData

7.QQ空間音樂介面
1.http://qzone-music.qq.com/fcg-bin/cgi_playlist_xml.fcg?uin=QQ號碼&json=1&g_tk=1916754934

4. 寄快遞小程序源碼，搭建怎麼做

基本上市面上所有的寄快遞小程序都是河北巨量網路科技有限公司做的

5. 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