Dim A

 For Each A In WebBrowser.Document.All

 If UCase(A.tagName) = "A" Then
 sql = "insert into spidedata (link,title) values ('" & A.href & "','" & A.innerText & "')"
 conn.Execute sql
 DoEvents
 Text1.Text = Text1.Text + 1
 End If
 Next

Function GetBody(ByVal constr, ByVal StartStr, ByVal OverStr, ByVal IncluL, ByVal IncluR)
 If constr = "$False$" Or constr = "" Or IsDBNull(constr) = True Or StartStr = "" Or IsDBNull(StartStr) = True Or OverStr = "" Or IsDBNull(OverStr) = True Then
 GetBody = "$False$"
 Exit Function
 End If
 Dim ConStrTemp
 Dim Start, Over
 ConStrTemp = LCase(constr)
 StartStr = LCase(StartStr)
 OverStr = LCase(OverStr)
 Start = InStr(1, ConStrTemp, StartStr, vbBinaryCompare)
 If Start <= 0 Then
 GetBody = "$False$"
 Exit Function
 Else
 If IncluL = False Then
 Start = Start + Len(StartStr)
 End If
 End If
 Over = InStr(Start, ConStrTemp, OverStr, vbBinaryCompare)
 If Over <= 0 Or Over <= Start Then
 GetBody = "$False$"
 Exit Function
 Else
 If IncluR = True Then
 Over = Over + Len(OverStr)
 End If
 End If
 GetBody = Mid(constr, Start, Over - Start)
 End Function

Private Sub Command1_Click() '登陆
Dim vDoc, vTag
Dim i As Integer

Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
 If UCase(vDoc.All(i).TagName) = "INPUT" Then
 Set vTag = vDoc.All(i)
 If vTag.Name = "username" Or vTag.Name = "password" Then
 Select Case vTag.Name
 Case "username"
 vTag.Value = "bokker518" '这是我在VBgood的用户名
 Case "password"
 vTag.Value = "11111111" '这是密码
 End Select
 ElseIf vTag.Type = "submit" Then
 vTag.Click
 End If
 End If
Next i
End Sub

'装入VBgood论坛的登陆页
Private Sub Form_Load()
 WebBrowser1.Navigate "http://www.vbgood.com/logging.php?action=login"
End Sub

'这是把网页的代码写入一个TEXT
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim doc As Object
Dim objhtml As Object
 Set doc = WebBrowser1.Document
 Set objhtml = doc.body.createTextRange()
 Text3.Text = objhtml.htmlText
End Sub

这样就行了