如何使用VBScript单击棘手的注销链接并注销

时间:2014-01-21 14:55:48

标签: vbscript automated-tests logout

各位,

我遇到了注销功能编码如下的网页:

<div class="l login_even">
    <span class="logout">
        "("
            <a class="logoutBtn" href="javascript:void(0);">logout</a>
        ")"
    </span>
</div>

我可以使用tagName的迭代&#34; a&#34;找到标签。
但是,我想点击退出按钮并注销网页。
如果我写下代码片段,我收到错误:
脚本片段:

If IEApp.Document.readyState="complete" Or IEApp.Document.readyState="loaded" Or IEApp.Document.readyState="interactive" Then
    Set objDoc = IEApp.Document
    Set allTags = objDoc.getElementsByTagName("a")
    For Each aTag In allTags
        If aTag.innerHTML = "logout" Then
            WSH.Echo("Found!")
            aTag.click()
            objDoc.Location.Reload(True)
        'Else
            'WSH.Echo("Not Found!")
        End If
    Next
End If

错误消息:
订单:28个
焦炭:3
错误:权限被拒绝:&lt; innerHTML&#39;
代码:800A0046
来源:Microsoft VBScript运行时错误

有人帮我吗?感谢。

1 个答案:

答案 0 :(得分:0)

使用If aTag.innerText = "logout" Then代替innerHTML