WebBrowser多次跳转页面的问题

这是我的小号

估计是页面载入时需要一些时间，或者跟IE缓存有一定关系。每次跳转到下一个页面时，如果不加入Msgbox则永远都无法显示正确的值，但每次都弹出这个警告栏极不方便，大家看看有没有更好的解决办法？
顺便问一句，可以点名吗？^_^ 想点下todaynew来看看。

1. Option Compare Database
   
2. Option Explicit
   
3. '这一句是延时执行，但是没用
   
4. Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
   
5. 
   
6. Private Sub Command1_Click()
   
7. 
   
8. Dim rst As New ADODB.Recordset
   
9. Dim i As Long
   
10. Dim k As String
    
11. Dim s As Double
    
12. rst.Open "tblID", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    
13. For i = 1 To rst.RecordCount
    
14.    
    
15.     s = GetData(rst(1))
    
16.     rst(2) = s
    
17.     rst.update
    
18.     MsgBox s '如果加上这句写入的值就是正确的，如果不加入，写入的值永远都是第一个。
    
19.     rst.MoveNext
    
20.     'Sleep 1000
    
21. Next i
    
22. rst.Close
    
23. 
    
24. End Sub
    
25. 
    
26. Private Sub Form_Load()
    
27. Dim wb As WebBrowser
    
28. Set wb = Me.WebBrowser0.Object
    
29.     wb.Navigate "http://detail.tmall.com/item.htm?_u=n1sscq85e5e0&id=40336681573#J_Reviews"
    
30. 
    
31. t = Timer
    
32. End Sub
    
33. 
    
34. Function GetData(strID As String)
    
35. Dim wb As WebBrowser
    
36. Dim doc As HTMLDocument
    
37. Dim a_tags As IHTMLElementCollection
    
38. Dim a_tag As IHTMLElement
    
39. Dim str As String
    
40. Set wb = Me.WebBrowser0.Object
    
41. 
    
42.     wb.Navigate "http://detail.tmall.com/item.htm?_u=n1sscq85e5e0&id=" & strID & "#J_Reviews"
    
43.     Set doc = wb.Document
    
44.     Set a_tags = doc.all.tags("div")
    
45.         For Each a_tag In a_tags
    
46.             If a_tag.className = "rate-score" Then
    
47.                 str = Mid(a_tag.innerText, InStr(1, a_tag.innerText, "符") + 1)
    
48.             End If
    
49.         Next
    
50. GetData = str
    
51. 
    
52. End Function
    

复制代码

上次的帖子如下：
http://www.office-cn.net/thread-118973-1-1.html

roych

1. Function GetData(strID As String)
   
2. Dim wb As WebBrowser
   
3. Dim doc As HTMLDocument
   
4. Dim a_tags As IHTMLElementCollection
   
5. Dim a_tag As IHTMLElement
   
6. Dim str As String
   
7. Set wb = Me.WebBrowser0.Object
   
8. '加上这几句试试？
   
9. '***************
   
10.     Do Until wb.ReadyState = READYSTATE_COMPLETE
    
11.         DoEvents
    
12.     Loop
    
13. '*******************
    
14.     wb.Navigate "http://detail.tmall.com/item.htm?_u=n1sscq85e5e0&id=" & strID & "#J_Reviews"
    
15. 
    
16.     Set doc = wb.Document
    
17.     Set a_tags = doc.all.tags("div")
    
18.         For Each a_tag In a_tags
    
19.             If a_tag.className = "rate-score" Then
    
20.                 str = Mid(a_tag.innerText, InStr(1, a_tag.innerText, "符") + 1)
    
21.             End If
    
22.         Next
    
23. GetData = str
    
24. 
    
25. End Function

复制代码

leonshi

roych 发表于 2014-11-13 15:59

谢谢

leonshi

roych 发表于 2014-11-13 15:59

你那个处理方法有效，的确解决jquery数据加载慢的问题

roych

leonshi 发表于 2014-11-14 10:46
你那个处理方法有效，的确解决jquery数据加载慢的问题

由于网页是服务端的，jQuery不好处理吧？个人觉得，用IFrame加载也不方便。这些代码都属于DOM里面的。。。