webbrowser模拟点击……

webbrowser模拟点击……
2009年09月24日
　　dim o
　　for each o in webbrowser.document.getElementsByTagName("SPAN")
　　if instr(o.innerText,"联系人")>0 then
　　o.click: exit for
　　end if
　　next
　　//实现点击网页上的按钮
　　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