- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]亲：又是 快递问题 快递100 API URL使用的问题 自解决了 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29062)
-- 发布时间：2013/2/26 17:29:00
-- [求助]亲：又是 快递问题 快递100 API URL使用的问题 自解决了
好的各位兄弟界姐妹在这里我说一声 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、传入参数： | ||||||||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||||||
| 3、返回结果： | ||||||||||||||||||||||||||||||||
|
[此贴子已经被作者于2013-2-26 19:23:33编辑过]
-- 发布时间：2013/2/26 17:40:00
--
我也在做快递的东西，公司内部快递查询+kaidi100外部查询，狐表+SQL+asp，准备加入短信提醒功能，目前只是最简单的
此主题相关图片如下：3.jpg
此主题相关图片如下：4.jpg
此主题相关图片如下：5.jpg
[此贴子已经被作者于2013-2-26 17:43:28编辑过]
-- 发布时间：2013/2/26 18:41:00
--
能给个实例吗？
-- 发布时间：2013/2/26 19:26:00
--
smallji 的方法可取但是没有办法进行跟踪 我觉的不好 而且麻烦
谢谢 smallji
-- 发布时间：2013/2/26 19:29:00
--
呵呵，论坛是分享的地方，不能只是求助。
如果自解决了，最好给大家分享一下，方便后来者。
-- 发布时间：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)
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 写的