主题：西瓜的快递100怎么用啊，求大神指点。急需这个

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:快递100查询.foxdb

我内部函数也定义了

在快递100网页也用自己的手机注册了，于是我修改了代码的“？”的部分为自己的手机号码，不知道密码输哪里。。。。。。。

 快递100，现在关于三通一达都已经不能直接用api查询了

 必须用htmlApi去查。

 参考例子

http://foxtable.com/bbs/dispbbs.asp?BoardID=5&ID=38956&skin=0

Dim wbr As new System.Windows.Forms.WebBrowser
wbr.Navigate("www.kuaidi100.com/applyurl?key=a163da2878f79e28&com=yunda&nu=3904050037722")
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>)")

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