vb.net如何点击webbrower中的超链接

Question

如题所述

Answer 1

没用过vb.net中的webbrower
下面是VB6.0的代码
1）如果你知道你要点击的A链是第几个，可以用这样的方法
WebBrowser1.Document.getElementsByTagName("a")(x).Click
x代表第几个
2）如果你不知道或者你要点击的A链位置不确定的话你可以用遍历的方式找到你要点击的A链
    '请先定义
    'AValue代表A链的innerHTML属性，也就是我们经常的看到超链接上面的字
    '
    Set AObj = WebBrowser1.Document.getElementsByTagName("a")
    Debug.Print "AObj:" & TypeName(AObj)
    For Each NewAObj In AObj
        Debug.Print "NewAObj.innerHTML:" & NewAObj.innerHTML
        temp = Trim(NewAObj.innerHTML)
        If temp = AValue Then
            NewAObj.Click
            Debug.Print "点击【" & AValue & "】成功"
            Exit For
        End If
    Next
3）更多方法请百度。