ボタンをクリックするまで待機中のVBScript

Question

VBScriptを初めて使用し、作成したウェブサイトのパフォーマンスを測定しようとしています。私のウェブサイトでは、ボタンをクリックすると、その商品がショッピングカートに追加されます。カートに追加する6項目があります。私のスクリプトがカートに追加される最初の項目をクリックすると、（ランダムなスリープ番号を入れずに）次の命令に進むまで待つことを望みます。私のプログラムでは、それだけで私のカートに1番目と最後の項目を追加します。

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