vb 主动 点击 a

Private Sub Command1_Click()
Dim wb
Set wb = WebBrowser1.Document
For i = wb.All.length - 1 To 0 Step -1


If LCase(wb.All(i).tagname) = "a" Then

If wb.All(i).className = "d1" Then
wb.All(i).Click
End If

End If

Next

End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://static.apk.hiapk.com/html/2011/09/259615.html"
End Sub

posted @ 2011-11-02 14:19  镇水古月  阅读(164)  评论(0编辑  收藏  举报