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