很简单: 首先引用Microsoft Internet Controls:Private Sub Command1_Click() Dim xDoc As InternetExplorer Dim a As String Dim c Dim ie_w As New ShellWindowsOn Error Resume Next For Each xDoc In ie_w Set c = xDoc.Document a = c.body.innertext If InStr(a, "新浪") Then xDoc.Quit End If Next End Sub点击Command1就可以关闭所有文字里面含有“新浪”的窗口,将上面的代码放到一个Timmer中就可以动态监控了。
ie打开网页,还要显示图形,图形没显完,网页中的文字有时并未下载完 ,inet是直接能取到网页源码的,速度快,可以借用一下。
楼方让你举例子,你还叫楼主举例子.
我也有这个需要,
如果有解决的方法,请告诉我一声好不好?
[email protected]
首先引用Microsoft Internet Controls:Private Sub Command1_Click()
Dim xDoc As InternetExplorer
Dim a As String
Dim c
Dim ie_w As New ShellWindowsOn Error Resume Next
For Each xDoc In ie_w
Set c = xDoc.Document
a = c.body.innertext
If InStr(a, "新浪") Then
xDoc.Quit
End If
Next
End Sub点击Command1就可以关闭所有文字里面含有“新浪”的窗口,将上面的代码放到一个Timmer中就可以动态监控了。
这个你需要写一个IE插件:
http://www.csdn.net/develop/read_article.asp?id=6351