Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]foxtable快递查询解决方案（快递100接口）


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

主题：[求助]foxtable快递查询解决方案（快递100接口）
帅哥哟，离线，有人找我吗？
Bin
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

可以的,这个可以把整段返回的信息获取下拉,剩下的就是你自行分割了.

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 呵呵，4楼的代码写到有些问题，现在改正。

 得到的结果，只能自己去分析文字拿到自己需要状态，比如 有签收，就说明是状态3；只能这样判断，也只能这样截取信息。无法做到分别返回message/data/time

Dim wbr As new System.Windows.Forms.WebBrowser
wbr.Navigate("http://www.kuaidi100.com/applyurl?key=a163da2878f79e28&com=yunda&nu=1900537590762")
Do Until wbr.ReadyState = 4
    Application.DoEvents
Loop
 
Dim s As String = wbr.DocumentText
Dim reg As System.Text.RegularExpressions.Regex
Dim arr() As String
arr = reg.split(s,"(<PRE>)|(</PRE>)")

wbr.Navigate(arr(2))
Do Until wbr.ReadyState = 4
    Application.DoEvents
Loop

msgbox(wbr.Document.body.innertext)
 回到顶部
帅哥哟，离线，有人找我吗？
冰31脚
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：198 积分：1646 威望：0 精华：0 注册：2012/4/16 10:10:00 		  发帖心情 Post By：2013/11/23 17:33:00 [只看该作者]

这代码获取到的是什么输入验证码的字条

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 我测试正常。不过，操作频繁的时候，可能会出现这种情况，如果是输入验证码字条那个页面的时候，建议你重新执行一次获取。

 回到顶部
帅哥哟，离线，有人找我吗？
test138
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：110 积分：7215 威望：0 精华：0 注册：2013/5/9 11:19:00 		  发帖心情 Post By：2014/1/6 11:57:00 [只看该作者]

可以上传源代码给学习吗？

 回到顶部
帅哥哟，离线，有人找我吗？
qingwuzu
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：68 积分：590 威望：0 精华：0 注册：2015/3/28 19:58:00 		  发帖心情 Post By：2015/7/17 11:12:00 [只看该作者]

学习

 回到顶部
总数 16 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询