vb.webbrowser控件，自动点击超链接，求解答

Question

控件webbrowser框架html

Answer 1

 要不你用匹配的办法
Dim str As String
Dim ss As Long
Dim vDoc As Object
Dim i As Integer
ss = 0
 Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "A" Then
str = vDoc.All(i).outerhtml
str1=" <a target="&""""&"Main"&""""&" href="&""""&"my/mkjegs_xj.asp"&""""&">
        <font color="&""""&"#FFFFFF"&""""&">
         马克思恩格斯选集
       </font>
        </a>"
ss = InStrRev(str,str1)
End If
If ss<> 0  Then
vDoc.All(i).Click'点击A标签
Exit Sub
End If
Next

Answer 2

第一行再加个
dim str1 as string
放在这个事件里WebBrowser1_DocumentComplete