触发器用js或vbs单击href按钮

时间:2013-06-26 14:26:19

标签: javascript button vbscript triggers href

我的目标是让我的用户能够访问他们需要的页面,而无需通过3个不同的页面并单击各种按钮来实现目标。 我能够在这个网站上找到如何为http://www.cra-arc.gc.ca/esrvc-srvce/tx/bsnss/gsthstrgstry/menu-fra.html网站做到这一点。 现在我正在尝试使用这个网站:http://www.revenuquebec.ca/fr/sepf/services/sgp_validation_tvq/default.aspx但问题是,在第二个网站上按钮的编码方式不同,所以我的脚本无法使用它,我不知道如何调整我的脚本让它工作

这是我的脚本,第一个链接

完全正常
Call test
Sub test()
With CreateObject("InternetExplorer.Application")

    .Visible = True
    .Navigate "http://www.cra-arc.gc.ca/esrvc-srvce/tx/bsnss/gsthstrgstry/menu-fra.html"

    Do While .Busy Or .readyState <> 4
        WScript.Sleep 50
    Loop

    Set oInputs = .Document.getElementsByTagName("input")

    For Each elm In oInputs
        If elm.Value = "J'accepte" Then
            elm.Click
            Exit For
        End If
    Next

    Do While .Busy Or .readyState <> 4
        WScript.Sleep 50
    Loop
End With
End Sub

这就是区别:

第一个网站:使用“value = J'accepte”

第二站点:使用“title =”Accèsauservice“,class =”bouton_acces_fr“和href =”javascript:SoumettreParam('S00047','F')“

所以在脚本中我使用“J'accepte”触发网站中的点击,但在第二个“值”不存在,我看到“id”为按钮 thanx!

1 个答案:

答案 0 :(得分:0)

  

但是在第二个“值”中不存在,我看到按钮的“id”

If elm.Value <> "J'accepte" Then
   elm.Click

将是最简单的解决方案。