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


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

主题:感谢大神帮助 快递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编辑过]

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


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

兄弟姐妹们:帮帮忙啊,给点提示也行吗???谢谢了

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/2/25 8:33:00 [只看该作者]

 不是直接写地址就可以了么?

http://www.kuaidi100.com/chaxun?com=yunda&nu=1900171113992

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


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

以下是引用lin_hailun在2013-2-25 8:33:00的发言:
 不是直接写地址就可以了么?

http://www.kuaidi100.com/chaxun?com=yunda&nu=1900171113992
不是直接写,我的意思是:物品物流写好 通过以下的窗口设计 打开指定的物流信息,就是动态改变http://www.kuaidi100.com/chaxun?com=[变量1]&nu=[变量2]
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/2/25 9:18:00 [只看该作者]

 明白你的意思,你可以动态地去拼凑字符串咯。

 比如

 Dim com As String = Tables("表A").Current("公司代码") 'yunda
 Dim nu As String = Tables("表A").Currrent("物流编号") '1900171113992

  e.Form.Controls("WebBrowser1").Address = http://www.kuaidi100.com/chaxun?com=" & com & "&nu=" & nu

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/2/25 9:24:00 [只看该作者]

对于com,尽量用英文代码,中文还需要转义一下的。

1、添加外部引用 System.Web.Dll

2、代码这样写

e.Form.Controls("WebBrowser1").Address = "http://www.kuaidi100.com/chaxun?com=" & System.Web.HttpUtility.UrlEncode("韵达") & "&nu=1900171113992"

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


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

以下是引用lin_hailun在2013-2-25 9:18:00的发言:
 明白你的意思,你可以动态地去拼凑字符串咯。

 比如

 Dim com As String = Tables("表A").Current("公司代码") 'yunda
 Dim nu As String = Tables("表A").Currrent("物流编号") '1900171113992

  e.Form.Controls("WebBrowser1").Address = http://www.kuaidi100.com/chaxun?com=" & com & "&nu=" & nu
谢了,明白了,我试一下。


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


加好友 发短信
等级:三尾狐 帖子:732 积分:5491 威望:0 精华:14 注册:2011/8/28 12:49:00
  发帖心情 Post By:2013/2/25 10:02:00 [只看该作者]

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

 回到顶部