以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  感谢大神帮助 快递100 API（Chaxun URL）已实现  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28976)
--  作者：打错潇洒
--  发布时间：2013/2/24 16:43:00
--  感谢大神帮助 快递100 API（Chaxun URL）已实现



在这里感谢 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编辑过]
--  作者：打错潇洒
--  发布时间：2013/2/25 8:00:00
--  
兄弟姐妹们：帮帮忙啊，给点提示也行吗？？？谢谢了
--  作者：lin_hailun
--  发布时间：2013/2/25 8:33:00
--  
 不是直接写地址就可以了么？

http://www.kuaidi100.com/chaxun?com=yunda&nu=1900171113992
--  作者：打错潇洒
--  发布时间：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
--  发布时间：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
--  发布时间：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"
--  作者：打错潇洒
--  发布时间：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
谢了，明白了，我试一下。
--  作者：飞
--  发布时间：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