1

实际上我必须点击一个链接，结果它会给出两个菜单列表，我需要选择其中任何一个

这是我用于启动 IE 并导航到所需网址的 VBScript

Dim URL 
Dim IE 
Set IE = CreateObject("internetexplorer.application")
URL = "http://it-asg.uhc.com/sites/gcas/pcas/archive/PCR/IVM/modlist/Lists/ElementTracker/AllItems.aspx" 
IE.Visible = True
IE.Navigate URL

任何人都可以帮我点击该链接并选择其中任何一个菜单源作为链接

链接的实际来源：

<a id="zz13_ListActionsMenu" accesskey="C" href="#" onclick="javascript:return false;" style="cursor ointer;white-space:nowrap;" onfocus="MMU_EcbLinkOnFocusBlur(byid('zz8_RptControls'), this, true);" onkeydown="MMU_EcbLinkOnKeyDown(byid('zz8_RptControls'), MMU_GetMenuFromClientId('zz13_ListActionsMenu'), event);" oncontextmenu="this.click(); return false;" menutokenvalues="MENUCLIENTID=zz13_ListActionsMenu,TEMPLATECLIENTID=zz8_RptControls" serverclientid="zz13_ListActionsMenu">Actions<img src="/_layouts/images/blank.gif" border="0" alt="Use SHIFT+ENTER to open the menu (new window)."></a>

提前致谢

4

1 回答 1

3

对于这种情况，您可以使用“getElementById”方法。例如：

IE.Document.getElementById("zz13_ListActionsMenu").Click

所以你的代码看起来像：

Dim URL 
Dim IE 
Set IE = CreateObject("internetexplorer.application")
URL = "http://it-asg.uhc.com/sites/gcas/pcas/archive/PCR/IVM/modlist/Lists/ElementTracker/AllItems.aspx" 
IE.Visible = True
IE.Navigate URL


 Do While IE.Busy
    WScript.Sleep 100
 Loop

IE.Document.getElementById("zz13_ListActionsMenu").Click

您还可以使用其他方法来访问和单击页面上的元素，我参考以下列表：

http://msdn.microsoft.com/en-us/library/ie/ms535862(v=vs.85).aspx

于 2013-09-03T16:23:46.877 回答