/ / VBScript čakajúci na kliknutie na tlačidlo - vbscript

Po kliknutí na tlačidlo VBScript kliknite na tlačidlo - vbscript

Som novým programom VBScript a snažím sa zmeraťvýkon webovej stránky, ktorú som vytvoril. Keď na mojom webe kliknem na tlačidlo, táto položka sa pridá do nákupného košíka. Do košíka je možné pridať 6 položiek. Ak môj skript klikne na prvú položku, ktorá sa má pridať do košíka, chcem, aby počkala, kým prejde na ďalšiu inštrukciu (bez uvedenia náhodného čísla spánku). V mojom programe pridá do môjho košíka iba 1. a poslednú položku:

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

odpovede:

1 pre odpoveď č. 1

Môžete urobiť niečo takéto:

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