VB的webbrowser点击网页上的按钮链接问题

VB的webbrowser点击网页上的按钮链接问题
2010年01月23日
　　///////////////实现点击网页上的按钮
　　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.Type = "submit" And vTag.Value = "百度一下" Then vTag.Click
　　End If
　　Next i
　　End Sub
　　///////////////VB WebBrowser1中如何点击网页文字链接
　　Dim vTag As Variant, I As Integer, vCount As Integer
　　If Web1.ReadyState = READYSTATE_COMPLETE Then
　　Set vTag = WebBrowser1.Document.getElementsByTagName("a")
　　vCount = vTag.length
　　For I = 0 To vCount - 1
　　'以下注释部分为方法之一
　　'            If vTag(I).innerText = "首页" Then WebBrowser1.Navigate vTag(I).href
　　If vTag(I).innerText = "首页" Then
　　Web1.Document.All.Tags("a")(I).Click
　　End If
　　Next
　　End If