Foxtable(狐表)用户栏目专家坐堂 → [讨论]关于100快递如何查询顺丰订单状态


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

主题:[讨论]关于100快递如何查询顺丰订单状态

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


加好友 发短信
等级:七尾狐 帖子:1732 积分:11266 威望:0 精华:0 注册:2011/12/15 22:06:00
[讨论]关于100快递如何查询顺丰订单状态  发帖心情 Post By:2013/9/18 11:44:00 [只看该作者]

100快递不支持顺丰的API,只能使用HTMLAPI,无法抓取快递状态信息,这样只能手动将查询到的录入到系统中。

有没有什么好的解决方法。

 

PS:仅针对顺丰,不是其他的快递。其他快递论坛中都有解决方案了


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/9/18 11:45:00 [只看该作者]

HTML也可以呀,用WEbBrowser(浏览器控件) 做呗, 也可以直接向服务器发送请求.

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


加好友 发短信
等级:七尾狐 帖子:1732 积分:11266 威望:0 精华:0 注册:2011/12/15 22:06:00
  发帖心情 Post By:2013/9/18 13:54:00 [只看该作者]

以下是引用Bin在2013-9-18 11:45:00的发言:
HTML也可以呀,用WEbBrowser(浏览器控件) 做呗, 也可以直接向服务器发送请求.

目前只能做到打开查询界面,无法获取。

代码如下:

Dim brs As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brs.Address = “http://www.kuaidi100.com/applyurl?key=“”&com=shunfeng&nu=
“”

 

Dim s As String = e.form.controls("WebBrowser1").basecontrol.DocumentText
Dim brs As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

Dim reg As System.Text.RegularExpressions.Regex
Dim arr() As String
arr = reg.split(s,"(<PRE>)|(</PRE>)")
brs.Address = arr(2)

 

以上两段代码必须分开来,否则第二段代码无法获取S

之后就只能返回一个网页了,就不知道如何获取了,求高手


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/9/18 14:01:00 [只看该作者]

你论坛搜索一下操作网页 获取网页信息的例子!

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/9/18 20:32:00 [只看该作者]

 参考

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("www.beijing-time.org/time.asp")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

'取数据
Dim data As String = web.Document.Body.InnerText
msgbox(data)

 回到顶部