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

Next

End Sub

Private Sub Form_Load()

WebBrowser1.Navigate "http://static.apk.hiapk.com/html/2011/09/259615.html"