以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]关于100快递如何查询顺丰订单状态  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40413)
--  作者：jspta
--  发布时间：2013/9/18 11:44:00
--  [讨论]关于100快递如何查询顺丰订单状态

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

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

 

PS：仅针对顺丰，不是其他的快递。其他快递论坛中都有解决方案了
--  作者：Bin
--  发布时间：2013/9/18 11:45:00
--  
HTML也可以呀,用WEbBrowser(浏览器控件) 做呗, 也可以直接向服务器发送请求.
--  作者：jspta
--  发布时间：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
--  发布时间：2013/9/18 14:01:00
--  
你论坛搜索一下操作网页 获取网页信息的例子!
--  作者：有点甜
--  发布时间：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)