原理不复杂,但我总是实现不了。原理是这样的,先登陆网站,将网站上的超链接找出来,放到列表框中,再通过WebBrowser1.Navigate List1.List(b),依次访问list中的网址。不知道我遗漏了哪一步“WebBrowser1.Navigate List1.List(b)”总是只访问一个网页,并没有依次访问list中的网址,现将源码贴出,希望高人们能帮帮我这个新手,先谢谢了。
Private Sub Command2_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
End SubPrivate Sub Form_Load()
WebBrowser1.Navigate "http://www.tom.com"
End SubPrivate Sub Command1_Click()
Dim Allcount, i
Dim vTag, vDoc, vTa
List1.Clear
WebBrowser1.Navigate "http://www.tom.com"
Set vDoc = WebBrowser1.Document.All
Allcount = vDoc.length
For i = 0 To Allcount - 1
If UCase(vDoc.Item(i).tagname) = "A" Then '找到URL
vTag = vDoc.Item(i).href
If InStr(vTag, "http://news.tom.com/2006-12-26/000T/") Then
List1.AddItem vDoc.Item(i).href
End If
End IfNext i
End Sub
Private Sub Timer1_Timer()
Dim b As Integer
For b = 0 To 20 Step 1
WebBrowser1.Navigate List1.List(b)Next b
End SubPrivate Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Cancel = TrueEnd Sub
Private Sub Command2_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
End SubPrivate Sub Form_Load()
WebBrowser1.Navigate "http://www.tom.com"
End SubPrivate Sub Command1_Click()
Dim Allcount, i
Dim vTag, vDoc, vTa
List1.Clear
WebBrowser1.Navigate "http://www.tom.com"
Set vDoc = WebBrowser1.Document.All
Allcount = vDoc.length
For i = 0 To Allcount - 1
If UCase(vDoc.Item(i).tagname) = "A" Then '找到URL
vTag = vDoc.Item(i).href
If InStr(vTag, "http://news.tom.com/2006-12-26/000T/") Then
List1.AddItem vDoc.Item(i).href
End If
End IfNext i
End Sub
Private Sub Timer1_Timer()
Dim b As Integer
For b = 0 To 20 Step 1
WebBrowser1.Navigate List1.List(b)Next b
End SubPrivate Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Cancel = TrueEnd Sub
isok = True
End SubPrivate Sub Timer1_Timer()
Dim b As Integer
For b = 0 To 20 Step 1
isok=false
WebBrowser1.Navigate List1.List(b)
do while isok=false
doevents
loop
Next b
End Sub结帐吧
下面加句 doevents
应为webbrowser基本上就是一个 ie~
Private Sub Command2_Click()Timer1.Enabled = True
Timer1.Interval = 15535
intTimerCount = 600
Timer2.Enabled = True
Timer2.Interval = 25535
Timer3.Enabled = True
Timer3.Interval = 35535
Timer4.Enabled = True
Timer4.Interval = 45535
Timer5.Enabled = True
Timer5.Interval = 55535
Timer6.Enabled = True
Timer6.Interval = 35000
Timer7.Enabled = True
Timer7.Interval = 40000
Timer8.Enabled = True
Timer8.Interval = 50000
Timer9.Enabled = True
Timer9.Interval = 51000
Timer10.Enabled = True
Timer10.Interval = 52000
Timer11.Enabled = True
Timer11.Interval = 53000
Timer12.Enabled = True
Timer12.Interval = 54000
Timer13.Enabled = True
Timer13.Interval = 55000
Timer14.Enabled = True
Timer14.Interval = 56000End SubPrivate Sub Command3_Click()
WebBrowser1.Navigate Text1.Text
End SubPrivate Sub Command4_Click()
Dim Allcount, i
Dim vTag, vDoc, vTa
List1.Clear
WebBrowser1.Navigate Text1.Text
Set vDoc = WebBrowser1.Document.All
Allcount = vDoc.length
For i = 0 To Allcount - 1
If UCase(vDoc.Item(i).tagname) = "A" Then '找到URL
vTag = vDoc.Item(i).href
If InStr(vTag, Text2.Text) Then '
List1.AddItem vDoc.Item(i).hrefEnd If
End IfNext i
End SubPrivate Sub Form_Load()
WebBrowser1.Navigate "http://technoinfo.blog.hexun.com/"
End SubPrivate Sub Command1_Click()
Dim Allcount, i
Dim vTag, vDoc, vTa
List1.Clear
WebBrowser1.Navigate Text1.Text
Set vDoc = WebBrowser1.Document.All
Allcount = vDoc.length
For i = 0 To Allcount - 1
If UCase(vDoc.Item(i).tagname) = "A" Then '找到URL
vTag = vDoc.Item(i).href
If InStr(vTag, Text2.Text) Then '
List1.AddItem vDoc.Item(i).hrefEnd If
End IfNext i
End SubPrivate Sub Timer1_Timer()
Static intSelfCount As Integer
intSelfCount = intSelfCount + 1
If intSelfCount = intTimerCount Then
WebBrowser1.Navigate List1.List(0)
Timer1.Enabled = False
End If
End SubPrivate Sub Timer2_Timer() WebBrowser1.Navigate List1.List(1)
Timer2.Enabled = False
End SubPrivate Sub Timer3_Timer()WebBrowser1.Navigate List1.List(2)
Timer3.Enabled = False
End SubPrivate Sub Timer4_Timer()WebBrowser1.Navigate List1.List(3)
Timer4.Enabled = False
End Sub
Private Sub Timer5_Timer()WebBrowser1.Navigate List1.List(4)
Timer5.Enabled = False
End Sub
Private Sub Timer6_Timer()WebBrowser1.Navigate List1.List(5)
Timer6.Enabled = False
End Sub
Private Sub Timer7_Timer()WebBrowser1.Navigate List1.List(6)
Timer7.Enabled = False
End Sub
Private Sub Timer8_Timer()WebBrowser1.Navigate List1.List(7)
Timer8.Enabled = False
End Sub
Private Sub Timer9_Timer()WebBrowser1.Navigate List1.List(8)
Timer9.Enabled = False
End Sub
Private Sub Timer10_Timer()WebBrowser1.Navigate List1.List(9)
Timer10.Enabled = False
End Sub
Private Sub Timer11_Timer()WebBrowser1.Navigate List1.List(10)
Timer11.Enabled = False
End Sub
Private Sub Timer12_Timer()WebBrowser1.Navigate List1.List(11)
Timer12.Enabled = False
End Sub
Private Sub Timer13_Timer()WebBrowser1.Navigate List1.List(12)
Timer13.Enabled = False
End Sub
Private Sub Timer14_Timer()WebBrowser1.Navigate List1.List(13)
Timer14.Enabled = False
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Cancel = TrueEnd Sub
Private Sub WebBrowser1_WindowSetWidth(ByVal Width As Long)
On Error Resume Next
If WebBrowser1(Index).Top <> 1850 Then
WebBrowser1(Index).Top = 1850
End If
End SubPrivate Sub Form_Resize() '改变窗口大小On Error Resume Next
If Me.Width < 11000 Then
Me.Width = 11000
End If
If Me.Height < 7000 Then
Me.Height = 7000
End If
cmdClose.Left = Form1.ScaleWidth - 700
cmdHide.Left = Form1.ScaleWidth - 1330
WebBrowser1().Top = 1850
WebBrowser1().Left = 20
WebBrowser1().Width = Form1.ScaleWidth - 30
WebBrowser1().Height = Form1.ScaleHeight - 1830End Sub