Foxtable(狐表)用户栏目专家坐堂 → [求助]亲:又是 快递问题 快递100 API URL使用的问题 自解决了


  共有15490人关注过本帖树形打印复制链接

主题:[求助]亲:又是 快递问题 快递100 API URL使用的问题 自解决了

帅哥哟,离线,有人找我吗?
打错潇洒
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:568 积分:6437 威望:0 精华:2 注册:2012/12/23 8:21:00
[求助]亲:又是 快递问题 快递100 API URL使用的问题 自解决了  发帖心情 Post By:2013/2/26 17:29:00 [只看该作者]

好的各位兄弟界姐妹在这里我说一声 My is 笨蛋

其实答案与我之前发的求助解决方案是一样的

连接地址 : http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=28976&replyID=&skin=1

 

 

Dim R As Row = CurrentTable.Current
If R Is Nothing OrElse R.IsNull("物流编号") OrElse R.IsNull("物流公司") Then Return
Dim Proc As String
Proc = "http://api.kuaidi100.com/api?id=*********&com=" & R("物流公司") & "&nu=" & R("物流编号") & "&valicode=&show=2&muti=1&order=desc"
e.Form.Controls("WebBrowser1").AddRess = Proc

 

PS:*****为你申请的Key

 

 

唯一的区别一个是有公告 一个是没有的 

 

本人已经有了快递100的Key但是..................不会用

还是想请大神帮帮忙如何用狐表做到快递的追踪

实用性的东西...........还是要请大叔阿姨哥哥姐姐老师兄弟们帮忙啊!
在此  叩谢大家了 深深一鞠躬

之前我也发过有关于快递追踪的求助,但是那个用在这个上面,贴子连接地址http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=28976&replyID=&skin=1

API URL使用说明
1、API地址:
http://api.kuaidi100.com/api?id=[]&com=[]&nu=[]&valicode=[]&show=[0|1|2|3]&muti=[0|1]&order=[desc|asc]
2、传入参数:
名称 类型 是否必需   描述
id String 身份授权key,请 快递查询接口 进行申请(大小写敏感)
com String 要查询的快递公司代码,不支持中文,对应的公司代码见 
API URL 所支持的快递公司及参数说明》。 
如果找不到您所需的公司,请发邮件至 kuaidi@kingdee 咨询(大小写不敏感)
nu String 要查询的快递单号,请勿带特殊符号,不支持中文(大小写不敏感)
valicode String 查询快递的电话号码,目前只有佳吉物流需要这个参数,其他公司请忽略。
show String 返回类型: 
0:返回json字符串, 
1:返回xml对象, 
2:返回html对象, 
3:返回text文本。 
如果不填,默认返回json字符串。
muti String 返回信息数量: 
1:返回多行完整的信息, 
0:只返回一行信息。 
不填默认返回多行。 
order String 排序: 
desc:按时间由新到旧排列, 
asc:按时间由旧到新排列。 
不填默认返回倒序(大小写不敏感)
3、返回结果:
字段名称   字段含义
Message 消息体
Data 数据集合
Time 每条数据的时间
Context 每条数据的状态
state 快递单当前的状态 :  
0:在途中, 
1:已发货, 
2:疑难件, 
3:已签收, 
4:已退货。 
该状态还在不断完善中,若您有更多的参数需求,欢迎发邮件至 kuaidi@kingdee.com提出。
status 查询结果状态: 
0:运单暂无结果, 
1:查询成功, 
2:接口出现异常, 
408:验证码出错(仅适用于APICode url) 。 
遇到其他情况,请按获得身份授权key的邮件中的方法获得技术支持。

 

 

 

 

[此贴子已经被作者于2013-2-26 19:23:33编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
smallji
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:34 积分:353 威望:0 精华:0 注册:2012/11/4 19:57:00
  发帖心情 Post By:2013/2/26 17:40:00 [只看该作者]

我也在做快递的东西,公司内部快递查询+kaidi100外部查询,狐表+SQL+asp,准备加入短信提醒功能,目前只是最简单的

 


图片点击可在新窗口打开查看此主题相关图片如下:3.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:4.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:5.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2013-2-26 17:43:28编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
打错潇洒
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:568 积分:6437 威望:0 精华:2 注册:2012/12/23 8:21:00
  发帖心情 Post By:2013/2/26 18:41:00 [只看该作者]

能给个实例吗?

 回到顶部
帅哥哟,离线,有人找我吗?
打错潇洒
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:568 积分:6437 威望:0 精华:2 注册:2012/12/23 8:21:00
  发帖心情 Post By:2013/2/26 19:26:00 [只看该作者]

smallji 的方法可取但是没有办法进行跟踪 我觉的不好 而且麻烦 
谢谢 smallji


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/2/26 19:29:00 [只看该作者]

呵呵,论坛是分享的地方,不能只是求助。

如果自解决了,最好给大家分享一下,方便后来者。


 回到顶部
帅哥哟,离线,有人找我吗?
qq121454970
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:880 积分:9011 威望:0 精华:3 注册:2012/4/22 18:06:00
  发帖心情 Post By:2013/2/27 14:40:00 [只看该作者]

替换网址,自己找你要的数据。

Dim XMLH As Object
XMLH = CreateObject("Microsoft.XMLHTTP")
XMLH.open("GET", "http://api.kuaidi100.com/api?id=xxxxxxxxxxxxx&com=tiantian&nu=11111&show=0&muti=1&order=desc", True)
XMLH.send(Nothing)
Do While XMLH.readyState <> 4
    Application.DoEvents
Loop

Dim json As String = XMLH.responseText
Dim ScriptControl As Object, data  As Object, JscriptCode As String
JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
    .Language = "Javascript"
    .Timeout = -1
    .AddCode(JscriptCode)
    data = .Run("toObject", json)
End With

MessageBox.Show(data.message)
MessageBox.Show(data.status)

 

 

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=23398&authorid=0&page=0&star=1     lin_hailun  写的


 回到顶部