VB触发事件怎么搞。

来源：百度知道 编辑：UC知道 时间：2024/05/02 06:55:41
WebBrowser1.Navigate里打开了一个网页，如果做到网页出现我们指定的文字时候，就跳出提示。

用Inet控件返回你打开网页的源代码保存到Text中,然后用Instr之类的函数找下有没有包含你指定的文字.
Dim a As Long
Text1.Text = Inet1.OpenURL("www.baidu.com")
a = 1
a = InStr(1, Text1.Text, "百度")
If a > 1 Then
MsgBox "提示1"
Else
MsgBox "提示2"
End If