谁帮我看看这段代码

seaman2 2006-03-21 10:16:06

Option Explicit
Dim amount
Dim Page As Long, Gwlb As Long
Dim flag As Boolean
Private Sub Form_Load()
Page = 1
Gwlb = 1
flag = True
Form1.MousePointer = 11
WebBrowser1.Navigate "http://www.job168.com/recruit/index2.asp?page=1&count=456&gwlb=1&svc=%B8%F6%C8%CB%D7%D4%BC%F6"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim Table1 As HTMLTable, Tables As IHTMLElementCollection
Dim select1 As HTMLFormElement, selects As IHTMLElementCollection
Dim Row As HTMLTableRow, Cell As HTMLTableCell
Dim i, j, tmp

If (pDisp Is WebBrowser1.Object) Then
On Error Resume Next
If flag Then
Set selects = WebBrowser1.Document.getElementsByTagName("select")
For Each select1 In selects
If select1.Name = "page" Then
amount = select1.length '为何这里amount的值总是不变
flag = False
End If
Next
End If

Set Tables = WebBrowser1.Document.getElementsByTagName("Table")
For Each Table1 In Tables
If Left(Table1.innerText, 2) = "姓名" Then
For i = 0 To Table1.rows.length - 1
Set Row = Table1.rows(i)
j = 0
For Each Cell In Row.cells
Text1 = Text1 + Trim(Row.cells(j).innerText) + vbTab
j = j + 1
Next
Text1 = Left(Text1, Len(Text1) - 1) + vbCrLf
Next
Open "C:\Data.xls" For Append As #1
Print #1, Left(Text1, Len(Text1) - 2): Text1 = "": Close #1
Exit For
End If
Next

Page = Page + 1
tmp = "http://www.job168.com/recruit/index2.asp?page=" + _
Trim(Str(Page)) + "&count=456&gwlb=" + Trim(Str(Gwlb)) + "&svc=%B8%F6%C8%CB%D7%D4%BC%F6"
If Page <= amount Then
WebBrowser1.Navigate tmp
Else

If Gwlb <= 16 Then
flag = True
amount = 0
Gwlb = Gwlb + 1
Page = 1
tmp = "http://www.job168.com/recruit/index2.asp?page=" + _
Trim(Str(Page)) + "&count=456&gwlb=" + Trim(Str(Gwlb)) + "&svc=%B8%F6%C8%CB%D7%D4%BC%F6"
WebBrowser1.Navigate tmp
Else
Form1.MousePointer = 0
MsgBox "Finished!!": End
End If

End If
End Sub
------------------------------------------------------------------------------------
上面代码中的这句 amount = select1.length 为何这里amount的值总是不变。

...全文