Vbscript 自动点击链接

我正在尝试单击页面上的链接，它没有任何id，也没有唯一的类名。该函数唯一独特的地方是onclick处理程序

<a href="#" onclick="closepopup('popup', 'popuphandler')" > </a>

但它不起作用，请帮忙

---

提前感谢：）

我会尝试检查特写是否在实际的javascript中找到，如下所示：

'safety first
if not isnull(allLinks(j).onClick) then
  if instr(allLinks(j).onClick.toString() ,  "closePopup(""popup"",""popupClose"")" ) > -1 then 
        allLinks(j).click 
        j = allLinks.length 'class name = blueButtonCenter 
  end if 
end if

---

此assumens onClick提供了一个字符串（至少在javascript中是这样，在IE9和Chrome中也是这样）

在第一种情况下，您没有指定什么不起作用，即查找链接或单击链接： onClick将返回如下内容

about:blank# function onclick()
{
closepopup('popup', 'popuphandler')
}

所以你应该使用instr来检查它是否是正确的链接

Dim HTMLDoc, XML, URL, table
Set HTMLDoc = CreateObject("HTMLFile")
Set XML = CreateObject("MSXML2.XMLHTTP")

URL = "your url"

With XML
  .Open "GET", URL, False
  .Send
  HTMLDoc.Write .responseText
End With

Set allLinks = HTMLDoc.links 
For each link in allLinks
  if instr(link.onClick, "closepopup('popup', 'popuphandler')") then
    link.click
    exit for
  end if
Next 

只有单击不会以这种方式工作

Dim HTMLDoc, XML, URL, table
Set HTMLDoc = CreateObject("HTMLFile")
Set XML = CreateObject("MSXML2.XMLHTTP")

URL = "your url"

With XML
  .Open "GET", URL, False
  .Send
  HTMLDoc.Write .responseText
End With

Set allLinks = HTMLDoc.links 
For each link in allLinks
  if instr(link.onClick, "closepopup('popup', 'popuphandler')") then
    link.click
    exit for
  end if
Next