- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42579)
-- 发布时间：2013/11/15 19:18:00
-- 请教！
Dim s3 As String = "http://www.kuaidi100.com/applyurl?key=？？？？？？？&com=" & typeCom & "&nu=" & s2
wbr.Navigate(s3)
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
Dim sg As String = wbr.Document.body.innertext
messagebox.show(sg)
\'执行几次时会出现如图所示的错误，请教哪里有问题？
此主题相关图片如下：qq图片20131115190712.jpg
[此贴子已经被作者于2013-11-15 19:37:09编辑过]
-- 发布时间：2013/11/15 19:33:00
--
我测试没有问题，上例子。
-- 发布时间：2013/11/15 19:35:00
--
猜测是这段出错，可能返回的值不是预期的网址
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))
Dim reg As System.Text.RegularExpressions.Regex
Dim arr() As String
arr = reg.split(s,"(<PRE>)|(</PRE>)")
wbr.Navigate(arr(2))