原代码如下

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秒接着读取下一条呢 请帮忙

用 timer 控件啊

老大 帮我编一下 试着运行看

我弄了读取不了

要么就当机一会直接读取最后一个连接

原码下载

8xAwrYbM.rar (2.19 KB) 自动读取网页问题

谁来帮我 原码下载 3楼