點擊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() on the MSDN）。