WebBrowser 刷新问题.......

VB code

 
 Private Sub Form_Load() 
   WebBrowser1.Navigate "http://........" 
   Timer1.Enabled = True 
  
 End Sub 
  
 Private Sub Timer1_Timer() 
   timm = timm + 1 
     If timm Mod 10 = 0 Then 
       WebBrowser1.Refresh 
       timm = 0 
     End If 
 End Sub 
  
 Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) 
   Dim Istr As String 
    'Refresh 
   str = WebBrowser1.Document.All(0).innertext 
       Debug.Print Len(str) 
       ' Debug.Print str 
     If Len(str) > 900 Then 
       Istr = Mid(str, InStr(str, "共") + 1, (InStr(str, "个") - InStr(str, "共") - 1)) 
           ' Debug.Print Istr 
       Label2.Caption = "现在共 " & Istr & " 个" 
     End If 
     If Val(Istr) > 99 And Command1.Caption = "True" Then MsgBox "" 
 End Sub 
  
 

timer in什么什么那个. 60000

10分钟一刷新.
刷新后取页面字 取 "共" 到 "个" 中间的字.
可我运行后发现不准啊..

求原因.解决办法

"共" 到 "个" 中间的字 是个数字
刚出现的情况是 -.-
我用浏览器打开.那页面. 是 103
我的 WebBrowser1 控件里是 99
label1.caption显示 97
-.- 闷.
103 跟 97 的误差我可以理解为 10分钟一次的刷新中的变化...
但是那个 label1.caption显示
我写的是 WebBrowser1_DocumentComplete 触发啊... 不应该跟页面不一样啊

理解不能~~

[解决办法]
什么网址，这么特殊