WEBBROWSE控件中模拟点击文本超链接

With WebBrowser1.Document.Links
    For i = 0 To .length - 1
        k = .Item(i).InnerText
        If k = "投我一票" Then
            'scripts = .Item(i).GetAttribute("href")

            'WebBrowser1.Navigate scripts
            'WebBrowser1.Document.parentWindow.execScript scripts, "javascript"
            .Item(i).Click

            '上面几种注释的方法都可以实现。
            Exit For
        End If
    Next
End With