vbscript IE点击导航栏中的链接

时间:2014-08-20 13:24:34

标签: html vbscript

我需要点击导航栏中的菜单项,该菜单项没有我可以看到的任何ID或名称。

我尝试点击特定元素,但我收到错误"对象需要"。

 ie.document.getElementById("toc_20003").Click

所以我尝试获取链接或对象的集合,这样我就可以看到我的选项是什么,但没有显示任何内容。

 set oelm=ie.document.getelementsbyname("mainMenu")
 for each elm in oelm
      wscript.echo elm.id
 next

我也尝试了上面的ie.document.links(1)但没有显示任何内容。

这是html。我想要的链接在最后"所有标题":

<div id="navBarContainer"><div id="navBar"><ul id="mainMenu"><li id="toc_10000" class="CurrentSection CurrentPage Leaf"><a href="page.aspx?location=HOME&cache=10062000346">Home</a></li><li id="toc_20000" class="Open"><a href="javascript:;" onfocus="blur()" onclick="mainMenuClick('toc_20000', '')" title="Explore aggregate and per-title sales data for your titles and your competitors' titles.">Sales Reports</a><ul><li id="toc_20003" class="Leaf"><a href="puballeypage.aspx?location=ALLSRCH&cache=10062000346" title="Sales for individual titles or groups of titles. Compare your sales with competitors' sales.">All Titles</a></li>

如何点击这个?此外,在vbscript登录网站后,网页刚刚重新粉刷。我是否需要做一些事情来强制新页面元素可用?

任何帮助表示赞赏。感谢。

1 个答案:

答案 0 :(得分:0)

你应该可以这样做:

' Get all links...
Set a = ie.Document.GetElementsByTagName("a")

' Find the link titled "All Titles" and click it...
For i = 0 To a.Length - 1
    If a(i).innerText = "All Titles" Then a(i).Click
Next