自動點擊一個鏈接

我想點擊一個頁面上的鏈接，它沒有任何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

自動點擊一個鏈接

回答

相關問題