VBScript等待按钮被单击

我不熟悉VBScript，并试图衡量我创建的网站的性能。在我的网站中，当点击一个按钮时，该项目将被添加到购物车中。有6个项目要添加到购物车。如果我的脚本单击要添加到购物车的第一个项目，我希望它等待下一条指令的执行（不放置随机睡眠编号）。在我的程序中，它只将第一个和最后一个项目添加到我的购物车中：

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

---

您可以这样做：

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

set objie=createobject（“internetexplorer.application”）
objie.visible=true
objie.导航“https://www.swrm2017.org/TimeMeasurementOnlineShoppingSystem/BrowseCatalog/Catalog.php"
swait（）
对于i=1到6
id=“item”&i
set button=objie.document.getElementById（id）
按钮。点击
swait（）
设置按钮=无
下一个
设置ie=无
副秘书长（）
while（objie.readystate4）
wscript.sleep 10
温德
而objie.document.readystate“完成”
wscript.sleep 10
温德
端接头

感谢您用一个例子向我解释。我感谢你的帮助