WebBrowser 刷新问题.......
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
