如何使用 VBS 单击锚点、HTML 标记答案

【问题标题】：How to click anchor, HTML tag, with VBS如何使用 VBS 单击锚点、HTML 标记
【发布时间】：2017-04-06 15:57:07
【问题描述】：

我花了很多时间为我的问题寻找解决方案但没有找到它（也许我只是 VBS 的新手）。所以，我的问题是：封装成一些#document, div, tab, table, tr, td, tbody, ul, li 我有这个：

<a href="#" onclick="EPCM.doNavigate('navurl://9378a638c45b5b365a39e30eb9f00ff6',0,'','null',1,'Tutti\x20gli\x20strumenti','');return false;" class="pgfsLiv3">Tutti gli strumenti</a>

我已尝试使用此 VBScript 单击此超链接：

Set a=oIE.document.getElementsByTagName("a")
  For i = 0 To a.Length - 1
    If a(i).innerText = "Strumenti di lavoro" Then a(i).Click
Next

它运行但不工作（不点击链接）。有什么建议吗？

【问题讨论】：

我假设您的条件是false（您的示例链接的内部文本是not“Strumenti di lavoro”）只是输入错误这个问题，实际上有链接的内部文本是“Strumenti di lavoro”？
是的，只是打字错误！使用“Tutti gli strumenti”也不起作用......

标签： html vbscript hyperlink click anchor

【解决方案1】：

尝试点击按类搜索的内部文本

For Each elem In IE.Document.getElementsByClassName("pgfsLiv3")
   If elem.innerText = "Tutti gli strumenti" Then
       elem.focus
       elem.Click
   End If
Next

【讨论】：

它不起作用。我试过这个代码Set box = oIE.Document.getElementById("box") a(i) = box.GetElementsByTagName("a") For i = 0 To a.length -1 If a(i).innerText = "Tutti gli strumenti" Then a(i).focus a(i).Click End If Next
因为HTML代码是：<div id="box" style="width:100%"> <ul class="treenav"> <div style="width:100%; height: 20px; vertical-align: bottom;">...</div> <li>...</li> <li> <div class="pgfsRiga3" style="width: 100%"> <div> <a href="#" onclick="EPCM.doNavigate('navurl://9378a638c45b5b365a39e30eb9f00ff6',0,'','null',1,'Tutti\x20gli\x20strumenti','');return false;" class="pgfsLiv3">Tutti gli strumenti</a> </div> <div class="pgfsFreccia3Dx">...</div> </div> </li> </ul> </div>
尝试只关注，注释我代码中的点击部分。如果设置了焦点，则链接有问题。
我找到了解决办法！它在内，所以...此代码运行：<code>Set box = oIE.Document.getElementById("ivuFrm_page1ivu3").contentWindow.document.getElementById("box") Set a = box.getElementsbyTagName("a") For i = 0 To a.length -1 If a(i).innerText = "Tutti gli strumenti" Then a(i).focus a(i).Click End If Next</code>