VBS单击没有名称的按钮

时间:2015-10-29 21:27:58

标签: vbscript

我正在尝试点击按钮,但它没有名称或ID,网站上的代码位于

之下
<a href="https://www.supremenewyork.com/checkout" class="button checkout">checkout now</a>

到目前为止,我有以下内容

set webrowser = createobject("internetexplorer.application")
webrowser.statusbar = false
webrowser.menubar = false
webrowser.toolbar = false
webrowser.visible = true
webrowser.navigate("http://www.supremenewyork.com/shop/jackets/quilted-flight-satin-parka/orange")
wscript.sleep(5000)     
webrowser.document.all.item("size").value = "30418"
wscript.sleep(500)
webrowser.document.all.item("commit").click
wscript.sleep(500)
For Each btn In webrowser.Document.getElementsByTagName("input")
    If btn.type= "button checkout" Then btn.Click()
Next

1 个答案:

答案 0 :(得分:0)

用以下代码替换代码的最后三行:

For Each btn In webrowser.Document.getElementsByClassName("button checkout")
    If btn.href = "https://www.supremenewyork.com/checkout" Then btn.Click()
Next

循环实际上只找到一个按钮,所以你可以点击它而不用&#39;如果&#39; ...但是if更安全。