如何使用vbscript单击嵌入在html锚标签中的超链接?

时间:2014-11-21 13:55:35

标签: vbscript

我可以打开浏览器和我想要使用的页面。但实际的兴趣点是名为" Next"的链接。我想点击该链接,但我尝试在我的代码中获取该元素失败。这是我到目前为止所做的。

Dim URL
Dim IE
Set IE = CreateObject("internetexplorer.application")
URL = "http://mylink.com/"
IE.Visible = True
IE.Navigate URL 

Dim a
Set a = IE.Document.GetElementsByTagName("arrowRight")

For i = 0 To a.Length - 1
    MsgBox "Found it"
    a.Click
    Exit For  
Next

这是" Next"超链接嵌入在页面代码中:

<a class="arrowRight" href="http://SomeURL.com/150.html">Next</a>

1 个答案:

答案 0 :(得分:0)

arrowRight是(CSS)类名称,而不是标记名称,因此您需要使用类a检查arrowRight标记:

For Each a In ie.document.getElementsByTagName("a")
  If a.getAttribute("class") = "arrowRight" And a.innerText = "Next" Then
    a.Click
    Exit For
  End If
Next