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