1

我的目标是让我的用户能够访问他们需要的页面，而不必通过 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ès au service", class="bouton_acces_fr" and href="javascript:SoumettreParam('S00047','F')"

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

4

1 回答 1

0

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

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

将是最简单的解决方案。

于 2013-10-10T01:58:05.427 回答