如何用vb检测当前打开的IE网页中是否包含特定文字

'定义一个全局变量：
Dim b As Boolean

Private Sub Command1_Click()
b = False

WebBrowser1.Navigate ("http://panda.www.net.cn/cgi-bin/Whois.cgi?domain=xiaoa8&cn=yes&referer=")
End Sub

Private Sub Command2_Click()

Dim s As String
Dim i As Long

While b = False
DoEvents
Wend
RichTextBox1.Text = WebBrowser1.Document.All(0).outerHTML
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'页面下载完毕
If WebBrowser1.Busy = False Then
b = True
End If
End Sub

然后用FOR循环或者INSTR函数都可以~

用.NET好做。用一个WebBrowser控件的Navigate(URL)方法浏览你要的页面，再用GetHtmlStream之类的方法得到文本，返回值是一个Unicode流，用readString的方法来读取这个流，以得到String.你多参考MSDN。我最初用web控件的时候也是看MSDN学的。

如果你仅仅是要得到HTML特定标签，或者表单里某控件的值，可以用GetHtmlDocument的方法来得到一个HTML文档对象，这个对象提供类似于JavaScript的访问方法，可以得到inerText/inerHtml，或者Value属性。

编程重在试验。

用webborwser 打开网页,获取源码,用 instr 检测