用户121108023
怎么快速打印快递单软件源码
Function kdcx(kd, orderid)Dim Err, url, kdtime, link, Errcode, StatusSelect Case kdCase ＂申通＂kd = ＂shentong＂Case ＂圆通＂kd = ＂yuantong＂Case ＂优速＂kd = ＂yousu＂Case ＂龙邦＂kd = ＂longbang＂Case ＂城市＂kd = ＂cs＂Case Elsekdcx = ＂暂时不支持此快递＂Exit FunctionEnd SelectSet http = CreateObject(＂Microsoft.XMLHTTP＂)url = ＂http://www.aikuaidi.cn/rest/?key=29fe1030ceaa49ea8d0d7698efd1fd05&order=＂ & orderid & ＂&id=＂ & kd & ＂&ord=desc&show=xml＂http.Open ＂get＂, url, Falsehttp.sendWebContent = http.responsetextSet objDom = CreateObject(＂Microsoft.XMLDom＂)objDom.async = FalseobjDom.LoadXML WebContentSet Item = objDom.getElementsByTagName(＂Order＂)For i = 1 To Item.Length - 1kdtime = Item(i).getElementsByTagName(＂Time＂)(0).Textlink = Item(i).getElementsByTagName(＂Content＂)(0).Textkdcx = kdcx & kdtime & link & vbCrLfNextSet Item = NothingEnd FunctionPrivate Sub Command1_Click()MsgBox kdcx（＂申通＂， ＂768782613057＂）End Sub
快递寄包裹电子面单程序教程
展开全部 到快递网点发快递，看你是用的手写单子还是快递面单，手写的话按照单面对应的信息，电子单的话扫描该网点的二维码下单，填写对应的信息就可以了，快递网点负责人打单子出来一份交于发件人保留，包裹揽收后待快递网点发出，可以根据面单的单号对包裹发件信息进行查询情况，提醒一下记得把身份证带上。
...
