单击包含特定字符串在VBS中的链接

Question

我正在尝试运行自动的vbs脚本，该脚本单击页面上的链接。我有形式的东西：

Const READYSTATE_COMPLETE = 4  
Set IE = CreateObject("INTERNETEXPLORER.APPLICATION")  
IE.Visible = true  
IE.navigate ("http://mywebpage.com")

然后如何使它单击该页面上没有ID但类似于的链接

<a href="link">ClickMe!</a>

谢谢！

Answer 1

沿线

Dim LinkHref
Dim a

LinkHref = "link"

For Each a In IE.Document.GetElementsByTagName("A")
  If LCase(a.GetAttribute("href")) = LCase(LinkHref) Then
    a.Click
    Exit For  ''# to stop after the first hit
  End If
Next

作为替代，LCase(…) = LCase(…)您也可以使用StrComp(…, …, vbTextCompare)（请参阅StrComp()MSDN上的）。