Foxtable(狐表)用户栏目专家坐堂 → 感谢大神帮助 快递100 API(Chaxun URL)已实现


  共有10167人关注过本帖平板打印复制链接

主题:感谢大神帮助 快递100 API(Chaxun URL)已实现

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


加好友 发短信
等级:二尾狐 帖子:568 积分:6437 威望:0 精华:2 注册:2012/12/23 8:21:00
感谢大神帮助 快递100 API(Chaxun URL)已实现  发帖心情 Post By:2013/2/24 16:43:00 [只看该作者]




在这里感谢 lin_hailun 的百度狐表百度API应用http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=28886对于我的提示

这是我之前发的求助内容。

各位大神帮帮忙: 
请问如何用狐表  跳转API(Chaxun URL)


------------------------------------------------------------------
这是快递100的URL API 其中 com=[变量1] nu=[变量2] 为变量

http://www.kuaidi100.com/chaxun?com=[变量1]&nu=[变量2]

要求实现内容:
如何用狐表自带的网页浏览器来实现  或者   打开外部的浏览器来实现都可以 
【在狐表窗口设计中 添加网页浏览器 和 按钮 】
【按钮获取指定的表格中的两个单元格的内容分别加入变量1和变量2中】
【狐表自带网页浏览器打开连接http://www.kuaidi100.com/chaxun?com=[变量1]&nu=[变量2]
------------------------------------------------------------------
狐表帮助里有说道


在窗口中加一个WebBrowser和一个按钮,希望单击该按钮可以显示Foxtable主页,可以将按钮的Click事件代码设为:

Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

brw.Address = "http://www.foxtable.com/"

但是因为我的连接http://www.kuaidi100.com/chaxun?com=[变量1]&nu=[变量2] 牵涉到两个要变动的数值 

这个是快递100的 跳转API 说明 
图片点击可在新窗口打开查看Chaxun URL使用说明
1、API地址:
http://www.kuaidi100.com/chaxun?com=[]&nu=[]
2、传入参数说明:
名称 类型 是否必需   描述
com String 要查询的快递公司的代码,支持中文和模糊输入

nu String 要查询的快递单号,请勿带特殊符号,不支持中文(大小写不敏感)
3、返回结果说明:
直接跳转到快递100的快递公司二级页面显示查询结果。




以上不知道是否您能明白。如有表达不清楚的地方请多多见谅

以上我的意思是变量可以改变,以获取单元格内的数据来打开连接

实例说明:
使用说明 在窗口设计里放一个网页浏览器和按钮,按钮里面添加以下代码。实现很容但这是菜鸟的

实现方法:这里再次感谢lin_hailun
以下内容为程序代码:

1 Dim rpt As String = "http://www.kuaidi100.com/chaxun?com=[bl1]&nu=[bl2]"
2 rpt = rpt.Replace("[bl1]","yunda")
3 rpt = rpt.Replace("[bl2]","1900171113992")
4 e.Form.Controls("WebBrowser1").AddRess = rpt


感谢 飞 的代码

外部浏览器打开
Dim R As Row = CurrentTable.Current
If R Is Nothing OrElse R.IsNull("物流编号") OrElse R.IsNull("物流公司") Then Return
Dim Proc As New Process
Proc.File = "http://www.kuaidi100.com/chaxun?com=[" & R("物流公司") & "]&nu=" & R("物流编号")
Proc.Start

内部浏览器打开
Dim R As Row = CurrentTable.Current
If R Is Nothing OrElse R.IsNull("物流编号") OrElse R.IsNull("物流公司") Then Return
Dim Proc As String
Proc = "http://www.kuaidi100.com/chaxun?com=[" & R("物流公司") & "]&nu=" & R("物流编号")
e.Form.Controls("WebBrowser1").AddRess = Proc



[此贴子已经被作者于2013-2-25 13:33:03编辑过]

 回到顶部