Private Sub Command1_Click()
WebBrowser1.Navigate ("http://btoss.com")
End Sub
'####################
'    雪糕乐园 btoss.com
'####################
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

        Dim bo     As Integer
        x = Text2.Text
        If (pDisp Is WebBrowser1.Object) Then
              On Error Resume Next
            bo = InStr(WebBrowser1.Document.documentElement.innerHTML, x)
            If bo > 0 Then
                Text1.Text = "找到了！"

            Else
                Text1.Text = "没找到！"

            End If
            
        End If
  End Sub
'####################
'    雪糕乐园 btoss.com
'####################