原代码如下
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.google.com "
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, url As Variant)
List2.Clear
Dim x As Long
Dim i As Integer
Dim n() As String
Dim s As Byte
For x = 0 To WebBrowser1.Document.Links.length - 1
List1.AddItem WebBrowser1.Document.Links.Item(x)
Next x
For i = 0 To List1.ListCount - 1
If InStr(1, List1.List(i), "html") Then
List2.AddItem List1.List(i)
End If
Next
End Sub
Private Sub Timer1_Timer()
Command1.Enabled = True
Timer1.Enabled = False
End Sub
已经在list2中列出了过滤出来的网址 如何让WebBrowser2读曲其中的网址 并停留5秒接着读取下一条呢 请帮忙