VBScript 等待按钮被点击

Question

我是 VBScript 的新手，正在尝试衡量我创建的网站的性能。在我的网站中，单击按钮时，该项目将被添加到购物车中。有 6 件商品要添加到购物车。如果我的脚本单击要添加到购物车的第一个项目，我希望它等到继续执行下一条指令(不放置随机 sleep 编号)。在我的程序中，它只将第一个和最后一个项目添加到我的购物车:

set webbrowser = createobject("internetexplorer.application")
webbrowser.visible = true

webbrowser.navigate("https://www.mywebsite") 
Do While webbrowser.busy 'waiting till the webpage is loaded
   wscript.sleep(1)
Loop 

buttonID = "item1"  
Demo(buttonID)'Program should wait till the first button is clicked before going to the statement below'
buttonID = "item2"  
Demo(buttonID)
buttonID = "item3"  
Demo(buttonID)
buttonID = "item4"  
Demo(buttonID)
buttonID = "item5"  
Demo(buttonID)
buttonID = "item6"  
Demo(buttonID)

Sub Demo(buttonID)    
    Do  
        set x = webbrowser.Document.getElementById(buttonID)
        If x is nothing then
           wscript.sleep 1
        else    
            webbrowser.Document.getElementById(buttonID).click
            Exit Do
        end if 
    Loop
End Sub

Answer 1

你可以这样做:

set objie = createobject("internetexplorer.application")
objie.visible=true
objie.Navigate "https://www.swrm2017.org/TimeMeasurementOnlineShoppingSystem/BrowseCatalog/Catalog.php"
swait()

for i = 1 to 6
    id = "item"&i
    set button = objie.document.getElementById(id)
    button.click
    swait()
    set button = nothing
next
set ie = nothing

sub swait()
    while(objie.readystate<>4)
        wscript.sleep 10
    wend
    while objie.document.readystate<>"complete"
        wscript.sleep 10
    wend
end sub