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


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

主题:[求助]foxtable快递查询解决方案(快递100接口)

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


加好友 发短信
等级:幼狐 帖子:198 积分:1646 威望:0 精华:0 注册:2012/4/16 10:10:00
[求助]foxtable快递查询解决方案(快递100接口)  发帖心情 Post By:2013/11/12 18:25:00 [显示全部帖子]

各位好,之前在论坛朋友的引导下做了一个比较适合自己的日常使用的快递查询工具,使用的是快递100的接口,但因为使用的是API的接口方式,有很大快递公司无法查询。现在此求助,希望有哪位大神可以帮忙在我原来的基础上把API方式改成 HtmlAPI ,以实现能够满足所有对所有快递查询的实用工具
快递100有两种接口方式,API 和 HtmlAPI ,HtmlAPI支持所有的快递公司查询,API只支持部分快递公司。下面提供不同接口的文件。
案例文件
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:办公小助手.rar


此主题相关图片如下:1.png
按此在新窗口浏览图片


在此先感谢了!





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


加好友 发短信
等级:幼狐 帖子:198 积分:1646 威望:0 精华:0 注册:2012/4/16 10:10:00
  发帖心情 Post By:2013/11/12 20:22:00 [显示全部帖子]

我尝试很久了,但做不出来,才疏学浅图片点击可在新窗口打开查看图片点击可在新窗口打开查看

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


加好友 发短信
等级:幼狐 帖子:198 积分:1646 威望:0 精华:0 注册:2012/4/16 10:10:00
  发帖心情 Post By:2013/11/13 0:08:00 [显示全部帖子]

有点甜  可以麻烦做到案例上吗,我放进来没反应,谢谢

以下是引用有点甜在2013-11-12 20:50:00的发言:
 参考下面的代码来做,得到最后的数据,再处理一下

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("http://www.kuaidi100.com/kuaidiresult?id=2412444")
Do Until wbr.ReadyState = 4
    Application.DoEvents
Loop

output.show(wbr.Document.body.innertext)


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


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

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

 回到顶部