自动点击一个链接

我想点击一个页面上的链接，它没有任何id和没有一个唯一的类名称。只有约功能独特的东西是onclick处理自动点击一个链接

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

我需要点击通过VBScript中的自动化此链接，对于同我试过代码：

Set allLinks = ie.document.links 
for j = 0 to allLinks.length-1 
    if allLinks(j).onClick = "closePopup(""popup"",""popupClose"")" then 
     allLinks(j).click 
     j = allLinks.length 'class name = blueButtonCenter 
    end if 
Next

但它不能正常工作，请帮帮我。

感谢提前:)

来源

2012-07-30 codeomnitrix

我会尝试检查closePupup在实际的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这个作品）

来源

2012-07-30 10:06:14 rene

感谢刘若英它为我工作 – codeomnitrix 2012-08-03 06:15:56

您没有指定什么好好尝试一下工作，发现该链接或点击它，在第一种情况：的onClick西港岛线返回类似

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

所以你shoudl使用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

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

来源

2012-07-30 11:00:34 peter

感谢彼得响应 – codeomnitrix 2012-08-03 06:19:07

自动点击一个链接

回答

相关问题